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 & "|||||" & getStrFromURL(url,"post",pram & x,0,1)
next
//strs是取得页面的源代码,以|||||分隔,以下分别获取表格
arrSoucre=split(strs,"|||||")
soucreTable=""
for i = 0 to ubound(arrSoucre)
document.getElementById("div_msg").innerHTML=arrSo ucre(i)
//设置表格起始行,第一次有表头,以后不用取表头内容
if i = 0 then
stratRow = 0
else
stratRow = 2
end if
Set table=document.getElementsByTagName("table")(table Num)
n=table.rows.length
str=""
For r = stratRow To n-1
If table.rows(r).style.display"none" Then
soucreTable = soucreTable & table.rows(r).outerHTML
End if
Next
next
document.getElementById("div_msg").innerHTML="" & soucreTable & ""
function getStrFromURL(strUrl,Method,datas,tableNum,stratRo w) //参数:地址,方式,要提交的数据,第几个表格,表格起始行
dim objXmlHttp
set objXmlHttp = CreateObject("Microsoft.XMLHTTP")
objXmlHttp.open Method,strUrl,False
objXmlHttp.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
objXmlHttp.send datas
if objXmlHttp.readystate4 then exit function
Dim binFileData
binFileData = objXmlHttp.responseBody
outStr=BytesToBstr(binFileData,"gb2312")
getStrFromURL=outStr
set objXmlHttp = nothing
end function
function BytesToBstr(body,code) //字节型转换为字符型
dim objstream
set objstream = CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset =code
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
end function
sub saveFile(str,file)
//ADODB.Stream 将执行结果保存到文件[FilePath] 中
Dim objAdoStream
set objAdoStream = CreateObject("ADODB.Stream")
objAdoStream.Type = 1
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFile "c:\x.htm",2
objAdoStream.Close()
end sub
发表评论
-
计算机控制系统
2012-01-09 09:41 971计算机控制系统 2011年1 ... -
检测技术
2012-01-09 09:41 614检测技术 2011年12月19日 1.什么是热电效应,分 ... -
数字图像处理复习大纲
2012-01-09 09:40 1189数字图像处理复习大纲 ... -
单片机系统中常用的滤波算法
2012-01-09 09:40 968单片机系统中常用的滤波算法 2011年02月11日 // ... -
十一种通用滤波算法
2012-01-09 09:40 746十一种通用滤波算法 20 ... -
vbs教程
2012-01-08 09:25 1053vbs教程 2011年02月19日 ... -
VBS应用
2012-01-08 09:24 1167VBS应用 2011年05月05日 原文地址 http: ... -
VBS整人代码 很多 测试把我给整安逸了
2012-01-08 09:24 1119VBS整人代码 很多 测试把我给整安逸了 2010年08月2 ... -
vbs脚本文件执行提权技术技巧
2012-01-08 09:24 1352vbs脚本文件执行提权技 ... -
【学习】【Effective C++】条款41: 区分继承和模板
2012-01-07 09:15 734【学习】【Effective C++】条款41: 区分继承和模 ... -
c++
2012-01-07 09:15 939c++ 2010年04月14日 ht ... -
C语言内存管理(三)
2012-01-07 09:15 1188C语言内存管理(三) 2011 ... -
第五题
2012-01-07 09:15 546第五题 2010年07月07日 课程设计题目、要求: ... -
推荐一本好书:Effictive C++
2012-01-07 09:15 591推荐一本好书:Effictive C++ 2009年08月1 ... -
《中国当代艺术“价值观” 》 高岭 (一)
2012-01-06 10:06 502《中国当代艺术“价值 ... -
北京师范大学2011年艺术类本科招生简章
2012-01-06 10:05 558北京师范大学2011年艺术类本科招生简章 2012年01月0 ... -
具象艺术
2012-01-06 10:05 876具象艺术 2011年12月14日 2011-06-2 ... -
成都理工大学广播影视学院2012年艺术类招生简章
2012-01-06 10:05 1845成都理工大学广播影视 ... -
汤池婚礼作品《七年》摄制艺术分析
2012-01-06 10:05 701汤池婚礼作品《七年》摄制艺术分析 2011年04月21日 ... -
菊花情
2012-01-05 13:27 531菊花情 2009年10月08日 秋风瑟瑟,凉气袭人。万 ...
相关推荐
用VBS获取网页源代码.vbs set http=createobject("Microsoft.XMLHTTP") '\\调用XMLHTTP对象 url="http://www.119880.com/qq.txt" '\\赋予变量URL值 Set hhh = createObject("Microsoft.XMLHTTP") hhh.open "get",...
VBS网页编程,
从国外网站上找到的用vbs读取excel的脚本,比较强悍。 编辑代码,查找并在以下位置xls文件路径。 <pre> strExcelPath = "xls文件的路径" 当然,要想正确运行,你需得安装ms excel才行。
实现抓取网页中的Flash文件(比如在网页中看到比较漂亮的Flash时可以用来把当前Flash保存下来。
VBS加载微软网页控件webview2(Edge-Chromium谷歌内核) 代替了ie的webbrowser控件,效果类似: set IE = CreateObject("InternetExplorer.Application") IE.Visible = true IE.Navigate "https://www.baidu.com/"
远程最头疼的就是网断了。。。 任务计划程序控制vbs脚本的触发时间。 为了简单,我直接让网站记住密码了,打开后直接登录就行。就不用获取往里填密码了。
从XML文件中获取信息的vbs代码,这个脚本演示了如何通过MSXML从一个XML文件中的信息。示例XML文件是用于在网站上的相册。此脚本将返回特定图片的标题。
要从某一个网页中拿到某个东西,先不用管它是什么,第一件事是得到网页的地址,这个毋庸置疑。 网页是保存在服务器端的,那要去访问这个网页,那就必须在客户端与服务器端之间建立一个连接。 剩下的东西就是在服务器...
能够读取IIS信息账号密码VBS脚本 包含读取IIS虚拟网站配制信息和帐号的VBS脚本
以前脚本之家发过类似功能的文章,这篇文章的获取网站不同,实现代码也不错,喜欢的朋友可以测试下
通过VBS脚本登陆实现网页登陆,并下载指定网页源代码,并将该源代码存储为txt文件放在本地硬盘中。
EXCEL表格用VBA更新双色球数据源代码
3、网站PR查询 4、搜索引擎收录查询 5、搜索引擎反向链接查询 6、关键词排名查询 7、关键词密度查询 8、搜索引擎模拟抓取页面 9、网页META信息检测 10、其他附带工具 1)HTML/JS互转 2)UTF8/ANSI互转 3)简体/繁体...
如名称所见,获取外网IP并发送到指定邮箱,这个脚本比较短小,但不如脚本之家提供的au3脚本功能强大,不过每次电脑开机记录一下还是不错的
比较简单和好用的网页自动测试脚本, 支持直接log打印, 获取本地IP和记录网页打开的时间和关闭时间, 以及自动拨号和短线
下面是寻找出错网站的过程:要找到这个网站,必须把有问题的进程跟该网站的应用程序池联系起来。首先设置任务管理器的查看方式,加入PID的显示: 然后再命令行运行iisapp -a,可以看到PID跟应用程序池的对应关系...
对于新版ChromePortable.exe 2.0,可以在同一目录中建立如下内容的 ChromePortableSet.vbs 文件(文件名可改变),双击便可启动图形设置界面。 CreateObject("shell.application").ShellExecute "ChromePortable.exe",...
对于新版ChromePortable.exe 2.0,可以在同一目录中建立如下内容的 ChromePortableSet.vbs 文件(文件名可改变),双击便可启动图形设置界面。 CreateObject("shell.application").ShellExecute "ChromePortable.exe",...
由于平时使用的网页文件基本上都是gb2312编码方式,如果通过xmlhttp控件读取的话,肯定会出现乱码问题,但是要把所有文件都改成utf-8编码,操作上比较麻烦。经过反复比较,我找到了相对实用的解决方法。 ff提供了...
获取网页源码 到大写/到小写/到全角/到半角 查找/高级查找/正则查找 替换/高级替换/正则替换 段前/尾 设置/删除 统一文本 合并/拆分段落 删除指定段 删/留 指定位置文本 连续换行符数量变更 批量生成带序号...