[Help]如何模拟发包实现刷帖子访问量？

[skysky000]

如何模拟发包实现刷帖子访问量？

用过下面两个方式，感觉效果不好。

一个是用webbrowse控件加载页面，然后不停地调用控件中的refresh方法来刷新，
但是刷几个小时后有内存泄露，不知道什么原因，
是不是临时文件没有清理。

还有就是用socket连接服务器(服务器名+80端口)，
连接上后，不停地SEND数据包，
不知道是否有验证数据包，发几秒后，就提示服务器连接失败。。。

[wjb_yd]

如果web服务器做的限制好一点的话，完全可以防御掉你这种自动发包。

[大蓝头]

服务器有限制的，需要自动换IP

[skysky000]

谢谢楼上各位朋友的回复。。。

[skysky000]

如果使用 webbrowse控件来刷页面，
怎么可以防止内存泄露呢？

每间隔一段时间清除下Internet临时文件，是否可以呢？

[周江涛]

我觉得可以做到．
但不是你这么傻傻的send,几次后就被服务器踢掉,而是对每个包都控制源ＩＰ和源ＭＡＣ地址

[kirainstorm]

内存泄露跟Internet临时文件有关系么？

[大蓝头]

如果你用webbrowse有内存泄漏，就需要检查代码查找泄漏的地方！
跟缓存没有关系

[qqq_008]

Dim k=0
Set Wshell=WScript.CreateObject("WScript.Shell")
AppName="页面刷新"
Set ie=WScript.CreateObject("InternetExplorer.Application")
ie.visible=True
ie.navigate "http://www.baidu.com/"
Do
  Wscript.Sleep 1000
  ie.refresh
  k=k+1 
Loop until k>300000
Set ie=Nothing
Set Wshell=Nothing

[qqq_008]

Dim k
k=0
Set Wshell=WScript.CreateObject("WScript.Shell")
AppName="页面刷新"
Set ie=WScript.CreateObject("InternetExplorer.Application")
ie.visible=True
ie.navigate "http://www.baidu.com/"
Do
  Wscript.Sleep 2000
  ie.refresh
  k=k+1 
Loop until k>50000
Set ie=Nothing
Set Wshell=Nothing

[qqq_008]

[ok1234567]

连一下，刷一下或几下，然后再连
web服务器保持连接都有时间（规则）限制，本质上http是无状态，非保持连接的协议

[qqq_008]

[Quote=引用 12 楼 ok1234567 的回复:]
连一下，刷一下或几下，然后再连
web服务器保持连接都有时间（规则）限制，本质上http是无状态，非保持连接的协议
[/Quote]

友情帮顶。。。

[架构师成长营]

求你了，发错地方了