AutoHotkey Tutorials

[Lib] Dec2Hex

GarenaZero — Thu, 21 Apr 2011 06:12:33 GMT

Introduction:
Converting Decimal to Hexadecimal is easy with AutoHotkey, doing that again and again makes your script become longer. So I made a function to make it simpler.

The Code:

Code

; Dec2Hex.ahk

Dec2Hex(Var){
; Convert a decimal integer to hexadecimal:
SetFormat, IntegerFast, hex
Dec2Hex += Var ; Sets Dec2Hex (which previously contained 11) to be 0xb.
Dec2Hex .= "" ; Necessary due to the "fast" mode.
SetFormat, IntegerFast, d
StringTrimLeft, Dec2Hex, Dec2Hex, 2 ; removes 0x from the string
StringUpper, Dec2Hex, Dec2Hex ; makes it all caps
sDec2Hex .= Dec2Hex
return sDec2Hex
}

How to Use:
- Move this to your lib directory (i.e. C:\Program Files\AutoHotkey\lib)
- or Add this to your script
- Converting decimal to hex would be like this

Code

% Dec2Hex(Var)

Example:

Code

MsgBox, % Dec2Hex(1000)

Dec2Hex(Var){
; Convert a decimal integer to hexadecimal:
SetFormat, IntegerFast, hex
Dec2Hex += Var ; Sets Dec2Hex (which previously contained 11) to be 0xb.
Dec2Hex .= "" ; Necessary due to the "fast" mode.
SetFormat, IntegerFast, d
StringTrimLeft, Dec2Hex, Dec2Hex, 2
StringUpper, Dec2Hex, Dec2Hex
sDec2Hex .= Dec2Hex
return sDec2Hex
}

That will show a message box containing 3E8, the hex value of 1000.

For GUI Call:

Code

Gui, Add, Text, x6 y7 w50 h20 , Interger:
Gui, Add, Edit, x56 y7 w110 h20 +Center +number ,
Gui, Add, Edit, x6 y57 w160 h20 +Center +ReadOnly ,
Gui, Add, Button, x6 y27 w160 h30 , Convert
Gui, Show,, Dec2Hex
return

GuiClose:
ExitApp

ButtonConvert:
GuiControlGet, IntergerToConvert,, Edit1
GuiControl, Text, Edit2, % Dec2Hex(IntergerToConvert)
return

Dec2Hex(Var){
; Convert a decimal integer to hexadecimal:
SetFormat, IntegerFast, hex
Dec2Hex += Var ; Sets Dec2Hex (which previously contained 11) to be 0xb.
Dec2Hex .= "" ; Necessary due to the "fast" mode.
SetFormat, IntegerFast, d
StringTrimLeft, Dec2Hex, Dec2Hex, 2
StringUpper, Dec2Hex, Dec2Hex
sDec2Hex .= Dec2Hex
return sDec2Hex
}

Just experiment with the example scripts above.

WinCapture

GarenaZero — Mon, 11 Apr 2011 04:57:34 GMT

This is a script to make a mouse capture or mouse trapper or whatever it calls. I added comments so I will not explain them one by one.

You can download the script here, WinCapture.ahk.

Script Code:

Code

; This script is based on Bkid's script.

#Persistent
#NoEnv
#SingleInstance ignore

Menu, Tray, NoStandard ; Removes Tray Menu Standard Items.
Menu, Tray, Add, Exit, ExitSub ; Adds an 'Exit' menu

; Hotkey to be used depends of the coder.
SetScrollLockState, Off ; Makes the capslock state off.
TrayTip, Mouse Capture, Press ScrollLock to start/stop mouse capture., 10 ; Tray tip notice
SetTimer, Label, 5 ; Turns on the timer with 5 milliseconds check.
return

ExitSub:
ExitApp ; Exits the application

; The label which will call the function.
; This is only a sample. You can change them in any way you want.
Label:
GetKeyState, State, ScrollLock, T
if(State = "D"){
  WinCapture("ahk_class Warcraft III", "", 4, 4, 24) ; See the function below.
  WinActivate, ahk_class Warcraft III ; Activates the script.
  Suspend, Off ; Activates the script.
  TrayTip, Mouse Capture, Mouse Capture activated. Press ScrollLock to stop., 10 ; Tray tip notice
}else{
  WinCapture()
  Suspend, On ; Suspends the script
  TrayTip, Mouse Capture, Mouse Capture deactivated. Press ScrollLock to start., 10 ; Tray tip notice
}
return
; Make a function to call for locking the mouse into a window.
; Syntax of the function:
; WinCapture("WinTitle", "WinText", "vBorder", "hBorder", "tBorder")
; WinTitle = The title or class of the window. Use ahk_class if window's class will be used.
; WinText = If present, this parameter must be a substring from a single text element of the target window.
; vBorder = The vertical border. The left and right borders of a window. Commonly about 4 pixels in size.
; hBorder = The horizontal border. The bottom border of a window. Commonly about 4 pixels in size.
; tBorder = The title bar border. Commonly about 24 pixels in size.

