Private Sub Form_Load()
Set obj = CreateObject("InternetExplorer.Application")
Timer1.Interval = 1000
'obj.Visible = True
End Sub
Private Sub Timer1_Timer()
obj.navigate "http://panasonic.lycos.com.cn/g50/support.php?photoid=12345"
Timer1.Interval = 5000
End Sub
________________________________
这是最简化的实现方法,呵呵,我刚刚测试了一下,这个服务器居然没限制...
5秒钟就可以提交一次——取决于网速
你甚至可以运行多个同时来click