vbs自动登陆115网盘代码

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()

vba版登陆115网盘代码（office中使用）

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