; The function.
WinCapture(WinTitle = "", WinText = "", vBorder = "", hBorder = "", tBorder = "") ; => Start of function.
{
  ; Enlarges a variable's holding capacity or frees its memory. Normally, this is necessary only for unusual circumstances such as DllCall.
  VarSetCapacity(VarSetA, 16)
  ; Gets the position of the window.
  WinGetPos, sX, sY, sWidth, sHeight, %WinTitle%, %WinText%
  if(!sWidth and !sHeight){
  DllCall("ClipCursor")
  return, False
  }
  Loop, 4 {
  ; DLL Calls
  DllCall("RtlFillMemory", UInt,&VarSetA+0+A_Index-1, UInt,1, UChar,(sX + hBorder) >> 8*A_Index-8)
  DllCall("RtlFillMemory", UInt,&VarSetA+4+A_Index-1, UInt,1, UChar,(sY + tBorder) >> 8*A_Index-8)
  DllCall("RtlFillMemory", UInt,&VarSetA+8+A_Index-1, UInt,1, UChar,(sWidth + sX - vBorder)>> 8*A_Index-8)
  DllCall("RtlFillMemory", UInt,&VarSetA+12+A_Index-1, UInt,1, UChar,(sHeight + sY - vBorder) >> 8*A_Index-8)
  }
  DllCall("ClipCursor", "UInt", &VarSetA)
  return, True
} ; End of function.

Create a Simple DotA HotKey

GarenaZero — Sun, 27 Mar 2011 07:43:36 GMT

I assume that you already read my first tutorial on how to create a simple hotkey. In this tutorial, we will be going to create a simple DotA Hotkey.

On the previous tutorial, we created a simple hotkey, and today we will going to make a simple DotA Hotkey.

We will use the same syntax, see below, to create the hotkey. Lets say for example the item slot 1 or the item on Numpad7, the upper-left item, the commonly used hotkey is Alt+Q so that's is what we are going to use.

And this is the syntax that we are going to use:

Code

