Private Sub Timer1_Timer()

Dim i As Integer

Form1.Caption = js   '提示倒计时
If js > 0 Then
    js = js - 1      '倒计时
End If

If Check1.Value > 0 Then
    If js = 0 Then           '倒计时=0
        If List1.ListCount > 0 Then       '有列表
            i = Int(Rnd() * List1.ListCount)        '产生随机位置
            WebBrowser2.Navigate List1.List(i)      '转到
            List1.RemoveItem i                      '去掉该网址
            js = 30                                '倒计时180秒
        Else
            WebBrowser2.Navigate 列表URL            '列表为空，转到列表
            js = 600                                '倒计时 600 秒
        End If

    End If
End If
End Sub



Private Sub WebBrowser2_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    js = 3
End Sub



Private Sub Command1_Click()
List1.Clear
List2.Clear
For Each ww In WebBrowser1.Document.getelementsbytagname("a")
ss = ww.href
qq = ww.innertext
If Right(ss, 5) = "shtml" Then
List1.AddItem ss
List2.AddItem qq
Label1.Caption = "共提取到：" & List1.ListCount & "条连接"
End If
Next ww
End Sub

Private Sub Command2_Click()
    List1.Clear
    List2.Clear
    Label1.Caption = "共提取到：" & List1.ListCount & "条连接"
End Sub

Private Sub MyBorwser_NavigateComplete2(ByVal pDisp As Object, URL As Variant) '忽略脚本语法错误
        Set HtmlWnd = MyBorwser.Document.parentWindow

End Sub
Private Sub Command3_Click()

            i = Int(Rnd() * List1.ListCount)        '产生随机位置
            WebBrowser2.Navigate List1.List(i)      '转到
            List1.RemoveItem i                      '去掉该网址
            js = 30
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://dzh.
End Sub
Private Sub Command4_Click()  '结束按钮
   End
End Sub

下面回复部分怎么写？  
我要的是自动回复。。。内容从LIST2里随机选择。
网页的代码在下面。

http://dzh.
这个页面就是需要回复的页面··求大大帮忙 谢谢了··

谢谢大大···能帮我写一下吗？前面的代码也有你告诉我写的部分·

登录部分不需要的。

Private Sub Command1_Click()
On Error Resume Next
list1.Clear
Label2.Caption = 0
Label4.Caption = 0
Open App.Path & "\lianjie.ini" For Input As #1
Line Input #1, lianjie
Close #1
For j = 0 To 5
  WebBrowser1.Navigate lianjie & j
  
Delay 4000
  
Command4_Click '查找列出所有超链接
  
Next j

For i = 12 To list1.ListCount - 1
WebBrowser2.Navigate list1.List(i)

Delay 10000
   
k = 0
Dim o

For Each o In WebBrowser2.Document.getElementsByTagName("a")
  If InStr(o.innerText, Text1.Text) > 0 Then
    k = k + 1
  End If
Next

If k = 1 Then '如果没有的话，发帖

Dim a As String '先判断文件有多少行
Dim n As Integer
Open App.Path & "\neirong.ini" For Input As #1
  n = 0
  While Not EOF(1)
   Line Input #1, a
   n = n + 1
   Wend
Randomize '随机选一行文本进行回帖
m = Int(Rnd * n) + 1
n = Int(Rnd * 1000) + 100
neirong = Split(GetTxt(App.Path & "\neirong.ini"), vbCrLf)(m - 1) & n
Close #1
If Text1.Text = "" Then
neirong = "顶下楼主的帖"
End If

Set oDoc = WebBrowser2.Document '写入回帖内容
Set oInput = oDoc.getElementsByTagName("textarea").Item("irBody")
 oInput.Value = neirong
Delay 1000
For Each o In WebBrowser2.Document.getElementsByTagName("a") '点回复按钮
If InStr(o.onclick, "MOP.DZH.loginAndReply(false,1);") > 0 Then
    o.Click
    Exit For
  End If
 
Next
Label2.Caption = Label2.Caption + 1 '统计次数

Delay 3000

End If

Next i


 '延时30分钟
 Delay 30000: Delay 30000
 
 Delay 30000: Delay 30000
 
 Delay 30000: Delay 30000
 
 Delay 30000: Delay 30000
 
 Delay 30000: Delay 30000
 
 
 Delay 30000: Delay 30000
 
 Delay 30000: Delay 30000
 
 Delay 30000: Delay 30000
 
 Delay 30000: Delay 30000
 
 Delay 30000: Delay 30000
 
 
 Delay 30000: Delay 30000
 
 Delay 30000: Delay 30000
 
 Delay 30000: Delay 30000
 
 Delay 30000: Delay 30000
 
 Delay 30000: Delay 30000
 
 
 Delay 30000: Delay 30000
 
 Delay 30000: Delay 30000
 
 Delay 30000: Delay 30000
 
 Delay 30000: Delay 30000
 
 Delay 30000: Delay 30000
 
 
 Delay 30000: Delay 30000
 
 Delay 30000: Delay 30000
 
 Delay 30000: Delay 30000
 
 Delay 30000: Delay 30000
 
 Delay 30000: Delay 30000
 
 
 Delay 30000: Delay 30000
 
 Delay 30000: Delay 30000
 
 Delay 30000: Delay 30000
 
 Delay 30000: Delay 30000
 
 Delay 30000: Delay 30000
 

 
 
 Command1_Click

End Sub
找到一段代码
不知道怎么加进去。。。。