批处理之家 - Powered by Discuz! Board

标题: 100RMB 求高手编写一个VBS脚本难度较高 [打印本页]

作者: wifayy 时间: 2013-4-26 14:34 标题: 100RMB 求高手编写一个VBS脚本难度较高

网络上可以找到VBS HTTP下载文件的脚本
Set Post = CreateObject(\\\"Msxml2.XMLHTTP\\\")
Set Shell = CreateObject(\\\"Wscript.Shell\\\")
Post.Open \\\"GET\\\",\\\"http://www.03389.com/xx.exe\\\",0
Post.Send()
Set aGet = CreateObject(\\\"ADODB.Stream\\\")
aGet.Mode = 3
aGet.Type = 1
aGet.Open()
aGet.Write(Post.responseBody)
aGet.SaveToFile \\\"c:\\\\zl.exe\\\",2
wscript.sleep 1000
Shell.Run (\\\"c:\\\\zl.exe\\\") \\\'延迟过后执行下载文件

求修改这个脚本使其能够读取远程TXT文件里面的内容 TXT文件里面是HTTP文件的地址
格式为 http://www.baidu.com/1.exe c:\\1.exe 相信各位应该可以看懂吧谢谢有酬劳

作者: Demon 时间: 2013-4-26 15:15

Const URL = "http://example.com/test.txt"
Dim http
Set http = CreateObject("Msxml2.XMLHTTP")
http.open "GET", URL, False
http.send
WScript.Echo http.responseText
复制代码

作者: wifayy 时间: 2013-4-26 15:18

Demon 发表于 2013-4-26 15:15

这位兄弟你的VBS是可以保存文件到指定目录吗好像没有看到ADO组件应用啊。

txt中的内容是
http://www.baidu.com/1.exe c:\\1.exe

URL后面是需要保存到的地方

作者: Demon 时间: 2013-4-26 15:25

这位兄弟你的VBS是可以保存文件到指定目录吗好像没有看到ADO组件应用啊。

txt中的内容是 ...
wifayy 发表于 2013-4-26 15:18

加我QQ380401911

欢迎光临批处理之家 (http://bathome.net./)