游戏自动更新 au3源码

游戏自动更新 au3源码

Submitted by hopol on 2008, June 15, 9:23 AM. 網管相關

;信息文件
TrayTip("", "系统将进入游戏自动更新状态", 10)
Sleep(5000)
;Begin
;取服务器状态
$var = Ping("192.168.1.190",250)
If @error = 0 then
Msgbox(0,"状态","目标主机在线",2)
else
Msgbox(0,"状态","发生错误,程序终止",2 )
Exit
EndIf

if FileExists("\\192.168.1.190\UPDATA\" & @ComputerName & ".ini") then
$re_up=MsgBox(4100,"", "该计算机已完成更新任务,是否重新执行更新动作",10)
if $re_up=7 or $re_up=-1 then
MsgBox(4096,"", "程序正常结束，谢谢使用",10)
shutdown(2)
exit
else
FileDelete("\\192.168.1.190\UPDATA\" & @ComputerName & ".ini")
MsgBox(4096,"", "下次启动计算机，将进入自动更新状态",10)
FileDelete("C:\up.ini")
Exit
endif
endif

$up_ini=FileExists("c:\up.ini")
if $up_ini=1 then
df_jd()
else
df_ok()
endif

;读取当前状态
;解冻状态
Func DF_JD()
$line = FileReadLine("c:\up.ini",1)
if $line="冰点解冻" then
Game_ok()
endif
EndFunc

;冰点保护冻操作
Func DF()
$isfrozen=RunWait(@ScriptDir&"\dfc.exe get /isfrozen",@ScriptDir,@SW_HIDE)
If $isfrozen = 0 Then
RunWait(@ScriptDir&"\dfc.exe xjaksuld /BOOTFROZEN",@ScriptDir,@SW_HIDE)
endif
EndFunc

;冰点解冻操作
Func U_DF()
$isfrozen=RunWait(@ScriptDir&"\dfc.exe get /isfrozen",@ScriptDir,@SW_HIDE)
If $isfrozen = 1 Then
RunWait(@ScriptDir&"\dfc.exe xjaksuld /BOOTTHAWED",@ScriptDir,@SW_HIDE)
endif

;解冻成功，写入信息
Func DF_OK()
FileWrite("c:\up.ini", "冰点解冻" & @CRLF )
U_DF()
MsgBox(4096, "状态", "系统自动启动,冰点将处于解冻状态", 2)
; shutdown(2)
Exit
EndFunc

;进行游戏更新
Func Game_ok()
FileWrite("c:\up.ini", "游戏更新" & @CRLF )
MsgBox(4096, "状态", "进入游戏更新状态……", 5)
Game()
FileWrite("c:\up.ini", "更新完毕" & @CRLF )
MsgBox(4096, "状态", "游戏更新完毕", 5)
sleep(3000)
FileWriteLine("\\192.168.1.190\UPDATA\" & @ComputerName & ".ini", "更新完毕")
FileDelete("C:\up.ini")
DF()
;shutdown(2)
EndFunc

;游戏更新
Func Game()
RunWait( @ComSpec & " /c " & 'up.vbs', "", @SW_HIDE )
EndFunc