[VBScript] 네이버 자동로그인 스크립트 만들기

[VBScript] 네이버 자동로그인 스크립트 만들기


네이버에 자동로그인 하는 스크립트입니다.
네이버는 다음과 다르게 "http://static.nid.naver.com/loginbox.nhn"라는 별도의 로그인 화면으로 되어있습니다.

보안단계에 따라서 로그인 방식이 다릅니다.
     1단계 : HTML을 이용한 일반 로그인
     2단계 : Javascript를 이용한 로그인
     3단계 : ActiveX 보안모듈을 이용한 로그인
 
사용되는 로그인화면 오브젝트
     m2b : 보안1단계 버튼
     id    : ID입력 텍스트 박스
     pw  : 암호 입력  텍스트 박스
     frmNIDLogin : 로그인 폼 

【소스】 

' IE오브젝트 생성
Set objIE = CreateObject("InternetExplorer.Application")

' 홈페이지 접속
objIE.Navigate "http://static.nid.naver.com/loginbox.nhn"       ' 네이버 로그인 페이지에 접속 
objIE.Visible = True                                                                 '  화면을 표시 
waitIE objIE                                                                            '  화면 로딩이 끝날때까지 스크립트 정지 

With objIE.Document
    .getElementByid("m2b").Click          ' 보안1단계로 설정   
    .all("id").Value = "아이디"                   ' ID입력
    .all("pw").Value = "패스워드"          ' 암호 입력   
    .frmNIDLogin.Submit()                    ' 로그인 실행  
End With

' IE의 화면로딩이 끝날때까지 스크립트 정지
Sub waitIE(objIE)
     Do While objIE.Busy = True Or objIE.ReadyState <> 4
          WScript.Sleep 100
     Loop
End Sub

【다운로드】

naver.vbs