 		return 0
 }
 
+gui_WheelScroll(wParam, lParam) {
+	if(GET_KEYSTATE_WPARAM(wParam)==8)
+		return 1
+}
+
+GET_KEYSTATE_WPARAM(wparam) {
+	return (wparam & 0xFFFF)
+}
+
 ;}
 
 ;-----end-----
 */

gui_KeyDown(wParam, lParam, nMsg, hWnd) {
	wb := getDOM()
	if (Chr(wParam) ~= "[A-Z]" || wParam = 0x74) ; Disable Ctrl+O/L/F/N and F5.
		return
	pipa := ComObjQuery(wb, "{00000117-0000-0000-C000-000000000046}")
	VarSetCapacity(kMsg, 48), NumPut(A_GuiY, NumPut(A_GuiX
	, NumPut(A_EventInfo, NumPut(lParam, NumPut(wParam

if (!__Webapp_DPI_Aware)
	Gui __Webapp_:-DPIScale
Gui __Webapp_:+LastFound +Resize +Hwnd__Webapp_GuiHwnd

; Register Messages
OnMessage(WM_KEYDOWN := 0x100, "gui_KeyDown", 2)
if (!__Webapp_AllowZoomLevelChange)
	OnMessage(WM_MOUSEWHEEL = 0x20A, "gui_WheelScroll")

Gui __Webapp_:Add, ActiveX, v__Webapp_wb w%__Webapp_Width% h%__Webapp_height%, Shell.Explorer
SetWBClientSite()
__Webapp_wb.silent := true ;Surpress JS Error boxes
