uber125

Thank you for this, it's almost exactly what I was looking for. 5stars I only have one question. What value(s) are changed to tighten up the grid, I need something just a tad smaller then 100. I know this is resurrection, but I don't see the point in making anew post if question(s) is/are still relevant. NVM I got it, thanks. BTW in case anyone is wondering the same, try adjusting the numbers in the GUICtrlCreateRadio.

I got it working now. Thank you every one! You have helped make my gaming experience(s) more enjoyable. Much appreciated.

You version is working wonderfully. I just can't figure out how to unbind the keys when Enter is hit in game. Basically, I just want the script to become inactive, or "unbound", when the game is either minimized or the window is just inactive. Say if I'm using FireFox to look something up. Or, if I hit the Enter key (in game), then unbind the keys, and send {Enter} after it’s been unbound. then rebind when Enter is hit again (in game), and send {Enter} after it’s been rebound. Also, just FYI the TerminateNReload function was added because sometimes the key binding would get mixed up from spamming. So that was the fastest way I could think of, to make sure everything was bound correctly. Just restart the script. You version doesn't seem to have that issue though. func Chat(); Chat+Unbind HotKeySet("{ENTER}") Send ("{ENTER}") HotKeySet("{ENTER}", "Unbind"); Unbind+Send Enter EndFunc Func Bind() ; register all your hotkeys here HotKeySet("1", "Shot1") HotKeySet("2", "Shot2") HotKeySet("3", "Shot3") HotKeySet("4", "Melee") HotKeySet("5", "Mark") HotKeySet("{ENTER}", "Chat"); Bind+Send Enter EndFunc Func Unbind() ; unregister all your hotkeys here HotKeySet("1") ; keys like 1 don't need HotKeySet("2") HotKeySet("3") HotKeySet("4") HotKeySet("5") HotKeySet("{ENTER}", "Bind"); Unbind+Send Enter Will Send {Enter} but will not unbind/rebind. entire script if you need it. Dim $keysregistered = False While 1 If Not WinExists("Untitled - Notepad") Then Exit If WinActive("Untitled - Notepad") And Not $keysregistered Then Bind() ElseIf Not WinActive("Untitled - Notepad") And $keysregistered Then Unbind() EndIf WEnd func Shot1(); Shot1 HotKeySet("1") Send ("8") Send ("1") EndFunc func Shot2(); Shot2 HotKeySet("2") Send ("q") Send ("w") Send ("e") EndFunc func Chat(); Chat+Unbind HotKeySet("{ENTER}") Send ("{ENTER}") HotKeySet("{ENTER}", "Unbind"); Unbind+Send Enter EndFunc Func Bind() ; register all your hotkeys here HotKeySet("1", "Shot1") HotKeySet("2", "Shot2") HotKeySet("{ENTER}", "Chat"); Bind+Send Enter EndFunc Func Unbind() ; unregister all your hotkeys here HotKeySet("1") ; keys like 1 don't need HotKeySet("2") HotKeySet("{ENTER}", "Bind"); Unbind+Send Enter EndFunc

Well, I thank you for trying snowmaker. Richard Robertson, I'm working with your example, I'll let you know how it goes.

I'm not sure what you mean by Adlib coding. If you're talking about something like this. Func myadlib() If (WinWaitActive("Untitled - Notepad", "")) Then call (TerminateNReload()) ;... EndIf EndFunc It's doesn't work. I keep getting errors saying EndIf has no If.

ok, but why would it be closing if notepad is running, just not active? I've changed notepad to Untitled - Notepad, and it is working properly, the other 2 lines still don't work. Is this because the 1st line is waiting to complete? If so, what can I do about it? If (WinWaitClose("Untitled - Notepad","")) Then call(Close()); Closes the script when window has been closed. If (WinWaitActive("Untitled - Notepad", "")) Then call (TerminateNReload());Relod the script when the window is active again. If (WinWaitNotActive("Untitled - Notepad", "")) Then call (Unbind());Unbind keys when ever the window becomes inactive.

I can't get this to work properly, only the one at the top seems to wonk right... how do I get all of them to work? Not just the one on top. If (WinWaitClose("notepad","")) Then call(Close()); Closes the script when window has been closed. If (WinWaitActive("notepad", "")) Then call (TerminateNReload());Relod the script when the window is active again. If (WinWaitNotActive("notepad", "")) Then call (Unbind());Unbind keys when ever the window becomes inactive. I've also tried, with no success, this. If (WinWaitClose("World of Warcraft","")) Then call(Close()); Closes the script when window has been closed. Elseif (WinWaitActive("World of Warcraft", "")) Then call (TerminateNReload());Relod the script when the window is active again. Elseif (WinWaitNotActive("World of Warcraft", "")) Then call (Unbind());Unbind keys when ever the window becomes inactive. EndIf Func Unbind(); Unbind keys HotkeySet (@HotKeyPressed) Send (@HotKeyPressed) HotKeySet("{1}") HotKeySet("{2}") HotKeySet("{3}") HotKeySet("{4}") HotKeySet("{5}") HotKeySet("{ENTER}", "TerminateNReload") EndFunc Func TerminateNReload(); TerminateNReload the Script HotkeySet (@HotKeyPressed,"TerminateNReload") HotkeySet (@HotKeyPressed) Send(@HotKeyPressed) ShellExecute("test.au3","","","Run") Exit 0 HotKeySet("{ENTER}", "Unbind") EndFunc Func Close() Exit 0 EndFunc What am I missing???

