This following script will help you quickly bring up geolocation data for a selected IP address. The script works by copying selected content to the clipboard, which, if it looks like an IPv4 address (e.g. 255.255.255.255), will start “iplocation.net” with your default browser. The IP address is automatically entered as a query. This will give you the geolocation data for the IP address.

Need help creating a keyboard shortcut with ShortKeeper using the following AutoHotkey code? This 5-minute tutorial will help!

ClipSaved := ClipboardAll

Clipboard =

SendInput, ^c

ClipWait, 2

if ErrorLevel 

{

  MsgBox % "Failed attempt to copy text to clipboard."

}

else

{

  IpAddress := Trim(Clipboard)

  FoundPos := RegExMatch(IPAddress, "^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$")

  if (FoundPos)

    Run % "https://www.iplocation.net/?query=" . IpAddress

  else

    MsgBox % "Invalid IPv4 address selected!"

}

Clipboard := ClipSaved 

Run % "chrome.exe " . "https://www.iplocation.net/?query=" . IpAddress

Run % "microsoft-edge:https://www.iplocation.net/?query=" . IpAddress

Run % "firefox.exe " . "https://www.iplocation.net/?query=" . IpAddress

Run % "iexplore.exe " . "https://www.iplocation.net/?query=" . IpAddress

ShortKeeper already has a basic “Launch website” command to let you quickly create a shortcut to launch a web page. But what if you want a shortcut that will launch several web pages at once? ShortKeeper has you covered with its “Run AutoHotkey code” command.

The following three scripts (one for IE, one for Chrome, and one for Firefox) launch four websites (cedeq.com, autohotkey.com, google.com, and bing.com). The scripts are designed to launch all four websites in different tabs inside the same browser window.

Need help creating a keyboard shortcut with ShortKeeper using the following AutoHotkey code? This 5-minute tutorial will help!

Internet Explorer (IE):

Pwb :=  ComObjCreate("InternetExplorer.Application")

Pwb.Visible:=True

Pwb.Navigate("https://www.cedeq.com")

Pwb.Navigate("https://www.autohotkey.com", 2048)

Pwb.Navigate("https://www.google.com", 2048)

Pwb.Navigate("https://www.bing.com", 2048)

run % "chrome.exe " . "https://www.cedeq.com"

winwait ahk_class Chrome_WidgetWin_1

run % "chrome.exe " . "https://www.autohotkey.com"

run % "chrome.exe " . "https://www.google.com"

run % "chrome.exe " . "https://www.bing.com"

run % "firefox.exe " . "https://www.cedeq.com"

winwait ahk_class MozillaWindowClass

run % "firefox.exe " . "https://www.autohotkey.com"

run % "firefox.exe " . "https://www.google.com"

run % "firefox.exe " . "https://www.bing.com"

Nice ShortKeeper review & tutorial:

...There are many application launcher software and software to create shortcuts for frequently used text also available but such software work for a specific purpose only. This software, on the other hand, is multipurpose and therefore good to use. You can also modify and delete any hotkey when you no longer want to use that particular hotkey for a specific command...

...The interface of this free keyboard shortcut manager software is neatly divided into three sections...

...This software is pretty helpful when you perform some common tasks regularly and need some simpler way to perform those tasks. Instead of manually typing a frequently used text, open a file, application, save selected text in a text file, you can set custom hotkeys for all such tasks using this free keyboard shortcut manager. It will make things easier...

See complete article (with pictures) at:

http://www.ilovefreesoftware.com/10/wind...tkeys.html

Thanks Laxman!

Have you ever had to copy and paste text to Microsoft Word just to get a word count? If so, this AutoHotkey script may interest you. It counts how many words are in a selected portion of text (from a website, document, or other), pretty much like the Word Count function in MS Word.

The script counts the number of non-whitespace character groups. The count result is supposed to be the same as MS Word (2010) in English and French languages. So this script will count "It’s AutoHotkey-based" and "Bonjour !" as two words.

Need help creating a keyboard shortcut with ShortKeeper using the following AutoHotkey code? This 5-minute tutorial will help!

ClipSaved := ClipboardAll

Clipboard =

SendInput, ^c

ClipWait, 2

if ErrorLevel 

{

  MsgBox % "Failed attempt to read selected text."

}

else

{

  NewClipboard := Trim(Clipboard)

  Count := 0

  Position := 1 

  while, Position := RegExMatch(NewClipboard, "\S+", Out, Position+Strlen(Out))

    Count++

  MsgBox % "Words :" . Count

}

;Clipboard := ClipSaved 

If you have a todo list document like me that you write in every now and then, you have to know the difference between opening it with the function ''Open document'' and the ''Quick notepad'' one in ShorKeeper. 

When I use my todo list with notepad, I always minimize it instead of closing it because I know it is not the last time I will use it during the day. With ShorKeeper, if I use the "Open document" function to open my todo list, it will work. The problem comes when I minimize it. By doing so, when I will trigger the macro that opens my todo list, it will re-open it instead of bringing back the one I minimized. 

