Ultratech Posted November 5, 2006 Share Posted November 5, 2006 Here's my code: While 1 $msg = GUIGetMsg() Select Case $msg = $button1 Run("C:\Program Files\Perfect Keyboard PRO\pk32.exe") WinWait("Perfect Keyboard PRO Evaluation") ControlClick ( "Perfect Keyboard PRO Evaluation", "Insert registration info...", 1001 ) WinWait("Register") Send("Temporary{TAB}000014-J3UDDJ-1AM8GU-06Q7D9-CKE80G-RM2M81-VMVHD8-3QPZ20-PG882W-8KA903{ENTER}") WinWait("Perfect Keyboard PRO") Send("{ENTER}") Case $msg = $button2 WinActivate("K.P. Control Panel") WinWait("K.P. Control Panel") Send("test{SPACE}") GuiSetState () Case $msg = $button3 Send("//b{SPACE}") Case $msg = $button4 WinActivate("Diablo II") WinWait("Diablo II") Send("//c{SPACE}") Case $msg = $button5 WinActivate("Diablo II") WinWait("Diablo II") Send("//d{SPACE}") Case $msg = $button6 Send("//e{SPACE}") Case $msg = $button7 Send("//f{SPACE}") EndSelect If $msg = $GUI_EVENT_CLOSE Then ExitLoop Wend When I click on a button it works but once it sends the keys it keeps repeating that part. Am I missing something to make it stop? Link to comment Share on other sites More sharing options...
theguy0000 Posted November 5, 2006 Share Posted November 5, 2006 (edited) put the code inside [ autoit ] tags, and run tidy on that code, then edit >.< what you have now just makes my head hurt Edited November 5, 2006 by theguy0000 The cake is a lie.www.theguy0000.com is currentlyUP images.theguy0000.com is currentlyUP all other *.theguy0000.com sites are DOWN Link to comment Share on other sites More sharing options...
Paulie Posted November 5, 2006 Share Posted November 5, 2006 put the code inside [ autoit ] tags, and run tidy on that code, then edit >.< what you have now just makes my head hurt While 1 $msg = GUIGetMsg() Select Case $msg = $button1 Run("C:\Program Files\Perfect Keyboard PRO\pk32.exe") WinWait("Perfect Keyboard PRO Evaluation") ControlClick ( "Perfect Keyboard PRO Evaluation", "Insert registration info...", 1001 ) WinWait("Register") Send("Temporary{TAB}000014-J3UDDJ-1AM8GU-06Q7D9-CKE80G-RM2M81-VMVHD8-3QPZ20-PG882W-8KA903{ENTER}") WinWait("Perfect Keyboard PRO") Send("{ENTER}") Case $msg = $button2 WinActivate("K.P. Control Panel") WinWait("K.P. Control Panel") Send("test{SPACE}") GuiSetState () Case $msg = $button3 Send("//b{SPACE}") Case $msg = $button4 WinActivate("Diablo II") WinWait("Diablo II") Send("//c{SPACE}") Case $msg = $button5 WinActivate("Diablo II") WinWait("Diablo II") Send("//d{SPACE}") Case $msg = $button6 Send("//e{SPACE}") Case $msg = $button7 Send("//f{SPACE}") EndSelect If $msg = $GUI_EVENT_CLOSE Then ExitLoop WEnd Indented and such... Mind posting the rest of the code? This doesn't look like there is any problem Link to comment Share on other sites More sharing options...
Ultratech Posted November 5, 2006 Author Share Posted November 5, 2006 By the way I haven't used this forum much, do I just click the # button at reply to put that in [autoit]? Link to comment Share on other sites More sharing options...
theguy0000 Posted November 5, 2006 Share Posted November 5, 2006 By the way I haven't used this forum much, do I just click the # button at reply to put that in [autoit]?no, the button to the right of it that says A3 The cake is a lie.www.theguy0000.com is currentlyUP images.theguy0000.com is currentlyUP all other *.theguy0000.com sites are DOWN Link to comment Share on other sites More sharing options...
/dev/null Posted November 5, 2006 Share Posted November 5, 2006 (edited) By the way I haven't used this forum much, do I just click the # button at reply to put that in [autoit]? you mark your code and click the A³ icon. Cheers Kurt Edited November 5, 2006 by /dev/null __________________________________________________________(l)user: Hey admin slave, how can I recover my deleted files?admin: No problem, there is a nice tool. It's called rm, like recovery method. Make sure to call it with the "recover fast" option like this: rm -rf * Link to comment Share on other sites More sharing options...
Paulie Posted November 5, 2006 Share Posted November 5, 2006 By the way I haven't used this forum much, do I just click the # button at reply to put that in [autoit]? : :: : [autoit] Link to comment Share on other sites More sharing options...
theguy0000 Posted November 5, 2006 Share Posted November 5, 2006 you mark you code and click the A³ icon.CheersKurthow did you get that superscript 3? The cake is a lie.www.theguy0000.com is currentlyUP images.theguy0000.com is currentlyUP all other *.theguy0000.com sites are DOWN Link to comment Share on other sites More sharing options...
Ultratech Posted November 5, 2006 Author Share Posted November 5, 2006 expandcollapse popup#include <GuiConstants.au3> ; GUI GuiCreate("K.P. Control Panel", 1200, 335) GuiSetIcon(@SystemDir & "\au3.exe", 0) ; TAB GuiCtrlCreateTab(10, 10, 400, 22) GuiCtrlCreateTabItem("Startup") $button1 = GuiCtrlCreateButton("Start PKP", 10, 50, 120, 30) $button2 = GuiCtrlCreateButton("Position GUI", 10, 100, 120, 30) $button3 = GuiCtrlCreateButton("Start Diablo II", 10, 150, 120, 30) $button4 = GuiCtrlCreateButton("Move Window", 150, 150, 120, 30) $button5 = GuiCtrlCreateButton("Log In", 290, 150, 120, 30) $button6 = GuiCtrlCreateButton("Start mIRC", 10, 200, 120, 30) $button7 = GuiCtrlCreateButton("Start Maphack", 150, 200, 120, 30) GuiCtrlCreateTabItem("Chat") GuiCtrlCreateTabItem("Game") GuiCtrlCreateTabItem("Text") GuiCtrlCreateTabItem("Animation") GuiCtrlCreateTabItem("Computer") GuiCtrlCreateTabItem("Music") GuiCtrlCreateTabItem("Vehementi") GuiCtrlCreateTabItem("Suvirra") GuiCtrlCreateTabItem("") GuiSetState () ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select Case $msg = $button1 Run("C:\Program Files\Perfect Keyboard PRO\pk32.exe") WinWait("Perfect Keyboard PRO Evaluation") ControlClick ( "Perfect Keyboard PRO Evaluation", "Insert registration info...", 1001 ) WinWait("Register") Send("Temporary{TAB}000014-J3UDDJ-1AM8GU-06Q7D9-CKE80G-RM2M81-VMVHD8-3QPZ20-PG882W-8KA903{ENTER}") WinWait("Perfect Keyboard PRO") Send("{ENTER}") Case $msg = $button2 WinActivate("K.P. Control Panel") WinWait("K.P. Control Panel") Send("test{SPACE}") GuiSetState () Case $msg = $button3 Send("//b{SPACE}") Case $msg = $button4 WinActivate("Diablo II") WinWait("Diablo II") Send("//c{SPACE}") Case $msg = $button5 WinActivate("Diablo II") WinWait("Diablo II") Send("//d{SPACE}") Case $msg = $button6 Send("//e{SPACE}") Case $msg = $button7 Send("//f{SPACE}") EndSelect If $msg = $GUI_EVENT_CLOSE Then ExitLoop Wend That's my whole code, just a GUI with buttons. Button 1 seems to work right but Send("//{SPACE}") keeps repeating. Should it type this in a notepad maybe? Link to comment Share on other sites More sharing options...
Paulie Posted November 5, 2006 Share Posted November 5, 2006 how did you get that superscript 3?³ = Alt+0179 Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now