后台提取asp文字保存为文本

来源：百度知道 编辑：UC知道 时间：2024/06/30 01:57:18
我想把宁夏气象信息共享 http://www.qx121.com.cn/mp/mppb.aspx
里面的文字提取到文本文档后使用led 播放软件显示到电子屏上，网页07时17时更新最好加上强行替换内容的命令。使用批处理或什么工具在后台自动提取。zijj221@163.com QQ:275143571 MSN:baopu_nx@hotmail.com
http://www.qx121.com.cn/mp/Nyqxgx.htm 里面有文本格式但是短时间内我不知道文件名会不会改变不好确定

'已经加了你的MSN，有问题可以问我。

'因为需要每天取天气信息，所以这个程序自己无法退出，启动后驻留内存，到达设置时间就执行
'如果想退出这个程序请在任务管理器里面终止wscript.exe这个进程

On Error Resume Next
Dim ie

ThisHour="0717" '提取天气信息的时间
URL="http://www.qx121.com.cn/mp/mppb.aspx" '提取信息的页面

Do
If (Right("0"&Hour(Time),2)&Right("0"&Minute(Time),2))=ThisHour Then
OpenIE()
End If
WScript.Sleep 50000
Loop

'打开窗口
Function OpenIE()
Set ie=WScript.Createobject("internetexplorer.application")
With ie
.visible=flash
.visible=true
.navigate URL
End With
waiteIE(ie) '等待IE调入完毕
Do
err.clear
Set bnsrh=ie.document.getElementById("Label6") 'Label6是包含信息的标签
strLine=replace(bnsrh.InnerHtml,"<BR>",vbCrLf) '将HT