Leoj Posted May 16, 2007 Share Posted May 16, 2007 Controlsend() fails when GUI is in focus... I cannot send keystrokes to a minimized and hidden window when my GUI is in focus but I can controlsend() to the window when I have something like notepad or the desktop in focus. My include files: (i don't think my GUI ha any Opt()'s that relate to the GUI... like oneventmode or w/e) #include <GUIConstants.au3> #include <GuiList.au3>oÝ÷ Ù8b²+-ç(ÚèǧuÊy«¢+ØÀÌØí¸ô]¥¹ÑQ¥Ñ± ÅÕ½ÐìÅÕ½Ðì¤(ÀÌØíÑÉäôÀ(ÀÌØíÑÉäÈôÀ(ÀÌØíÍѽÀôÀ(ÀÌØíÍѽÀÈôÀ(ÀÌØí¡¥ôÀ)Õ¹¡¥ÑÉ1Õ¹ ¤(%]¥¹]¥Ð ÅÕ½Ðí]½É±½]ÉÉÐÅÕ½Ðì¤(%%U% ÑɱI ÀÌØí ¡}M¥±¹Ñ}5½¤ôÄQ¡¸($%]¥¹MÑMÑÑ ÅÕ½Ðí]½É±½]ÉÉÐÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì±M]}5%9%5%i¤($%%U% ÑɱI ÀÌØíI}Õ±±Íɸ¤ôôÄQ¡¸($$%]¥¹MÑMÑÑ ÅÕ½Ðí]½É±½]ÉÉÐÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì±M]}M!=¤$$$ììí¡¹É½´Í¡½ÝÕ±Ð($%¹%($%]¥¹MÑMÑÑ ÅÕ½Ðí]½É±½]ÉÉÐÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì±M]}!%¤($%QÉåQ¥À ÅÕ½Ðí1½¨ÌäíÌ]½Q½½°ÅÕ½Ðì°ÅÕ½Ðí]½¡Ì¸¡¥¸¸A±Íݥи¸¸ÅÕ½Ðì°Ô°À¤($%M±À ÈÀÀÀ¤(%¹%(%%U% ÑɱI ÀÌØí ¡}M¥±¹Ñ}5½¤ôÄQ¡¸($$ÀÌØí¡¥ôÄ(%±Í($$ÀÌØí¡¥ôÀ(%¹%)¹Õ¹$)Õ¹¡ ½É1½¥¸ ¤(%%]¥¹á¥ÍÑÌ ÅÕ½Ðí]½É±½]ÉÉÐÅÕ½Ðì¤Q¡¸($%!½Ñ-åMÐ ÅÕ½ÐííÄÅôÅÕ½Ðì¤($%!½Ñ-åMÐ ÅÕ½ÐííÄÅôÅÕ½Ðì°ÅÕ½ÐíÍѽÁMÉ¥ÁÐÅÕ½Ðì¤($$ÀÌØíÑÉäÈôÀ$$íÝ¥±°Ñ±°ÕÌÑ¡ÐÍÉ¥ÁСÌÍѽÁÁ½¹±ä¥¥ÐÝ̱ÉäÉÕ¹¹¥¹($$ÀÌØíÍѽÀÈôÀ($$ÀÌØíÝ¥ÐÌôÀ($$ÀÌØí½¹ôÀ($$ÀÌØíÍÑÑô]¥¹ÑMÑÑ ÅÕ½Ðí]½É±½]ÉÉÐÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì¤($%%9=P]¥¹á¥ÍÑÌ ÅÕ½Ðí]½É±½]ÉÉÐÅÕ½Ðì¤Q¡¸($$%¼($$$%M±À ÄÀÀÀ¤($$$$ÀÌØíÝ¥ÐÌôÀÌØíÝ¥Ð̬Ä($$%U¹Ñ¥°ÀÌØíÍѽÀÈôÄ=HÀÌØíÝ¥ÐÌôÄÀ($%¹%($$ÀÌØí´ôÀ($$ÀÌØí¡ôÀ($%QÉåQ¥À ÅÕ½Ðí1½¨ÌäíÌ]½Q½½°ÅÕ½Ðì°ÅÕ½Ðí ¡¥¹¥]½¥ÌÉäѼɥ٥¹¼¸¸¸ÅÕ½ÐìµÀì I1µÀìÅÕ½ÐíAÉÍÌmÄÅtѼ¹°Ñ¡¡¬¸ÅÕ½Ðì°ÈÀ°À¤($$%¼($$$$ÀÌØíÑÉäÈôÄ($$$%%ÀÌØíÍѽÀÈôÄQ¡¸IÑÕɸÌäìÌäì($$$$ÀÌØíÝ¥ÐÌôÀ($$$%%ÀÌØí½¹ÐìÀQ¡¸($$$$%¼($$$$$%M±À ÄÀÀÀ¤($$$$$$ÀÌØíÝ¥ÐÌôÀÌØíÝ¥Ð̬Ä($$$$%U¹Ñ¥°ÀÌØíÍѽÀÈôÄ=HÀÌØíÝ¥ÐÌôÄÔ($$$%¹%($$$% ±¥ÁAÕÐ ÅÕ½ÐìÅÕ½Ðì¤($$$$ÀÌØí¸ô]¥¹ÑQ¥Ñ± ÅÕ½ÐìÅÕ½Ðì¤($$$%%ÀÌØíÍѽÀÈôÄQ¡¸IÑÕɸÌäìÌäì($$$%ͱÀ ÌÀÀ¤($$$%%ÀÌØíÍѽÀÈôÄQ¡¸IÑÕɸÌäìÌäì($$$% ½¹Ñɽ±M¹ ÅÕ½Ðí]½É±½]ÉÉÐÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½Ðíí QI1=]9õíõí QI1UAôÅÕ½Ðì¤($$$$ÀÌØí¸ô]¥¹ÑQ¥Ñ± ÅÕ½ÐìÅÕ½Ðì¤($$$%%ÀÌØíÍѽÀÈôÄQ¡¸IÑÕɸÌäìÌäì($$$%ͱÀ ÌÀÀ¤($$$%%ÀÌØíÍѽÀÈôÄQ¡¸IÑÕɸÌäìÌäì($$$% ½¹Ñɽ±M¹ ÅÕ½Ðí]½É±½]ÉÉÐÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐìÄÀÄÀÅÕ½Ðì¤($$$$ÀÌØí¸ô]¥¹ÑQ¥Ñ± ÅÕ½ÐìÅÕ½Ðì¤($$$%%ÀÌØíÍѽÀÈôÄQ¡¸IÑÕɸÌäìÌäì($$$%ͱÀ ÌÀÀ¤($$$%%ÀÌØíÍѽÀÈôÄQ¡¸IÑÕɸÌäìÌäì($$$% ½¹Ñɽ±M¹ ÅÕ½Ðí]½É±½]ÉÉÐÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½Ðíí QI1=]9õíõí QI1UAôÅÕ½Ðì¤($$$$ÀÌØí¸ô]¥¹ÑQ¥Ñ± ÅÕ½ÐìÅÕ½Ðì¤($$$%%ÀÌØíÍѽÀÈôÄQ¡¸IÑÕɸÌäìÌäì($$$%ͱÀ ÈÀÀ¤($$$%%ÀÌØíÍѽÀÈôÄQ¡¸IÑÕɸÌäìÌäì($$$%%ÀÌØí¡¥ôÄQ¡¸($$$$%]¥¹MÑMÑÑ ÅÕ½Ðí]½É±½]ÉÉÐÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì±M]}!%¤($$$%¹%($$$$ÀÌØí¸ô]¥¹ÑQ¥Ñ± ÅÕ½ÐìÅÕ½Ðì¤($$$%%9=P]¥¹Ñ¥Ù ÅÕ½Ðí]½É±½]ÉÉÐÅÕ½Ðì¤Q¡¸]¥¹Ñ¥ÙÑ ÅÕ½Ðí]½É±½]ÉÉÐÅÕ½Ðì¤($$$%%ÀÌØíÍѽÀÈôÄQ¡¸IÑÕɸÌäìÌäì($$$%%U% ÑɱI ÀÌØíI}Õ±±Íɸ¤ôôÄQ¡¸($$$$%]¥¹MÑMÑÑ ÅÕ½Ðí]½É±½]ÉÉÐÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì±M]}5%9%5%i¤($$$%¹%($$$%%ÀÌØíÍѽÀÈôÄQ¡¸IÑÕɸÌäìÌäì($$$%%ÀÌØí¡¥ôÄQ¡¸($$$$%]¥¹MÑMÑÑ ÅÕ½Ðí]½É±½]ÉÉÐÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì±M]}!%¤($$$%¹%($$$%%ÀÌØíÍѽÀÈôÄQ¡¸IÑÕɸÌäìÌäì($$$%%U% ÑɱI ÀÌØíI}Õ±±Íɸ¤ôôÄQ¡¸($$$$%QÉåQ¥À ÅÕ½Ðí1½¨ÌäíÌ]½Q½½°ÅÕ½Ðì°ÅÕ½ÐíA±ÍÝ¥ÐÔͽ¹Ì´=Á¹¥¹]½¸ÅÕ½ÐìµÀì I1µÀìÅÕ½Ðí¼¹½ÐÕÍå½Õȵ½ÕͽÈå½ÉÕÉ¥¹Ñ¡¥ÌÑ¥µ¸ÅÕ½Ðì°Ø¤($$$$%ͱÀ ÐÀÀÀ¤ììíÕÍȵ䱥¬Í½µ½Ñ¡ÈÝ¥¹½ÜÕÉ¥¹Ñ¡¥ÌÑ¥µÌÌìÌÌì´´]¥Ð½¹±ä¹Ý¡¸¥¸Õ±±Íɸµ½¸($$$%¹%($$$%%ÀÌØíÍѽÀÈôÄQ¡¸IÑÕɸÌäìÌäì($$$% ½¹Ñɽ±M¹ ÅÕ½Ðí]½É±½]ÉÉÐÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½Ðíí QI1=]9õíõí QI1UAôÅÕ½Ðì¤($$$%ͱÀ ÈÀÀ¤($$$%%U% ÑɱI ÀÌØí ¡}M¥±¹Ñ}5½¤ôÄQ¡¸($$$$%]¥¹Ñ¥ÙÑ ÀÌØí¸¤($$$%¹%($$$%%ÀÌØíÍѽÀÈôÄQ¡¸IÑÕɸÌäìÌäì($$$%ͱÀ ÈÀÀ¤($$$%%ÀÌØíÍѽÀÈôÄQ¡¸IÑÕɸÌäìÌäì($$$$ÀÌØí¸ô]¥¹ÑQ¥Ñ± ÅÕ½ÐìÅÕ½Ðì¤($$$%%ÀÌØíÍѽÀÈôÄQ¡¸IÑÕɸÌäìÌäì($$$%ͱÀ ÈÀÀ¤($$$%%ÀÌØíÍѽÀÈôÄQ¡¸IÑÕɸÌäìÌäì($$$%% ±¥ÁÐ ¤ôôÄÀÄÀQ¡¸($$$$%QÉåQ¥À ÅÕ½ÐíÑ¡¥Ì±É̹äÑÉäÑ¥ÀÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°À¤($$$$% ±° ÅÕ½Ðí½Õ¹Ñ9½ÜÅÕ½Ðì¤($$$$$ÀÌØí´ôÄ($$$%¹%($$$$ÀÌØí½¹ôÀÌØí½¹¬Ä($$$$ÀÌØí¡ôÀÌØí¡¬Ä($$$%%ÀÌØí¡ÐìôÌQ¡¸($$$$%QÉåQ¥À ÅÕ½Ðí1½¨ÌäíÌ]½Q½½°ÅÕ½Ðì°ÅÕ½Ðí ¡ÅÕ½ÐìµÀìÀÌØí¡µÀìÅÕ½ÐìÑ¥µÌ¸Q¡ÉµÕÍиÉɽȸÅÕ½ÐìµÀì I1µÀìÅÕ½ÐíA±ÍÝ¥ÐÝ¡¥±]½¥ÌÕ¸ÅÕ½ÐìµÀì I1µÀìÅÕ½ÐíAÉÍÌmÄÅtѼ¹°¸ÅÕ½Ðì°ÈÔ°À¤($$$$%%ÀÌØíÍѽÀÈôÄQ¡¸IÑÕɸÌäìÌäì($$$$%%]¥¹á¥ÍÑÌ ÅÕ½Ðí]½É±½]ÉÉÐÅÕ½Ðì¤Q¡¸($$$$$$ÀÌØí½¹ôÀ($$$$$$ÀÌØí¡¥ôÀ($$$$$%]¥¹MÑMÑÑ ÅÕ½Ðí]½É±½]ÉÉÐÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì±M]}M!=¤($$$$$%%ÀÌØíÍѽÀÈôÄQ¡¸IÑÕɸÌäìÌäì($$$$$%]¥¹Ñ¥ÙÑ ÅÕ½Ðí]½É±½]ÉÉÐÅÕ½Ðì¤($$$$$%%ÀÌØíÍѽÀÈôÄQ¡¸IÑÕɸÌäìÌäì($$$$%±Í($$$$$$ÀÌØíÍѽÀÈôÄ($$$$%¹%($$$%±Í($$$$%QÉåQ¥À ÅÕ½Ðí1½¨ÌäíÌ]½Q½½°ÅÕ½Ðì°ÅÕ½Ðí]½¥Ì¹½ÐÉäѼɥٽչХ¹¼åиÅÕ½ÐìµÀì I1µÀìÅÕ½Ðí ¡ÅÕ½ÐìµÀìÀÌØí¡µÀìÅÕ½ÐìÑ¥µÌ¸ÅÕ½ÐìµÀì I1µÀìÅÕ½ÐíAÉÍÌmÄÅtѼ¹°Ñ¡¡¬¸ÅÕ½Ðì°ÈÔ°À¤($$$%¹%($$%U¹Ñ¥°ÀÌØí´ôÄ(%±Í($%5Í ½à À°ÅÕ½ÐíÉɽÈÅÕ½Ðì°ÅÕ½ÐíA±ÍÍÑÉÐ]½¹¹ÑÈÑ¡±½¥¸Íɸ¸Q¡¸ÉÉոѡ±½½¸ÍÉ¥ÁиÅÕ½Ðì¤(%¹%(%QÉåQ¥À ÅÕ½ÐíÑ¡¥Ì±É̹äÑÉäÑ¥ÀÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°À¤($ÀÌØí½¹ôÀ($ÀÌØí¡¥ôÀ)¹Õ¹ -Any help is appreciated! Maybe smashly will come to my rescue once again Link to comment Share on other sites More sharing options...
Zedna Posted May 16, 2007 Share Posted May 16, 2007 ControlSend("World of Warcraft", "", "", "{CTRLDOWN}{a}{CTRLUP}") 1) use control name (third parameter 2) use "^a" instead of "{CTRLDOWN}{a}{CTRLUP}" Resources UDF ResourcesEx UDF AutoIt Forum Search Link to comment Share on other sites More sharing options...
Davo Posted May 16, 2007 Share Posted May 16, 2007 (edited) You could also simply use the Send("keys") function since it doesn't appear as though you are sending the input to a particular control on the form, rather just to the form with the focus. ;send the keys to the form with the focus Send("^a") Dave Edited May 16, 2007 by Davo ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------"I don't need to know everything, I just need to know where to find it when I need it"....EinsteinAnd in our case... That's the AutoIT helpfile ;) Please read before posting!!! Link to comment Share on other sites More sharing options...
Davo Posted May 16, 2007 Share Posted May 16, 2007 On another note something you might find interesting. I noticed in your code you display a tool tip for the user not to use mouse or keyboard for a 5 second interval. The following will block mouse and keyboard input for 5 seconds: DllCall("user32","int","BlockInput","str","true") Sleep(5000) DllCall("user32","int","BlockInput","str","false") Hope you like Dave ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------"I don't need to know everything, I just need to know where to find it when I need it"....EinsteinAnd in our case... That's the AutoIT helpfile ;) Please read before posting!!! Link to comment Share on other sites More sharing options...
Leoj Posted May 17, 2007 Author Share Posted May 17, 2007 (edited) I do like it very much. Thanks a ton! I really do like it =). okay, now... Let me clarify with a response to your first post: I need to send keystrokes to a hidden and/or minimized window. And to Zedna: This window does not have any "controls" as far as the autoit info tool can tell. This is the World of Warcraft (computer game) login screen. There are only 2 places for anything to be typed in and that is why a blank "control" works. @Zedna: the ^a and ^c work SOMETIMES but over half the time it just sends the letter "a" or "c"... It seems like <ctrldwn>...<ctrlup> works more reliably. Edited May 17, 2007 by Leoj Link to comment Share on other sites More sharing options...
Davo Posted May 17, 2007 Share Posted May 17, 2007 Let me clarify with a response to your first post: I need to send keystrokes to a hidden and/or minimized window.Sorry missed that part of the first post, my bad. Dave ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------"I don't need to know everything, I just need to know where to find it when I need it"....EinsteinAnd in our case... That's the AutoIT helpfile ;) Please read before posting!!! Link to comment Share on other sites More sharing options...
Leoj Posted May 17, 2007 Author Share Posted May 17, 2007 I have no life and am therefore trolling this post... Is there anyone that can get back to me? Link to comment Share on other sites More sharing options...
Leoj Posted May 21, 2007 Author Share Posted May 21, 2007 (edited) OH MY GOD! This glitch is ruining my program. I am now at version 2.0 and have had this problem since 1.7... I can't figure out what I added to f*ck up my code but please think with me here. What would mess with the controlsend function? Paramaters... ;All opts: Opt("SendKeyDelay", 100) Opt("SendKeyDownDelay", 100) ;All includes: #include <File.au3> #include <GUIConstants.au3> #include <GuiList.au3> Functions that use ControlSend()... expandcollapse popup;;;;;;;; #1 Func checkBeforeLogin() If WinExists("World of Warcraft") Then HotKeySet("{F11}") HotKeySet("{F11}", "stopScript") $tray2 = 0 ;will tell us that script has stopped only if it was already running $stop2 = 0 $wait3 = 0 $once = 0 $state = WinGetState("World of Warcraft", "") If NOT WinExists("World of Warcraft") Then Do Sleep(1000) $wait3 = $wait3 + 1 Until $stop2 = 1 OR $wait3 = 10 EndIf $m = 0 $checked = 0 TrayTip("Leoj's WoW Tool", "Checking if WoW is ready to receive info..." & @CRLF & "Press [F11] to cancel the check.", 20, 0) Do $tray2 = 1 If $stop2 = 1 Then Return '' $wait3 = 0 If $once > 0 Then Do Sleep(1000) $wait3 = $wait3 + 1 Until $stop2 = 1 OR $wait3 = 15 EndIf ClipPut(" ") If $stop2 = 1 Then Return '' sleep(300) If $stop2 = 1 Then Return '' ControlSend("World of Warcraft", "", "", "{CTRLDOWN}{a}{CTRLUP}") If $stop2 = 1 Then Return '' sleep(300) If $stop2 = 1 Then Return '' ControlSend("World of Warcraft", "", "", "1010") If $stop2 = 1 Then Return '' sleep(300) If $stop2 = 1 Then Return '' ControlSend("World of Warcraft", "", "", "{CTRLDOWN}{a}{CTRLUP}") sleep(200) If $stop2 = 1 Then Return '' If $hide = 1 Then WinSetState("World of Warcraft","",@SW_HIDE) EndIf $n = WinGetTitle("") If NOT WinActive("World of Warcraft") Then WinActivate("World of Warcraft") If $stop2 = 1 Then Return '' If GUICtrlRead($Chck_Silent_Mode) = 1 Then If GUICtrlRead($Rad_Fullscreen) == 1 Then WinSetState("World of Warcraft","",@SW_MINIMIZE) EndIf EndIf If $stop2 = 1 Then Return '' If $hide = 1 Then WinSetState("World of Warcraft","",@SW_HIDE) EndIf If $stop2 = 1 Then Return '' If GUICtrlRead($Rad_Fullscreen) == 1 Then TrayTip("Leoj's WoW Tool", "Please wait 4 seconds - Opening WoW." & @CRLF & "Your mouse and keyboard has been diabled.", 6) BlockInput(1) Sleep(4000) BlockInput(0) EndIf If $stop2 = 1 Then Return '' ControlSend("World of Warcraft", "", "", "{CTRLDOWN}{c}{CTRLUP}") If $stop2 = 1 Then Return '' sleep(200) If $stop2 = 1 Then Return '' If GUICtrlRead($Chck_Silent_Mode) = 1 Then If $n <> "Leoj's WoW Tool" Then WinActivate($n) EndIf EndIf If $stop2 = 1 Then Return '' sleep(200) If $stop2 = 1 Then Return '' sleep(200) If $stop2 = 1 Then Return '' If ClipGet() == 1010 Then TrayTip("this clears any tray tip","",0) Call("accountNow") $m = 1 EndIf $once = $once + 1 $checked = $checked + 1 If $checked > 6 Then TrayTip("Clear Current Tips", "", 0) MsgBox(0, "Error", "LWT did not find WoW ready to accept the account info." & @CRLF & "Make sure the account field (and not the password field) is selected within WoW.") Return '' EndIf If $checked >= 4 Then TrayTip("Leoj's WoW Tool", "Checked " & $checked & " times. There must be an error." & @CRLF & "Please wait while WoW is debugged." & @CRLF & "Press [F11] to cancel.", 25, 0) If $stop2 = 1 Then Return '' If WinExists("World of Warcraft") Then $once = 0 $hide = 0 WinSetState("World of Warcraft","",@SW_SHOW) If $stop2 = 1 Then Return '' WinActivate("World of Warcraft") If $stop2 = 1 Then Return '' Else $stop2 = 10 EndIf Else TrayTip("Leoj's WoW Tool", "WoW is not ready to receive account info yet." & @CRLF & "Checked " & $checked & " times." & @CRLF & "Press [F11] to cancel the check.", 25, 0) EndIf Until $m = 1 Else MsgBox(0, "Error", "Please start WoW and enter the login screen. Then rerun the logon script.") EndIf TrayTip("this clears any tray tip","",0) $once = 0 $hide = 0 EndFunc ;;;;;; #2 Func accountNow() If GUICtrlRead($Li_Accounts) = "*Username..." Then MsgBox(0, "Error", "You have not selected a username.") ElseIf GUICtrlRead($Li_Passwords) = "*Password..." Then MsgBox(0, "Error", "You have not selected a password.") Else $tray = 0 If WinExists("World of Warcraft") Then TrayTip("Leoj's WoW Tool", "Now running the login script.", 5, 0) ;ControlSend("World of Warcraft", "", "", "{CTRLDOWN}{a}{CTRLUP}{DEL}") ;Sleep(300) ControlSend("World of Warcraft", "", "", GUICtrlRead($Li_Accounts)) Sleep(300) ControlSend("World of Warcraft", "", "", "{TAB}") Sleep(300) ControlSend("World of Warcraft", "", "", GUICtrlRead($Li_Passwords)) Sleep(1000) ControlSend("World of Warcraft", "", "", "{ENTER}") Else MsgBox(0, "Error", "Please start WoW and enter the login screen. Then rerun the logon script.") EndIf If WinExists("World of Warcraft") == 1 Then TrayTip("Leoj's WoW Tool", "Login complete.", 5, 0) EndIf EndIf EndFunc expandcollapse popup;;;;;; #3 Func characterSelectNow() If GUICtrlRead($Rad_Char_1) = 1 Then $Rad_Char_Pick = 0 ElseIf GUICtrlRead($Rad_Char_2) = 1 Then $Rad_Char_Pick = 1 ElseIf GUICtrlRead($Rad_Char_3) = 1 Then $Rad_Char_Pick = 2 ElseIf GUICtrlRead($Rad_Char_4) = 1 Then $Rad_Char_Pick = 3 ElseIf GUICtrlRead($Rad_Char_5) = 1 Then $Rad_Char_Pick = 4 ElseIf GUICtrlRead($Rad_Char_6) = 1 Then $Rad_Char_Pick = 5 ElseIf GUICtrlRead($Rad_Char_7) = 1 Then $Rad_Char_Pick = 6 ElseIf GUICtrlRead($Rad_Char_8) = 1 Then $Rad_Char_Pick = 7 ElseIf GUICtrlRead($Rad_Char_9) = 1 Then $Rad_Char_Pick = 8 ElseIf GUICtrlRead($Rad_Char_10) = 1 Then $Rad_Char_Pick = 9 Else $Rad_Char_Pick = 1 EndIf If GUICtrlRead($Rad_1_Sec) = 1 Then $Rad_Sec_Pick = 1000 ElseIf GUICtrlRead($Rad_5_Sec) = 1 Then $Rad_Sec_Pick = 5000 ElseIf GUICtrlRead($Rad_10_Sec) = 1 Then $Rad_Sec_Pick = 10000 ElseIf GUICtrlRead($Rad_15_Sec) = 1 Then $Rad_Sec_Pick = 15000 ElseIf GUICtrlRead($Rad_20_Sec) = 1 Then $Rad_Sec_Pick = 20000 ElseIf GUICtrlRead($Rad_25_Sec) = 1 Then $Rad_Sec_Pick = 25000 Else $Rad_Sec_Pick = 10000 EndIf If WinExists("World of Warcraft") Then TrayTip("Leoj's WoW Tool", "Now running the character selection script.", 5, 0) Sleep($Rad_Sec_Pick) TrayTip("Leoj's WoW Tool", "Now selecting the character.", 5, 0) $n = WinGetTitle("") If NOT WinActive("World of Warcraft") Then WinActivate("World of Warcraft") WinSetState("World of Warcraft","",@SW_SHOW) WinActivate("World of Warcraft") If GUICtrlRead($Rad_Fullscreen) == 1 Then TrayTip("Leoj's WoW Tool", "Please wait while WoW is opened." & @CRLF & "Your mouse and keyboard has been diabled.", 6) BlockInput(1) WinWaitActive("World of Warcraft") BlockInput(0) Else BlockInput(1) WinWaitActive("World of Warcraft") BlockInput(0) EndIf $size2 = WinGetPos("World of Warcraft") BlockInput (1) MouseClick("left", $size2[0]+($size2[2]*.8),$size2[1]+($size2[3]*.19), 1, 0) Sleep(300) MouseClick("left") BlockInput (0) sleep(200) If GUICtrlRead($Chck_Silent_Mode) = 1 Then WinSetState("World of Warcraft","",@SW_HIDE) EndIf If GUICtrlRead($Chck_Silent_Mode) = 1 Then If $n <> "Leoj's WoW Tool" Then WinActivate($n) EndIf EndIf $sendRepeat = 0 Do ControlSend("World of Warcraft", "", "", "{DOWN}") Sleep(1000) $sendRepeat = $sendRepeat + 1 Until $sendRepeat >= $Rad_Char_Pick Sleep(1000) ControlSend("World of Warcraft", "", "", "{ENTER}") Else MsgBox(0, "Error", "Please start WoW and enter the character selection screen. Then rerun the character selection script.") EndIf If WinExists("World of Warcraft") == 1 Then TrayTip("Leoj's WoW Tool", "Character selection complete.", 5, 0) EndIf EndFunc expandcollapse popup;;;;;; #4 Func antiAFKnow() HotKeySet("{F11}") HotKeySet("{F11}", "stopJump") $tray = 0 ;will tell us that script has stopped only if it was already running $stop = 0 If GUICtrlRead($UI_Jump_Sleep) < 1 Then GUICtrlSetData($UI_Jump_Sleep, 1) EndIf If GUICtrlRead($UI_Jump_Sleep2) < 1 Then GUICtrlSetData($UI_Jump_Sleep2, 1) EndIf If GUICtrlRead($UI_Jump_Times) < 1 Then GUICtrlSetData($UI_Jump_Times, 1) EndIf If GUICtrlRead($UI_Load_Wait) < 1 Then GUICtrlSetData($UI_Load_Wait, 1) EndIf If GUICtrlRead($UI_Jump_Sleep) == GUICtrlRead($UI_Jump_Sleep2) Then $r = GUICtrlRead($UI_Jump_Sleep2) GUICtrlSetData($UI_Jump_Sleep2, $r+1) EndIf While 1 If $stop = 1 Then Return '' If WinExists("World of Warcraft") == 1 Then If $stop = 1 Then Return '' $tray = 1 TrayTip("Leoj's WoW Tool", "Now running the Anti AFK script." & @CRLF & "Press [F11] to cancel.", 5, 0) $wait2 = 0 Do If $stop = 1 Then Return '' Sleep(1000) $wait2 = $wait2 + 1 Until $stop = 1 OR $wait2 = GUICtrlRead($UI_Load_Wait) $delay = 1 $p = 0 While $p <= GUICtrlRead($UI_Jump_Times) If $stop = 1 Then Return '' $wait = 0 TrayTip("Leoj's WoW Tool", Int($delay) & " seconds until next jump." & @CRLF & "Anti AFK has jumped " & $p & " times." & @CRLF & "Press [F11] to stop jumping.", 20, 0) If $stop = 1 Then Return '' Do Sleep(1000) $wait = $wait + 1 Until $stop = 1 OR $wait = Int($delay) If $stop = 1 Then Return '' ControlSend("World of Warcraft", "", "", "{SPACE}") If $stop = 1 Then Return '' $p = $p + 1 $delay = Random(GUICtrlRead($UI_Jump_Sleep),GUICtrlRead($UI_Jump_Sleep2)) If $stop = 1 Then Return '' WEnd TrayTip("Leoj's WoW Tool", "Anti AFK has completed.", 5, 0) Else $tray = 0 MsgBox(0, "Error", "Please log on to your desired character and then rerun Anti AFK.") Return '' EndIf WEnd EndFunc Full code... [autoit] TrayTip("Leoj's WoW Tool", "To show/hide WoW press [F9] at any time." & @CRLF & "To show/hide LWT press [F10] at any time.", 1, 0) #region Functions that relate to GUI #include <File.au3> $serverLines = _FileCountLines("myservers.txt") $file1 = FileRead("myservers.txt") $server = StringSplit(StringStripCR($file1),@LF) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $accountLines = _FileCountLines("myaccounts.txt") $file8 = FileRead("myaccounts.txt") $account = StringSplit(StringStripCR($file8),@LF) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $passwordLines = _FileCountLines("mypasswords.txt") $file9 = FileRead("mypasswords.txt") $password = StringSplit(StringStripCR($file9),@LF) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #endregion #include <GUIConstants.au3> #include <GuiList.au3> #region Main GUI Global $CharLvl, $GrayLvl, $DesLvl, $ExpGained, $Exp2Lvl, $a[4], $b[4], $aLabel[4], $bLabel[4], $ZD, $s $dlgTabbed = GUICreate("Leoj's WoW Tool v2.0", 512, 399, 302, 218) GUISetIcon("D:05.ico") ;GUICtrlCreateLabel("Greetings, " & @UserName & ".", 20, 342, 300, 300) ;$Btn_Launch_With_Script = GUICtrlCreateButton("Script Launch", 20, 342, 101, 31) $Label_Profile = GUICtrlCreateLabel("Loaded Profile: " & IniRead("settings2.ini", "last profile", "loaded profile", ""), 239, 372, 300, 300) $Rad_Fullscreen = GUICtrlCreateRadio("Fullscreen", 20, 328, 97, 25) $Rad_Minimized = GUICtrlCreateRadio("Minimized", 20, 350, 97, 25) ;GUICtrlSetState(-1, $GUI_CHECKED) $Chck_Silent_Mode = GUICtrlCreateCheckbox("Silent Mode", 20, 372) $Btn_Launch_Game = GUICtrlCreateButton("&Launch Game", 239, 335, 101, 31) GUICtrlSetColor(-1, 0x335EA8) $Btn_The_Exit = GUICtrlCreateButton("&Exit", 342, 335, 76, 31) GUICtrlSetColor(-1, 0x335EA8) $Btn_About = GUICtrlCreateButton("&About", 420, 335, 76, 31) GUICtrlSetColor(-1, 0x335EA8) $Tab_Root_1 = GUICtrlCreateTab(16, 16, 481, 305) ;;;;FILES TAB $Tab_Files = GUICtrlCreateTabItem("Files") $Gr_File_Locations = GUICtrlCreateGroup("File Locations", 40, 70, 425, 185) GUICtrlCreateLabel("WoW Directory:", 50, 100, 95, 36) $UI_Directory = GUICtrlCreateInput("C:\\Program Files\World of Warcraft\", 150, 98, 300, 24, -1, $WS_EX_CLIENTEDGE) GUICtrlCreateLabel("Saved Realms:", 50, 130, 95, 36) $UI_Realms_Txt = GUICtrlCreateInput("myservers.txt", 150, 128, 300, 24, -1, $WS_EX_CLIENTEDGE) GUICtrlSetState(-1, $GUI_DISABLE) GUICtrlCreateLabel("Accounts:", 50, 160, 95, 36) $UI_Accounts_Txt = GUICtrlCreateInput("myaccounts.txt", 150, 158, 300, 24, -1, $WS_EX_CLIENTEDGE) GUICtrlSetState(-1, $GUI_DISABLE) GUICtrlCreateLabel("Passwords:", 50, 190, 95, 36) $UI_Passwords_Txt = GUICtrlCreateInput("mypasswords.txt", 150, 188, 300, 24, -1, $WS_EX_CLIENTEDGE) GUICtrlSetState(-1, $GUI_DISABLE) GUICtrlCreateLabel("Realmlist:", 50, 220, 95, 36) $UI_Realmlist_Txt = GUICtrlCreateInput("realmlist.wtf", 150, 218, 300, 24, -1, $WS_EX_CLIENTEDGE) ;GUICtrlSetState(-1, $GUI_DISABLE) ;GUICtrlCreateLabel("Note: editing .txt filenames will create new files.", 50, 90, 330, 36) $Btn_Validate = GUICtrlCreateButton("Validate", 200, 270, 89, 25) GUICtrlSetState(-1, $GUI_DEFBUTTON) $Btn_Default = GUICtrlCreateButton("Defaults", 100, 270, 89, 25) ;;;;PROFILES TAB $Tab_Files = GUICtrlCreateTabItem("Profiles") GUICtrlSetState(-1, $GUI_SHOW) $Gr_Profiles = GUICtrlCreateGroup("Profile List", 40, 48, 425, 185) $Li_Profiles = GUICtrlCreateList("", 48, 80, 305, 150, -1, $WS_EX_CLIENTEDGE) $Btn_Delete_Selected_Profile = GUICtrlCreateButton("Delete", 368, 128, 89, 25) $Btn_Delete_All_Profiles = GUICtrlCreateButton("Delete All", 368, 160, 89, 25) $Btn_Load_Profile = GUICtrlCreateButton("Load Profile", 368, 192, 89, 25) $Gr_Add_Profile = GUICtrlCreateGroup("Save Current Settings to a Profile", 40, 240, 425, 65) $UI_Add_Profile = GUICtrlCreateInput("", 48, 264, 305, 24, -1, $WS_EX_CLIENTEDGE) $Btn_Save_Profile = GUICtrlCreateButton("Save Profile", 368, 264, 89, 25) GUICtrlSetState(-1, $GUI_DEFBUTTON) ;;;;REALMLIST TAB $Tab_Realmlist = GUICtrlCreateTabItem("Realmlist") $Gr_Servers = GUICtrlCreateGroup("Servers", 40, 48, 425, 185) $Li_Servers = GUICtrlCreateList("us.logon.worldofwarcraft.com", 48, 80, 305, 150, -1, $WS_EX_CLIENTEDGE) For $z=1 To $serverLines GUICtrlSetData(-1,$server[$z]) Next GUICtrlSetData(-1,"eu.logon.worldofwarcraft.com") ;$Btn_Open_Realmlist = GUICtrlCreateButton("Realmlist.wtf", 368, 96, 89, 25) $Btn_Delete_Added = GUICtrlCreateButton("Delete All", 368, 128, 89, 25) $Btn_Show_Current = GUICtrlCreateButton("Show Current", 368, 160, 89, 25) $Btn_Update_Now = GUICtrlCreateButton("Update Now", 368, 192, 89, 25) GUICtrlCreateGroup("", -99, -99, 1, 1) $Gr_Add_Server = GUICtrlCreateGroup("Add Servers", 40, 240, 425, 65) $UI_Add_Server = GUICtrlCreateInput("us.logon.worldofwarcraft.com", 48, 264, 305, 24, -1, $WS_EX_CLIENTEDGE) $Btn_Add_Server = GUICtrlCreateButton("Add Server", 368, 264, 89, 25) GUICtrlSetState(-1, $GUI_DEFBUTTON) GUICtrlCreateGroup("", -99, -99, 1, 1) ;;;;ACCOUNT LOG IN TAB $Tab_Log_In = GUICtrlCreateTabItem("Login") $Gr_Add_Account = GUICtrlCreateGroup("Add Account", 32, 72, 153, 190) GUICtrlCreateLabel("Account Name", 40, 96, 92, 20) GUICtrlSetColor(-1, 0x6FA1D9) GUICtrlCreateLabel("Password", 40, 179, 64, 20) GUICtrlSetColor(-1, 0x6FA1D9) $UI_Password = GUICtrlCreateInput("", 40, 201, 137, 24, -1, $WS_EX_CLIENTEDGE) $UI_Account_Name = GUICtrlCreateInput("", 40, 120, 137, 24, -1, $WS_EX_CLIENTEDGE) $Btn_Add_Account = GUICtrlCreateButton("Add", 40, 150, 65, 25) $Btn_Add_Password = GUICtrlCreateButton("Add", 40, 230, 65, 25) GUICtrlCreateGroup("", -99, -99, 1, 1) $Gr_Accounts = GUICtrlCreateGroup("Accounts", 192, 72, 169, 240) $Li_Accounts = GUICtrlCreateList("*Username...", 200, 96, 153, 108, -1, $WS_EX_CLIENTEDGE) For $g=1 To $accountLines GUICtrlSetData(-1,$account[$g]) Next $Li_Passwords = GUICtrlCreateList("*Password...", 200, 202, 153, 108, -1, $WS_EX_CLIENTEDGE) For $u=1 To $passwordLines GUICtrlSetData(-1,$password[$u]) Next GUICtrlCreateGroup("", -99, -99, 1, 1) $Gr_Account_Options = GUICtrlCreateGroup("Options", 368, 72, 113, 81) $Rad_Enable_Account = GUICtrlCreateRadio("Enabled", 376, 96, 89, 25) ;GUICtrlSetState(-1, $GUI_CHECKED) $Rad_Disable_Account = GUICtrlCreateRadio("Disabled", 376, 120, 97, 25) GUICtrlCreateGroup("", -99, -99, 1, 1) $Gr_Account_Actions = GUICtrlCreateGroup("Actions", 368, 160, 113, 89) $Btn_Delete_Accounts = GUICtrlCreateButton("Delete All", 376, 184, 97, 25) $Btn_Account_Now = GUICtrlCreateButton("Test Now", 376, 216, 97, 25) GUICtrlSetState(-1, $GUI_DEFBUTTON) GUICtrlCreateGroup("", -99, -99, 1, 1) ;;;;CHARACTER SELECT TAB $Tab_Character = GUICtrlCreateTabItem("Char.") $Gr_Character = GUICtrlCreateGroup("Character", 48, 48, 129, 265) $Rad_Char_1 = GUICtrlCreateRadio("Character 1", 56, 72, 97, 17) ;GUICtrlSetState(-1, $GUI_CHECKED) $Rad_Char_2 = GUICtrlCreateRadio("Character 2", 56, 96, 97, 17) $Rad_Char_3 = GUICtrlCreateRadio("Character 3", 56, 120, 97, 17) $Rad_Char_4 = GUICtrlCreateRadio("Character 4", 56, 144, 97, 17) $Rad_Char_5 = GUICtrlCreateRadio("Character 5", 56, 192, 97, 17) $Rad_Char_6 = GUICtrlCreateRadio("Character 6", 56, 168, 97, 17) $Rad_Char_7 = GUICtrlCreateRadio("Character 7", 56, 216, 97, 17) $Rad_Char_8 = GUICtrlCreateRadio("Character 8", 56, 240, 97, 17) $Rad_Char_9 = GUICtrlCreateRadio("Character 9", 56, 264, 97, 17) $Rad_Char_10 = GUICtrlCreateRadio("Character 10", 56, 288, 97, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Gr_Time_Delay = GUICtrlCreateGroup("Time Delay", 184, 48, 153, 169) $Rad_1_Sec = GUICtrlCreateRadio("1 Second", 200, 72, 113, 17) $Rad_5_Sec = GUICtrlCreateRadio("5 Seconds", 200, 96, 121, 17) $Rad_10_Sec = GUICtrlCreateRadio("10 Seconds", 200, 120, 113, 17) ;GUICtrlSetState(-1, $GUI_CHECKED) $Rad_15_Sec = GUICtrlCreateRadio("15 Seconds", 200, 144, 105, 17) $Rad_20_Sec = GUICtrlCreateRadio("20 Seconds", 200, 168, 113, 17) $Rad_25_Sec = GUICtrlCreateRadio("25 Seconds", 200, 192, 105, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Gr_Character_Options = GUICtrlCreateGroup("Options", 344, 48, 121, 81) $Rad_Enable_Character = GUICtrlCreateRadio("Enabled", 352, 72, 105, 17) ;GUICtrlSetState(-1, $GUI_CHECKED) $Rad_Disable_Character = GUICtrlCreateRadio("Disabled", 352, 96, 105, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Gr_Character_Actions = GUICtrlCreateGroup("Actions", 344, 136, 121, 81) $Btn_Character_Now = GUICtrlCreateButton("Test Now", 360, 168, 89, 25) GUICtrlSetState(-1, $GUI_DEFBUTTON) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlCreateLabel("Character: the slot (counting down from top) that a character occupies in the character selection screen.", 184, 224, 286, 52) GUICtrlSetColor(-1, 0x85878C) GUICtrlCreateLabel("Time Delay: the time between logon and automated character selection.", 184, 280, 277, 36) GUICtrlSetColor(-1, 0x85878C) ;;;;ANTI AFK BOT TAB $Tab_Anti_AFK = GUICtrlCreateTabItem("Anti AFK") $Gr_Setup_AFK = GUICtrlCreateGroup("Settings", 51, 62, 409, 180) GUICtrlCreateLabel("-wait time (in seconds) before running Anti AFK. ", 163, 100, 286, 20) GUICtrlCreateLabel("-wait from this amount of time (in seconds) to...", 163, 132, 286, 20) GUICtrlCreateLabel("this amount of time (in seconds) between jumps.", 163, 164, 286, 20) GUICtrlCreateLabel("-number of times to jump.", 163, 196, 286, 20) ;GUICtrlCreateLabel("Note: pressing [F11] will stop Anti AFK." & @CRLF & "Note: all times are in seconds. (60 sec = 1 min)", 170, 250, 294, 40) $UI_Load_Wait = GUICtrlCreateInput("120", 83, 100, 73, 24, -1, $WS_EX_CLIENTEDGE) $UI_Jump_Sleep = GUICtrlCreateInput("60", 83, 132, 73, 24, -1, $WS_EX_CLIENTEDGE) $UI_Jump_Sleep2 = GUICtrlCreateInput("60", 83, 164, 73, 24, -1, $WS_EX_CLIENTEDGE) $UI_Jump_Times = GUICtrlCreateInput("180", 83, 196, 73, 24, -1, $WS_EX_CLIENTEDGE) $Gr_Run_AFK = GUICtrlCreateGroup("Actions", 51, 245, 125, 60) $Btn_Jump_Now = GUICtrlCreateButton("Test Now", 70, 268, 89, 25) GUICtrlSetState(-1, $GUI_DEFBUTTON) $Gr_Run_AFK = GUICtrlCreateGroup("Options", 186, 245, 125, 60) $Rad_Enable_AFK = GUICtrlCreateRadio("Enabled", 210, 264, 80, 17) ;GUICtrlSetState(-1, $GUI_CHECKED) $Rad_Disable_AFK = GUICtrlCreateRadio("Disabled", 210, 284, 80, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) ;;;;LEVEL CALCULATOR TAB $Tab_Level_Calc = GUICtrlCreateTabItem("Calc.") $CLvlLabel = GuiCtrlCreateLabel("Character Level:", 150, 50, 100, 20) $CLvlInput = GuiCtrlCreateInput("1", 250, 50, 30, 20) $CalcButton = GUICtrlCreateButton("Calculate", 285, 50, 80, 20) GUICtrlSetState(-1, $GUI_DEFBUTTON) $Gr_Kill_Calc = GuiCtrlCreateGroup("Number of Monsters You Need to Kill", 60, 80, 390, 155) $Lvl1a = GuiCtrlCreateLabel("1 Level above you:", 260, 110, 115, 50) $aLabel[0] = GuiCtrlCreateLabel("?", 383, 110, 50, 20) $Lvl2a = GuiCtrlCreateLabel("2 levels above you:", 260, 140, 120, 50) $aLabel[1] = GuiCtrlCreateLabel("?", 383, 140, 50, 20) $Lvl3a = GuiCtrlCreateLabel("3 levels above you:", 260, 170, 120, 50) $aLabel[2] = GuiCtrlCreateLabel("?", 383, 170, 50, 20) $Lvl4a = GuiCtrlCreateLabel("4 levels above you:", 260, 200, 120, 50) $aLabel[3] = GuiCtrlCreateLabel("?", 383, 200, 50, 20) $Lvl1b = GuiCtrlCreateLabel("1 level below you:" , 80, 110, 110, 50) $bLabel[0] = GuiCtrlCreateLabel("?", 200, 110, 85, 20) $Lvl2b = GuiCtrlCreateLabel("2 levels below you:", 80, 140, 115, 50) $bLabel[1] = GuiCtrlCreateLabel("?", 200, 140, 85, 20) $Lvl3b = GuiCtrlCreateLabel("3 levels below you:", 80, 170, 115, 50) $bLabel[2] = GuiCtrlCreateLabel("?", 200, 170, 85, 20) $Lvl4b = GuiCtrlCreateLabel("4 levels below you:", 80, 200, 115, 50) $bLabel[3] = GuiCtrlCreateLabel("?", 200, 200, 85, 20) $Gr_Other_Calc = GuiCtrlCreateGroup("Other Information", 60, 240, 390, 50) $Mobs = GuiCtrlCreateLabel("Mobs your level:", 80, 262, 100, 100) $MNeededLabel = GUICtrlCreateLabel("?", 182, 262, 100, 20) ;;;;DEV TOOLS TAB $Tab_Process_Edit = GUICtrlCreateTabItem("Tools") $Gr_Setup_AFK = GUICtrlCreateGroup("Choose Priority", 51, 52, 409, 172) $Rad_0_Priority = GUICtrlCreateRadio("0 - Idle/Low", 59, 71, 380, 25) $Rad_1_Priority = GUICtrlCreateRadio("1 - Below Normal (Not supported on Windows 95/98/ME)", 59, 95, 380, 25) $Rad_2_Priority = GUICtrlCreateRadio("2 - Normal", 59, 119, 380, 25) GUICtrlSetState(-1, $GUI_CHECKED) $Rad_3_Priority = GUICtrlCreateRadio("3 - Above Normal (Not supported on Windows 95/98/ME)", 59, 143, 380, 25) $Rad_4_Priority = GUICtrlCreateRadio("4 - High", 59, 167, 380, 25) $Rad_5_Priority = GUICtrlCreateRadio("5 - Realtime (Use with caution, may make the system unstable)", 59, 191, 390, 25) $Btn_Set_Priority = GUICtrlCreateButton("Set Priority", 36, 247, 97, 25) GUICtrlSetState(-1, $GUI_DEFBUTTON) $Btn_Close_WoW = GUICtrlCreateButton("Close WoW", 140, 247, 97, 25) $Btn_Check_Ping = GUICtrlCreateButton("Check Ping", 244, 247, 97, 25) $Btn_Set_On_Top = GUICtrlCreateButton("Always on Top", 348, 247, 97, 25) ;;;;TABS TO COME:;;;; ;;;;MACRO EDIT TAB ;;$Tab_Macro_Edit = GUICtrlCreateTabItem("Macro Edit") ;;;;SETTINGS TAB ;$Tab_Settings = GUICtrlCreateTabItem("Settings") ;;;;LINKS TAB ;$Tab_Links = GUICtrlCreateTabItem("Links") ;$TreeView1 = GUICtrlCreateTreeView(24, 48, 465, 257) ;$TreeView1_0 = GUICtrlCreateTreeViewItem("Exploits, Hacks, Programs", $TreeView1) ;$TreeView1_1 = GUICtrlCreateTreeViewItem("www.mmowned.com", $TreeView1_0) ;$TreeView1_2 = GUICtrlCreateTreeViewItem("www.hsforum.net", $TreeView1_0) ;$TreeView1_3 = GUICtrlCreateTreeViewItem("www.elitepvpers.de", $TreeView1_0) ;$TreeView1_4 = GUICtrlCreateTreeViewItem("Databases", $TreeView1) ;$TreeView1_5 = GUICtrlCreateTreeViewItem("Official Sites", $TreeView1) ;$TreeView1_6 = GUICtrlCreateTreeViewItem("Private Servers", $TreeView1) GUICtrlCreateTabItem("") GUISetState(@SW_SHOW) #endregion ;;;;;;;;;;;;;;;;ABOUT POPUP GUI;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #region About Popup GUI $Ch_About = GUICreate("About", 399, 260, 302, 218) $GroupBox1 = GUICtrlCreateGroup("", 10, 10, 375, 228) $Image1 = GUICtrlCreatePic("C:\Documents and Settings\Candace\Desktop\Joels Crap\Other\leoj-avatar.jpg", 20, 30, 129, 119) GUICtrlCreateLabel("Leoj's WoW Tool", 187, 30, 108, 20) GUICtrlCreateLabel("Version 1.9", 187, 59, 70, 20) GUICtrlCreateLabel("Copyright Leoj (2007)", 20, 168, 129, 20) GUICtrlCreateLabel("Updates at www.MMOwned.com", 20, 200, 215, 20) GUICtrlCreateLabel("LeojCorp@yahoo.com", 240, 200, 140, 20) GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState(@SW_HIDE) #endregion ;;;;;;;;;;;;;;;;MY CREATED FUNCTIONS;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #region _MyCreatedFunctions Opt("SendKeyDelay", 100) Opt("SendKeyDownDelay", 100) $noLaunch = 0 $LoadedProfile = IniRead("settings2.ini", "last profile", "loaded profile", "") Func readProfileNames() $names = IniReadSectionNames("settings.ini") For $p = 1 To (Ubound($names) - 1) GUIctrlSetData($Li_Profiles, $names[$p]) Next ;GUICtrlSetData($Li_Profiles, "[default]") EndFunc Call("readProfileNames") Func loadProfile() If GUICtrlRead($Li_Profiles) = "" Then MsgBox(0, "Error", "No profile selected.") ElseIf GUICtrlRead($Li_Profiles) = "[default]" Then Call("setBackToDefaultProfile") Else ;;;Fullscreen or Minimized (radio)? If IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Rad_Fullscreen", "null") = "checked" Then GUICtrlSetState($Rad_Fullscreen, $GUI_CHECKED) ElseIf IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Rad_Minimized", "null") = "checked" Then GUICtrlSetState($Rad_Minimized, $GUI_CHECKED) EndIf ;;;Silent Mode (checkbox)? If IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Chck_Silent_Mode", "null") = "checked" Then GUICtrlSetState($Chck_Silent_Mode, $GUI_CHECKED) ElseIf IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Chck_Silent_Mode", "null") = "unchecked" Then GUICtrlSetState($Chck_Silent_Mode, $GUI_UNCHECKED) EndIf ;;;Directory (input)? GUICtrlSetData($UI_Directory, IniRead("settings.ini", GUICtrlRead($Li_Profiles), "UI_Directory", "C:\\Program Files\World of Warcraft\")) ;;;Realmlist (input)? GUICtrlSetData($UI_Realmlist_Txt, IniRead("settings.ini", GUICtrlRead($Li_Profiles), "UI_Realmlist_Txt", "realmlist.wtf")) ;;;Server (select)? _GUICtrlListSelectString($Li_Servers, IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Li_Servers", "eu.logon.worldofwarcraft.com")) ;;;Username (select)? _GUICtrlListSelectString($Li_Accounts, IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Li_Accounts", "*Username...")) ;;;Password (select)? _GUICtrlListSelectString($Li_Passwords, IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Li_Passwords", "*Password...")) ;;;Login - Enable/Disable (radio)? If IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Rad_Enable_Account", "null") = "checked" Then GUICtrlSetState($Rad_Enable_Account, $GUI_CHECKED) ElseIf IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Rad_Disable_Account", "null") = "checked" Then GUICtrlSetState($Rad_Disable_Account, $GUI_CHECKED) EndIf ;;;Character (radio)? If IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Rad_Char_1", "null") = "checked" Then GUICtrlSetState($Rad_Char_1, $GUI_CHECKED) ElseIf IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Rad_Char_2", "null") = "checked" Then GUICtrlSetState($Rad_Char_2, $GUI_CHECKED) ElseIf IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Rad_Char_3", "null") = "checked" Then GUICtrlSetState($Rad_Char_3, $GUI_CHECKED) ElseIf IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Rad_Char_4", "null") = "checked" Then GUICtrlSetState($Rad_Char_4, $GUI_CHECKED) ElseIf IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Rad_Char_5", "null") = "checked" Then GUICtrlSetState($Rad_Char_5, $GUI_CHECKED) ElseIf IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Rad_Char_6", "null") = "checked" Then GUICtrlSetState($Rad_Char_6, $GUI_CHECKED) ElseIf IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Rad_Char_7", "null") = "checked" Then GUICtrlSetState($Rad_Char_7, $GUI_CHECKED) ElseIf IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Rad_Char_8", "null") = "checked" Then GUICtrlSetState($Rad_Char_8, $GUI_CHECKED) ElseIf IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Rad_Char_9", "null") = "checked" Then GUICtrlSetState($Rad_Char_9, $GUI_CHECKED) ElseIf IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Rad_Char_10", "null") = "checked" Then GUICtrlSetState($Rad_Char_10, $GUI_CHECKED) EndIf ;;;Time Delay (radio)? If IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Rad_1_Sec", "null") = "checked" Then GUICtrlSetState($Rad_1_Sec, $GUI_CHECKED) ElseIf IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Rad_5_Sec", "null") = "checked" Then GUICtrlSetState($Rad_5_Sec, $GUI_CHECKED) ElseIf IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Rad_10_Sec", "null") = "checked" Then GUICtrlSetState($Rad_10_Sec, $GUI_CHECKED) ElseIf IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Rad_15_Sec", "null") = "checked" Then GUICtrlSetState($Rad_15_Sec, $GUI_CHECKED) ElseIf IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Rad_20_Sec", "null") = "checked" Then GUICtrlSetState($Rad_20_Sec, $GUI_CHECKED) ElseIf IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Rad_25_Sec", "null") = "checked" Then GUICtrlSetState($Rad_25_Sec, $GUI_CHECKED) EndIf ;;;Char. - Enable/Disable (radio)? If IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Rad_Enable_Character", "null") = "checked" Then GUICtrlSetState($Rad_Enable_Character, $GUI_CHECKED) ElseIf IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Rad_Disable_Character", "null") = "checked" Then GUICtrlSetState($Rad_Disable_Character, $GUI_CHECKED) EndIf ;;;Wait time b4 anti AFK (input)? GUICtrlSetData($UI_Load_Wait, IniRead("settings.ini", GUICtrlRead($Li_Profiles), "UI_Load_Wait", "120")) ;;;Wait from this time... (input)? GUICtrlSetData($UI_Jump_Sleep, IniRead("settings.ini", GUICtrlRead($Li_Profiles), "UI_Jump_Sleep", "60")) ;;;to this time (input)? GUICtrlSetData($UI_Jump_Sleep2, IniRead("settings.ini", GUICtrlRead($Li_Profiles), "UI_Jump_Sleep2", "60")) ;;;Number of times to jump (input)? GUICtrlSetData($UI_Jump_Times, IniRead("settings.ini", GUICtrlRead($Li_Profiles), "UI_Jump_Times", "180")) ;;;Anti AFK - Enable/Disable (radio)? If IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Rad_Enable_AFK", "null") = "checked" Then GUICtrlSetState($Rad_Enable_AFK, $GUI_CHECKED) ElseIf IniRead("settings.ini", GUICtrlRead($Li_Profiles), "Rad_Disable_AFK", "null") = "checked" Then GUICtrlSetState($Rad_Disable_AFK, $GUI_CHECKED) EndIf ;;;Character Level (input)? GUICtrlSetData($CLvlInput, IniRead("settings.ini", GUICtrlRead($Li_Profiles), "CLvlInput", "1")) ;;;End--- $LoadedProfile = GUICtrlRead($Li_Profiles) GUICtrlSetData($Label_Profile, "Loaded Profile: " & GUICtrlRead($Li_Profiles)) EndIf EndFunc Func saveProfile() If GUICtrlRead($UI_Add_Profile) = "" Then MsgBox(0, "Error", "No profile name entered.") Else ;;;Fullscreen or Minimized (radio)? If GUICtrlRead($Rad_Fullscreen) = 1 Then IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Fullscreen", "checked") Else IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Fullscreen", "unchecked") EndIf If GUICtrlRead($Rad_Minimized) = 1 Then IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Minimized", "checked") Else IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Minimized", "unchecked") EndIf ;;;Silent Mode (checkbox)? If GUICtrlRead($Chck_Silent_Mode) = 1 Then IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Chck_Silent_Mode", "checked") Else IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Chck_Silent_Mode", "unchecked") EndIf ;;;Directory (input)? IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "UI_Directory", GUICtrlRead($UI_Directory)) ;;;Relmlist (input)? IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "UI_Realmlist_Txt", GUICtrlRead($UI_Realmlist_Txt)) ;;;Server (select)? IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Li_Servers", GUICtrlRead($Li_Servers)) ;;;Username (select)? IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Li_Accounts", GUICtrlRead($Li_Accounts)) ;;;Password (select)? IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Li_Passwords", GUICtrlRead($Li_Passwords)) ;;;Login - Enable/Disable (radio)? If GUICtrlRead($Rad_Enable_Account) = 1 Then IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Enable_Account", "checked") Else IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Enable_Account", "unchecked") EndIf If GUICtrlRead($Rad_Disable_Account) = 1 Then IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Disable_Account", "checked") Else IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Disable_Account", "unchecked") EndIf ;;;Character (radio)? If GUICtrlRead($Rad_Char_1) = 1 Then IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Char_1", "checked") Else IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Char_1", "unchecked") EndIf If GUICtrlRead($Rad_Char_2) = 1 Then IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Char_2", "checked") Else IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Char_2", "unchecked") EndIf If GUICtrlRead($Rad_Char_3) = 1 Then IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Char_3", "checked") Else IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Char_3", "unchecked") EndIf If GUICtrlRead($Rad_Char_4) = 1 Then IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Char_4", "checked") Else IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Char_4", "unchecked") EndIf If GUICtrlRead($Rad_Char_5) = 1 Then IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Char_5", "checked") Else IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Char_5", "unchecked") EndIf If GUICtrlRead($Rad_Char_6) = 1 Then IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Char_6", "checked") Else IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Char_6", "unchecked") EndIf If GUICtrlRead($Rad_Char_7) = 1 Then IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Char_7", "checked") Else IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Char_7", "unchecked") EndIf If GUICtrlRead($Rad_Char_8) = 1 Then IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Char_8", "checked") Else IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Char_8", "unchecked") EndIf If GUICtrlRead($Rad_Char_9) = 1 Then IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Char_9", "checked") Else IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Char_9", "unchecked") EndIf If GUICtrlRead($Rad_Char_10) = 1 Then IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Char_10", "checked") Else IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Char_10", "unchecked") EndIf ;;;Time Delay (radio)? If GUICtrlRead($Rad_1_Sec) = 1 Then IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_1_Sec", "checked") Else IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_1_Sec", "unchecked") EndIf If GUICtrlRead($Rad_5_Sec) = 1 Then IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_5_Sec", "checked") Else IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_5_Sec", "unchecked") EndIf If GUICtrlRead($Rad_10_Sec) = 1 Then IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_10_Sec", "checked") Else IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_10_Sec", "unchecked") EndIf If GUICtrlRead($Rad_15_Sec) = 1 Then IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_15_Sec", "checked") Else IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_15_Sec", "unchecked") EndIf If GUICtrlRead($Rad_20_Sec) = 1 Then IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_20_Sec", "checked") Else IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_20_Sec", "unchecked") EndIf If GUICtrlRead($Rad_25_Sec) = 1 Then IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_25_Sec", "checked") Else IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_25_Sec", "unchecked") EndIf ;;;Char. - Enable/Disable (radio)? If GUICtrlRead($Rad_Enable_Character) = 1 Then IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Enable_Character", "checked") Else IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Enable_Character", "unchecked") EndIf If GUICtrlRead($Rad_Disable_Character) = 1 Then IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Disable_Character", "checked") Else IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Disable_Character", "unchecked") EndIf ;;;Wait time b4 anti AFK (input)? IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "UI_Load_Wait", GUICtrlRead($UI_Load_Wait)) ;;;Wait from this time... (input)? IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "UI_Jump_Sleep", GUICtrlRead($UI_Jump_Sleep)) ;;;to this time (input)? IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "UI_Jump_Sleep2", GUICtrlRead($UI_Jump_Sleep2)) ;;;Number of times to jump (input)? IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "UI_Jump_Times", GUICtrlRead($UI_Jump_Times)) ;;;Anti AFK - Enable/Disable (radio)? If GUICtrlRead($Rad_Enable_AFK) = 1 Then IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Enable_AFK", "checked") Else IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Enable_AFK", "unchecked") EndIf If GUICtrlRead($Rad_Disable_AFK) = 1 Then IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Disable_AFK", "checked") Else IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "Rad_Disable_AFK", "unchecked") EndIf ;;;Character Level (input)? IniWrite("settings.ini", GUICtrlRead($UI_Add_Profile), "CLvlInput", GUICtrlRead($CLvlInput)) ;;;End--- GUICtrlSetData($Label_Profile, "Loaded Profile: " & GUICtrlRead($UI_Add_Profile)) $LoadedProfile = GUICtrlRead($UI_Add_Profile) GUICtrlSetData($UI_Add_Profile, "") Call("readProfileNames") _GUICtrlListSelectString($Li_Profiles, $LoadedProfile) EndIf EndFunc Func deleteAllProfiles() $file10 = FileOpen("settings.ini", 2) If $file10 = -1 Then MsgBox(0, "Error", "Cannot find settings.ini.") Exit EndIf FileClose($file10) IniWrite("settings2.ini", "last profile", "loaded profile", "") $LoadedProfile = "" Call("setBackToDefaultProfile") GUICtrlSetData($Li_Profiles, "") GUICtrlSetData($Li_Profiles, "[default]") Call("readProfileNames") Call("selectOnProfileList") EndFunc Func deleteSelectedProfile() $Check1 = GUICtrlRead($Li_Profiles) $Check2 = IniRead("settings2.ini", "last profile", "loaded profile", "") If $Check1 = $Check2 Then ;;;If the currently selected profile (the one the user is trying to delete) as specified by the ini is = to the currently loaded profile... Then do... IniWrite("settings2.ini", "last profile", "loaded profile", "") ;;;erase the loaded profile from the ini. $LoadedProfile = "" ;;;Make the currently loaded profile = nothing because it is going to be deleted. Call("setBackToDefaultProfile") ;;;reset all settings ElseIf $LoadedProfile = $Check1 Then ;;;Or if the currently selected profile as specified by the variable $LoadedProfile is = to the currently loaded profile... Then do... $LoadedProfile = "" ;;;Make the currently loaded profile = nothing because it is going to be deleted. Call("setBackToDefaultProfile") ;;;reset all settings EndIf IniDelete("settings.ini", $Check1) GUICtrlSetData($Li_Profiles, "") ;;;clear the profile list of all contents before refreshing. GUICtrlSetData($Li_Profiles, "[default]") Call("readProfileNames") ;;;refresh the profile list. Call("selectOnProfileList") EndFunc Func selectOnProfileList() If $LoadedProfile = "" Then _GUICtrlListSelectString($Li_Profiles, "[default]") Else _GUICtrlListSelectString($Li_Profiles, $LoadedProfile) EndIf EndFunc Func getLastProfile() ;;;===> to be run on startup $LastProfile = IniRead("settings2.ini", "last profile", "loaded profile", "") If $LastProfile = "" Then Call("setBackToDefaultProfile") Else ;;;===> do a mass update of these from load when load is done! ;;;Fullscreen or Minimized? If IniRead("settings.ini", $LastProfile, "Rad_Fullscreen", "null") = "checked" Then GUICtrlSetState($Rad_Fullscreen, $GUI_CHECKED) ElseIf IniRead("settings.ini", $LastProfile, "Rad_Minimized", "null") = "checked" Then GUICtrlSetState($Rad_Minimized, $GUI_CHECKED) EndIf ;;;Silent Mode Checkbox If IniRead("settings.ini", $LastProfile, "Chck_Silent_Mode", "null") = "checked" Then GUICtrlSetState($Chck_Silent_Mode, $GUI_CHECKED) ElseIf IniRead("settings.ini", $LastProfile, "Chck_Silent_Mode", "null") = "unchecked" Then GUICtrlSetState($Chck_Silent_Mode, $GUI_UNCHECKED) EndIf ;;;Select $LastProfile on list in profiles tab _GUICtrlListSelectString($Li_Profiles, $LastProfile) ;;;Directory (input)? GUICtrlSetData($UI_Directory, IniRead("settings.ini", $LastProfile, "UI_Directory", "C:\\Program Files\World of Warcraft\")) ;;;Realmlist (input)? GUICtrlSetData($UI_Realmlist_Txt, IniRead("settings.ini", $LastProfile, "UI_Realmlist_Txt", "realmlist.wtf")) ;;;Server (select)? _GUICtrlListSelectString($Li_Servers, IniRead("settings.ini", $LastProfile, "Li_Servers", "eu.logon.worldofwarcraft.com")) ;;;Username (select)? _GUICtrlListSelectString($Li_Accounts, IniRead("settings.ini", $LastProfile, "Li_Accounts", "*Username...")) ;;;Password (select)? _GUICtrlListSelectString($Li_Passwords, IniRead("settings.ini", $LastProfile, "Li_Passwords", "*Password...")) ;;;Login - Enable/Disable (radio)? If IniRead("settings.ini", $LastProfile, "Rad_Enable_Account", "null") = "checked" Then GUICtrlSetState($Rad_Enable_Account, $GUI_CHECKED) ElseIf IniRead("settings.ini", $LastProfile, "Rad_Disable_Account", "null") = "checked" Then GUICtrlSetState($Rad_Disable_Account, $GUI_CHECKED) EndIf ;;;Character (radio)? If IniRead("settings.ini", $LastProfile, "Rad_Char_1", "null") = "checked" Then GUICtrlSetState($Rad_Char_1, $GUI_CHECKED) ElseIf IniRead("settings.ini", $LastProfile, "Rad_Char_2", "null") = "checked" Then GUICtrlSetState($Rad_Char_2, $GUI_CHECKED) ElseIf IniRead("settings.ini", $LastProfile, "Rad_Char_3", "null") = "checked" Then GUICtrlSetState($Rad_Char_3, $GUI_CHECKED) ElseIf IniRead("settings.ini", $LastProfile, "Rad_Char_4", "null") = "checked" Then GUICtrlSetState($Rad_Char_4, $GUI_CHECKED) ElseIf IniRead("settings.ini", $LastProfile, "Rad_Char_5", "null") = "checked" Then GUICtrlSetState($Rad_Char_5, $GUI_CHECKED) ElseIf IniRead("settings.ini", $LastProfile, "Rad_Char_6", "null") = "checked" Then GUICtrlSetState($Rad_Char_6, $GUI_CHECKED) ElseIf IniRead("settings.ini", $LastProfile, "Rad_Char_7", "null") = "checked" Then GUICtrlSetState($Rad_Char_7, $GUI_CHECKED) ElseIf IniRead("settings.ini", $LastProfile, "Rad_Char_8", "null") = "checked" Then GUICtrlSetState($Rad_Char_8, $GUI_CHECKED) ElseIf IniRead("settings.ini", $LastProfile, "Rad_Char_9", "null") = "checked" Then GUICtrlSetState($Rad_Char_9, $GUI_CHECKED) ElseIf IniRead("settings.ini", $LastProfile, "Rad_Char_10", "null") = "checked" Then GUICtrlSetState($Rad_Char_10, $GUI_CHECKED) EndIf ;;;Time Delay (radio)? If IniRead("settings.ini", $LastProfile, "Rad_1_Sec", "null") = "checked" Then GUICtrlSetState($Rad_1_Sec, $GUI_CHECKED) ElseIf IniRead("settings.ini", $LastProfile, "Rad_5_Sec", "null") = "checked" Then GUICtrlSetState($Rad_5_Sec, $GUI_CHECKED) ElseIf IniRead("settings.ini", $LastProfile, "Rad_10_Sec", "null") = "checked" Then GUICtrlSetState($Rad_10_Sec, $GUI_CHECKED) ElseIf IniRead("settings.ini", $LastProfile, "Rad_15_Sec", "null") = "checked" Then GUICtrlSetState($Rad_15_Sec, $GUI_CHECKED) ElseIf IniRead("settings.ini", $LastProfile, "Rad_20_Sec", "null") = "checked" Then GUICtrlSetState($Rad_20_Sec, $GUI_CHECKED) ElseIf IniRead("settings.ini", $LastProfile, "Rad_25_Sec", "null") = "checked" Then GUICtrlSetState($Rad_25_Sec, $GUI_CHECKED) EndIf ;;;Char. - Enable/Disable (radio)? If IniRead("settings.ini", $LastProfile, "Rad_Enable_Character", "null") = "checked" Then GUICtrlSetState($Rad_Enable_Character, $GUI_CHECKED) ElseIf IniRead("settings.ini", $LastProfile, "Rad_Disable_Character", "null") = "checked" Then GUICtrlSetState($Rad_Disable_Character, $GUI_CHECKED) EndIf ;;;Wait time b4 anti AFK (input)? GUICtrlSetData($UI_Load_Wait, IniRead("settings.ini", $LastProfile, "UI_Load_Wait", "120")) ;;;Wait from this time... (input)? GUICtrlSetData($UI_Jump_Sleep, IniRead("settings.ini", $LastProfile, "UI_Jump_Sleep", "60")) ;;;to this time (input)? GUICtrlSetData($UI_Jump_Sleep2, IniRead("settings.ini", $LastProfile, "UI_Jump_Sleep2", "60")) ;;;Number of times to jump (input)? GUICtrlSetData($UI_Jump_Times, IniRead("settings.ini", $LastProfile, "UI_Jump_Times", "180")) ;;;Anti AFK - Enable/Disable (radio)? If IniRead("settings.ini", $LastProfile, "Rad_Enable_AFK", "null") = "checked" Then GUICtrlSetState($Rad_Enable_AFK, $GUI_CHECKED) ElseIf IniRead("settings.ini", $LastProfile, "Rad_Disable_AFK", "null") = "checked" Then GUICtrlSetState($Rad_Disable_AFK, $GUI_CHECKED) EndIf ;;;Character Level (input)? GUICtrlSetData($CLvlInput, IniRead("settings.ini", $LastProfile, "CLvlInput", "1")) ;;;;make sure [default] is in profile list GUICtrlSetData($Li_Profiles, "[default]") EndIf EndFunc Call("getLastProfile") Func setLastProfile() ;;;===> to be run on shutdown IniWrite("settings2.ini", "last profile", "loaded profile", $LoadedProfile) EndFunc Func setBackToDefaultProfile() GUICtrlSetData($Li_Profiles, "[default]") GUICtrlSetData($Label_Profile, "Loaded Profile: [default]") _GUICtrlListSelectString($Li_Profiles, "[default]") ;;;Fullscreen or Minimized (radio)? GUICtrlSetState($Rad_Minimized, $GUI_CHECKED) ;;;Silent Mode (checkbox) GUICtrlSetState($Chck_Silent_Mode, $GUI_CHECKED) ;;;Directory (input)? GUICtrlSetData($UI_Directory, "C:\\Program Files\World of Warcraft\") ;;;Realmlist (input)? GUICtrlSetData($UI_Realmlist_Txt, "realmlist.wtf") ;;;Server (select)? _GUICtrlListSelectString($Li_Servers, "us.logon.worldofwarcraft.com") ;;;Username (select)? _GUICtrlListSelectString($Li_Accounts, "*Username...") ;;;Password (select)? _GUICtrlListSelectString($Li_Passwords, "*Password...") ;;;Login - Enable/Disable (radio)? GUICtrlSetState($Rad_Disable_Account, $GUI_CHECKED) ;;;Character (radio)? GUICtrlSetState($Rad_Char_1, $GUI_CHECKED) ;;;Time Delay (radio)? GUICtrlSetState($Rad_10_Sec, $GUI_CHECKED) ;;;Char. - Enable/Disable (radio)? GUICtrlSetState($Rad_Disable_Character, $GUI_CHECKED) ;;;Wait time b4 anti AFK (input)? GUICtrlSetData($UI_Load_Wait, "120") ;;;Wait from this time... (input)? GUICtrlSetData($UI_Jump_Sleep, "60") ;;;to this time (input)? GUICtrlSetData($UI_Jump_Sleep2, "60") ;;;Number of times to jump (input)? GUICtrlSetData($UI_Jump_Times, "180") ;;;Anti AFK - Enable/Disable (radio)? GUICtrlSetState($Rad_Disable_AFK, $GUI_CHECKED) ;;;Character Level (input)? GUICtrlSetData($CLvlInput, "1") EndFunc Func theExit() Call("setLastProfile") Exit EndFunc Func showAboutGUI() GUISetState(@SW_SHOW, $Ch_About) EndFunc Func closeGUIWindow() If WinActive("About") Then GUISetState(@SW_HIDE, $Ch_About) ElseIf WinActive("Leoj's WoW Tool") Then Call("setLastProfile") Exit Else Exit EndIf EndFunc Func checkBeforeLaunch() If GUICtrlRead($Li_Accounts) = "*Username..." Then MsgBox(0, "Error", "You have not selected a username.") $noLaunch = 1 ElseIf GUICtrlRead($Li_Passwords) = "*Password..." Then MsgBox(0, "Error", "You have not selected a password.") $noLaunch = 1 EndIf EndFunc Func launchGame() TrayTip("Leoj's WoW Tool", "Launching World of Warcraft...", 5, 0) $Does_Dir_Exist = DirGetSize(GUICtrlRead($UI_Directory), 2) If $Does_Dir_Exist <= -1 Then MsgBox(0, "Error", "Directory may not exist.") ElseIf WinExists("World of Warcraft") = 0 Then Run(GUICtrlRead($UI_Directory) & "WoW.exe", "", @SW_SHOWDEFAULT) Else TrayTip("Leoj's WoW Tool", "World of Warcraft detected...", 5, 0) Sleep(1000) EndIf EndFunc $n = WinGetTitle("") $tray = 0 $tray2 = 0 $stop = 0 $stop2 = 0 $hide = 0 Func hideAfterLaunch() WinWait("World of Warcraft") If GUICtrlRead($Chck_Silent_Mode) = 1 Then WinSetState("World of Warcraft","",@SW_MINIMIZE) If GUICtrlRead($Rad_Fullscreen) == 1 Then WinSetState("World of Warcraft","",@SW_SHOW) ;;;changed from showdefault EndIf WinSetState("World of Warcraft","",@SW_HIDE) TrayTip("Leoj's WoW Tool", "WoW has been hidden. Please wait...", 5, 0) Sleep(2000) EndIf If GUICtrlRead($Chck_Silent_Mode) = 1 Then $hide = 1 Else $hide = 0 EndIf EndFunc Func checkBeforeLogin() If WinExists("World of Warcraft") Then HotKeySet("{F11}") HotKeySet("{F11}", "stopScript") $tray2 = 0 ;will tell us that script has stopped only if it was already running $stop2 = 0 $wait3 = 0 $once = 0 $state = WinGetState("World of Warcraft", "") If NOT WinExists("World of Warcraft") Then Do Sleep(1000) $wait3 = $wait3 + 1 Until $stop2 = 1 OR $wait3 = 10 EndIf $m = 0 $checked = 0 TrayTip("Leoj's WoW Tool", "Checking if WoW is ready to receive info..." & @CRLF & "Press [F11] to cancel the check.", 20, 0) Do $tray2 = 1 If $stop2 = 1 Then Return '' $wait3 = 0 If $once > 0 Then Do Sleep(1000) $wait3 = $wait3 + 1 Until $stop2 = 1 OR $wait3 = 15 EndIf ClipPut(" ") If $stop2 = 1 Then Return '' sleep(300) If $stop2 = 1 Then Return '' ControlSend("World of Warcraft", "", "", "{CTRLDOWN}{a}{CTRLUP}") If $stop2 = 1 Then Return '' sleep(300) If $stop2 = 1 Then Return '' ControlSend("World of Warcraft", "", "", "1010") If $stop2 = 1 Then Return '' sleep(300) If $stop2 = 1 Then Return '' ControlSend("World of Warcraft", "", "", "{CTRLDOWN}{a}{CTRLUP}") sleep(200) If $stop2 = 1 Then Return '' If $hide = 1 Then WinSetState("World of Warcraft","",@SW_HIDE) EndIf $n = WinGetTitle("") If NOT WinActive("World of Warcraft") Then WinActivate("World of Warcraft") If $stop2 = 1 Then Return '' If GUICtrlRead($Chck_Silent_Mode) = 1 Then If GUICtrlRead($Rad_Fullscreen) == 1 Then WinSetState("World of Warcraft","",@SW_MINIMIZE) EndIf EndIf If $stop2 = 1 Then Return '' If $hide = 1 Then WinSetState("World of Warcraft","",@SW_HIDE) EndIf If $stop2 = 1 Then Return '' If GUICtrlRead($Rad_Fullscreen) == 1 Then TrayTip("Leoj's WoW Tool", "Please wait 4 seconds - Opening WoW." & @CRLF & "Your mouse and keyboard has been diabled.", 6) BlockInput(1) Sleep(4000) BlockInput(0) ;sleep(4000) ;;;user may click some other window during this time!! -- Wait only needed when in fullscreen mode. EndIf If $stop2 = 1 Then Return '' ControlSend("World of Warcraft", "", "", "{CTRLDOWN}{c}{CTRLUP}") If $stop2 = 1 Then Return '' sleep(200) If $stop2 = 1 Then Return '' If GUICtrlRead($Chck_Silent_Mode) = 1 Then If $n <> "Leoj's WoW Tool" Then WinActivate($n) EndIf EndIf If $stop2 = 1 Then Return '' sleep(200) If $stop2 = 1 Then Return '' sleep(200) If $stop2 = 1 Then Return '' If ClipGet() == 1010 Then TrayTip("this clears any tray tip","",0) Call("accountNow") $m = 1 EndIf $once = $once + 1 $checked = $checked + 1 If $checked > 6 Then TrayTip("Clear Current Tips", "", 0) MsgBox(0, "Error", "LWT did not find WoW ready to accept the account info." & @CRLF & "Make sure the account field (and not the password field) is selected within WoW.") Return '' EndIf If $checked >= 4 Then TrayTip("Leoj's WoW Tool", "Checked " & $checked & " times. There must be an error." & @CRLF & "Please wait while WoW is debugged." & @CRLF & "Press [F11] to cancel.", 25, 0) If $stop2 = 1 Then Return '' If WinExists("World of Warcraft") Then $once = 0 $hide = 0 WinSetState("World of Warcraft","",@SW_SHOW) If $stop2 = 1 Then Return '' WinActivate("World of Warcraft") If $stop2 = 1 Then Return '' Else $stop2 = 10 EndIf Else TrayTip("Leoj's WoW Tool", "WoW is not ready to receive account info yet." & @CRLF & "Checked " & $checked & " times." & @CRLF & "Press [F11] to cancel the check.", 25, 0) EndIf Until $m = 1 Else MsgBox(0, "Error", "Please start WoW and enter the login screen. Then rerun the logon script.") EndIf TrayTip("this clears any tray tip","",0) $once = 0 $hide = 0 EndFunc Func accountNow() If GUICtrlRead($Li_Accounts) = "*Username..." Then MsgBox(0, "Error", "You have not selected a username.") ElseIf GUICtrlRead($Li_Passwords) = "*Password..." Then MsgBox(0, "Error", "You have not selected a password.") Else $tray = 0 If WinExists("World of Warcraft") Then TrayTip("Leoj's WoW Tool", "Now running the login script.", 5, 0) ;ControlSend("World of Warcraft", "", "", "{CTRLDOWN}{a}{CTRLUP}{DEL}") ;Sleep(300) ControlSend("World of Warcraft", "", "", GUICtrlRead($Li_Accounts)) Sleep(300) ControlSend("World of Warcraft", "", "", "{TAB}") Sleep(300) ControlSend("World of Warcraft", "", "", GUICtrlRead($Li_Passwords)) Sleep(1000) ControlSend("World of Warcraft", "", "", "{ENTER}") Else MsgBox(0, "Error", "Please start WoW and enter the login screen. Then rerun the logon script.") EndIf If WinExists("World of Warcraft") == 1 Then TrayTip("Leoj's WoW Tool", "Login complete.", 5, 0) EndIf EndIf EndFunc Func characterSelectNow() If GUICtrlRead($Rad_Char_1) = 1 Then $Rad_Char_Pick = 0 ElseIf GUICtrlRead($Rad_Char_2) = 1 Then $Rad_Char_Pick = 1 ElseIf GUICtrlRead($Rad_Char_3) = 1 Then $Rad_Char_Pick = 2 ElseIf GUICtrlRead($Rad_Char_4) = 1 Then $Rad_Char_Pick = 3 ElseIf GUICtrlRead($Rad_Char_5) = 1 Then $Rad_Char_Pick = 4 ElseIf GUICtrlRead($Rad_Char_6) = 1 Then $Rad_Char_Pick = 5 ElseIf GUICtrlRead($Rad_Char_7) = 1 Then $Rad_Char_Pick = 6 ElseIf GUICtrlRead($Rad_Char_8) = 1 Then $Rad_Char_Pick = 7 ElseIf GUICtrlRead($Rad_Char_9) = 1 Then $Rad_Char_Pick = 8 ElseIf GUICtrlRead($Rad_Char_10) = 1 Then $Rad_Char_Pick = 9 Else $Rad_Char_Pick = 1 EndIf If GUICtrlRead($Rad_1_Sec) = 1 Then $Rad_Sec_Pick = 1000 ElseIf GUICtrlRead($Rad_5_Sec) = 1 Then $Rad_Sec_Pick = 5000 ElseIf GUICtrlRead($Rad_10_Sec) = 1 Then $Rad_Sec_Pick = 10000 ElseIf GUICtrlRead($Rad_15_Sec) = 1 Then $Rad_Sec_Pick = 15000 ElseIf GUICtrlRead($Rad_20_Sec) = 1 Then $Rad_Sec_Pick = 20000 ElseIf GUICtrlRead($Rad_25_Sec) = 1 Then $Rad_Sec_Pick = 25000 Else $Rad_Sec_Pick = 10000 EndIf If WinExists("World of Warcraft") Then TrayTip("Leoj's WoW Tool", "Now running the character selection script.", 5, 0) Sleep($Rad_Sec_Pick) TrayTip("Leoj's WoW Tool", "Now selecting the character.", 5, 0) $n = WinGetTitle("") If NOT WinActive("World of Warcraft") Then WinActivate("World of Warcraft") WinSetState("World of Warcraft","",@SW_SHOW) WinActivate("World of Warcraft") If GUICtrlRead($Rad_Fullscreen) == 1 Then TrayTip("Leoj's WoW Tool", "Please wait while WoW is opened." & @CRLF & "Your mouse and keyboard has been diabled.", 6) BlockInput(1) WinWaitActive("World of Warcraft") BlockInput(0) Else BlockInput(1) WinWaitActive("World of Warcraft") BlockInput(0) EndIf $size2 = WinGetPos("World of Warcraft") BlockInput (1) MouseClick("left", $size2[0]+($size2[2]*.8),$size2[1]+($size2[3]*.19), 1, 0) Sleep(300) MouseClick("left") BlockInput (0) sleep(200) If GUICtrlRead($Chck_Silent_Mode) = 1 Then WinSetState("World of Warcraft","",@SW_HIDE) EndIf If GUICtrlRead($Chck_Silent_Mode) = 1 Then If $n <> "Leoj's WoW Tool" Then WinActivate($n) EndIf EndIf $sendRepeat = 0 Do ControlSend("World of Warcraft", "", "", "{DOWN}") Sleep(1000) $sendRepeat = $sendRepeat + 1 Until $sendRepeat >= $Rad_Char_Pick Sleep(1000) ControlSend("World of Warcraft", "", "", "{ENTER}") Else MsgBox(0, "Error", "Please start WoW and enter the character selection screen. Then rerun the character selection script.") EndIf If WinExists("World of Warcraft") == 1 Then TrayTip("Leoj's WoW Tool", "Character selection complete.", 5, 0) EndIf EndFunc Func stopScript() $stop2 = 1 If $tray2 = 1 Then TrayTip("Leoj's WoW Tool", "The script has been stopped.", 1, 0) $tray2 = 0 EndIf EndFunc Func antiAFKnow() HotKeySet("{F11}") HotKeySet("{F11}", "stopJump") $tray = 0 ;will tell us that script has stopped only if it was already running $stop = 0 If GUICtrlRead($UI_Jump_Sleep) < 1 Then GUICtrlSetData($UI_Jump_Sleep, 1) EndIf If GUICtrlRead($UI_Jump_Sleep2) < 1 Then GUICtrlSetData($UI_Jump_Sleep2, 1) EndIf If GUICtrlRead($UI_Jump_Times) < 1 Then GUICtrlSetData($UI_Jump_Times, 1) EndIf If GUICtrlRead($UI_Load_Wait) < 1 Then GUICtrlSetData($UI_Load_Wait, 1) EndIf If GUICtrlRead($UI_Jump_Sleep) == GUICtrlRead($UI_Jump_Sleep2) Then $r = GUICtrlRead($UI_Jump_Sleep2) GUICtrlSetData($UI_Jump_Sleep2, $r+1) EndIf While 1 If $stop = 1 Then Return '' If WinExists("World of Warcraft") == 1 Then If $stop = 1 Then Return '' $tray = 1 TrayTip("Leoj's WoW Tool", "Now running the Anti AFK script." & @CRLF & "Press [F11] to cancel.", 5, 0) $wait2 = 0 Do If $stop = 1 Then Return '' Sleep(1000) $wait2 = $wait2 + 1 Until $stop = 1 OR $wait2 = GUICtrlRead($UI_Load_Wait) $delay = 1 $p = 0 While $p <= GUICtrlRead($UI_Jump_Times) If $stop = 1 Then Return '' $wait = 0 TrayTip("Leoj's WoW Tool", Int($delay) & " seconds until next jump." & @CRLF & "Anti AFK has jumped " & $p & " times." & @CRLF & "Press [F11] to stop jumping.", 20, 0) If $stop = 1 Then Return '' Do Sleep(1000) $wait = $wait + 1 Until $stop = 1 OR $wait = Int($delay) If $stop = 1 Then Return '' ControlSend("World of Warcraft", "", "", "{SPACE}") If $stop = 1 Then Return '' $p = $p + 1 $delay = Random(GUICtrlRead($UI_Jump_Sleep),GUICtrlRead($UI_Jump_Sleep2)) If $stop = 1 Then Return '' WEnd TrayTip("Leoj's WoW Tool", "Anti AFK has completed.", 5, 0) Else $tray = 0 MsgBox(0, "Error", "Please log on to your desired character and then rerun Anti AFK.") Return '' EndIf WEnd EndFunc Func stopJump() $stop = 1 If $tray = 1 Then TrayTip("Leoj's WoW Tool", "Anti AFK has been stopped.", 5, 0) $tray = 0 EndIf EndFunc HotKeySet("{F9}", "hideWoW") HotKeySet("{F10}", "hideLWT") Func hideWoW() $hide = 0 $win = WinGetTitle('World of Warcraft') $state = WinGetState("World of Warcraft", "") If BitAnd($state, 2) Then WinSetState($win,'',@SW_HIDE) TrayTip("Leoj's WoW Tool", "WoW has been hidden." & @CRLF & "Press [F9] to show it.", 1, 0) Else WinSetState($win,'',@SW_SHOW) If WinExists("World of Warcraft") == 1 Then TrayTip("Leoj's WoW Tool", "WoW is no longer hidden." & @CRLF & "Press [F9] to hide it.", 1, 0) Else TrayTip("Leoj's WoW Tool", "Cannot hide WoW because it is not running.", 5, 0) EndIf EndIf EndFunc Func hideLWT() $win2 = WinGetTitle("Leoj's WoW Tool") $state2 = WinGetState("Leoj's WoW Tool", "") If BitAnd($state2, 2) Then WinSetState($win2,'',@SW_HIDE) TrayTip("Leoj's WoW Tool", "LWT has been hidden." & @CRLF & "Press [F10] to show it.", 1, 0) Else WinSetState($win2,'',@SW_SHOW) If WinExists("Leoj's WoW Tool") == 1 Then TrayTip("Leoj's WoW Tool", "LWT is no longer hidden." & @CRLF & "Press [F10] to hide it.", 1, 0) EndIf EndIf EndFunc Func setProcessPriority() If GUICtrlRead($Rad_0_Priority) == 1 Then $priority = 0 ElseIf GUICtrlRead($Rad_1_Priority) == 1 Then $priority = 1 ElseIf GUICtrlRead($Rad_2_Priority) == 1 Then $priority = 2 ElseIf GUICtrlRead($Rad_3_Priority) == 1 Then $priority = 3 ElseIf GUICtrlRead($Rad_4_Priority) == 1 Then $priority = 4 ElseIf GUICtrlRead($Rad_5_Priority) == 1 Then $priority = 5 Else $priority = 2 EndIf If WinExists("World of Warcraft") == 1 Then $processId = WinGetProcess("World of Warcraft") ProcessSetPriority($processId, $priority) TrayTip("Leoj's WoW Tool", "Window Title: World of Warcraft" & @CRLF & "Process ID: " & $processId & @CRLF & "Priority: " & $priority, 10) Else MsgBox(0,"Error","World of Warcraft is not running.") EndIf EndFunc Func closeWoW() If WinExists("World of Warcraft") == 1 Then WinKill("World of Warcraft", "") TrayTip("Leoj's WoW Tool", "World of Warcraft has been closed.", 10) Else MsgBox(0,"Error","World of Warcraft window not found.") EndIf EndFunc Func checkPing() $ping = Ping("www.google.com",250) If $ping Then Msgbox(0,"Success","Your current ping is " & $ping & ".") Else Msgbox(0,"Error","Please check your internet connection.") EndIf EndFunc Func updateRealmlist() $Does_Dir_Exist = DirGetSize(GUICtrlRead($UI_Directory), 2) $Var2 = GUICtrlRead($Li_Servers) If $Var2 = "" Then MsgBox(0, "Error", "No server selected.") ElseIf $Does_Dir_Exist <= -1 Then MsgBox(0, "Error", "Directory may be invalid.") Else $file4 = FileOpen(GUICtrlRead($UI_Directory) & GUICtrlRead($UI_Realmlist_Txt), 2) FileWriteLine($file4, "set realmlist " & GUICtrlRead($Li_Servers)) FileClose($file4) $file5 = FileOpen(GUICtrlRead($UI_Directory) & GUICtrlRead($UI_Realmlist_Txt), 0) While 1 $realm2 = FileRead($file5, 9999) If @error = -1 Then ExitLoop MsgBox(0, "Success", "Changed to: " & $realm2) Wend EndIf EndFunc Func currentRealmlist() $file3 = FileOpen(GUICtrlRead($UI_Directory) & GUICtrlRead($UI_Realmlist_Txt), 0) While 1 $realm1 = FileRead($file3, 9999) If @error = -1 Then ExitLoop If $realm1 = "" Then MsgBox(0, "Error", "Directory may be invalid.") ExitLoop EndIf MsgBox(0, "Realmlist Contents", $realm1) Wend FileClose($file3) EndFunc Func deleteAddedRealms() GUICtrlSetData($Li_Servers, "") GUICtrlSetData($Li_Servers, "eu.logon.worldofwarcraft.com") GUICtrlSetData($Li_Servers, "us.logon.worldofwarcraft.com") FileOpen(GUICtrlRead($UI_Realms_Txt), 2) FileClose(GUICtrlRead($UI_Realms_Txt)) EndFunc Func addServer() $file2 = FileOpen(GUICtrlRead($UI_Realms_Txt), 1) FileWriteLine($file2, GUICtrlRead($UI_Add_Server)) FileClose($file2) $Var1 = GUICtrlRead($UI_Add_Server) If $Var1 = "" Then Else GUICtrlSetData($Li_Servers, GUICtrlRead($UI_Add_Server)) EndIf EndFunc Func validateDirectory() $Does_Dir_Exist = DirGetSize(GUICtrlRead($UI_Directory), 2) If $Does_Dir_Exist <= -1 Then MsgBox(0, "Error", "The specified directory is invalid.") ElseIf $Does_Dir_Exist > -1 Then Msgbox(0,"Success","The specified directory is valid.") EndIf If GUICtrlRead($UI_Realmlist_Txt) <> "realmlist.wtf" Then MsgBox(0, "Warning", "A new file will be created if it doesn't already exist." & @CRLF & @CRLF & "[" & GUICtrlRead($UI_Directory) & GUICtrlRead($UI_Realmlist_Txt) & "]") Endif EndFunc Func setDefaults() GUICtrlSetData($UI_Directory, "C:\\Program Files\World of Warcraft\") GUICtrlSetData($UI_Realmlist_Txt, "realmlist.wtf") EndFunc Func accountAdd() If GUICtrlRead($UI_Account_Name) & GUICtrlRead($UI_Password) = "" Then MsgBox(0, "Error", "Please fill in atleast one field.") ElseIf GUICtrlRead($UI_Account_Name) = "" Then MsgBox(0, "Error", "Please enter an account name.") EndIf If GUICtrlRead($UI_Account_Name) <> "" Then $confirmbox = MsgBox(4, "Are you sure?", "Account Name: " & GUICtrlRead($UI_Account_Name)) If $confirmbox = 6 Then $file6 = FileOpen(GUICtrlRead($UI_Accounts_Txt), 1) FileWriteLine($file6, GUICtrlRead($UI_Account_Name)) FileClose($file6) $Var6 = GUICtrlRead($UI_Account_Name) If $Var6 = "" Then Else GUICtrlSetData($Li_Accounts, GUICtrlRead($UI_Account_Name)) EndIf EndIf EndIf EndFunc Func passwordAdd() If GUICtrlRead($UI_Account_Name) & GUICtrlRead($UI_Password) = "" Then MsgBox(0, "Error", "Please fill in atleast one field.") ElseIf GUICtrlRead($UI_Password) = "" Then MsgBox(0, "Error", "Please enter a password.") EndIf If GUICtrlRead($UI_Password) <> "" Then $confirmbox = MsgBox(4, "Are you sure?", "Password: " & GUICtrlRead($UI_Password)) If $confirmbox = 6 Then $file7 = FileOpen(GUICtrlRead($UI_Passwords_Txt), 1) FileWriteLine($file7, GUICtrlRead($UI_Password)) FileClose($file7) $Var7 = GUICtrlRead($UI_Password) If $Var7 = "" Then Else GUICtrlSetData($Li_Passwords, GUICtrlRead($UI_Password)) EndIf EndIf EndIf EndFunc Func deleteLogin() GUICtrlSetData($Li_Accounts, "") GUICtrlSetData($Li_Accounts, "*Username...") FileOpen(GUICtrlRead($UI_Accounts_Txt), 2) FileClose(GUICtrlRead($UI_Accounts_Txt)) GUICtrlSetData($Li_Passwords, "") GUICtrlSetData($Li_Passwords, "*Password...") FileOpen(GUICtrlRead($UI_Passwords_Txt), 2) FileClose(GUICtrlRead($UI_Passwords_Txt)) EndFunc $ontop = 0 Func setOnTop() If $ontop == 0 Then WinSetOnTop("Leoj's WoW Tool", "", 1) $ontop = 1 TrayTip("Leoj's WoW Tool", "LWT has been set to always on top.", 10) ElseIf $ontop == 1 Then WinSetOnTop("Leoj's WoW Tool", "", 0) $ontop = 0 TrayTip("Leoj's WoW Tool", "LWT is no longer set to always on top.", 10) EndIf EndFunc #endregion ;;;;;;;;;;;;;;;BORROWED SCRIPTS;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #region _BorrowedScripts Func _GUIExtraction() ;$DesLvl = GUICtrlRead($DLvlInput) $CharLvl = GUICtrlRead($CLvlInput) $Exp2Lvl = Round ( ( (8 * $CharLvl) + _Diff() ) * _MXP() , -2);XP = ((8 Edited May 21, 2007 by Leoj Link to comment Share on other sites More sharing options...
Leoj Posted May 21, 2007 Author Share Posted May 21, 2007 I think this script is causing the problem somehow... (#3 in previous post) If anyone is looking at this keep in mind that my window handle is "Leoj's WoW Tool"... expandcollapse popup;;;;;; #3 Func characterSelectNow() If GUICtrlRead($Rad_Char_1) = 1 Then $Rad_Char_Pick = 0 ElseIf GUICtrlRead($Rad_Char_2) = 1 Then $Rad_Char_Pick = 1 ElseIf GUICtrlRead($Rad_Char_3) = 1 Then $Rad_Char_Pick = 2 ElseIf GUICtrlRead($Rad_Char_4) = 1 Then $Rad_Char_Pick = 3 ElseIf GUICtrlRead($Rad_Char_5) = 1 Then $Rad_Char_Pick = 4 ElseIf GUICtrlRead($Rad_Char_6) = 1 Then $Rad_Char_Pick = 5 ElseIf GUICtrlRead($Rad_Char_7) = 1 Then $Rad_Char_Pick = 6 ElseIf GUICtrlRead($Rad_Char_8) = 1 Then $Rad_Char_Pick = 7 ElseIf GUICtrlRead($Rad_Char_9) = 1 Then $Rad_Char_Pick = 8 ElseIf GUICtrlRead($Rad_Char_10) = 1 Then $Rad_Char_Pick = 9 Else $Rad_Char_Pick = 1 EndIf If GUICtrlRead($Rad_1_Sec) = 1 Then $Rad_Sec_Pick = 1000 ElseIf GUICtrlRead($Rad_5_Sec) = 1 Then $Rad_Sec_Pick = 5000 ElseIf GUICtrlRead($Rad_10_Sec) = 1 Then $Rad_Sec_Pick = 10000 ElseIf GUICtrlRead($Rad_15_Sec) = 1 Then $Rad_Sec_Pick = 15000 ElseIf GUICtrlRead($Rad_20_Sec) = 1 Then $Rad_Sec_Pick = 20000 ElseIf GUICtrlRead($Rad_25_Sec) = 1 Then $Rad_Sec_Pick = 25000 Else $Rad_Sec_Pick = 10000 EndIf If WinExists("World of Warcraft") Then TrayTip("Leoj's WoW Tool", "Now running the character selection script.", 5, 0) Sleep($Rad_Sec_Pick) TrayTip("Leoj's WoW Tool", "Now selecting the character.", 5, 0) $n = WinGetTitle("") If NOT WinActive("World of Warcraft") Then WinActivate("World of Warcraft") WinSetState("World of Warcraft","",@SW_SHOW) WinActivate("World of Warcraft") If GUICtrlRead($Rad_Fullscreen) == 1 Then TrayTip("Leoj's WoW Tool", "Please wait while WoW is opened." & @CRLF & "Your mouse and keyboard has been diabled.", 6) BlockInput(1) WinWaitActive("World of Warcraft") BlockInput(0) Else BlockInput(1) WinWaitActive("World of Warcraft") BlockInput(0) EndIf $size2 = WinGetPos("World of Warcraft") BlockInput (1) MouseClick("left", $size2[0]+($size2[2]*.8),$size2[1]+($size2[3]*.19), 1, 0) Sleep(300) MouseClick("left") BlockInput (0) sleep(200) If GUICtrlRead($Chck_Silent_Mode) = 1 Then WinSetState("World of Warcraft","",@SW_HIDE) EndIf If GUICtrlRead($Chck_Silent_Mode) = 1 Then If $n <> "Leoj's WoW Tool" Then WinActivate($n) EndIf EndIf $sendRepeat = 0 Do ControlSend("World of Warcraft", "", "", "{DOWN}") Sleep(1000) $sendRepeat = $sendRepeat + 1 Until $sendRepeat >= $Rad_Char_Pick Sleep(1000) ControlSend("World of Warcraft", "", "", "{ENTER}") Else MsgBox(0, "Error", "Please start WoW and enter the character selection screen. Then rerun the character selection script.") EndIf If WinExists("World of Warcraft") == 1 Then TrayTip("Leoj's WoW Tool", "Character selection complete.", 5, 0) EndIf EndFunc Any help appreciated! (as always, but for this in particular) Link to comment Share on other sites More sharing options...
Leoj Posted May 21, 2007 Author Share Posted May 21, 2007 Maybe its something to do with this? $n = WinGetTitle("") ........... ......... ....... ..... ... .. If GUICtrlRead($Chck_Silent_Mode) = 1 Then If $n <> "Leoj's WoW Tool" Then WinActivate($n) EndIf EndIf Link to comment Share on other sites More sharing options...
Leoj Posted May 21, 2007 Author Share Posted May 21, 2007 Still can't figure this one out... Please take a look guys. Link to comment Share on other sites More sharing options...
enaiman Posted May 21, 2007 Share Posted May 21, 2007 Leoj - I wonder which version of AutoIt you're using? There is a well known issue about ControlSend to an "empty" control - in the last versions (3.2.4 ... and beta) this doesn't work as it used to do before. If you don't have the latest AutoIt then download it and install it and try to run your script again. If it doesn't work - try to find and use AutoIt 3.2.0.1 (back then the ControlSend worked fine). I have the same problem with ControlSend and this is the reason why I'm stuck to 3.2.0.1 (in that version it works very well). Unfortunately there isn't a fix to this problem so soon (it might never be ... which saddens me). SNMP_UDF ... for SNMPv1 and v2c so far, GetBulk and a new example script wannabe "Unbeatable" Tic-Tac-Toe Paper-Scissor-Rock ... try to beat it anyway :) Link to comment Share on other sites More sharing options...
Leoj Posted May 22, 2007 Author Share Posted May 22, 2007 Thanks so much for your response! It really helped my sanity. I will let you know if I find a solution based on your comments! Link to comment Share on other sites More sharing options...
Leoj Posted May 22, 2007 Author Share Posted May 22, 2007 This is such a crappy bug! I cannot find an older version of Ai... anyone help me please? Link to comment Share on other sites More sharing options...
Zedna Posted May 22, 2007 Share Posted May 22, 2007 This is such a crappy bug! I cannot find an older version of Ai... anyone help me please?Older Autoit versions are here Resources UDF ResourcesEx UDF AutoIt Forum Search Link to comment Share on other sites More sharing options...
Leoj Posted May 23, 2007 Author Share Posted May 23, 2007 Thanks for the link Zedna. You rock! Link to comment Share on other sites More sharing options...
Zedna Posted May 23, 2007 Share Posted May 23, 2007 If you have problem with ControlSend() then try to use Send() or ControlSetText() Resources UDF ResourcesEx UDF AutoIt Forum Search Link to comment Share on other sites More sharing options...
Leoj Posted May 23, 2007 Author Share Posted May 23, 2007 the only problem is that there are 0 controls in the WoW login window!!! Link to comment Share on other sites More sharing options...
Zedna Posted May 24, 2007 Share Posted May 24, 2007 the only problem is that there are 0 controls in the WoW login window!!!Then use Send() Resources UDF ResourcesEx UDF AutoIt Forum Search 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