자동로그인 만들어 보자 [visual basic script이용]

마이크로소프트사에서 비쥬얼베이직언어를 조금 사용할수 있는 스크립트를 만들었습니다.

이 스크립트언어는 윈도우즈에 비쥬얼 베이직을 깔필요없이 스크립트언어 자체로 실행이 가능합니다.

이를 이용해서 다음과 네이버의 자동로그인을 만들어 보겠습니다.

 

 1. 네이버 자동로그인 아래 스크립트를 naver.vbs로 저장합니다.

 

Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "https://nid.naver.com/nidlogin.login" IE.Visible = True waitIE IE With IE.Document    .all("id").Value = "자신의아이디"    .all("pw").Value = "자신의비밀번호"    .frmNIDLogin.submit() End With Sub waitIE(IE)  Do While IE.Busy = True or IE.readystate <> 4      WScript.Sleep 100  Loop End Sub

 

 

 

스크립트설명..

Set IE = CreateObject("InternetExplorer.Application")

IE.Navigate "https://nid.naver.com/nidlogin.login"
IE.Visible = True
인터넷 익스플로러를 실행합니다. 위의 주소창은 네이버로그인주소를 적으면 됩니다. 이 주소는 네이버창에서 아이디부분에 틀린 아이디를 넣고

로그인 버튼을 누르면 나오는 창의 주소를 적으면 됩니다...

 

     

 

 

                     

 

 waitIE IE

익스플로러가 실행될때까지 기다립니다.

 

With IE.Document
   .all("id").Value = "자신의아이디"
   .all("pw").Value = "자신의비밀번호"
   .frmNIDLogin.submit()
End With

id ,pw 변수를 찾아 자신의아이디와 자신의비밀번호를 대입합니다.

frmNIDLogin.submit() 로그인버튼 클릭

 

 

Sub waitIE(IE)
 Do While oIE.Busy = True or IE.readystate <> 4
     WScript.Sleep 100
 Loop
End Sub

 

처리될때까지 기다립니다.

 

2. 다음 <daum.vbs>

 

 

Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "http://www.daum.net"      IE.Visible = True    waitIE IE                                              With IE.Document      .all("id").Value = "자신의아이디"       .all("pw").Value = "자신의비밀번호"        .getElementByid("loginSubmit").Click  End With Sub waitIE(IE)  Do While IE.Busy = True or IE.readystate <> 4   WScript.Sleep 100  Loop End Sub