任何人都可以帮我吗?
我有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
答案 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