VB XMLHTTP使用方法
Private Function IsHearOK(URL As String) As Boolean
Dim XMLObject As Object, ReturnType As String
Set XMLObject = CreateObject("Microsoft.XMLHTTP")
XMLObject.Open "GET", URL, False
XMLObject.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
XMLObject.setRequestHeader "Range", "bytes=1-255"
XMLObject.Send
If XMLObject.Status = 200 Or XMLObject.Status = 206 Then
ReturnType = XMLObject.getResponseHeader("CONTENT-TYPE")
If UCase(ReturnType) <> "TEXT/HTML" Then
IsHearOK = True
Else
IsHearOK = False
End If
Else
IsHearOK = False
End If
Set XMLObject = Nothing
End Function
Private Sub Command1_Click()
If IsHearOK("http://www.jb51.net/test.exe") Then
MsgBox "ok"
Else
MsgBox "no"
End If
End Sub
相关推荐
-
VB中的RasEnumConnections函数返回632错误解决方法
今天用了一下RasEnumConnections函数,发现MSDN上的例子是错误的. MSDN上RasEnumConnections的文档是这么说的: 复制代码 代码如下: To determine the required buffer size, call RasEnumConnections with lprasconn set to NULL. The variable pointed to by lpcb should be set to zero. The function will
-
用ASP VBS xmlhttp adodbstream下载和保存图片的代码
函数: 复制代码 代码如下: function saveFile(data,recfilen) set Astream=CreateObject("Adodb.Stream")'asp Server.CreateObject("Adodb.Stream") fxt=mid(recfilen,InStrRev(recfilen,".")+1) txt=false if fxt="asp"
-
VB调用Word拼写检查功能实例
众所周知,Word有自带的拼写检查功能.VB中想要实现调用 Word 拼写检查功能其实很简单就可以实现,方法是先建立word对象,然后把需要检查的字符串放到 WORD中,调用word拼写检查,再取出返回值,最后关闭对象. 各个步骤的具体实现代码如下所示: Function CheckSpell(IncorrectText as string) as string Dim Word As Object, retText$ On Error Resume Next '建立WORD对象并打开 Set
-
VB使用XMLHTTP实现Post与Get的方法
本文所述为visual basic6.0的一个模块方法,是使用XMLHTTP实现Post与Get功能,虽然是一个老代码,但是可以替代Inet控件,实现数据通讯.很值得学习借鉴一下. 主要模块代码如下: '========================================================== '| 模 块 名 | XMLHTTP '| 说 明 | 替代Inet控件,实现数据通讯 '============================================
-
VB6反编译软件VB RezQV2.4a 正式版注册码
VB6反编译软件VB RezQV2.4a 正式版 (下载该软件)软件说明:VB6反编译软件VB RezQV2.4a 正式版注册码:name: Ardith Freebairncode: 680F-69EA-7154-0CA3 发布者:Regkey.cn发布时间:2006-2-1 12:02:45发布IP:202.96.134.128
-
用VBS可执行程序+Xmlhttp下载备份网上文件的代码
今天写程序时突然想到做一个文件的备份,把网站上的数据库备份到本地机上.一个简单的小程序,做成可执行的文件,用VBS最简单方便了. 'On Error Resume Next Dim iRemote,iLocal iRemote = InputBox("请输入远程文件路径:") Set xPost = CreateObject("Microsoft.XMLHTTP") xPost.Open "GET",iRemote,0 xPost.Se
-
VB实现的倒计时类代码详解
本文所述为用VB制作倒计时程序用到的一个Module类代码,是基于控制台的倒计时程序,可供VB初学者或者VB爱好者参考学习,当然读者也可以将其拷贝代码到VB工程里面直接使用,不过需要自己创建相关的代码,对于初学者来说,也是很容易看懂的一段代码. 具体功能代码如下: Module Module1 Sub Main() Dim a As Date Dim h, m, s As Integer Dim n, i As Long Dim x, z As Long Dim y As Long Consol
-
VB读取线程、句柄及写入内存的API代码实例
本文所述实例为VB读取内存.线程及句柄的一个API,对涉及系统底层操作的VB编程有一定的帮助,需要的读者可以参考使用.这个API可获取到线程ID,写内存,包括进程句柄,ByVal 内存区地址,数据,总长度,已经完成长度,读取进程,包括进程句柄,ByVal 内存区地址,读取来的数据存放处,要读取的长度,已经读取的长度,内存分配(进程柄,地址[好像只要丢个0进去就行],长度,权限1[MEM_COMMIT],权限2[PAGE_READWRITE])返回:分配到的内存起始地址等功能. 具体实现代码如下:
-
VB6中的LSet语句和RSet语句详解
VB6中有几种长得很像的语句:Let.Set.LSet.RSet. Let用于一般变量的赋值: 复制代码 代码如下: [Let] varname = expression 大部分情况下我们都省略Let,直接用等号赋值,以致于不少人根本不知道Let的存在. Set用于对象的赋值,将变量指向对象并增加对象的引用计数,也有不少人不知道引用计数为何物. 那么LSet是干什么用的呢?咋一看好像是Let和Set的结合体,其实不然.LSet中的L是Left的缩写,与之对应的是RLet.你问我怎么知道L是Lef
-
VB XMLHTTP使用方法
Private Function IsHearOK(URL As String) As Boolean Dim XMLObject As Object, ReturnType As String Set XMLObject = CreateObject("Microsoft.XMLHTTP") XMLObject.Open "GET", URL, False XMLObject.setRequestHeader "CONTENT-TYPE", &
-
对xmlHttp对象方法和属性的理解
1 客户端可以通过xmlHttp对象(MSXML2.XMLHTTP.3.0)向http服务器发送请求并使用文档对象模型(DOM)处理回应. 1.1 我的理解: 用户的每次操作,都会有数据产生. 通过DOM或者JS编写对数据进行封装,或者浏览器自身对http协议的一些数据进行封装. 通过xmlHttp对象的一些方法,传入数据参数,向http服务器发送请求. 返回结果通过DOM进行处理. 2 xmlHttp对象的成员. 2.1 属性 onreadystatechange:当readyState属
-
JavaScript原生xmlHttp与jquery的ajax方法json数据格式实例
javascript版本的ajax发送请求 (1).创建XMLHttpRequest对象,这个对象就是ajax请求的核心,是ajax请求和响应的信息载体,单是不同浏览器创建方式不同 (2).请求路径 (3).使用open方法绑定发送请求 (4).使用send() 方法发送请求 (5).获取服务器返回的字符串 xmlhttpRequest.responseText; (6).获取服务端返回的值,以xml对象的形式存储 xmlhttpRequest.responseXML; (7).使用W3C
-
XMLHTTPRequest的属性和方法简介
而设计AJAX时使用的一个重要的技术(工具)就是XMLHTTPRequest对象了.这里海啸把我学习XMLHTTPRequest对象的一点资料拿出来跟大家一起分享.文中的资料都是海啸在学习时在网上收集的,如果您开过,那就再加深下印象吧!(如果您觉得侵犯了您的版权,请联系海啸.(haixiao_yao[at]yahoo.com.cn)) 1.XMLHTTPRequest对象什么是? 最通用的定义为:XmlHttp是一套可以在Javascript.VbScript.Jscript等脚本语言中通过ht
-
[转]XMLHTTPRequest的属性和方法简介
1.XMLHTTPRequest对象什么是? 最通用的定义为:XmlHttp是一套可以在Javascript.VbScript.Jscript等脚本语言中通过http协议传送或从接收XML及其他数据的一套API.XmlHttp最大的用处是可以更新网页的部分内容而不需要刷新整个页面.(这个功能正是AJAX的一大特点之一:)) 来自MSDN的解释:XmlHttp提供客户端同http服务器通讯的协议.客户端可以通过XmlHttp对象(MSXML2.XMLHTTP.3.0)向http服务器发送请求并使用
-
原生 JS Ajax,GET和POST 请求实例代码
javascript/js的ajax的GET请求代码如下所示: <script type="text/javascript"> /* 创建 XMLHttpRequest 对象 */ var xmlHttp; function GetXmlHttpObject(){ if (window.XMLHttpRequest){ // code for IE7+, Firefox, Chrome, Opera, Safari xmlhttp=new XMLHttpRequest();
-
浅谈JS原生Ajax,GET和POST
javascript/js的ajax的GET请求: <script type="text/javascript"> /* 创建 XMLHttpRequest 对象 */ var xmlHttp; function GetXmlHttpObject(){ if (window.XMLHttpRequest){ // code for IE7+, Firefox, Chrome, Opera, Safari xmlhttp=new XMLHttpRequest(); }else
-
JavaScript XML操作 封装类
复制代码 代码如下: function XMLObject() { this.isIE=true; if (window.ActiveXObject){isIE=true;}else{isIE=false;} var node_xml; var xmlDoc; if (isIE){ xmlDoc = new ActiveXObject("Msxml2.DOMDocument"); } else{ if (document.implementation && docume
-
AJax 学习笔记一(XMLHTTPRequest对象)
现在很多公司都在做标准的静态页面,为了增强客户的体验效果,经常会涉及到AJax效果,而设计AJax使用的一种重要技术(工具)就是XMLHttpRequest对象了.今天学习了点关于XMLHttpRequest对象的一些方法和属性,有点体会,在这里也想记录起来. 1.何为XMLHttpRequest 定义:XMLHttp是一套可以在Javascript.VbScript.Jscript等脚本语言中通过http协议传送或从接收XML及其他数据的一套API.XmlHttp最大的用处是可以更新网页的部分
-
用asp自动解析网页中的图片地址
一,取得原页中的图片的地址. <%function PicStr(str) Set objRegExp = New Regexp '设置配置对象 objRegExp.IgnoreCase = True '忽略大小写 objRegExp.Global = True '设置为全文搜索 objRegExp.Pattern = "<IMG.+?>" '为了确保能准确地取出图片地址所以分为两层配置:首先找到里面的<IMG>标签,然后再取出里面的图片地址后面的geti
随机推荐
- Angular2 NgModule 模块详解
- jQuery插件datatables使用教程
- JSON 数据格式介绍
- IIS配置文件的XML格式不正确 applicationHost.config被破坏 恢复解决办法
- 原生js实现图片放大缩小计时器效果
- apache zookeeper使用方法实例详解
- C#使用WebService结合jQuery实现无刷新翻页的方法
- AJAX的跨域访问-两种有效的解决方法介绍
- PHP管理依赖(dependency)关系工具 Composer 安装与使用
- Android TextView字体颜色设置方法小结
- Android动画之3D翻转效果实现函数分析
- 用JavaScript检查大写键(Caps Lock)是否打开的脚本
- 几个不错的世界之最
- 使用jQueryMobile实现滑动翻页效果的方法
- ECMAScript6变量的解构赋值实例详解
- JavaScript判断一个URL链接是否有效的实现方法
- 微信小程序 特效菜单抽屉效果实例代码
- xampp中apache在windows7下无法启动的解决方法
- Java中继承、多态、重载和重写介绍
- C#图像处理之头发检测的方法