论坛自动回复,现在已经到了最后一步 全部代码都在这里。。。
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里随机选择。
网页的代码在下面。