IDEA: Use AHK GUI to make translucent overlay over apps that are not skinnable

ATTENTION: You are viewing a page formatted for mobile devices; to view the full web page, click HERE.

DonationCoder.com Software > Post New Requests Here

<< < (9/11) > >>

mouser:
i added the code highlighting -- you just select the text and then choose the language from the Code Highlighting box (autoit is suitable for ahk).

dwilbank:
Thx.
It certainly made it colorful!

skwire:
The hotkeys work for me. I did clean up your formatting a bit; sorry for imposing my braces and indentation habits upon you. Also, you only need "SetTitleMatchMode, 2" once in the script (at the top, unless you're changing it later for some reason). As for hiding the overlay, you can do this easily with a toggle-type of hotkey. I added an F1 toggle hotkey for you but you could change it to whatever you like. Here's the toggle code (it's also included in the full script below):

--- Code: AutoIt ---F1:: ; Toggle the GUI.{ If ! ( Toggle_Gui ) { Gui, 3: Show, Hide Gui, 1: Show, Hide } Else { Gui, 3: Show Gui, 1: Show } Toggle_Gui := !Toggle_Gui}Return

--- Code: AutoIt ---SetTitleMatchMode, 2DetectHiddenWindows, On Header_Text3 := "EVDCAP 8"Font_Size3 := "56"Font_Style3 := "Lucida Sans Unicode"Font_Color3 := "Black" Gui, 3: +Toolwindow -Caption +Lastfound +AlwaysOnTopGui, 3: +LastFoundGui, 3: Margin, 0, 0Gui, 3: Font, s%Font_Size3% c%Font_Color3%, % Font_Style3Gui, 3: Add, Text, xm+457 ym+2 0x200 vmyText, % Header_Text3Gui, 3: FontGui, 3: Color, EEAA99Winset, Transcolor, EEAA99Gui, 3: Show, x0 y0 w1280 h768, Overlay Header_Text := "EVDCAP 8"Font_Size := "56"Font_Style := "Lucida Sans Unicode"Font_Color := "Red" Gui, 1: +Toolwindow -Caption +Lastfound +AlwaysOnTopGui, 1: +LastFoundGui, 1: Margin, 0, 0Gui, 1: Font, s%Font_Size% c%Font_Color%, % Font_StyleGui, 1: Add, Text, xm+460 ym+0 0x200 vmyText, % Header_TextGui, 1: FontGui, 1: Color, EEAA99Winset, Transcolor, EEAA99Gui, 1: Add, Button, xm+40 ym+125 w145 h25 vmyButton01 gonClick, NDF + LTC mp2 (#1)Gui, 1: Add, Button, xm+40 ym+150 w145 h25 vmyButton02 gonClick, DF + LTC mp2 (#2)Gui, 1: Add, Button, xm+40 ym+175 w145 h25 vmyButton03 gonClick, PAL + LTC mp2 (#3)Gui, 1: Add, Button, xm+40 ym+220 w145 h25 vmyButton04 gonClick, NDF L-R + L-LTC simo (#4)Gui, 1: Add, Button, xm+40 ym+245 w145 h25 vmyButton05 gonClick, DF L-R + L-LTC simo (#5)Gui, 1: Add, Button, xm+40 ym+270 w145 h25 vmyButton06 gonClick, PAL L-R + L-LTC simo (#6)Gui, 1: Add, Button, xm+230 ym+125 w145 h25 vmyButton07 gonClick, NDF 3-4 + 3-LTC mp2 (#7)Gui, 1: Add, Button, xm+230 ym+150 w145 h25 vmyButton08 gonClick, DF 3-4 + 3-LTC mp2 (#8)Gui, 1: Add, Button, xm+230 ym+175 w145 h25 vmyButton09 gonClick, PAL 3-4 + 3-LTC mp2 (#9)Gui, 1: Add, Button, xm+230 ym+220 w145 h25 vmyButton10 gonClick, Future Button 1Gui, 1: Add, Button, xm+230 ym+245 w145 h25 vmyButton11 gonClick, Future Button 2Gui, 1: Add, Button, xm+230 ym+270 w145 h25 vmyButton12 gonClick, Future Button 3Gui, 1: Add, Button, xm+915 ym+125 w145 h25 vmyButton13 gonClick, Future Button 4Gui, 1: Add, Button, xm+915 ym+150 w145 h25 vmyButton14 gonClick, Future Button 5Gui, 1: Add, Button, xm+915 ym+175 w145 h25 vmyButton15 gonClick, Future Button 6Gui, 1: Add, Button, xm+330 ym+705 w120 h25 vmyButton16 gonClick, Switch to NTSC (#n)Gui, 1: Add, Button, xm+450 ym+705 w120 h25 vmyButton17 gonClick, Switch to PAL (#p)Gui, 1: Show, x0 y0 w1280 h768, Overlay F1:: ; Toggle the GUI.{ If ! ( Toggle_Gui ) { Gui, 3: Show, Hide Gui, 1: Show, Hide } Else { Gui, 3: Show Gui, 1: Show } Toggle_Gui := !Toggle_Gui}Return onClick:{ Gui, 2: Submit, NoHide If ( A_GuiControl = "myButton01" ) { WinWait, Digital Rapids Stream, IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream, WinWaitActive, Digital Rapids Stream, MouseClick, left, 248, 12 Sleep, 200 Send, {ALTDOWN}f{ALTUP}o WinWait, Open Local Project..., IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project..., WinWaitActive, Open Local Project..., Sleep, 200 Send, ntsc{SHIFTDOWN}-{SHIFTUP}ndf{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER} } Else If ( A_GuiControl = "myButton02" ) { WinWait, Digital Rapids Stream, IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream, WinWaitActive, Digital Rapids Stream, MouseClick, left, 248, 12 Sleep, 200 Send, {ALTDOWN}f{ALTUP}o WinWait, Open Local Project..., IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project..., WinWaitActive, Open Local Project..., Sleep, 200 Send, ntsc{SHIFTDOWN}-{SHIFTUP}df{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER} } Else If ( A_GuiControl = "myButton03" ) { WinWait, Digital Rapids Stream, IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream, WinWaitActive, Digital Rapids Stream, MouseClick, left, 248, 12 Sleep, 200 Send, {ALTDOWN}f{ALTUP}o WinWait, Open Local Project..., IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project..., WinWaitActive, Open Local Project..., Sleep, 200 Send, pal{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER} } Else If ( A_GuiControl = "myButton04" ) { WinWait, Digital Rapids Stream, IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream, WinWaitActive, Digital Rapids Stream, MouseClick, left, 248, 12 Sleep, 200 Send, {ALTDOWN}f{ALTUP}o WinWait, Open Local Project..., IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project..., WinWaitActive, Open Local Project..., Sleep, 200 Send, ntsc{SHIFTDOWN}-{SHIFTUP}ndf{SHIFTDOWN}-{SHIFTUP}l-r{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}l-ltc{SHIFTDOWN}-{SHIFTUP}simultaneous.prj{ENTER} } Else If ( A_GuiControl = "myButton05" ) { WinWait, Digital Rapids Stream, IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream, WinWaitActive, Digital Rapids Stream, MouseClick, left, 248, 12 Sleep, 200 Send, {ALTDOWN}f{ALTUP}o WinWait, Open Local Project..., IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project..., WinWaitActive, Open Local Project..., Sleep, 200 Send, ntsc{SHIFTDOWN}-{SHIFTUP}df{SHIFTDOWN}-{SHIFTUP}l-r{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}l-ltc{SHIFTDOWN}-{SHIFTUP}simultaneous.prj{ENTER} } Else If ( A_GuiControl = "myButton06" ) { WinWait, Digital Rapids Stream, IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream, WinWaitActive, Digital Rapids Stream, MouseClick, left, 248, 12 Sleep, 200 Send, {ALTDOWN}f{ALTUP}o WinWait, Open Local Project..., IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project..., WinWaitActive, Open Local Project..., Sleep, 200 Send, pal{SHIFTDOWN}-{SHIFTUP}l-r{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}l-ltc{SHIFTDOWN}-{SHIFTUP}simultaneous.prj{ENTER} } Else If ( A_GuiControl = "myButton07" ) { WinWait, Digital Rapids Stream, IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream, WinWaitActive, Digital Rapids Stream, MouseClick, left, 248, 12 Sleep, 200 Send, {ALTDOWN}f{ALTUP}o WinWait, Open Local Project..., IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project..., WinWaitActive, Open Local Project..., Sleep, 200 Send, ntsc{SHIFTDOWN}-{SHIFTUP}ndf{SHIFTDOWN}-{SHIFTUP}3-4{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER} } Else If ( A_GuiControl = "myButton08" ) { WinWait, Digital Rapids Stream, IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream, WinWaitActive, Digital Rapids Stream, MouseClick, left, 248, 12 Send, {ALTDOWN}f{ALTUP}o WinWait, Open Local Project..., IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project..., WinWaitActive, Open Local Project..., Sleep, 200 Send, ntsc{SHIFTDOWN}-{SHIFTUP}df{SHIFTDOWN}-{SHIFTUP}3-4{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER} } Else If ( A_GuiControl = "myButton09" ) { WinWait, Digital Rapids Stream, IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream, WinWaitActive, Digital Rapids Stream, MouseClick, left, 248, 12 Sleep, 200 Send, {ALTDOWN}f{ALTUP}o WinWait, Open Local Project..., IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project..., WinWaitActive, Open Local Project..., Sleep, 200 Send, pal{SHIFTDOWN}-{SHIFTUP}3-4{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER} } Else If ( A_GuiControl = "myButton10" ) { ; Do other stuff here. MsgBox, You clicked "Future Button 1". } Else If ( A_GuiControl = "myButton11" ) { ; Do other stuff here. MsgBox, You clicked "Future Button 2". } Else If ( A_GuiControl = "myButton12" ) { ; Do other stuff here. MsgBox, You clicked "Future Button 3". } Else If ( A_GuiControl = "myButton13" ) { ; Do other stuff here. MsgBox, You clicked "Future Button 4". } Else If ( A_GuiControl = "myButton14" ) { ; Do other stuff here. MsgBox, You clicked "Future Button 5". } Else If ( A_GuiControl = "myButton15" ) { ; Do other stuff here. MsgBox, You clicked "Future Button 6". } Else If ( A_GuiControl = "myButton16" ) { WinWait, Digital Rapids Stream, IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream, WinWaitActive, Digital Rapids Stream, MouseClick, left, 248, 12 Sleep, 100 Send, {ALTDOWN}{ALTUP}op WinWait, Preferences, IfWinNotActive, Preferences, , WinActivate, Preferences, WinWaitActive, Preferences, MouseClick, left, 105, 98 Sleep, 100 MouseClick, left, 392, 58 Sleep, 200 Send {Up} Sleep, 100 Send, {ENTER} Sleep, 100 Send, {ENTER} } Else If ( A_GuiControl = "myButton17" ) { WinWait, Digital Rapids Stream, IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream, WinWaitActive, Digital Rapids Stream, MouseClick, left, 248, 12 Sleep, 100 MouseClick, left, 248, 12 Sleep, 100 Send, {ALTDOWN}{ALTUP}op WinWait, Preferences, IfWinNotActive, Preferences, , WinActivate, Preferences, WinWaitActive, Preferences, MouseClick, left, 105, 98 Sleep, 100 MouseClick, left, 392, 58 Sleep, 200 Send {Down} Sleep, 100 Send, {ENTER} Sleep, 100 Send, {ENTER} }} #n::{ WinWait, Digital Rapids Stream, IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream, WinWaitActive, Digital Rapids Stream, MouseClick, left, 248, 12 Sleep, 100 Send, {ALTDOWN}{ALTUP}op WinWait, Preferences, IfWinNotActive, Preferences, , WinActivate, Preferences, WinWaitActive, Preferences, MouseClick, left, 105, 98 Sleep, 100 MouseClick, left, 392, 58 Sleep, 200 Send {Up} Sleep, 100 Send, {ENTER} Sleep, 100 Send, {ENTER}}Return #p::{ WinWait, Digital Rapids Stream, IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream, WinWaitActive, Digital Rapids Stream, MouseClick, left, 248, 12 Sleep, 100 MouseClick, left, 248, 12 Sleep, 100 Send, {ALTDOWN}{ALTUP}op WinWait, Preferences, IfWinNotActive, Preferences, , WinActivate, Preferences, WinWaitActive, Preferences, MouseClick, left, 105, 98 Sleep, 100 MouseClick, left, 392, 58 Sleep, 200 Send {Down} Sleep, 100 Send, {ENTER} Sleep, 100 Send, {ENTER}}Return !numpad0::{ MouseClick, left, 710, 460 Sleep, 100 WinWait, Ingest Upload Verification Page - Mozilla Firefox, IfWinNotActive, Ingest Upload Verification Page - Mozilla Firefox, , WinActivate, Ingest Upload Verification Page - Mozilla Firefox, WinWaitActive, Ingest Upload Verification Page - Mozilla Firefox, Sleep, 100 MouseClick, left, 711, 253 Sleep, 100 WinWait, Ingest Upload Sucess Home Page - Mozilla Firefox, IfWinNotActive, Ingest Upload Sucess Home Page - Mozilla Firefox, , WinActivate, Ingest Upload Sucess Home Page - Mozilla Firefox, WinWaitActive, Ingest Upload Sucess Home Page - Mozilla Firefox, Sleep, 100 MouseClick, left, 713, 405 Sleep, 100 MouseClick, left, 713, 370}Return :*:aspera::{ Run, C:\Program Files\Aspera\Aspera Scp\bin\asperacopy.exe WinWait, Aspera File Transfer, IfWinNotActive, Aspera File Transfer, , WinActivate, Aspera File Transfer, WinWaitActive, Aspera File Transfer, MouseClick, left, 491, 131 Sleep, 100 MouseClick, left, 794, 233 Sleep, 100 Send, {ALTDOWN}{SPACE}x{ALTUP}{ALTDOWN}{ALTUP}{RIGHT}{RIGHT}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER} MouseClick, left, 390, 116 Sleep, 100}Return #1::{ WinWait, Digital Rapids Stream, IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream, WinWaitActive, Digital Rapids Stream, MouseClick, left, 248, 12 Sleep, 200 Send, {ALTDOWN}f{ALTUP}o WinWait, Open Local Project..., IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project..., WinWaitActive, Open Local Project..., Sleep, 200 Send, ntsc{SHIFTDOWN}-{SHIFTUP}ndf{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}}Return #2::{ WinWait, Digital Rapids Stream, IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream, WinWaitActive, Digital Rapids Stream, MouseClick, left, 248, 12 Sleep, 200 Send, {ALTDOWN}f{ALTUP}o WinWait, Open Local Project..., IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project..., WinWaitActive, Open Local Project..., Sleep, 200 Send, ntsc{SHIFTDOWN}-{SHIFTUP}df{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}}Return #3::{ WinWait, Digital Rapids Stream, IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream, WinWaitActive, Digital Rapids Stream, MouseClick, left, 248, 12 Sleep, 200 Send, {ALTDOWN}f{ALTUP}o WinWait, Open Local Project..., IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project..., WinWaitActive, Open Local Project..., Sleep, 200 Send, pal{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}}Return #4::{ WinWait, Digital Rapids Stream, IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream, WinWaitActive, Digital Rapids Stream, MouseClick, left, 248, 12 Sleep, 200 Send, {ALTDOWN}f{ALTUP}o WinWait, Open Local Project..., IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project..., WinWaitActive, Open Local Project..., Sleep, 200 Send, ntsc{SHIFTDOWN}-{SHIFTUP}ndf{SHIFTDOWN}-{SHIFTUP}l-r{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}l-ltc{SHIFTDOWN}-{SHIFTUP}simultaneous.prj{ENTER}}Return #5::{ WinWait, Digital Rapids Stream, IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream, WinWaitActive, Digital Rapids Stream, MouseClick, left, 248, 12 Sleep, 200 Send, {ALTDOWN}f{ALTUP}o WinWait, Open Local Project..., IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project..., WinWaitActive, Open Local Project..., Sleep, 200 Send, ntsc{SHIFTDOWN}-{SHIFTUP}df{SHIFTDOWN}-{SHIFTUP}l-r{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}l-ltc{SHIFTDOWN}-{SHIFTUP}simultaneous.prj{ENTER}}Return #6::{ WinWait, Digital Rapids Stream, IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream, WinWaitActive, Digital Rapids Stream, MouseClick, left, 248, 12 Sleep, 200 Send, {ALTDOWN}f{ALTUP}o WinWait, Open Local Project..., IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project..., WinWaitActive, Open Local Project..., Sleep, 200 Send, pal{SHIFTDOWN}-{SHIFTUP}l-r{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}l-ltc{SHIFTDOWN}-{SHIFTUP}simultaneous.prj{ENTER}}Return #7::{ WinWait, Digital Rapids Stream, IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream, WinWaitActive, Digital Rapids Stream, MouseClick, left, 248, 12 Sleep, 200 Send, {ALTDOWN}f{ALTUP}o WinWait, Open Local Project..., IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project..., WinWaitActive, Open Local Project..., Sleep, 200 Send, ntsc{SHIFTDOWN}-{SHIFTUP}ndf{SHIFTDOWN}-{SHIFTUP}3-4{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}}Return #8::{ WinWait, Digital Rapids Stream, IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream, WinWaitActive, Digital Rapids Stream, MouseClick, left, 248, 12 Send, {ALTDOWN}f{ALTUP}o WinWait, Open Local Project..., IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project..., WinWaitActive, Open Local Project..., Sleep, 200 Send, ntsc{SHIFTDOWN}-{SHIFTUP}df{SHIFTDOWN}-{SHIFTUP}3-4{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}}Return #9::{ WinWait, Digital Rapids Stream, IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream, WinWaitActive, Digital Rapids Stream, MouseClick, left, 248, 12 Sleep, 200 Send, {ALTDOWN}f{ALTUP}o WinWait, Open Local Project..., IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project..., WinWaitActive, Open Local Project..., Sleep, 200 Send, pal{SHIFTDOWN}-{SHIFTUP}3-4{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}}Return ; EOF

dwilbank:
Clean code.
There's nothing better.
How'd you like the drop shadow effect?
Feel free to borrow that advanced coding technique.

Thanks again sir.

skwire:
So, is everything working, as desired, to this point? Hotkeys, buttons, etc.

Navigation

[0] Message Index

[#] Next page

[*] Previous page

Go to full version