一个例子：从新浪提取上海天气的vbs

起始很简单的。分析一下抓下来的代码，然后处理一下就行了。
'文件：weather.vbs 放入计划任务，每天早上8:30执行，生成饱含
'文件供首页使用
'执行方式：cscript D:上海国家会计学院网站内部社区vbsweather.vbs
'********************************************************************************************************
' Symantec ScriptBlocking Authenticated File
' E9815BB2-5813-400B-9ED5-156350335DE3
const incFilePath = "D:上海国家会计学院网站内部社区webclub" '包含文件所在目录,最后的号是必须的
const logfile = "d:club-job-log.txt" '日志文件
const incWeather = "weather-report.asp" '包含文件所在目录,最后的号是必须的
dim fs
dim f
on error resume next
Set fs = CreateObject("Scripting.FileSystemObject")
dim wstr
wstr=getHTTPPage("http://sh.sina.com.cn/")
'Response.Write wstr
if instr(wstr,"")>0 then
wstr=mid(wstr,instr(wstr,"")+len(""))
wstr=mid(wstr,instr(wstr,""))
wstr=mid(wstr,1,instr(wstr,"")+len(""))
end if
wstr=replace(wstr,"其他城市>>","")
dim pos1,pos2
pos1=instr(wstr,"")
pos2=instr(pos1,wstr,"")
wstr=right(wstr,len(wstr)-pos2-4-4)
wstr=replace(wstr,"","")
wstr=replace(wstr,"","")
wstr=replace(wstr,"","")
wstr=replace(wstr,"","")