一个有趣的VBS

VBS真心很强大啊，ms支持很牛啊。

 

今天一个同学给我发了一个自动登录我们网站的脚本，如下，晚上学习一下：

 

On Error Resume Next
Dim ie,document,url
url="XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
Set ie =WScript.CreateObject("internetexplorer.application")
ie.Visible=1
ie.navigate url
WScript.sleep 100
Do While ie.busy Or ie.readystate <> 4
Loop
Set document = ie.document
document.getElementById("overridelink").click
Do While ie.busy Or ie.readystate <> 4
Loop
Set document = ie.document
' WScript.sleep 0 '
document.getElementById("user").value=""
document.getElementById("pass").value=""
document.getElementById("login").click