VBS的HTTP请求

最新推荐文章于 2022-12-29 15:14:13 发布
最新推荐文章于 2022-12-29 15:14:13 发布
阅读量5.3k 收藏 6
点赞数 1
分类专栏： HP-Mercury相关 编程 文章标签： webservice soap string encoding button action
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/zbyufei/article/details/5819355
版权

请求的返回方式

WEB方式请求

刷新当前页

开启一个新的IE窗口：提交表单<form target ="_blank"

XMLHTTP

XMLHTTP对象得到

SOAPTOOL

SOAPTOOL对象得到

请求的应用范围

WEB方式请求

IE中

XMLHTTP

IE中，应用程序中

SOAPTOOL

IE中，应用程序中

请求在IE中的安全级别

WEB方式请求

任意

XMLHTTP

Win2003 SP1 默认可使用

SOAPTOOL

Win2003 SP1 默认加入信任站点可使用

请求组件的发布方式

WEB方式请求

不需

XMLHTTP

XML  DOM 3 /4/5/6安装包 IE6默认带XML  DOM 3

SOAPTOOL

SOAPTOOL 2.0 3.0 安装包

WEB页GET方式请求ASPX

URL方式

http://localhost/ajax/s_get.aspx?Text1=wxd&Text2=lzm

WEB页

<form id="get_form" action ="s_get.aspx" method ="get" >

    <input name="Text1" type="text" />

    <input name="Text2" type="text" /><br />

    <input id="Reset1" type="reset" value="reset" />

    <input id="Submit1" type="submit" value="submit" />

</form>

ASPX

{ s_get.aspx}

        Dim a = Request.QueryString("Text1")

        Dim b = Request.QueryString("Text2")

        Me.Response.Write(a + b)

        Me.Response.End()

        Me.Response.Write("你不应看到这条信息")

WEB页POST方式请求ASPX

WEB页

<form id="get_form" action ="s_post.aspx" method="post" >

    <input name="Text1" type="text" />

    <input name="Text2" type="text" /><br />

    <input id="Reset1" type="reset" value="reset" />

    <input id="Submit1" type="submit" value="submit" />

</form>

ASPX

{ s_POST.aspx}

        Dim a = Request.Form.Item("Text1")

        Dim b = Request.Form.Item("Text2")

        Me.Response.Write(a + b)

        Me.Response.End()

        Me.Response.Write("你不应看到这条信息")

WEB页POST方式请求WebService

WEB页

<form id="get_form" action ="WebService.asmx/HelloWorld" method="post" >

    <input name="Text1" type="text" />

    <input name="Text2" type="text" /><br />

    <input id="Reset1" type="reset" value="reset" />

    <input id="Submit1" type="submit" value="submit" />

 </form>

asmx

{WebService.asmx}

<WebMethod()> _

Public Function HelloWorld(ByVal Text1 As String, ByVal Text2 As String) As String

        Return Text1 + Text2

End Function

返回值

<?xml version="1.0" encoding="utf-8"?>

<string xmlns="http://tempuri.org/">string</string>

XMLHTTP使用POST方式请求ASPX

WEB页

<input type=button name=wxd value="请求">

<script language=vbs>

dim aa 'xmlhttp对象

sub wxd_onclick '按钮单击事件

 set aa = createobject("microsoft.xmlhttp")

 aa.onreadystatechange=getref("aaa") '请求有响应时的回调程序

 aa.open "POST","s_POST.aspx",True '使用POST方式，导步请求

 

 '在HTTP协议中，指定请求的方式为POST ，setRequestHeader方法要在open后使用

 aa.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

 aa.send "Text1=1&Text2=2"'开始请求，POST方式为数据的串方式

end sub

sub aaa '请求有响应时的回调程序

 select case aa.readystate

    case 0        '0:没初始化

    case 1        '1: 对象已建立,但尚未连接

    case 2        '2:正在加载文件中

    case 3        '3: 文件加载完成,正在检查正确性   

    case 4        '4:得到返回信息,可以使用接收

        msgbox aa.responsetext '显示返回的内容

 end select

