代码求助！
我想更新这个代码最新#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
页:
[1]