Nov 11, 2007

[軟體]AutoIt+keyfinder(2.0beta2)自動改WinXp序號

AutoIt3+keyfinder(2.0beta2)
原版序號自備
以這個#####-#####-#####-#####-#####為例

程式行為:
跳出一個確認框
不想改可以取消
確認後自動進行直到完成

Ps.keyfinder版本不同請自行修改

---au3檔內容----

#include

GUICreate("改xp序號", 200, 100)
$button_1 = GUICtrlCreateButton ("安裝", 30, 20, 120, 40)
GUISetState(@SW_SHOW)

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
MsgBox(0, "exit", "Dialog was closed")
Exit
Case $msg = $GUI_EVENT_MINIMIZE
MsgBox(0,"", "Dialog minimized",2)
Case $msg = $GUI_EVENT_MAXIMIZE
MsgBox(0,"", "Dialog restored",2)
Case $msg = $button_1

Run("keyfinder.exe")
WinWaitActive("Magical Jelly Bean Keyfinder v2.0 Beta 2")
Send("!t")
; alt+t,按下一步

Send("c")
Send("#####-#####-#####-#####-#####")
Send("{TAB 3}")
Send("{ENTER}")
Send("!f")
Send("x")

Exit
EndSelect
WEnd
------------

No comments:

Post a Comment