mystzbs 发表于 2009-10-25 10:15:36

刷流量工作

Dim a As Long
Private Sub Command1_Click()
Timer1.Enabled = True
If IsNumeric(Text2.Text) Then
Timer1.Interval = Text2.Text * 1000
Else
MsgBox "请输入数字", 0, "提示"
End If
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()
WebBrowser1.Navigate Text1.Text
a = a + 1
Label4.Caption = "已刷流量：" & a
End Sub

myya 发表于 2009-10-27 18:55:44

有用吗！@！！！
页: [1]
查看完整版本: 刷流量工作