标题: 请问如何批次自动更新网路游戏并自动关闭程序 [打印本页]
作者: apprilia 时间: 2007-9-2 04:48 标题: 请问如何批次自动更新网路游戏并自动关闭程序
假设目前有一个网路游戏资料夹为 d:\0001
而执行 d:\0001\a.exe 后游戏会自动开始更新
当我执行a.exe的时候
我想要做一个对 d:\0001 资料夹大小的循环判断
假设在n秒后 d:\0001 资料夹大小都没有改变
则关闭 a.exe 的程序
如果持续在改变 则让程式继续更新
麻烦请各位大大帮帮忙一下 谢谢:)
作者: apprilia 时间: 2007-9-2 23:05
自推一下
拜托各位高手帮帮忙~:o
作者: apprilia 时间: 2007-9-4 01:42
求助一下喔~
拜托各位高手们帮帮忙
作者: qinbuer 时间: 2007-9-4 02:07
来个简单的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
作者: apprilia 时间: 2007-9-4 14:21
| Quote: | |
|
在此先谢谢大大的帮忙
不过大大您会错意了
我是要执行a.exe的同时下去做判断资料夹大小
如果资料夹大小一直在变动就不做任何动作
如果资料夹大小在n秒内都没变动的话
则关掉a.exe
麻烦大大再赐教:)
作者: qinbuer 时间: 2007-9-5 11:51
。。如果要求如你所说，那我上面的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
作者: apprilia 时间: 2007-9-5 13:06
可是当我执行vbs时
a.exe是有被执行
但是会变成如果在n秒之后
资料夹还在变动中
vbs会被关闭
而a.exe还是继续在跑
可以修改成vbs会等待资料夹大小没变动n秒后关闭a.exe吗
再次感谢大大的帮忙;)
[ Last edited by apprilia on 2007-9-5 at 01:44 PM ]