VBscript或Batch脚本,用于在自动刷新后检测更改

时间:2014-04-07 04:17:13

标签: batch-file vbscript alert

任何人都可以帮我吗?

我有VB脚本每20秒自动刷新一次网页。

但我还需要一个功能。

当旧网页和自动刷新的网页之间存在差异时,我需要提醒消息(消息框或弹出窗口或只是cmd提示符)。

可以在VB或批处理中使用吗?

对于自动清新我正在使用

Set IE = CreateObject("InternetExplorer.Application")
With IE
    .Navigate "http://www.yahoo.com"    ' change to actual site needed
    .Visible = True
End With

Do While True
    WScript.Sleep 10000    ' 10 seconds
    IE.Refresh()
Loop

来自http://www.computerhope.com/forum/index.php?topic=23314.0

1 个答案:

答案 0 :(得分:1)

您可以先获取html响应文本,制作哈希值并将其存储在某处。在每次后续刷新时,重复该过程并比较任何更改的哈希值。

编辑:作为替代方案,您可以尝试以下

Dim init
Dim temp
init = GetString()

Do While True
    WScript.Sleep 10000    ' 10 seconds
    temp = GetString()
    If temp <> init Then
    MsgBox "Not Equal"
    Else    
    MsgBox "Equal"
    End If
    init = temp
Loop

Function GetString()
    Dim o
    Set o = CreateObject("MSXML2.XMLHTTP")
    o.open "GET", "http://www.example.com", False
    o.send
    GetString=o.responseText
End Function