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