Question

如何用VB制作自动登陆网站自动输入帐号密码

如何用VB制作自动登陆网站自动输入帐号密码，主要步骤，和相关代码实例。

Answer 1

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Sub Form_Load()
WebBrowser1.Navigate " http://reg4.163.com/CheckUser.jsp"
End Sub
Private Function M_Dom_oncontextmenu() As Boolean
M_Dom_oncontextmenu = False '禁用右键
End Function
Private Sub Webbrowser1_DownloadComplete()
Set M_Dom = WebBrowser1.Document
End Sub
Private Sub Form_Resize()
If Me.WindowState <> 1 Then
WebBrowser1.Left = 10
WebBrowser1.Width = Me.Width - 120
WebBrowser1.Height = Me.Height - 800
End If
End Sub
Private Sub Command1_Click()
Dim Obj As Object
Set Obj = WebBrowser1.Document
Obj.All.username.Value = Text1.Text
Obj.All.password.Value = Text2.Text
Obj.All.submit.Click

End Sub