哪位大哥帮我vb做个自动登陆网站的代码

来源：百度知道 编辑：UC知道 时间：2024/06/05 07:38:17
用vb做个自动登陆网站的代码 就用这个网站做列子吧http://www.tinlu.com/ 帐号是xiaofei110密码是110110
用vb做 让他自动登陆 登陆成功自动退出 然后再自动登陆．就是不停的登陆．
谢谢！关键是 不会写输入帐号 和密码 以及循环登陆的代码．哪位大哥能给写全出详细代码．小弟万分感激．
小弟不会 请教大家．在别的地方问其他的人 总是说”给我钱 给你说代码”郁闷！！

一个command控件,一个webbrowser控件,无需鼠标点击
加入代码:

'***********VB 延时函数定义*************************************
'声明
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
'延时
Private Sub Delay(ByVal num As Integer)
Dim t As Long
t = timeGetTime
Do Until timeGetTime - t >= num * 1000
DoEvents
Loop
End Sub
'***************************************************************

'在这个程序里,所有延时都视网络情况而定,网速快的的延时小,慢的话延时大
Private Sub Command1_Click()
For i = 1 To 2 '执行2次,你可以把以下代码放到timer控件里,也可以自设执行次数
WebBrowser1.Document.Forms(1)(0).Value = "xiaofei110"
WebBrowser1.Document.Forms(1)(1).Value = "110110"
Delay 2
WebBrowser1.Document.Forms(1).All(19).Click

Delay 10
WebBrowser1.Document.All(183).Click
Delay 5
Next
End Sub

Private S