Custom Query (3931 matches)

The following script does work with IE9/Win7 the Html is not closed Perhaps more UDF does not work with IE9

#include <IE.au3>

Local $oIE = _IECreate()
_IENavigate($oIE, "file://" & @ScriptDir & "\temp.html", 1)
_IEQuit($oIE)

When there is a Web Browser window open not being a TopLevelContainer the function _IEAttach will exit with an error:

E:\Bin\autoit\install\Include\IE.au3 (2675) : ==> The requested action with this object has failed.:
Return SetError($_IEStatus_Success, 0, HWnd($o_object.HWnd()))
Return SetError($_IEStatus_Success, 0, HWnd($o_object.HWnd()^ ERROR

This can be solved by modifying IE.au3 checking whether your IE object is a TopLevelContainer and respond accordingly in Func _IEPropertyGet(ByRef $o_object, $s_property) from line 2669 on as described in my ​post in the forum. The problem is pretty well caught down over there.

[...] lines 1-2668
Case $s_property = "hwnd"
    If Not __IEIsObjType($o_object, "browser") Then
        __IEErrorNotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
        Return SetError($_IEStatus_InvalidObjectType, 1, 0)
    EndIf
    ;--------------OLD-CODE:
    ;Return SetError($_IEStatus_Success, 0, HWnd($o_object.HWnd()))
    ;--------------NEW-CODE:
    If $o_object.TopLevelContainer Then
        Return SetError($_IEStatus_Success, 0, HWnd($o_object.HWnd()))
    Else
        Return SetError($_IEStatus_Success, 0, 0)
    EndIf
    ;--------------:NEW-CODE
[...]

It was the same problem in ticket ​#1415 but this is already closed for not being precise enough. I hope this ticket will help out. As said in this ​post I should open a ticket. And I searched for a double before finding only this closed one ;-)

_WinAPI_SetWindowsHookEx() only works when the idHook parameter is $WH_KEYBOARD_LL or $WH_MOUSE_LL and not when the idHook parameter is another as $WH_CALLWNDPROCRET for example.

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6

#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>

Opt('MustDeclareVars', 1)

Global $hHook, $hStub_CallWndRetProc, $buffer = ""

_Main()

Func _Main()
	OnAutoItExitRegister("Cleanup")

	Local $hmod

	$hStub_CallWndRetProc = DllCallbackRegister("_CallWndRetProc", "long", "int;wparam;lparam")
	$hmod = _WinAPI_GetModuleHandle(0)
	$hHook = _WinAPI_SetWindowsHookEx($WH_CALLWNDPROCRET, DllCallbackGetPtr($hStub_CallWndRetProc), $hmod)
	ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $hHook = ' & $hHook & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

	While 1
		Sleep(10)
	WEnd
EndFunc   ;==>_Main

;===========================================================
; callback function
;===========================================================
Func _CallWndRetProc($nCode, $wParam, $lParam)
	ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $nCode = ' & $nCode & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
	local $tagCWPRETSTRUCT = "LRESULT lResult;LPARAM lParam;WPARAM wParam;UINT message;HWND hwnd;"
	Local $tCWPRETSTRUCT = DllStructCreate($tagCWPRETSTRUCT, $lParam)
	If $nCode < 0 Then
		Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam)
	EndIf
	If DllStructGetData($tCWPRETSTRUCT, "message") = $WM_MOUSEMOVE Then
		ConsoleWrite("Mouse Move Message Recived by - " & DllStructGetData($tCWPRETSTRUCT, "hwnd") & @CRLF)
	EndIf
	Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam)
EndFunc   ;==>_KeyProc

Func Cleanup()
	_WinAPI_UnhookWindowsHookEx($hHook)
	DllCallbackFree($hStub_CallWndRetProc)
EndFunc   ;==>Cleanup