打開網盤，自動輸入賬號密碼，尋找登陸按鈕，自動登陸。但出現錯誤，什么原因？
Private Sub Command16_Click()
Dim ie1 As Object, i As Integer
Set ie1 = CreateObject("InternetExplorer.Application")
ie1.Navigate2 "https://yunpan.360.cn/user/logout/" '制定ie默認指向的頁面
ie1.Visible = 1
ie1.FullScreen = 0 '全屏化IE物件
ie1.MenuBar = 1
ie1.addressbar = 1
ie1.Toolbar = 1
ie1.StatusBar = 1
ie1.resizable = 1
Do
Loop Until ie1.ReadyState = 4
ie1.Document.getElementsByTagname("input")("account").Value="https://bbs.csdn.net/topics/賬號"
ie1.Document.getElementsByTagname("input")("password").Value="https://bbs.csdn.net/topics/密碼"
For i = 0 To ie1.Document.All.Length - 1
If ie1.Document.All(i).tagName = "input" Then
If ie1.Document.All(i).Class = "quc-submit quc-button quc-button-primary quc-button-sign-in" And ie1.Document.All(i).Type = "submit" And ie1.Document.All(i).Value = "登錄" Then
ie1.Document.All(i).onClick
End If
End If
Next i
End Sub
uj5u.com熱心網友回復：
http://www.autohotkey.com轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/48469.html
標籤：VBA
下一篇：求大神解答