Sry to bump an old post, but I just wanted to let the vista users know that when you install SP1 the Nagle's algorithm issue is fixed.

I doubt it, but it wouldn't hurt to try. BTW I forgot to mention, this only works for Win 2000 and XP. Sorry Vista users.

Hello all! I just wanted to share this scrip with you all. I play a Game called World of Warcraft, and this thread inspired to make a script so I can apply this registry tweak to multiple machines quickly. This script will seek a directory in the Windows registry. I.E. HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces Upon these findings, it will then seek String value with in the sub directory of the above. This sub directory, is where your DHCP IP is listed. I.E. {7DBA6DCA-FFE8-4002-A28F-4D2B57AE8383}. This directory name is different on every PC. However, the String value it is seeking is always named DhcpNameServer. After finding DhcpNameServer It will then will write a new Dword in the same directory as DhcpNameServer. Basically by doing this, it will deactivate the nagle algorithm to improving your ping to a server. Although you may not see any noticeable changes within a small home network, or any lightly used network. In highly interactive environments, such as some client/server "games", you will see a big difference. You can learn more about Nagle's algorithm here. This isnt the only reason I wanted to share this script. I fell this script function can be built upon for other tasks in the windows registry. Enjoy! #cs ---------------------------------------------------------------------------- AutoIt Version: 3.2.12.1 Author: Uber125 Script Function: This script will seek a directory in the Windows registry. I.E. HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces Upon these findings, it will then seek String value with in the sub directory of the above. This sub directory, is where your DHCP IP is listed. I.E. {7DBA6DCA-FFE8-4002-A28F-4D2B57AE8383}. This directory name is different on every PC. However, the String value it is seeking is always named DhcpNameServer. After finding DhcpNameServer It will then will write a new Dword in the same directory as DhcpNameServer. #ce ---------------------------------------------------------------------------- ;Seek String and write new a single Dword in the same directory. $FindPath = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces" For $i= 1 to 10 $Path = RegEnumKey($FindPath, $i) If @error <> 0 then ExitLoop For $Value = 1 to 100 $var = RegEnumVal($FindPath & "\" & $Path, $Value) If @error <> 0 Then ExitLoop If ($var = "DhcpNameServer") Then RegWrite($FindPath & "\" & $Path, "TcpAckFrequency", "REG_DWORD", "00000001") EndIf Next Next ; Write a single REG_DWORD value RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSMQ\Parameters", "TCPNoDelay", "REG_DWORD", "00000001") Exit

Ooooohhhhhhhhh, I see now. Thank you very much.

I hear what you're saying man, but I just don't understand.

Why does this script run each function only one time, and do it not again? I have to restart the script after each function is ran to run it again... why??? Am I missing something here? HotKeySet("6", "Send6Then2");6 HotKeySet("5", "Send5Then3");5 While 1 Sleep(100) WEnd Func Send6Then2() HotkeySet (@HotKeyPressed) Send(@HotKeyPressed) Sleep(300) Send("2") EndFunc Func Send5Then3() HotkeySet (@HotKeyPressed) Send(@HotKeyPressed) Sleep(300) Send("3") EndFunc Func Terminate() Exit 0 EndFunc

Please can anyone out there help me?

Ok, after fooling around with this. I have come to the conclusion that you can NOT "Pause" a Func/EndFunc only While 1/WEND. So My question is. Is it possible to set a Hotkey to read a portion of the script and ignore another until that Hotkey is hit again? Example; I know the above will not work, it's just to help to grasp the concept of what i am trying to accomplish.

Works like a charm! Thanks a million!

Thank you vary much. I'll let you know how it works tomorrow after I implement it.

I'm looking to make a script that will read the keys I'm pushing and for every 1 key I press, it will duplicate it 5 times or more extremely fast. Is it possible with autoit?

because that would make sense... :"> lol thanks I didn't see them in there.

Ok, it works if I maximise the window after lodes.However, I'm trying to get it to just log in once it recognizes a certain color pixel. Hence the loop. CODERun ("C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.hotmail.com/") WinWaitActive("Sign In - Microsoft Internet Explorer") Sleep (300) WinMove("Sign In - Microsoft Internet Explorer", "", 0, 0, 1000, 900) $coord = PixelSearch(152, 497, 152, 497, 0xFF6002, 1) If Not @error Then $checksum = PixelChecksum(152, 497, 152, 497) EndIf If @error Then Do $coord = PixelSearch(152, 497, 152, 497, 0xFF6002, 1) Until not @error EndIf While $checksum = PixelChecksum(152, 497, 152, 497) Sleep(200) WEnd Send ("user@hotmail.com") Send("{TAB}") Send ("password") Send("{ENTER}") Any Ideas?

I have a scrips that does a search. some times the search fails. Is there a way to say; CODE If @error Then run check again EndIf Thus creating a loop, that will allow the search to be preformed until the desired object is found?

Can you run the game in window mode? If so do you get the same result?

Removed file, get it directly via my fileman! WTF is Fileman? I am trying to animate some text in a GUI i think this may help. If some one has another link on how to do this please let me know. Ty.

Hello everyone, I am playing a game called world of warcraft. What I want to know is there a program out there that will read the game with specific detail. Example if I have a certain skill/buff or debuff on would the program know it? If so how could I get Autoit 3 to recognize this string? Or has anyone already made a auto it script that can read a game in this way? If so Link please. I have tried the search but nothing so far has come up that is useful.

Hay I have not had time to look at what you have done yet (damn work) anyways just wanted to say thank you to all that are helping me.