Code:
#NoEnv
#SingleInstance force
SendMode Input
SetBatchLines, -1
DetectHiddenWindows, On
IE_Init()
Gui, +Resize +LastFound
Gui, Show, w800 h600 Center, Test
hGui:= WinExist()
pwb := IE_Add(hGui, 10, 10, 780, 580)
pipa := COM_QueryInterface(pwb, IOleInPlaceActiveObject_Interface)
OnMessage(WM_KEYUP:=0x0101, "WM_KEYDOWN")
OnMessage(WM_KEYDOWN:=0x0100, "WM_KEYDOWN")
IE_LoadURL(pwb, "http://www.google.com/")
return
GuiClose:
Gui, Destroy
COM_Release(pwb)
IE_Term()
ExitApp
return
#include inc\COM.ahk
#include inc\IE.ahk
WM_KEYDOWN(wParam, lParam, nMsg, hWnd)
{
; If (wParam = 0x08 || wParam = 0x09 || wParam = 0x0D || wParam = 0x26 || wParam = 0x28 || wParam = 0x2E || wParam = 0x43 || wParam = 0x56 || wParam = 0x58)
WinGetClass, Class, ahk_id %hWnd%
If (Class = "Internet Explorer_Server")
{
Global pipa
VarSetCapacity(Msg, 28), NumPut(hWnd,Msg), NumPut(nMsg,Msg,4), NumPut(wParam,Msg,8), NumPut(lParam,Msg,12), NumPut(A_EventInfo,Msg,16), NumPut(A_GuiX,Msg,20), NumPut(A_GuiY,Msg,24)
If DllCall(NumGet(NumGet(1*pipa)+20), "Uint", pipa, "Uint", &Msg)=0
Return 0
}
}
Login
Register
FAQ
Search
