Skip to content

Instantly share code, notes, and snippets.

@JoeGlines

JoeGlines/Flipping text for Teleprompter.ahk

Last active April 26, 2021 15:36
Show Gist options
  • Save JoeGlines/696089b1051a4cc9afb081bf04d1b644 to your computer and use it in GitHub Desktop.
Save JoeGlines/696089b1051a4cc9afb081bf04d1b644 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Flipping text for Teleprompter.ahk
;*******************************************************
; Want a clear path for learning AutoHotkey; Take a look at our AutoHotkey Udemy courses. They're structured in a way to make learning AHK EASY
; Right now you can get a coupon code here: https://the-Automator.com/Learn
;*******************************************************
;~ #Include <default_Settings>
;**************************************
#SingleInstance,Force
Text=
(
1) compile by right-clicking<br/>
2) Compile using mpress<br/>
3) Compile with UPX<br/>
4) Compile with AHK_H
)
IE:=FixIE(11)
Gui,Add,ActiveX,vwb w1000 h800,about:blank
FixIE(IE)
while(wb.ReadyState!=4)
Sleep,10
HTML=
(
<Body Style='Background:Black;Color:White;Font-Size:50'>
<Span>%text%</Span>
<Style>Span{-ms-transform:scale(-1,1)}</Style>
)
Doc:=wb.Document
Doc.Body.outerHTML:=HTML
Gui,Show,x2500 y-500
return
Escape::
ExitApp
return
FixIE(Version=0){
static Key:="Software\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION",Versions:={7:7000,8:8888,9:9999,10:10001,11:11001,11:"11040"}
Version:=Versions[Version]?Versions[Version]:Version
if(A_IsCompiled)
ExeName:=A_ScriptName
else
SplitPath,A_AhkPath,ExeName
RegRead,PreviousValue,HKCU,%Key%,%ExeName%
if(!Version)
RegDelete,HKCU,%Key%,%ExeName%
else
RegWrite,REG_DWORD,HKCU,%Key%,%ExeName%,%Version%
return PreviousValue
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment