代码求助！

skyit

我想更新这个代码最新
#cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

AutoIt 版本: 3.2.11.2(第一版)
脚本作者: 小姚/OldHat
        Email: 534500688@qq.com
        QQ/TM: 534500688
脚本版本: 3.2.11.2
作者主页: http://534500688.qzone.qq.com/

#ce  ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

#include <Process.au3>

#NoTrayIcon;隐藏图标

$I_1 = @HOUR * 60 * 60
$S_1 = @MIN * 60
$X_1 = @SEC
$C_1 = $I_1 + $S_1 + $X_1
$File_1 = FileExists(@ScriptDir & "\Client.ini")
If $File_1 = 0 Then
        MsgBox(0, "提醒您:", "未找到配置文件,不能正常启动程序,请重新检查!")
        Exit
EndIf
FileInstall("Client.ini", @ScriptDir & "\Client.ini", 0)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\TIME", "时间", "REG_SZ", $C_1)
$File = IniRead(@ScriptDir & "\Client.ini", "天翼配置", "安装路径", "")
$Time = IniRead(@ScriptDir & "\Client.ini", "天翼配置", "退出延时", "")
$Time_Exit = IniRead(@ScriptDir & "\Client.ini", "天翼配置", "关闭天翼", "")
Run($File)
Dim $Reg = 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System'

While 1
        RegWrite($Reg, "DisableTaskmgr", "REG_DWORD", "00000000")
        $Off_1 = WinExists("客户端", "非法的卡号!")
        $Off_2 = WinExists("客户端", "该卡暂不能上机，请联系管理员!")
        $Off_3 = WinExists("", "重新输入")
        $Off_4 = WinExists("客户端", "无法连接到服务器,请与管理员联系!")
        If $Off_1 = 1 Then
                RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\TIME")
                ProcessClose("ty_Client.exe")
                _RunDOS("taskkill /f /im explorer.exe")
                RegWrite($Reg, "DisableTaskmgr", "REG_DWORD", "00000000")
                Run(@WindowsDir & "\explorer.exe")
                Exit
        EndIf
        If $Off_2 = 1 Then
                RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\TIME")
                ProcessClose("ty_Client.exe")
                _RunDOS("taskkill /f /im explorer.exe")
                RegWrite($Reg, "DisableTaskmgr", "REG_DWORD", "00000000")
                Run(@WindowsDir & "\explorer.exe")
                Exit
        EndIf
        If $Off_3 = 1 Then
            controlsettext("","登    录","Edit1","0009586104")
                ControlCommand ( "", "登    录", "Button1", "Check", "" )
        EndIf
        If $Off_4 = 1 Then
                RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\TIME")
                ProcessClose("ty_Client.exe")
                _RunDOS("taskkill /f /im explorer.exe")
                RegWrite($Reg, "DisableTaskmgr", "REG_DWORD", "00000000")
                Run(@WindowsDir & "\explorer.exe")
                Exit
        EndIf
        $I_2 = @HOUR * 60 * 60
        $S_2 = @MIN * 60
        $X_2 = @SEC
        $C_2 = $I_2 + $S_2 + $X_2
        If $C_2 = $C_1 + $Time Then
                RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\TIME")
                FileDelete(@TempDir & "\Client.dll")
                If $Time_Exit = "是" Then
                        ProcessClose("ty_Client.exe")
                        _RunDOS("taskkill /f /im explorer.exe")
                        RegWrite($Reg, "DisableTaskmgr", "REG_DWORD", "00000000")
                        Run(@WindowsDir & "\explorer.exe")
                        Exit
                Else
                        Exit
                EndIf
        EndIf
WEnd