YourHotkey:: Send, [ Keys

YourHotkey = your desired hotkey (!Q or Alt+Q in this example)
Key = the key to press or mouse click

Here is the sample code for sending Numpad7 using Alt+Q.

Code

!Q:: Send, {Numpad7}

For keys like Numpad#, Enter, Space, Shift, etc., the keys should be enclosed by open and close braces or even with the mouse clicks.

Making a Context-Sensitive Hotkey:
You know that the hotkey is not context-sensitive which means that you can use the hotkey anywhere aside Warcraft III. So we will be going to address that. Put this code on the top of your project.

Code

#IfWinActive ahk_class Warcraft III

The code above means that the hotkey will only be effective if the Warcraft III window is active, or simply you are inside Warcraft III.

Full Sample Code:

Code

#IfWinActive ahk_class Warcraft III

!Q:: Send, {Numpad7}
!W:: Send, {Numpad8}
!A:: Send, {Numpad4}
!S:: Send, {Numpad5}
!Z:: Send, {Numpad1}
!X:: Send, {Numpad2}

Create a Simple Hotkey and HotString

GarenaZero — Sun, 27 Mar 2011 07:39:57 GMT

Hello guys. I am here to teach you how to create a simple hotkey using AutoHotkey programming language.

What is AutoHotkey?
AutoHotkey is a free, open source macro-creation and automation software utility which allows users to automate repetitive tasks. Any application user interface can be modified by AutoHotkey (for example, with Emacs style). It is driven by a custom scripting language that is aimed specifically at providing keyboard shortcuts or hotkeys.

What are Hotkeys?
Hotkeys are sometimes referred to as shortcut keys because of their ability to easily trigger an action (such as launching a program or keyboard macro).

Now you know what is AutoHotkey and Hotkey, lets have an example.

Example:
First, create a new AutoHotkey Script file and edit it using notepad, SciTE for AutoHotkey, or any text editor programs possible.

Lets say you want to write your name, for example, "GarenaZero", in every post you make. Also you want it to look like this, "- GarenaZero". It is time consuming and uses few key presses. With the help of AutoHotkey, we will make it simpler.

Syntax:

Code

Hotkey:: Send, YourMessage

Hotkey = the key(s) to be pressed to activate the code
YourMessage= the message you want to show

Lets say your desired hotkey is Alt+G. This will be the code looks like.

Code

!G:: Send, - GarenaZero

"!", without quotes is used for Alt or you can use the word "Alt" itself instead of "!" but the syntax will change from "!G::- GarenaZero" to "Alt & G:: Send,- GarenaZero".

Hotstring:
If you like just to type "-gz" or any string you want to. Here is the way to do it.

Syntax:

Code

::YourString::YourMessage

YourString = the string you want to type instead of typing every single letter
YourMessage= the message you want to show

Here is the code looks like.

Code

::-gz::- Garena Zero

You have to press Enter key or Space Bar to execute the code.

I wish you learn something here. Happy programming.

Web Browser

GarenaZero — Sun, 27 Mar 2011 01:51:26 GMT

We can make a simple web browser in AutoHotkey with the help of COM Standard Library. It was written by Sean, one of the creators of AutoHotkey. You can read the whole post here to know more about this functions.

First download the appropriate library for you to use, depending on your AutoHotkey version. For AutoHotkey Basic users, COM.zip; for AutoHotkey_L users, COM_L.zip; or AutoHotkey64 which has a built-in COM library.

The functions are included int the zipped file, so read them because I will discuss them one-by-one.

Sample Code:

Code

; COM.ahk must be in the same folder of the main application
#Include %A_ScriptDir%\COM.ahk ; Includes COM.ahk

COM_AtlAxWinInit() ; Needed to make the COM functions work

Gui, +LastFound ; It needs to be here
pwb := COM_AtlAxGetControl(COM_AtlAxCreateContainer(WinExist(),0,0,800,600, "Shell.Explorer"))
url := "http://ahktutorials.ucoz.net" ; URL to invoke
COM_Invoke(pwb, "Navigate", url) ; Invoke URL
Gui, Show, w800 h600, Sample Web Browser
return

GuiClose:
ExitApp

Post comments below if you have some questions.

URL Downloader

GarenaZero — Sat, 26 Mar 2011 02:00:39 GMT

We know that the command URLDownloadToFile is a good way to download files from the Internet if you know the URL of an item. You can't use this command with a progress bar of your updater or the other programs that use progress bar.

Thanks to JRG and Sean for this useful script. You can read the whole forum post here.

This is a preliminary/oversimplified version which will show a progress percentage of downloading of a web file.
It's written on request of our dear friend SKAN.

It was become possible due to the ingenious work by JGR, callback.dll , which is absolutely needed in the script.
Many thanks to him.

PS. I used DebugView here to display the percentage.
And, please keep in mind that this is only a test version, so there may be problems. Then, please inform me.

Registered CallBack Version:

Code

sUrl := "http://www.autohotkey.com/download/AutoHotkeyInstall.exe"
sFile := A_Temp . "\AutoHotkeyInstall.exe"

Progress, % "M W" . A_ScreenWidth//2, 0, 0 of 0
VarSetCapacity(vt, 4*11), nParam = 31132253353
Loop, Parse, nParam
  NumPut(RegisterCallback("DownloadProgress", "Fast", A_LoopField, A_Index-1), vt, 4*(A_Index-1))
DllCall("urlmon\URLDownloadToFileA", "Uint", 0, "str", sUrl, "str", sFile, "Uint", 0, "UintP", &vt)

DownloadProgress(pthis, nProgress = 0, nProgressMax = 0, nStatusCode = 0, pStatusText = 0)
{
  If A_EventInfo = 6
  Progress, % p := 100 * nProgress//nProgressMax, %p%, % nProgress . " of " . nProgressMax
  Return 0
}

CallBack.dll Version:

Code

sUrl := "http://download.sysinternals.com/Files/DebugView.zip"
sFile := "C:\DebugView.zip"

DetectHiddenWindows, On
Process, Exist
hAHK := WinExist("ahk_pid " . ErrorLevel)

OnMessage(WM_AHK_Callback := DllCall("RegisterWindowMessage", "str", "WM_AHK_Callback"), "WM_AHK_Callback")

VarSetCapacity(vt, 4*11), hModule := DllCall("LoadLibrary", "str", "callback"), nParams = 31132253353
Loop, Parse, nParams
  EncodeInteger(&vt + 4*(A_Index-1), hCallback%A_Index% := DllCall("callback\callbackit", "Uint", A_LoopField, "Uint", hAHK, "Uint", WM_AHK_Callback, "Uint", A_Index-1))

MsgBox, % DllCall("urlmon\URLDownloadToFileA", "Uint", 0, "str", sUrl, "str", sFile, "Uint", 0x10, "UintP", &vt) . "|" . ErrorLevel . "|" . A_LastError

Loop, 11
  DllCall("GlobalFree", "Uint", hCallback%A_Index%)
DllCall("FreeLibrary", "Uint", hModule)
ExitApp

WM_AHK_Callback(wParam, lParam)
{
  OutputDebug, % wParam <> 6 ? wParam : DecodeInteger(lParam+4)/DecodeInteger(lParam+8) * 100
  Return 0
}

DecodeInteger(ref, nSize = 4)
{
  DllCall("RtlMoveMemory", "int64P", val, "Uint", ref, "Uint", nSize)
  Return val
}

EncodeInteger(ref, val = 0, nSize = 4)
{
  DllCall("RtlMoveMemory", "Uint", ref, "int64P", val, "Uint", nSize)
}

I prefer to use the first scripts but the second is better than the first. Well, it's your choice of what to use.

Unzipper

GarenaZero — Fri, 25 Mar 2011 13:22:39 GMT

This program is to unzip a zipped file into a selected directory via command line. This script needs unzip.exe installed in your Windows directory. Anyway, you can download that here or by using the script I made. If you find bugs, please do tell me.

By the way, this script only supports extracting files into a directory by overwriting the files or doing nothing to existing files with the same name in the extraction folder.

Code

; Thanks to Info-Zip's unzip.exe
; Visit their website at http://www.info-zip.org
; For more information about their product
; Thanks to JGR and Sean for the downloader

#SingleInstance ignore
#NoEnv

Menu, SubMenu , Add, Download unzip.exe, DownloadUnzipEXE
Menu, MainMenu, Add, Menu, :SubMenu
Gui, Menu , MainMenu
Gui, Font, , Courier New
Gui, Add, Text, x6 y7 w360 h20 , AutoHotkey UnZipper
Gui, Add, Text, x6 y37 w110 h20 , File to UnZip:
Gui, Add, Text, x6 y57 w110 h20 , Extract to:
Gui, Add, Edit, x116 y37 w180 h20 , ; File to Extract
Gui, Add, Edit, x116 y57 w180 h20 , ; Extract to
Gui, Add, Button, x296 y37 w70 h20 gButtonSelectFile, Browse
Gui, Add, Button, x296 y57 w70 h20 gButtonSelectPath, Browse
Gui, Add, CheckBox, x116 y77 w250 h20 , Overwrite Existing Files
Gui, Add, Button, x6 y97 w360 h30 gButtonUnzipFile , UnZip
Gui, Show,, AutoHtokey UnZipper
return

GuiClose:
ExitApp

DownloadUnzipEXE:
; Downloads unzip.exe
sUrl = http://stahlworks.com/dev/unzip.exe ; Download source
sFile = %A_WinDir%\unzip.exe ; Destination

Progress, % "M W" . A_ScreenWidth//2, 0, 0 of 0

VarSetCapacity(vt, 4*11), nParam = 31132253353
Loop, Parse, nParam
  NumPut(RegisterCallback("DownloadProgress", "Fast", A_LoopField, A_Index-1), vt, 4*(A_Index-1))
DllCall("urlmon\URLDownloadToFileA", "Uint", 0, "str", sUrl, "str", sFile, "Uint", 0, "UintP", &vt)

DownloadProgress(pthis, nProgress = 0, nProgressMax = 0, nStatusCode = 0, pStatusText = 0)
{
  if A_EventInfo = 6
  Progress, % p := 100 * nProgress//nProgressMax, %p%, % nProgress . " of " . nProgressMax
  return 0
}
WinClose, ahk_class AutoHotkey2
return

ButtonSelectFile:
; Selects a zipped file
FileSelectFile, SelectedFile,,, Select a file to extract, *.zip*
; Changes the Edit1 box with the path of the selected file
GuiControl, Text, Edit1, %SelectedFile%
return

ButtonSelectPath:
; Selects a fodler
FileSelectFolder, SelectedFolder,,, Select a folder where to extract the selected file
; Changes the Edit2 box to the path of the selected folder
GuiControl, Text, Edit2, %SelectedFolder%
return

ButtonUnzipFile:
; If unzip.exe is not existing in Windows directory
IfNotExist, %A_WinDir%\unzip.exe
  MsgBox, 4, AutoHtokey UnZipper, Cannot find unzip.exe in your Windows directory. Do you want to download it now?
  IfMsgBox, Yes
  Gosub, DownloadUnzipEXE
  else
  return

; Gets the texts in the Edit boxes
GuiControlGet, SelectedFile,, Edit1
if (SelectedFile = "") { ; If the text box has to value
  MsgBox, 32, AutoHtokey UnZipper, Please select a file.
  return
}

GuiControlGet, SelectedFolder,, Edit2
if (SelectedFolder = "") { ; If the text box has to value
  MsgBox, 32, AutoHtokey UnZipper, Please select a folder.
  return
}

; Gets if the 'Overwrite Existing File' is checked
GuiControlGet, Overwrite,, Button3
; If the checkbox is checked
if (Overwrite = 1) {
  ; This overwrites existing files without prompting
  RunWait, %ComSpec% /c unzip -o "%SelectedFile%" -d "%SelectedFolder%"
}else{
  ; This never overwrties existing files
  RunWait, %ComSpec% /c unzip -n "%SelectedFile%" -d "%SelectedFolder%"
}
MsgBox, 32, AutoHtokey UnZipper, Files unzipped.
return

Credits:
- InfoZip for unzip.exe
- JGR and Sean for URL downloader

SciTE for AutoHotkey

GarenaZero — Fri, 25 Mar 2011 09:31:19 GMT

SciTE for AutoHotkey is a free editor for AutoHotkey scripts that offers:

Syntax highlighting
AutoIndent
AutoComplete
Calltips (also known as IntelliSense)
Code folding
Custom toolbar
Tools for AutoHotkey scripting

Based on PhiLho's AutoHotkey lexer for Scintilla, this provides a great script editor for both newbies and experienced AutoHotkey users.

Credits:

Neil Hodgson for making Scintilla and SciTE.
Chris Mallett, Steve Gray (Lexikos), Sean and jackieku for making AutoHotkey and AutoHotkey_L.
Philippe Lhoste for making the LexAHK1 lexer.
The AutoHotkey community for making some tools and being incredibly nice:
- Rajat: SmartGUI Creator and SplashImage Maker
- TheGood: TillaGoto
Ice_Tea and Tuncay for the logos.

Download:
BetaInstall_v3_beta4.exe. This program will download and install SciTE4AutoHotkey automatically.
beta4_instdata.bin. Download this file in the same directory as the installer in order to perform offline installs of SciTE.

SmartGUI Creator 4.0

GarenaZero — Fri, 25 Mar 2011 09:11:12 GMT

SmartGUI is a tool for AutoHotkey to create GUI for your applications easily. This is an object-oriented program made by Rajat.

Main Features:

Completely 'What You See Is What You Get' - Move / Resize / Rename / Modify controls to see what the generated GUI will look, in realtime.
GUI Stealer - make copies of existing windows
Grid background (optional) is skinnable
Existing GUI scripts created using SmartGUI are re-editable
GUI count can be set easily from within SmartGUI
Move a group of controls together while keeping their relative position intact!
Its FREE!!
Lots more...

Installation is not actually required. Unzip the file then run the program. Also a Manual is included to help you on making your GUI. What is good about this program is that you can copy a window, although not all the controls cannot be copied like from the GUI made in Visual Basic, but it's working on other windows created in Delphi or C++.

Download:
smartgui.zip (273 KB)

Reduce the Size of Compiled Scripts

GarenaZero — Fri, 25 Mar 2011 05:14:47 GMT

Do you want to reduce the sizes of your compiled scripts? If yes, then this is for you.

First, download AutoHotkey_sc_bin_min_size.zip. Place the extracted file, AutoHotkeySC.bin, to your AutoHotkey Compiler installation directory, commonly "C:\Program Files\AutoHotkey\Compiler\", overwriting the existing file.

It says that it will reduce the size for about 20 kB only but not all the time. Sometimes it reduces about 300 kB.

Any compiled script produced in this fashion will be dependent on MSVCRT.dll. Although this DLL is always present on Windows 2000/XP or later, older operating systems do not necessarily have it.