Through vb, open a webpage, automatic login, there is an error, error in real-time, and 424, request-CodePudding

Open network backup, automatic input password for log in button, automatically log in, but there is an error, what reason be?

Private Sub Command16_Click ()
Dim ie1 As Object, I As an Integer
The Set ie1=CreateObject (" InternetExplorer. Application ")
Ie1. Navigate2 "https://yunpan.360.cn/user/logout/" 'set the default to ie page
Ie1. Visible=1
Ie1. FullScreen=0 'full screen, IE object
Ie1. The MenuBar=1
Ie1. Addressbar=1
Ie1. The Toolbar=1
Ie1. The StatusBar=1
Ie1. The resizable=1
Do
Loop Until ie1. ReadyState=4
Ie1. Document. GetElementsByTagname (" input ") (" account "). The Value="https://bbs.csdn.net/topics/" account
Ie1. Document. GetElementsByTagname (" input ") (" password "). The Value="https://bbs.csdn.net/topics/" password
For I=0 To ie1. Document. All. The Length - 1
If ie1. Document. All (I). The tagName="input" Then
If ie1. Document. All (I). The Class="quc - submit quc - button quc - button - primary quc - button - the sign -" in the And ie1. Document. All (I) Type="submit" And ie1. Document. All (I). The Value="https://bbs.csdn.net/topics/" Then
Ie1. Document. All (I). The onClick
End the If
End the If
Next I

End Sub

CodePudding user response:

http://www.autohotkey.com