end sub

</script>

ASPX

{ s_POST.aspx}

        Dim a = Request.Form.Item("Text1")

        Dim b = Request.Form.Item("Text2")

        Me.Response.Write(a + b)

        Me.Response.End()

        Me.Response.Write("你不应看到这条信息")

XMLHTTP使用GET方式请求ASPX

WEB页

<input type=button name=wxd value="请求">

<script language=vbs>

dim aa 'xmlhttp对象

sub wxd_onclick '按钮单击事件

 set aa = createobject("microsoft.xmlhttp")

 aa.onreadystatechange=getref("aaa") '请求有响应时的回调程序

 aa.open "GET","s_get.aspx?Text1=wxd&Text2=lzm",true'使用GET方式，导步请求

 aa.send "" '开始请求，GET方式为空，POST方式为数据

end sub

sub aaa '请求有响应时的回调程序

 select case aa.readystate

    case 0       '0:没初始化

    case 1       '1: 对象已建立,但尚未连接

    case 2       '2:正在加载文件中

    case 3       '3: 文件加载完成,正在检查正确性        

    case 4       '4:得到返回信息,可以使用接收

        msgbox aa.responsetext '显示返回的内容

 end select

end sub

</script>

ASPX

{ s_get.aspx}

       Dim a = Request.QueryString("Text1")

        Dim b = Request.QueryString("Text2")

        Me.Response.Write(a + b)

        Me.Response.End()

        Me.Response.Write("你不应看到这条信息")

XMLHTTP使用POST方式请求WEBService

<input type=button name=wxd value="请求">

<script language=vbs>

dim aa 'xmlhttp对象

sub wxd_onclick '按钮单击事件

 set aa = createobject("microsoft.xmlhttp")

 aa.onreadystatechange=getref("aaa") '请求有响应时的回调程序

 

 

 aa.open "POST","WebService.asmx/HelloWorld",True '使用POST方式，导步请求

 

 '在HTTP协议中，指定请求的方式为POST

 aa.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

 

 aa.send "Text1=1&Text2=2" '开始请求，POST方式为数据的串方式

end sub

sub aaa '请求有响应时的回调程序

 select case aa.readystate

    case 0

       '0:没初始化

       msgbox aa.readystate

    case 1

       '1: 对象已建立,但尚未连接

        msgbox aa.readystate

    case 2

       '2:正在加载文件中

        msgbox aa.readystate

    case 3

       '3: 文件加载完成,正在检查正确性   

        msgbox aa.readystate    

    case 4

       '4:得到返回信息,可以使用接收

        msgbox aa.responsetext '显示返回的内容

 end select

end sub

</script>

{WebService.asmx}

<WebMethod()> _

Public Function HelloWorld(ByVal Text1 As String, ByVal Text2 As String) As String

        Return Text1 + Text2

End Function

<?xml version="1.0" encoding="utf-8"?>

<string xmlns="http://tempuri.org/">string</string>

XMLHTTP使用SOAP 1.1方式请求WebService

WEB页

<input type=button name=wxd value="请求">

<script language=vbs>

dim aa 'xmlhttp对象

sub wxd_onclick '按钮单击事件

 set aa = createobject("microsoft.xmlhttp")

 aa.onreadystatechange=getref("aaa") '请求有响应时的回调程序

 aa.open "POST","WebService.asmx",True '使用POST方式，导步请求

 

 '在HTTP协议中，指定请求的方式为SOAP1.1 ，setRequestHeader方法要在open后使用

 '-------------SOAP 1.1　的HTTP头-------------------------

