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

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

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

'这个是登录163通行证的代码，你去研究下！不明白Q我

如果没有验证码，比较方便，用WEBROWER控件即可

呵呵，难道你觉得网站的验证码都是摆设？现在登录验证码已经很广泛了~如果楼主需要相关资料以应付作业，我倒是略知一二~