This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
//============================================================================ | |
// Erstellt: GBV, Karen Hachmann | |
// 2009.02 | |
// letzte Änderung: 2014-08-22 Klee ZDB | |
//============================================================================ | |
// Pull in the WinIBW application object: | |
var application = Components.classes["@oclcpica.nl/kitabapplication;1"] | |
.getService(Components.interfaces.IApplication); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
; AutoHotkey_L: | |
IEGet(name="") { | |
IfEqual, Name,, WinGetTitle, Name, ahk_class IEFrame ; Get active window if no parameter | |
Name := (Name="New Tab - Windows Internet Explorer")? "about:Tabs":RegExReplace(Name, " - (Windows|Microsoft) Internet Explorer") | |
for WB in ComObjCreate("Shell.Application").Windows | |
if WB.LocationName=Name and InStr(WB.FullName, "iexplore.exe") | |
return WB | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
; AutoHotkey_L: | |
WBGet(WinTitle="ahk_class IEFrame", Svr#=1) { ; based on ComObjQuery docs | |
static msg := DllCall("RegisterWindowMessage", "str", "WM_HTML_GETOBJECT") | |
, IID := "{0002DF05-0000-0000-C000-000000000046}" ; IID_IWebBrowserApp | |
; , IID := "{332C4427-26CB-11D0-B483-00C04FD90119}" ; IID_IHTMLWindow2 | |
SendMessage msg, 0, 0, Internet Explorer_Server%Svr#%, %WinTitle% | |
if (ErrorLevel != "FAIL") { | |
lResult:=ErrorLevel, VarSetCapacity(GUID,16,0) | |
if DllCall("ole32\CLSIDFromString", "wstr","{332C4425-26CB-11D0-B483-00C04FD90119}", "ptr",&GUID) >= 0 { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
; AutoHotkey Version: AutoHotkey 1.1 | |
; Language: English | |
; Platform: Win7 SP1 / Win8.1 | |
; Author: Antonio Bueno <user atnbueno of Google's popular e-mail service> | |
; Short description: Gets the URL of the current (active) browser tab for most modern browsers | |
; Last Mod: 2014-07-05 | |
Menu, Tray, Icon, % A_WinDir "\system32\netshell.dll", 86 ; Shows a world icon in the system tray | |
#u:: |