一些朋友喜欢用vbs来更新游戏,但如何才能随时掌握游戏的更新情况呢,下面的脚本或许会帮的上忙
原理,凡更新过的机子都会在指定文件中写上“xxx机 在 xxx时候 更新”
sub ygx
gxfilepath="\server更新过的机子.txt"'更新机器号要写入的文件的路径,必须具有修改权限
Dim WSHNetwork
Set WSHNetwork = Wscript.CreateObject("Wscript.Network")
Dim fso, gx
genxing=cstr(wshnetwork.computername)&"机 "&cstr(date)&" "&cstr(time)&" 更新"
Set fso = CreateObject("scripting.FileSystemObject")
Set gx = fso.OpenTextFile(gxfilepath, 8, True)
gx.Writeline (genxing)
end sub
'把以上东东复制到你要实现此功能的脚本中,在需要的时候call ygx即可,如下:
dim fso,oshell,path1,path
path = "E: etshanda泡泡堂4.1.txt"
path1 = "\Webwgv网络游戏泡泡堂.exe"
set oshell = wscript.createobject ("wscript.shell")
set fso = createobject("scripting.filesystemobject")
if (fso.fileexists(path)) then
else
oshell.run path1 '执行更新了
call ygx '就在更新表中写中写上更新记录
end if
原理,凡更新过的机子都会在指定文件中写上“xxx机 在 xxx时候 更新”
sub ygx
gxfilepath="\server更新过的机子.txt"'更新机器号要写入的文件的路径,必须具有修改权限
Dim WSHNetwork
Set WSHNetwork = Wscript.CreateObject("Wscript.Network")
Dim fso, gx
genxing=cstr(wshnetwork.computername)&"机 "&cstr(date)&" "&cstr(time)&" 更新"
Set fso = CreateObject("scripting.FileSystemObject")
Set gx = fso.OpenTextFile(gxfilepath, 8, True)
gx.Writeline (genxing)
end sub
'把以上东东复制到你要实现此功能的脚本中,在需要的时候call ygx即可,如下:
dim fso,oshell,path1,path
path = "E: etshanda泡泡堂4.1.txt"
path1 = "\Webwgv网络游戏泡泡堂.exe"
set oshell = wscript.createobject ("wscript.shell")
set fso = createobject("scripting.filesystemobject")
if (fso.fileexists(path)) then
else
oshell.run path1 '执行更新了
call ygx '就在更新表中写中写上更新记录
end if
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10294527/viewspace-123863/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/10294527/viewspace-123863/