I bet you know what's next! If you minimize your notepad todo list, and you trigger the macro that opens it through the "Quick notepad" function, it will bring back the one you already opened. It is a cleaner way to use it because you always have the latest saved version of your document instead of having 3, 4 or 5 opened todo list on your desktop not knowing which one is the last saved. 

With AutoHotkey you can easily set properties in Microsoft Word (e.g., font size, font name, font style, font color, line spacing, etc.). The following script is designed to set font size. By adapting this script, you can set any property you want in Word using AutoHotkey.

Need help creating a keyboard shortcut with ShortKeeper using the following AutoHotkey code? This 5-minute tutorial will help!

Critical

if WinActive("ahk_class OpusApp")

{

  ControlGet, hwnd, hwnd, , _WwG1, A

  if DllCall("oleacc\AccessibleObjectFromWindow", "Ptr", hwnd, "UInt", 0xFFFFFFF0, "Ptr", -VarSetCapacity(IID,16)+NumPut(0x46000000000000C0, NumPut(132096, IID, "Int64"), "Int64"), "Ptr*", pacc) = 0

    WordApp := ComObject(9, pacc, 1).Application

  WordApp.Selection.Font.Size := 24

}

else

  MsgBox 0x40040, ShortKeeper, There is no Word document window active.

WordApp.Selection.Font.Name  := "Arial Black"

WordApp.Selection.Font.Italic := 1

WordApp.Selection.Font.Bold := 1

WordApp.Selection.Font.Bold := 0

WordApp.Selection.Font.Color := 0xFF0000

WordApp.Selection.ParagraphFormat.LineSpacing := 10.5

Are you looking for a way to quickly open links in new tabs while surfing? The following script will let you do just that without even having to click on your mouse. Simply hover your mouse over a link and use a keyboard shortcut. A new tab will be opened in the web browser, and the view will be switched to the new tab (the new tab will become active). It is the equivalent of holding down Ctrl+Shift while clicking the left mouse button OR right-clicking the link and selecting “Open link in new tab”.

Need help creating a keyboard shortcut with ShortKeeper using the following AutoHotkey code? This 5-minute tutorial will help!

SendInput {ctrl down}{shift down}

Sleep 100

Click

Sleep 100

SendInput {shift up}{ctrl up}

The following AutoHotkey script lets you set a font color in Excel. The script can also be easily adapted to set several other useful commands (like protect/unprotect a worksheet, set a cell formula/color/border, set currency, set conditional formatting, and so on).

The script will set the font color if the Excel worksheet is the active window and is not busy (e.g. editing, selecting a command).

Need help creating a keyboard shortcut with ShortKeeper using the following AutoHotkey code? This 5-minute tutorial will help!

Critical

if WinActive("ahk_class XLMAIN")

{

  ControlGet, hwnd, hwnd, , Excel71, A

  if DllCall("oleacc\AccessibleObjectFromWindow", "Ptr", hwnd, "UInt", 0xFFFFFFF0, "Ptr", -VarSetCapacity(IID,16)+NumPut(0x46000000000000C0, NumPut(132096, IID, "Int64"), "Int64"), "Ptr*", pacc) = 0

    ExcelApp := ComObject(9, pacc, 1).Application

  ExcelApp.Selection.Font.ColorIndex := 3

}

else

  MsgBox 0x40040, ShortKeeper, There is no Excel worksheet window active.

• Auto, 0
  
• Black, 1
  
• White, 2
  
• Red, 3
  
• Bright Green, 4
  
• Blue, 5
  
• Yellow, 6
  
• Pink, 7
  
• Turquoise, 8
  
• Dark Red, 9
  
• Green, 10
  
• Dark Blue, 11
  
• Dark Yellow, 12
  
• Violet, 13
  
• Teal, 14
  
• Grey 25, 15
  
• Grey 50, 16
  

Hi, I am trying to get to double click on my shortkeeper logo on my desktop to open it. When I press F1 it triggers my sound control instead of writing my screen coordinates (x, y). What can I do about it?

This AutoHotkey script quickly brings an existing WordPad file to the forefront of the desktop, allowing the user to type or read whatever they need and continue working where they left off with minimum disruption. Workflow does not suffer and concentration can be maintained.

A bonus feature of this script is that you do not need to think about whether the WordPad file is open or not. If the file is open, it will bring it to the forefront. The script will not open another copy of the same file (which could result in the loss of some information, if two concurrent versions of the file were edited at the same time).

Need help creating a keyboard shortcut with ShortKeeper using the following AutoHotkey code? This 5-minute tutorial will help!

FileName := "Path+FileName.rtf"

wmi := ComObjGet("winmgmts:")

queryEnum := wmi.ExecQuery("Select * from Win32_Process where Name = 'wordpad.exe'") ._NewEnum()

while queryEnum[process]

{

 LenCL := StrLen(process.CommandLine)

 LenFL := StrLen(FileName)

 if (LenCL >= LenFL)

   if (FileName = SubStr(process.CommandLine, -(LenFL-1)))

   {

     WinActivate % "ahk_pid" . process.ProcessId

     return

   }

}

Run % "wordpad.exe " . FileName