Code: Select all
; burque505, December 16, 2018
; using code filched from:
; https://docs.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/platform-apis/aa753622%28v%3dvs.85%29
; and
; https://docs.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/platform-apis/aa969613%28v%3dvs.85%29
; See also
; https://docs.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/platform-apis/ms536419%28v%3dvs.85%29
full_command_line := DllCall("GetCommandLine", "str")
if not (A_IsAdmin or RegExMatch(full_command_line, " /restart(?!\S)"))
{
try ; leads to having the script re-launching itself as administrator
{
if A_IsCompiled
Run *RunAs "%A_ScriptFullPath%" /restart
else
Run *RunAs "%A_AhkPath%" /restart "%A_ScriptFullPath%"
}
ExitApp
}
Gui, Add, Button, Default w80, Bold
Gui, Add, Button, x+10 w80, Italic
Gui, Add, Button, x+10 w80, Underline
Gui, Add, Button, x+10 w80 gFontSize, FontSize
Gui, Add, DDL, x+10 w80 vFntSz, 1|2|3|4||5|6|7
Gui, Add, Button, x+10 w80 vBgColor gBg, Back Color
Gui, Add, Button, x+10 w40 vCut, Cut
Gui, Add, Button, x+10 w40 vCopy, Copy
Gui, Add, Button, x+10 w80 vSuperscript, Superscript
Gui, Add, Button, x+10 w40 vSubscript, Subscript
Gui, Add, Button, x+10 w80, Reset
Gui Add, ActiveX, x10 w1200 h800 vWB, Shell.Explorer
WB.Visible := true
Gosub, ButtonReset
Gui Show
return
ButtonBold:
doc.execCommand("Bold", false, null)
Gui, Submit, NoHide
return
ButtonReset:
WB.Navigate("about:blank")
;WB.Navigate(A_ScriptDir . "\html.html")
doc := WB.Document
Sleep, 500
doc.DesignMode := "On"
allColl := doc.All
elem := allColl.Item("editableblock")
elem.contentEditable := true
Gui +Resize
Gui Show
Gui, Submit, NoHide
return
ButtonItalic:
doc.execCommand("Italic", false, null)
Gui, Submit, NoHide
return
FontSize:
doc.execCommand("FontSize", false, FntSz)
Gui, Submit, NoHide
return
Bg:
doc.execCommand("BackColor", false, 0xe6ffe6)
Gui, Submit, NoHide
return
ButtonCut:
doc.execCommand("Cut", false, null)
Gui, Submit, NoHide
return
ButtonCopy:
doc.execCommand("Copy", false, null)
Gui, Submit, NoHide
return
ButtonSuperscript:
doc.execCommand("Superscript", false, null)
Gui, Submit, NoHide
return
ButtonSubscript:
doc.execCommand("Subscript", false, null)
Gui, Submit, NoHide
return
ButtonUnderline:
doc.execCommand("Underline", false, null)
Gui, Submit, NoHide
return
return
GuiClose:
Escape::ExitApp