批处理之家 - Powered by Discuz! Board

标题: [网络连接] 批处理用IE隐藏打开指定网页并不断刷新网页 [打印本页]

作者: 330428725 时间: 2008-4-21 18:03 标题: 批处理用IE隐藏打开指定网页并不断刷新网页

用IE隐藏打开指定网页并不断刷新网页，每5分钟就修改1次IE首叶，一切都是后台执行的，批处理不行那VBS呢，VBS和批处理结合可以做到不？？其他语言做的程序也可以，不要需要下载筐架的~~，给自己的网站刷流量用的

作者: fastslz 时间: 2008-4-21 20:02

On Error Resume Next

Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "http://bbs.bathome.net"
IE.Visible = 1
'''''''Visible数值0隐藏，1新窗口'''''''

Wscript.Sleep 5000
Set O = IE.Document
Do While True
    Wscript.Sleep 20000
    O.Location.Reload(True)
    If Err <> 0 Then
        Wscript.Quit
    End If
Loop
复制代码

[ 本帖最后由 fastslz 于 2008-4-21 20:07 编辑 ]

欢迎光临批处理之家 (http://bbs.bathome.net/)