[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
wifayy

Rank: 1

帖子
32 
积分
47 
技术
0  
捐助
0  
注册时间
2010-12-16 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 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

Rank: 5Rank: 5

帖子
766 
积分
1451 
技术
117  
捐助
0  
注册时间
2010-5-12 
2楼
发表于 2013-4-26 15:15 | 只看该作者 
  1. Const URL = "http://example.com/test.txt"

  2. Dim http

  3. Set http = CreateObject("Msxml2.XMLHTTP")

  4. http.open "GET", URL, False

  5. http.send

  6. WScript.Echo http.responseText
复制代码
http://demon.tw

TOP

wifayy

Rank: 1

帖子
32 
积分
47 
技术
0  
捐助
0  
注册时间
2010-12-16 
3楼
发表于 2013-4-26 15:18 | 只看该作者
Demon 发表于 2013-4-26 15:15



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


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

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

TOP

Demon

Rank: 5Rank: 5

帖子
766 
积分
1451 
技术
117  
捐助
0  
注册时间
2010-5-12 
4楼
发表于 2013-4-26 15:25 | 只看该作者
这位兄弟 你的VBS是可以保存文件到指定目录吗  好像没有看到ADO组件应用啊。


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


加我QQ380401911
http://demon.tw

TOP

返回列表