vbs更新之进度一目了然（转）
一些朋友喜欢用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.createｏｂｊｅｃｔ ("wscript.shell")
set fso = createｏｂｊｅｃｔ("scripting.filesystemｏｂｊｅｃｔ")
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.createｏｂｊｅｃｔ ("wscript.shell")
set fso = createｏｂｊｅｃｔ("scripting.filesystemｏｂｊｅｃｔ")
if (fso.fileexists(path)) then
else
oshell.run path1 '执行更新了
call ygx '就在更新表中写中写上更新记录
end if
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/10294527/viewspace-123863/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
