万象2004临时卡开卡工具制作
#NoTrayIcon
$g_szVersion = "idcard"
If WinExists($g_szVersion) Then Exit
AutoItWinSetTitle($g_szVersion)
HotKeySet("^z", "_Terminate")
While 1
sleep(1000)
$IniFile = @ScriptDir& "\ttj.ini"
$Num=Random(1,100,1)
$var=IniRead($IniFile,"ttjwb",$Num,"")
$n = StringSplit($var,"-")
$a=ControlGetText("激活临时卡", "","TEdit5")
if $a>0 Then
ControlSetText("激活临时卡", "", "TEdit5", $n[3])
ControlSetText("激活临时卡", "", "TEdit1", $n[1])
ControlSetText("激活临时卡", "", "TEdit4", $n[2])
ControlFocus("激活临时卡", "","TEdit3")
WinWaitClose("激活临时卡")
Elseif ControlFocus("上机", "","TEdit5") Then
ControlSetText("上机", "", "TEdit5", "-"& $n[3])
ControlSetText("上机", "", "TEdit2", $n[1])
ControlSetText("上机", "", "TEdit3", $n[2])
ControlFocus("上机", "","TEdit1")
WinWaitClose("上机")
Else
ControlFocus("激活临时卡", "","TEdit3")
EndIf
WEnd
Func _Terminate()
Exit 0
EndFunc
以上部分为修改过任子行插件可开卡临时卡的源码
以下部分为原版任子行没有修改过的源码
#NoTrayIcon
$g_szVersion = "idcard"
If WinExists($g_szVersion) Then Exit
AutoItWinSetTitle($g_szVersion)
HotKeySet("^z", "_Terminate") ;(Ctrl+z退出程序)
While 1
sleep(1000)
$IniFile = @ScriptDir& "\ttj.ini"
$Num=Random(1,100,1)
$var=IniRead($IniFile,"ttjwb",$Num,"")
$n = StringSplit($var,"-")
$a=ControlGetText("激活临时卡", "","TEdit5")
$b=88888888 ;(选一张卡专门用来开临时卡用.卡号在此修改)
if $a=$b Then
ControlEnable("激活临时卡", "", "TEdit5")
ControlEnable("激活临时卡", "", "TEdit1")
ControlEnable("激活临时卡", "", "TEdit4")
ControlSetText("激活临时卡", "", "TEdit5", $n[3])
ControlSetText("激活临时卡", "", "TEdit1", $n[1])
ControlSetText("激活临时卡", "", "TEdit4", $n[2])
ControlFocus("激活临时卡", "","TEdit3")
WinWaitClose("激活临时卡")
Else
ControlFocus("激活临时卡", "","TEdit3")
EndIf
WEnd
Func _Terminate()
Exit 0
EndFunc
附件是修改过的
附件: 您所在的用户组无法下载或查看附件
