오류 시 다음 단계로 계속
설정 fso=CreateObject("스크립팅. 파일 시스템 개체")
설정 fr=fso. OpenTextFile("163.txt")
할 때까지 fr. Atendo Stream<
로그인 fr. 줄 읽기
링
프랑크 끄기
설정 fr = none
설정 fso = none
함수 로그인(텍스트)
설정 Wshell = WScript. createObject("WScript. shell. ")
AppName="163 Email"
Set ie=WScript. CreateObject("InternetExplorer. Application")
i.e. visible=true
text=. 트림(텍스트)
ID=왼쪽(텍스트, InStr(텍스트, " @ ")-1
PW=오른쪽(텍스트, 렌(텍스트)-인스트르레브(텍스트, "- ")
i=1에서 1단계씩
ie.navigate " "
Do
Wscript. sleep 200
Loop until ie. readyState=4
ie . document . login 163 . username . value = "username"
ie . document . login 163 . password . value = " password"
WShell. sendKeys "~ " 'Enter.
WShell. sendKeys"~ " 'Enter.
Wscript. sleep 500 '인터넷 속도에 따라 대기 시간을 결정합니다.
IE 창을 닫습니다.
그런 다음
Set ie = Nothing
Set Wshell = Nothing
함수 종료