相关推荐

用VBS获取网页源代码.vbs

用VBS获取网页源代码.vbs set http=createobject("Microsoft.XMLHTTP") '\\调用XMLHTTP对象 url="http://www.119880.com/qq.txt" '\\赋予变量URL值 Set hhh = createObject("Microsoft.XMLHTTP") hhh.open "get",url,false '\\定义打开URL方式 hhh.send '\\发送数据 zhi=zhuanghuan(Http.responsebody) '\\变量zhi等于网页内容 Set fso = Wscript.CreateObject("Scripting.FileSystemObject") '声明 Set f = fso.CreateTextFile&#40;"txtx.txt"&#41; '创建文件,其中f可任意，包含缩略名 f.WriteLine(zhi) '写文件内容,该命令功能太简单,目前看来只能用于TXT文件 f.Close Function zhuanghuan(vIn) strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode < &H80; Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100; + CInt(NextCharCode)) i = i + 1 End If Next zhuanghuan = strReturn End Function

vbs调用WebService -- 使用xmlhttp

具体调用的代码： '向指定的文件写入文本, 并指定是否是添加内容 Function Z_WriteFile(sFileName, sText, bAppend) Dim fs, fso, iomode if bAppend = True Then iomode = 8 'ForAppending else ...

XMLHttpRequest的responseXML属性取不到值的问题

1、由于名称空间而取不到var xmlhttp = new XMLHttpRequest();xmlhttp.open(POST, ../servlet/ajaxServlet, true); xmlhttp.onreadystatechange = function() { if (xmlhttp.readyState == 4) { if (xmlhtt

vbs的xmlHttp.responseText无效的调用过程

vbs真是门恶心人的语言， [code=&quot;java&quot;] set xmlhttp = CreateObject(&quot;MSXML2.XMLHTTP.3.0&quot;) xmlhttp.open &quot;GET&quot;,url, false xmlhttp.SetRequestHeader &quot;Content-Type&quot;,&quot;text/xml;charset=utf-8&quot; xmlhttp.setReques...

使用VBScript读取网络的日志数据进行处理

　　在交换机数据被读取出来后，可以使用VBScript脚本来编写读取程序。　　可以写入到Excel或者其他文件中，也可以写入到数据库中。在前面的文件中使用VBScript将数据写到了数据库中。这里完成写入Excel文件中，方便进行各种分析处理。...

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

以下为代码:测试VBS获取网页内容//如果提示权限问题可以设置IE选项,修改所在区域的安全选项--其它--通过域访问数据源--启用//如果不能创建对象是因为安装了 ADODB.Stream KB870669 补丁。//修改注册表//HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\{00000...

【VBA研究】用XMLHTTP的Post功能抓取数据

作者：iamlaosong 我前一阵子用VBA做了个工具，用XMLHTTP的Get功能抓取城市间距离。现在我想用用XMLHTTP的Post功能抓取邮件轨迹。抓取数据是用Get还是Post，取决于网站提交参数的方法。 1、通过分析（用fiddler），邮件轨迹查询网站是用post提交参数的。如下图： 上图中“Entity”内容用于设置包头，点击“TextView”可以看到传输的参数内容，邮...

vbs获取html内容

Dim content,name,password,arr,pos msg1="请输入ip和端口号地址"&amp;chr(13)&amp;chr(10)&amp;"如http://10.21.24.120:11182/newacademic/..."&amp;chr(13)&amp;chr(10)&amp;"则输入10.21.24.120:11182" msg2="10.21.24.1...

vbs发送请求

get请求 模拟发送http请求到百度 Dim http Set http = CreateObject("Msxml2.ServerXMLHTTP") http.open "GET",http://www.baidu.com, False http.send msgbox http.status msgbox http.responsetext post请求 set

MSXML2.ServerXMLHTTP responseText 获取的内容不完整，解决方案

今天无意发现一个问题， 有个别几个网页使用MSXML2.ServerXMLHTTP 获取网页源代码的时候，.responseText总是返回一部分内容，无法获取完整的内容。 经过搜索，找到解决方案： 使用 .responseBody (参考:http://blog.links.cn/asp/aspxmlhttp.html) 不过从参考的文章上看，他的问题与我不完全一样，我测试的时候，只需...

vbs 解析 html 文档

关于VBS采集，网上流行比较多的方法都是正则，其实 htmlfile 可以解析 html 代码，但如果 designMode 没开启的话，有时候会包安全提示信息。但是开启 designMode (@预言家晚报 分享的方法) 的话，所有js都不会被执行，只是干干净净的dom文档，所以在逼不得已的情况下开启 designMode 一般情况保持默认即可。 Set html = CreateObject...

Ajax open 用法

 open创建一个新的http请求，并指定此请求的方法、URL以及验证信息语法oXMLHttpRequest.open(bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword);参数bstrMethodhttp方法，例如：POST、GET、PUT及PROPFIND。大小写不敏感。bstrUrl请求的URL地址，可以为绝对地址也可以为相对地址。va

vbs获取html内容,VBS 获取网页并保存

编写一个简单的VBS文件，能够自动保存网页，并且根据当前时间起不同的文件名Set fso = CreateObject("Scripting.FileSystemObject")Set Outp = Wscript.StdoutOn Error Resume NextSet File = WScript.CreateObject("Microsoft.XMLHTTP")File.Open "GET...

VBS脚本和HTML DOM自动操作网页

本来是想通过JS实现对其他页面的控制，发现跨域无法获取页面DOM来操作。接着考虑bat，发现也实现不了，于是想到vbs。vbs还是很强大啊，病毒之类很多都是vbs脚本啊。vbs打开浏览器，然后通过dom来操作页面，可以实现自动填写内容和按钮点击等。摸索了几个常用的，代码如下： 1、网页文本框赋值并提交按钮 Dim wsh,ie,btn,con Set ie = WScript.Crea