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

자동로그인 만들어 보자 [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.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

kalmason