药方一
此方法采用了Microsoft.XMLHttp组件
( XMLHTTP是传送XML格式数据的超文本传输协议 )
使用步骤一点也不麻烦:
代码:- 网页源文件=取网页源码("http://bbs.anjian.com/forum.php")
- TracePrint 网页源文件
- Function 取网页源码(URL)
- Set objXML=CreateObject("Microsoft.XMLHTTP")
- objXML.Open "Get", Url, False
- objXML.send
- If objXML.readyState=4 then
- 取网页源码 =objXML.ResponseText
- End If
- objXML.Abort
- Set objXML = Nothing
- End Function
代码解析:
objXML.Open "Get", Url, False
XMLHTTP对象的Open方法,它的参数是这样的 bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword 一共五个参数。
bstrMethod: 数据传送方式,即GET或POST。我们要获取数据,所以使用GET方式。
bstrUrl: 服务网页的URL。
varAsync: 是否同步执行。缺省为True,即异步执行。False,即同步执行
我们选择False,同步执行,
意思就是:发送完要获取网页源文件的指令之后,等待返回值,等值返回了才执行下一句代码。
bstrUser: 用户名,可省略。
bstrPassword:用户口令,可省略。
[size=14px]If objXML.readyState=4 then
XMLHTTP对象的readystate属性,它的值是0-4:
0 :Response对象已经创建,但XML文档上载过程尚未结束
1 :XML文档已经装载完毕
2 :XML文档已经装载完毕,正在处理中
3 :部分XML文档已经解析
4 :文档已经解析完毕,客户端可以接受返回消息
药方二使用按键自带的web网页插件的save命令保存网页源文件。
代码:- call Plugin.Web.Bind("wqm.exe")//绑定wqm
- Call Plugin.Web.Save("http://bbs.anjian.com/forum.php", "C:\1.txt") //保存网页源文件到c盘下的1.txt文本中
- RunApp "C:\1.txt"
注意:此方法有个缺点,那就是,运行过程中会弹出wqm窗口。 药方三
使用365插件的GetWebText 命令。使用方法:1、下载
365插件2、解压之后将:
Mini365.dll 这个文件放到按键精灵安卓目录下的plugin文件夹中 365插件下载: 365插件.rar[点击下载](15 K) 下载次数:0 累计下载获得 DB 没有记录 刀 Plugin.Mini365.GetWebText URL,Mode
GetWebText命令有两个参数:网址(URL)和 网页编码(Mode)
网页编码常见的是:GB2312和UTF-8
如何得知网页的编码是哪种呢? 我们打开网页,按下F12调出网页代码分析器,绿色圈圈里的那个GBK就是当前网页的编码: 代码:- 网页源文件= Plugin.Mini365.GetWebText ("http://bbs.anjian.com/forum.php", "GBk")
- TracePrint 网页源文件
[ 此帖被mimi_rice在2015-01-07 19:30重新编辑 ]