Let's help each other out
https://www.autohotkey.com/boards/
Code: Select all
;activex gui 2 - test joedf - 2014/09/19
#SingleInstance, off
OnExit,OnExit
HTML_page =
( Ltrim Join
<!DOCTYPE html>
<html>
<head>
<meta http-equiv='X-UA-Compatible' content='IE=edge' charset='UTF-8'>
<style>
@charset "utf-8";
body{font-family:sans-serif;background-color:#1A1A1A;color:white}
#title{font-size:36px;}
input{margin:4px;Border: 2px white solid;background-color:black;color:white;}
p{font-size:16px;border:solid 1px #666;padding:4px;}
#footer{text-align:center;}
</style>
</head>
<body>
<div id="MyTextBox" charset="UTF-8">1234567890-=\ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz!@#$^&*()_+|~</div>
<p id="footer">
<input type="button" id="MyButton2" value="Change Content with AHK">
<input type="button" id="MyButton3" value="Greetings from AHK">
</p>
</body>
</html>
)
Gui Add, ActiveX, x0 y0 w640 h480 vWB, Shell.Explorer ; The final parameter is the name of the ActiveX component.
WB.silent := true ;Surpress JS Error boxes
Display(WB,HTML_page)
;Wait for IE to load the page, before we connect the event handlers
while WB.readystate != 4 or WB.busy
sleep 10
;Use DOM access just like javascript!
MyButton1 := wb.document.getElementById("MyButton1")
MyButton2 := wb.document.getElementById("MyButton2")
MyButton3 := wb.document.getElementById("MyButton3")
ComObjConnect(MyButton2, "MyButton2_")
ComObjConnect(MyButton3, "MyButton3_")
Gui Show, w640 h480
return
GuiClose:
ExitApp
OnExit:
FileDelete,%A_Temp%\*.DELETEME.html ;clean tmp file
ExitApp
; Our Event Handlers
MyButton2_OnClick() {
global wb
data := "מִבְחָן"
wb.Document.getElementById("MyTextBox").innerHtml := data
}
MyButton3_OnClick() {
MyUTF8 := "שלום"
MsgBox, % MyUTF8
}
;------------------
Display(WB,html_str) {
Count:=0
while % FileExist(f:=A_Temp "\" A_TickCount A_NowUTC "-tmp" Count ".DELETEME.html")
Count+=1
FileAppend,%html_str%,%f%
WB.Navigate("file://" . f)
}
and with or without BOM doesnt affect anything?Code: Select all
/* Fix keyboard shortcuts in WebBrowser control.
* References:
* http://www.autohotkey.com/community/viewtopic.php?p=186254#p186254
* http://msdn.microsoft.com/en-us/library/ms693360
*/
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
, NumPut(nMsg, NumPut(hWnd, kMsg)))), "uint"), "int"), "int")
Loop 2
r := DllCall(NumGet(NumGet(1*pipa)+5*A_PtrSize), "ptr", pipa, "ptr", &kMsg)
; Loop to work around an odd tabbing issue (it's as if there
; is a non-existent element at the end of the tab order).
until wParam != 9 || wb.Document.activeElement != ""
ObjRelease(pipa)
if r = 0 ; S_OK: the message was translated to an accelerator.
return 0
}
Could you make a pull request? 
joedf wrote:Glad to hear!
About the crash, interestingly I have not run into this issue.
https://github.com/joedf/Webapp.ahk
joedf wrote:No problem, let me know. I can make the change later on
That's interesting, could you post a screenshot of this error? And, Is this error gone or mitigated with your fix?
Code: Select all
Faulting application name: AutoHotkey.exe, version: 1.1.26.1, time stamp: 0x596abeba
Faulting module name: MSHTML.dll, version: 11.0.15063.786, time stamp: 0x3868b3d0
Exception code: 0xc0000602
Fault offset: 0x00000000005ec4b1
Faulting process id: 0x3af4
Faulting application start time: 0x01d387018cec4ad2
Faulting application path: C:\Program Files\AutoHotkey\AutoHotkey.exe
Faulting module path: C:\WINDOWS\SYSTEM32\MSHTML.dll
Report Id: 29b1a9c2-092e-474f-9cf3-45fa048f3a75
Faulting package full name:
Faulting package-relative application ID:
- System
- Provider
[ Name] Application Error
- EventID 1000
[ Qualifiers] 0
Level 2
Task 100
Keywords 0x80000000000000
- TimeCreated
[ SystemTime] 2018-01-06T15:18:14.464519400Z
EventRecordID 8952
Channel Application
Computer lDALwks1knjtf2.man.co
Security
- EventData
AutoHotkey.exe
1.1.26.1
596abeba
MSHTML.dll
11.0.15063.786
3868b3d0
c0000602
00000000005ec4b1
3af4
01d387018cec4ad2
C:\Program Files\AutoHotkey\AutoHotkey.exe
C:\WINDOWS\SYSTEM32\MSHTML.dll
29b1a9c2-092e-474f-9cf3-45fa048f3a75
Code: Select all
<div class="accountNotes" id="accountNotes">
<form id="accountNotesForm" action="" method="POST" name="accountNotesForm">
<textarea id="area1" name="accountNotes" onfocus="onMessageOff()" onfocusout="onMessageOn()">
<!-- make note of the onmessageoff and and, this is how I control the thread numbers. When we are typing in a box, we want to have accelerators enabled so we increase onmessage thread max count -->
<?php
$notesFile = __DIR__ . '/assets/accounts/' . $ServiceID . '/AccountNotes.txt';
if($notesFile) {
$handle = fopen($notesFile, 'r') or die('Cannot open file: '.$notesFile);
$contents = fread($handle, filesize($notesFile));
fclose($handle);
if($contents) {
echo $contents;
} else {
}
}else{
echo 'could not find notes file';
}
?>
</textarea>
<script>
function onMessageOn() {
AHK('enableMessageWatch');
}
function onMessageOff() {
AHK('disableMessageWatch');
}
</script>
Code: Select all
;Here we are trying to mitigate the issue by allowing additional message threads.
enableMessageWatch() {
OnMessage(0x100, "gui_KeyDown", 4)
}
disableMessageWatch() {
OnMessage(0x100, "gui_KeyDown", 1)
}
Code: Select all
; OnMessage handler used to block/allow certain accelerator keys in a webbrowser control.
; This one actually allows Ctrl + A/C/V
gui_KeyDown(w, l, nmsg, hwnd) {
global doc
ControlGetFocus, currFocus
if (!InStr(currFocus, "Internet Explorer_Server"))
return
if (Chr(w) ~= "[B,D-U,W,Y-Z]" || w = 0x74) ; Disable Ctrl+O/L/F/N and F5.
return
pipa := ComObjQuery(doc, "{00000117-0000-0000-C000-000000000046}")
VarSetCapacity(kMsg, 48), NumPut(A_GuiY, NumPut(A_GuiX
, NumPut(A_EventInfo, NumPut(l, NumPut(w
, NumPut(nMsg, NumPut(hWnd, kMsg)))), "uint"), "int"), "int")
Loop 2
r := DllCall(NumGet(NumGet(1 * pipa) + 5 * A_PtrSize), "ptr", pipa, "ptr",&kMsg)
; Loop to work around an odd tabbing issue (it's as if there
; is a non-existent element at the end of the tab order).
Until w != 9 || doc.activeElement != ""
ObjRelease(pipa)
if r = 0 ; S_OK: the message was translated to an accelerator.
return 0
}