vbs自动登陆115网盘代码

Sub log115()
Dim ieobj
Set ieobj=CreateObject("InternetExplorer.Application")
ieobj.Visible = True
ieobj.navigate "http://u.115.com"
Do Until ieobj.Readystate = 4
WScript.Sleep 100
Loop
If InStr(ieobj.LocationURL,"http://u.115.com/?")>0 Then
ieobj.Silent=True
Else
ieobj.Document.All("account").Value = "aautotest"
ieobj.Document.All("passwd").Value = "asd123"
ieobj.Document.All("passwd").Form.Submit()
End If
Set ieobj=Nothing
End Sub
log115()

Sub log115()
Dim ieobj
Set ieobj = CreateObject("InternetExplorer.Application")
ieobj.Visible = True
ieobj.navigate "http://u.115.com"
Do Until ieobj.Readystate = 4
DoEvents
Loop
If InStr(ieobj.LocationURL, "http://u.115.com/?") > 0 Then
ieobj.Silent = True
Else
ieobj.Document.All("account").Value = "aautotest"
ieobj.Document.All("passwd").Value = "asd123"
ieobj.Document.All("passwd").Form.Submit
End If
Set ieobj = Nothing
End Sub