‘-关于SOAP1.1/ 1.2 的头格式与返回格式，可参查看WEBSERVICE的WEB页说明

 aa.setRequestHeader "Content-Type", "text/xml; charset=utf-8"

 aa.setRequestHeader "Content-Length", "1024" '数值为请求的字节数，可以不写

 aa.setRequestHeader "SOAPAction", "http://tempuri.org/HelloWorld"

 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

 xml="<?xml version=""1.0"" encoding=""utf-8""?><soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/""> <soap:Body>    <HelloWorld xmlns=""http://tempuri.org/""><Text1>wxd</Text1><Text2>lzm</Text2></HelloWorld></soap:Body></soap:Envelope>"

 msgbox xml

 aa.send xml '开始请求，POST方式为数据的串方式

end sub

sub aaa '请求有响应时的回调程序

 select case aa.readystate

    case 0        '0:没初始化

    case 1        '1: 对象已建立,但尚未连接

    case 2        '2:正在加载文件中

    case 3        '3: 文件加载完成,正在检查正确性   

    case 4        '4:得到返回信息,可以使用接收

        msgbox aa.responseText '显示返回的内容

 end select

end sub

</script>

asmx

{WebService.asmx}

<WebMethod()> _

Public Function HelloWorld(ByVal Text1 As String, ByVal Text2 As String) As String

        Return Text1 + Text2

End Function

返回值

<?xml version="1.0" encoding="utf-8"?>

<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">

 <soap:Body>

    <HelloWorldResponse xmlns="http://tempuri.org/">

      <HelloWorldResult>wxdlzm</HelloWorldResult>

    </HelloWorldResponse>

 </soap:Body>

</soap:Envelope

SOAPTOOL请求WebService

WEB页

<input type=button name=wxd value="请求">

<script language=vbs>

sub wxd_onclick '按钮单击事件

set soapclient = CreateObject("MSSOAP.SoapClient30") '建立引用

'指定asmx的WSDL

soapclient.mssoapinit "http://localhost:1026/ajax/WebService.asmx?WSDL"

'调用WebService的方法HelloWorld，传参，并得到返回值

val= SoapClient.HelloWorld ("wxd","lzm")

msgbox val

end sub

</script>

asmx

{WebService.asmx}

<WebMethod()> _

Public Function HelloWorld(ByVal Text1 As String, ByVal Text2 As String) As String

        Return Text1 + Text2

End Function

