vbs获取html内容,VBS获取网页内容

VBS获取网页内容

2011年03月14日

功能：通过VBS获取远程网页的内容，并提取其中需要的部分(示例中提取股票信息)

以下为代码:

测试VBS获取网页内容

//如果提示权限问题可以设置IE选项,修改所在区域的安全选项--其它--通过域访问数据源--启用

//如果不能创建对象是因为安装了 ADODB.Stream KB870669 补丁。

//修改注册表

//HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\{00000566-0000-0010-8000-00AA006D2EA 4}

//把 Compatibility Flags 值改为 0 便可解决您的问题；

//把 Compatibility Flags 值改为 400 则可防止别人用此漏洞攻击您的系统。

//

url="http://stock.stockstar.com/report/data_ph.aspx"

pram="hidden_orderfield=DECLAREDATE&hidden_stockco de=&hidden_organcode=&hidden_ranking=&hidden_orderb y=desc&hidden_page="

on error resume next

strs = getStrFromURL(url,"post",pram & 0,0,0)

for x = 2 to 10

strs = strs & "|||||" & getSt