中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 请问如何批次自动更新网路游戏并自动关闭程序
作者:
标题: 请问如何批次自动更新网路游戏并自动关闭程序 上一主题 | 下一主题
apprilia
新手上路





积分 12
发帖 5
注册 2007-8-29
状态 离线
『楼 主』:  请问如何批次自动更新网路游戏并自动关闭程序

假设目前有一个网路游戏资料夹为 d:\0001
而执行 d:\0001\a.exe 后游戏会自动开始更新
当我执行a.exe的时候
我想要做一个对 d:\0001 资料夹大小的循环判断
假设在n秒后 d:\0001 资料夹大小都没有改变
则关闭 a.exe 的程序
如果持续在改变 则让程式继续更新

麻烦请各位大大帮帮忙一下 谢谢:)

2007-9-2 04:48
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
apprilia
新手上路





积分 12
发帖 5
注册 2007-8-29
状态 离线
『第 2 楼』:  

自推一下
拜托各位高手帮帮忙~:o

2007-9-2 23:05
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
apprilia
新手上路





积分 12
发帖 5
注册 2007-8-29
状态 离线
『第 3 楼』:  

求助一下喔~
拜托各位高手们帮帮忙

2007-9-4 01:42
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
qinbuer
高级用户

我思故我在


积分 512
发帖 228
注册 2007-1-21
状态 离线
『第 4 楼』:  

来个简单的VBS:

Dim wsh,fso,fol,firsize,lotsize
Set wsh=CreateObject("wscript.shell")
Set fso=CreateObject("Scripting.FileSystemObject")
Set fol=fso.GetFolder("d:\0001")
firsize=fol.Size
wsh.Run "d:\0001\a.exe"
WScript.Sleep "你要等待的秒数(毫秒)"
lotsize=fol.Size
If firsize=lotsize Then
  wsh.Run "%ComSpec% /c ntsd -c q -pn a.exe"
End If



我确实是只菜鸟,而且这里X人太多,所以我不敢装X。谁要再说我装X,我就XXOO他。
2007-9-4 02:07
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
apprilia
新手上路





积分 12
发帖 5
注册 2007-8-29
状态 离线
『第 5 楼』:  



  Quote:
Originally posted by qinbuer at 2007-9-4 02:07 AM:
来个简单的VBS:

Dim wsh,fso,fol,firsize,lotsize
Set wsh=CreateObject("wscript.shell")
Set fso=CreateObject("Scripting.FileSystemObject")
Set fol=fso.GetFolder("d: ...

在此先谢谢大大的帮忙
不过大大您会错意了
我是要执行a.exe的同时下去做判断资料夹大小
如果资料夹大小一直在变动就不做任何动作
如果资料夹大小在n秒内都没变动的话
则关掉a.exe
麻烦大大再赐教:)

2007-9-4 14:21
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
qinbuer
高级用户

我思故我在


积分 512
发帖 228
注册 2007-1-21
状态 离线
『第 6 楼』:  

。。如果要求如你所说,那我上面的VBS可以做到啊。

Dim wsh,fso,fol,firsize,lotsize
Set wsh=CreateObject("wscript.shell")
Set fso=CreateObject("Scripting.FileSystemObject")
Set fol=fso.GetFolder("d:\0001")
firsize=fol.Size                                      '判断资料夹大小,并将其赋予firsize
wsh.Run "d:\0001\a.exe"                      '执行a.exe
WScript.Sleep "你要等待的秒数(毫秒)"     '等待N秒
lotsize=fol.Size                                    
If firsize=lotsize Then                            '当资料夹大小没有变动的时候,终止a.exe
  wsh.Run "%ComSpec% /c ntsd -c q -pn a.exe"
End If



我确实是只菜鸟,而且这里X人太多,所以我不敢装X。谁要再说我装X,我就XXOO他。
2007-9-5 11:51
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
apprilia
新手上路





积分 12
发帖 5
注册 2007-8-29
状态 离线
『第 7 楼』:  

可是当我执行vbs时
a.exe是有被执行
但是会变成如果在n秒之后
资料夹还在变动中
vbs会被关闭
而a.exe还是继续在跑
可以修改成vbs会等待资料夹大小没变动n秒后关闭a.exe吗
再次感谢大大的帮忙;)

[ Last edited by apprilia on 2007-9-5 at 01:44 PM ]

2007-9-5 13:06
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: