一个有趣的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