VBS代码邮箱自动登陆,不知道哪写错了?
set wshshell=CreateObject("wscript.shell")
AppName="sina邮箱"
Set ie = CreateObject("internetexplorer.application")
ie.visible=True
ie.navigate "http://mail.sina.com/"
While ie.busy Or ie.readystate <> 4
Wscript.Sleep 1000
wend
Wscript.Sleep 1000
ie.Document.free.u.value="sfjsfjs"
'e.myform.pass.value="123456"
ie.Document.free.psw.value="123456"
Wscript.Sleep 1000
ie.document.form.submit
Last edited by HAT on 2008-10-13 at 17:42 ]