Dim a
Set a=WScript.CreateObject("WScript.shell")
Do While True
a.run "http:\\www.baidu.com" '登陆界面的地址
WScript.Sleep 1000 * 3 '暂停3秒,因为打开网页需要一段时间
'a.SendKeys "{TAB}"
'a.SendKeys "abc" '帐号
'a.SendKeys "{TAB}"
a.SendKeys "123456" '密码
a.SendKeys "{TAB}"
a.SendKeys "{ENTER}"
randomize
result=(rnd*(60-30+1)+30)
WScript.Sleep 1000 * result
Loop