찾아보기

2013년 11월 13일 수요일

사이트 자동 로그인 스크립트

회사 출근도장 찍으려고 만든 자동 로그인 스크립트 …


오랜만에 VB 스크립트라기 보다는 사이트 검색해서 짜깁기 ㅎㅎ



Option Explicit
Dim ie
Set ie = CreateObject(“InternetExplorer.Application”)


ie.Navigate “SITE URL”
ie.Visible = True


Do While ie.Busy
Call WScript.Sleep(100)
Loop


If Len(ie.Document.Forms(0).userId.Value) = 0 Then
ie.Document.Forms(0).userId.Value = “ID”
Call WScript.Sleep(1000)
End If


If Len(ie.Document.Forms(0).password.Value) = 0 Then
ie.Document.Forms(0).password.Value = “PASSWORD”
Call WScript.Sleep(1000)
End If


ie.document.forms(0).action = “ACTION URL”
ie.document.forms(0).submit



‘ie.Quit
'Set ie = Nothing



시작 프로그램에 등록해 두었더니 조금 편해졌다 ㅎㅎ.

댓글 없음:

댓글 쓰기