on error resume nextDim wsh
Set wsh = CreateObject("Scripting.Shell")
wsh.run"iexplore.exe http://www.91wan.com/user/game_login.php?game_id=32&server_id=8" WScript.Sleep 1000*5
wsh.AppActivate " " ' 引号中填浏览器最上面的标题
WScript.Sleep 1000*1
wsh.SendKeys "帐号" '引号中填帐号
WScript.Sleep 1000*1wsh.SendKeys "{TAB}"WScript.Sleep 1000*1
wsh.SendKeys "密码" '引号中填密码
WScript.Sleep 1000*1
wsh.SendKeys "{ENTER}"