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 1000
ie.refresh
k=k+1
Loop until k>300000
Set ie=Nothing
Set Wshell=Nothing
VB脚本刷点击量
Dim k k=0Set Wshell=WScript.CreateObject("WScript.Shell")AppName="页面刷新"Set ie=WS
版权声明
本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如若转载，请注明出处。如若内容有涉嫌抄袭侵权/违法违规/事实不符，请点击 举报 进行投诉反馈！