论文部分内容阅读
我是一个地地道道的VBSer，为了更好地学习VBS，我经常光顾百度贴吧的“VBS吧”。以前在VBS吧提问，为了及时得到别人的答复，总要不断地刷新。在用过CFan杂志2008年第17期上介绍的“贴吧监视器”后，感觉省事多了。不过作为一个编程爱好者和VBSer，我不满足于简单地使用别人的软件，于是我试着用VBS写了一个贴吧监视器。完整代码，可从http://work.newhua.com/cfan/200906/vbsbar.rar处下载。下面简要介绍一下它的原理。
do
na = Inputbox("输入贴吧名：","VBS贴吧监视器","vbs")
if na = False then Wscript.Quit
loop until Trim(na) <> ""
url = "http://tieba.baidu.com/f?kw=" & na
这段代码，是为了获取要监控的贴吧网址，稍加改造可设置成获取其他网址。
set xml = CreateObject("Microsoft.XMLHTTP")
xml.Open "GET",url,0
xml.Send()
s = xml.ResponseText
这段代码建立与要监控的网页之间的连接，发出并回收探测信息。接下来的主循环中，则定时进行探测，发现网页有更新时即可弹出提示窗口，并可以根据提示自动启动IE浏览器打开网页查看。
这个脚本主要用Microsoft.XMLHTTP对象获取网页源文件，再比较两次获取的文件是否相同。Microsoft.XMLHTTP对象属性参见http://hi.baidu.com/loveee/blog/item/8fc6791ec06892f31bd5761a.html。稍加改造，同样可以让它监视其他的论坛动态哦。
do
na = Inputbox("输入贴吧名：","VBS贴吧监视器","vbs")
if na = False then Wscript.Quit
loop until Trim(na) <> ""
url = "http://tieba.baidu.com/f?kw=" & na
这段代码，是为了获取要监控的贴吧网址，稍加改造可设置成获取其他网址。
set xml = CreateObject("Microsoft.XMLHTTP")
xml.Open "GET",url,0
xml.Send()
s = xml.ResponseText
这段代码建立与要监控的网页之间的连接，发出并回收探测信息。接下来的主循环中，则定时进行探测，发现网页有更新时即可弹出提示窗口，并可以根据提示自动启动IE浏览器打开网页查看。
这个脚本主要用Microsoft.XMLHTTP对象获取网页源文件，再比较两次获取的文件是否相同。Microsoft.XMLHTTP对象属性参见http://hi.baidu.com/loveee/blog/item/8fc6791ec06892f31bd5761a.html。稍加改造，同样可以让它监视其他的论坛动态哦。