zbyufei
关注
  • 1
    点赞
  • 踩
  • 6
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
用VBS实现的发送带Cookie的HTTP请求的代码
09-05
在昨天的《使用正确版本的XMLHTTP》中卖了个关子，ServerXMLHTTP的功能比XMLHTTP强大，你现在大概已经猜到了吧。没错，用ServerXMLHTTP可以在HTTP请求头中加入Cookie，而XMLHTTP不可以
ajax怎么完成请求转发,ajax请求完成的回调函数
weixin_31440583的博客
08-05 671
德玛西亚99.then().catch()？then的时候强制报错。。。好变态呀。then和fail都走通过一个方法？$.ajax({urL:'/',beforeSend:v=>console.log('beforeSend'),error:v=>console.log('error'),dataFilter:v=>console.log('...
java怎么做回调请求_Java回调的四种写法（反射、直接调用、接口调用、Lambda表达式）...
weixin_26757939的博客
02-24 985
在计算机程序设计中， 回调函数 ，简称 回调 (Callback)，是指通过函数参数传递到其他代码的，某一块可执行代码的引用。这一设计允许了底层代码调用在高层定义的子程序。以上是维基百科对“回调函数”的定义。对于回调，不同的语言有不同的回调形式，例如：C、C++ 允许将函数指针作为参数传递；JavaScript、Python 允许将函数名作为参数传递。本文将介绍 Java 实现回调的四种写法：反射...
网络请求回调的实现方式
weixin_45809829的博客
12-29 948
网络请求回调的实现方式
vbs发送http请求
brucewata的专栏
03-13 1791
文件a.js： var m_http = new ActiveXObject("Msxml2.ServerXMLHTTP"); m_http.open("GET", "http://www.baidu.com" , false); m_http.send(""); WScript.StdOut.WriteLine(m_http.responseText); c:\>cscript a.js
vbs发送请求
江湖 - 郎中 - 路
12-01 2524
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
vbs http
weixin_30505751的博客
12-23 417
get请求 模拟发送http请求到百度Dim httpSet http = CreateObject("Msxml2.ServerXMLHTTP")http.open "GET",http://www.baidu.com, Falsehttp.sendmsgbox http.statusmsgboxhttp.responsetext post请求 set Http=createobject...
vbs模拟post请求上传文件
mjf853912229的博客
06-09 2049
''' VBS文件上传类，二进制方式上传 Class vbsFileUpload Public c_strDestURL ' 文件上传URL http://127.0.0.1:8080/AirportPro/widetable/uploadFile Public c_strFileName ' 要上传的本地文件名 Public c_strFieldName ' 字段名，类似HTML表单Form中的input name Public c_strBound...
vbs httppost上传表单脚本
10-09
vbs 的post上传表单示例.vbs用http"WinHttp.WinHttpRequest.5.1"可伪造cookie
VBS调用Web接口
04-30
Dim objHTTP,xmlDOC,strWebserviceURL,strRequest,bOK,xmlStr Set objHTTP = CreateObject("MSXML2.XMLHTTP"
VBS实现的POST文件上传类（支持二进制）
12-30
''''''''''''''''''''''''''''''' 'Desc:VBS文件上传类 'Author:[email protected] + http://www.motobit.com/tips/detpg_uploadvbsie/ (2001 Antonin Foller, PSTRUH Software) 'Version:1.0 'Update:2010-12-28 19:00 ' ''''''''''''''''''''''''''''''' ''' VBS文件上传类，二进制方式上传 Class vbsFileUpload Public c_strDestURL ' 文件上传URL http://127.0.0./upload_file.php Public c_strFileName ' 要上传的本地文件名 Public c_strFieldName ' 字段名，类似HTML表单Form中的input name Public c_strBoundary ' 文件上传Post数据包中的分隔符 Public c_strContentType ' text/plain or image/pjpeg and so on "application/upload" Public c_strResponseText ' 文件上传后，服务器返回的信息 Public c_boolPrepared ' Public c_strErrMsg ' 可能的错误信息
用VBS获取网页源代码.vbs
01-06
用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("txtx.txt") '创建文件,其中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 TreeView 脚本示例源码
12-20
VBScript 结合TreeView控件实现的树状目录结构示例源码
vbs HTTP.txt
12-13
vbs HTTP.txt
如何使用.vbs通过http | https下载并执行多个文件？
04-06
看一下：使用Visual Basic脚本（vbs）下载文件·GitHub [^]
VBS的函数集-读写二进制文件，UTF8文件，HTTP GET和POST
10-08
字节编写或者收集的VBS函数集,涉及二进制,文件读写,UTF-8,ANSI编码转换,Http GET,POST,网络请求功能。base64编码解码函数。等等。
Scripting.Dictionary 详解
热门推荐
zbyufei的测试专栏
08-19 1万+
许多Microsoft的编程语言，如Visual Basic、VBScript和Jscript，都提供集合（collection）。可以把集合想象为数组，可以使用其中内建的函数完成存储和操纵数据等基本任务。无须担心数据是在哪些行列，而是使用唯一的键进行访问。 VBScript和Jscript都提供类似的对象，通称Scripting.Dictionary对象或Dictionary对象。它类
matlab vbs
最新发布
09-14
您是想了解关于 MATLAB 和 VBS（Visual Basic Script）之间的一些内容吗？ MATLAB是一种数值计算和编程环境，广泛用于科学、工程和其他领域的数据分析、模拟和可视化。它提供了用于处理矩阵和数组的强大工具，并...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值