Home | Blog | Software | Reviews and Features | Forum | Help | Donate | About us
topbanner_forum
  *

avatar image

Welcome, Guest. Please login or register.
Did you miss your activation email?

Login with username, password and session length
  • December 04, 2016, 06:12:39 AM
  • Proudly celebrating 10 years online.
  • Donate now to become a lifetime supporting member of the site and get a non-expiring license key for all of our programs.
  • donate

Last post Author Topic: IDEA: Use AHK GUI to make translucent overlay over apps that are not skinnable  (Read 20469 times)

skwire

  • Global Moderator
  • Joined in 2005
  • *****
  • Posts: 4,664
    • View Profile
    • Donate to Member
Any particular font you would like used?

dwilbank

  • Supporting Member
  • Joined in 2009
  • **
  • default avatar
  • Posts: 76
    • View Profile
    • Donate to Member
I should probably stick with Arial for now, or whatever Windows standard is.
If I see the word "Arial" or "Helvetica" in the script, I can just change it later, right?

skwire

  • Global Moderator
  • Joined in 2005
  • *****
  • Posts: 4,664
    • View Profile
    • Donate to Member
If I see the word "Arial" or "Helvetica" in the script, I can just change it later, right?
Yes, it will be easily changed.

skwire

  • Global Moderator
  • Joined in 2005
  • *****
  • Posts: 4,664
    • View Profile
    • Donate to Member
Re: IDEA: Use AHK GUI to make translucent overlay over apps that are not skinnab
« Reply #28 on: September 15, 2009, 02:27:32 AM »
Give this a shot (change variables at top to suit):

Header_Text := "EVD CAP 8"
Font_Size   := "56"
Font_Style  := "Arial"
Font_Color  := "Yellow"


Gui, 1: +Toolwindow -Caption +Lastfound +AlwaysOnTop
GUI_ID := WinExist()
Gui, 1: +LastFound
Gui, 1: Margin, 0, 0

Gui, 1: Font, s%Font_Size% c%Font_Color%, % Font_Style
Gui, 1: Add, Text, xm+450 ym+5  0x200 vmyText, % Header_Text
Gui, 1: Font
Gui, 1: Color, EEAA99
WinSet, Transcolor, EEAA99

Gui, 1: Add, Button, xm+40  ym+125 w120 h25 vmyButton01 gonClick, NDF + LTC mp2
Gui, 1: Add, Button, xm+40  ym+150 w120 h25 vmyButton02 gonClick, DF + LTC mp2
Gui, 1: Add, Button, xm+40  ym+175 w120 h25 vmyButton03 gonClick, PAL + LTC mp2

Gui, 1: Add, Button, xm+40  ym+220 w120 h25 vmyButton04 gonClick, NDF L-R + L-LTC simo
Gui, 1: Add, Button, xm+40  ym+245 w120 h25 vmyButton05 gonClick, DF L-R + L-LTC simo
Gui, 1: Add, Button, xm+40  ym+270 w120 h25 vmyButton06 gonClick, PAL L-R + L-LTC simo

Gui, 1: Add, Button, xm+230 ym+125 w120 h25 vmyButton07 gonClick, NDF 3-4 + 3-LTC mp2
Gui, 1: Add, Button, xm+230 ym+150 w120 h25 vmyButton08 gonClick, DF 3-4 + 3-LTC mp2
Gui, 1: Add, Button, xm+230 ym+175 w120 h25 vmyButton09 gonClick, PAL 3-4 + 3-LTC mp2

Gui, 1: Add, Button, xm+230 ym+220 w120 h25 vmyButton10 gonClick, Future button 1
Gui, 1: Add, Button, xm+230 ym+245 w120 h25 vmyButton11 gonClick, Future button 2
Gui, 1: Add, Button, xm+230 ym+270 w120 h25 vmyButton12 gonClick, Future button 3

Gui, 1: Add, Button, xm+915 ym+125 w120 h25 vmyButton13 gonClick, Future button 4
Gui, 1: Add, Button, xm+915 ym+150 w120 h25 vmyButton14 gonClick, Future button 5
Gui, 1: Add, Button, xm+915 ym+175 w120 h25 vmyButton15 gonClick, Future button 6

Gui, 1: Add, Button, xm+350 ym+710 w100 h25 vmyButton16 gonClick, Switch to NTSC
Gui, 1: Add, Button, xm+465 ym+710 w100 h25 vmyButton17 gonClick, Switch to PAL

Gui, 1: Show, x0 y0 w1280 h768, Overlay

Return ; End of auto-execute section.


onClick:
{
    Gui, 2: Submit, NoHide
    If ( A_GuiControl = "myButton01" )
    {
        ; Do stuff here.
        MsgBox, You clicked "NDF + LTC mp2".
    }
    Else If ( A_GuiControl = "myButton02" )
    {
        ; Do other stuff here.
        MsgBox, You clicked "DF + LTC mp2".
    }
    Else If ( A_GuiControl = "myButton03" )
    {
        ; Do other stuff here.
        MsgBox, You clicked "PAL + LTC mp2".
    }
    Else If ( A_GuiControl = "myButton04" )
    {
        ; Do other stuff here.
        MsgBox, You clicked "NDF L-R + L-LTC simo".
    }
    Else If ( A_GuiControl = "myButton05" )
    {
        ; Do other stuff here.
        MsgBox, You clicked "DF L-R + L-LTC simo".
    }
    Else If ( A_GuiControl = "myButton06" )
    {
        ; Do other stuff here.
        MsgBox, You clicked "PAL L-R + L-LTC simo".
    }
    Else If ( A_GuiControl = "myButton07" )
    {
        ; Do other stuff here.
        MsgBox, You clicked "NDF 3-4 + 3-LTC mp2".
    }
    Else If ( A_GuiControl = "myButton08" )
    {
        ; Do other stuff here.
        MsgBox, You clicked "DF 3-4 + 3-LTC mp2".
    }
    Else If ( A_GuiControl = "myButton09" )
    {
        ; Do other stuff here.
        MsgBox, You clicked "PAL 3-4 + 3-LTC mp2".
    }
    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" )
    {
        ; Do other stuff here.
        MsgBox, You clicked "Switch to NTSC".
    }
    Else If ( A_GuiControl = "myButton17" )
    {
        ; Do other stuff here.
        MsgBox, You clicked "Switch to PAL".
    }
}
Return

dwilbank

  • Supporting Member
  • Joined in 2009
  • **
  • default avatar
  • Posts: 76
    • View Profile
    • Donate to Member
It works!

Now I just plug in my scripts where it says MsgBox and see what happens!

Thanks.

I'll give a report tomorrow. Your name will be golden around the office.

skwire

  • Global Moderator
  • Joined in 2005
  • *****
  • Posts: 4,664
    • View Profile
    • Donate to Member
It works!
Thanks.

Sweet.  =]  You're welcome...glad to help.

dwilbank

  • Supporting Member
  • Joined in 2009
  • **
  • default avatar
  • Posts: 76
    • View Profile
    • Donate to Member
Got the "Switch to PAL" button to work.
Will work on the others soon.
But the old hotkey of Windows-P no longer works for "Switch to PAL"
Is this because of a stray "RETURN" somewhere in the script?
Or maybe because the hotkeys should be placed first in the script, before the button data?

Also, you won't believe this.
The overlay doesn't show up in a VNC remote session!
Don't know if there's anything that can be done scriptwise... might have to ask the video expert here how to remedy that.

But thanks so far!

cranioscopical

  • Friend of the Site
  • Supporting Member
  • Joined in 2006
  • **
  • Posts: 4,367
    • View Profile
    • Donate to Member
It works!
Thanks.

Sweet.  =]  You're welcome...glad to help.
Well done, Golden!

skwire

  • Global Moderator
  • Joined in 2005
  • *****
  • Posts: 4,664
    • View Profile
    • Donate to Member
Re: IDEA: Use AHK GUI to make translucent overlay over apps that are not skinnab
« Reply #33 on: September 15, 2009, 04:21:22 PM »
Got the "Switch to PAL" button to work.
Will work on the others soon.
But the old hotkey of Windows-P no longer works for "Switch to PAL"
Is this because of a stray "RETURN" somewhere in the script?
Or maybe because the hotkeys should be placed first in the script, before the button data?

Does it work if you first click the actual vidcap window?  If you've clicked one of the overlay buttons first, it would have focus and any vidcap window hotkeys would not work.  We should be able to get around this if this is the case.

Also, you won't believe this.
The overlay doesn't show up in a VNC remote session!
Don't know if there's anything that can be done scriptwise... might have to ask the video expert here how to remedy that.

Hmmm...I could understand that if we were using a percentage of transparency but we're not.  Which version/flavour of VNC is this?

dwilbank

  • Supporting Member
  • Joined in 2009
  • **
  • default avatar
  • Posts: 76
    • View Profile
    • Donate to Member
I've gone home for the day so I can't do any experimenting - but I know it will work soon.

as far as VNC...

UltraVNC with video mirror driver on the server side
TightVNC on the client side...

skwire

  • Global Moderator
  • Joined in 2005
  • *****
  • Posts: 4,664
    • View Profile
    • Donate to Member
I set up a test box with UltraVNC.  Do the following on the server side:

1) Start menu > Programs > UltraVNC > Edit Settings
2) Screen Capture tab.  Check the 'Capture Alpha-Blending' box.
3) Restart VNC service (or reboot that box).

Should work now...

cranioscopical

  • Friend of the Site
  • Supporting Member
  • Joined in 2006
  • **
  • Posts: 4,367
    • View Profile
    • Donate to Member
I set up a test box with UltraVNC...
My goodness, you do go out of your way to help people!
My hat's off to you.

skwire

  • Global Moderator
  • Joined in 2005
  • *****
  • Posts: 4,664
    • View Profile
    • Donate to Member
My goodness, you do go out of your way to help people!
My hat's off to you.

Anything and everything in the name of software, eh?  =]

dwilbank

  • Supporting Member
  • Joined in 2009
  • **
  • default avatar
  • Posts: 76
    • View Profile
    • Donate to Member
got all the buttons working - overlay okay too now!

still waiting for engineer to give me net access so I can move the script back to my email computer and show you what I've done.

(hotkeys are null in the version I made...)

till tomorrow...

thanks

dwilbank

  • Supporting Member
  • Joined in 2009
  • **
  • default avatar
  • Posts: 76
    • View Profile
    • Donate to Member
G'morning.
Hope it's not disastrous that the code is pasted into the message like this. For some reason I couldn't find the buttons which set it apart.

Enjoyed the overlay all yesterday.
All the hotkeys are at the bottom. I'm guessing they don't work because of a bracket symbol or a return command. Or maybe the black drop shadow I made as GUI 3 is messing things up.

The 2nd shift guy likes it too. He would like a transparency slider which can make the buttons disappear when he doesn't need them, but I told him to come up with some $$$.

Code: AutoIt [Select]
  1. Header_Text3 := "EVDCAP 8"
  2. Font_Size3   := "56"
  3. Font_Style3  := "Lucida Sans Unicode"
  4. Font_Color3  := "Black"
  5.  
  6. Gui, 3: +Toolwindow -Caption +Lastfound +AlwaysOnTop
  7. GUI_ID := WinExist()
  8. Gui, 3: +LastFound
  9. Gui, 3: Margin, 0, 0
  10.  
  11. Gui, 3: Font, s%Font_Size3% c%Font_Color3%, % Font_Style3
  12. Gui, 3: Add, Text, xm+457 ym+2 0x200 vmyText, % Header_Text3
  13. Gui, 3: Font
  14. Gui, 3: Color, EEAA99
  15. Winset, Transcolor, EEAA99
  16.  
  17. Gui, 3: Show, x0 y0 w1280 h768, Overlay
  18.  
  19.  
  20. Header_Text := "EVDCAP 8"
  21. Font_Size   := "56"
  22. Font_Style  := "Lucida Sans Unicode"
  23. Font_Color  := "Red"
  24.  
  25. Gui, 1: +Toolwindow -Caption +Lastfound +AlwaysOnTop
  26. GUI_ID := WinExist()
  27. Gui, 1: +LastFound
  28. Gui, 1: Margin, 0, 0
  29.  
  30. Gui, 1: Font, s%Font_Size% c%Font_Color%, % Font_Style
  31. Gui, 1: Add, Text, xm+460 ym+0 0x200 vmyText, % Header_Text
  32. Gui, 1: Font
  33. Gui, 1: Color, EEAA99
  34. Winset, Transcolor, EEAA99
  35.  
  36. Gui, 1: Add, Button, xm+40  ym+125 w145 h25 vmyButton01 gonClick, NDF + LTC mp2 (#1)
  37. Gui, 1: Add, Button, xm+40  ym+150 w145 h25 vmyButton02 gonClick, DF + LTC mp2 (#2)
  38. Gui, 1: Add, Button, xm+40  ym+175 w145 h25 vmyButton03 gonClick, PAL + LTC mp2 (#3)
  39.  
  40. Gui, 1: Add, Button, xm+40  ym+220 w145 h25 vmyButton04 gonClick, NDF L-R + L-LTC simo (#4)
  41. Gui, 1: Add, Button, xm+40  ym+245 w145 h25 vmyButton05 gonClick, DF L-R + L-LTC simo (#5)
  42. Gui, 1: Add, Button, xm+40  ym+270 w145 h25 vmyButton06 gonClick, PAL L-R + L-LTC simo (#6)
  43.  
  44. Gui, 1: Add, Button, xm+230  ym+125 w145 h25 vmyButton07 gonClick, NDF 3-4 + 3-LTC mp2 (#7)
  45. Gui, 1: Add, Button, xm+230  ym+150 w145 h25 vmyButton08 gonClick, DF 3-4 + 3-LTC mp2 (#8)
  46. Gui, 1: Add, Button, xm+230  ym+175 w145 h25 vmyButton09 gonClick, PAL 3-4 + 3-LTC mp2 (#9)
  47.  
  48. Gui, 1: Add, Button, xm+230  ym+220 w145 h25 vmyButton10 gonClick, Future Button 1
  49. Gui, 1: Add, Button, xm+230  ym+245 w145 h25 vmyButton11 gonClick, Future Button 2
  50. Gui, 1: Add, Button, xm+230  ym+270 w145 h25 vmyButton12 gonClick, Future Button 3
  51.  
  52. Gui, 1: Add, Button, xm+915  ym+125 w145 h25 vmyButton13 gonClick, Future Button 4
  53. Gui, 1: Add, Button, xm+915  ym+150 w145 h25 vmyButton14 gonClick, Future Button 5
  54. Gui, 1: Add, Button, xm+915  ym+175 w145 h25 vmyButton15 gonClick, Future Button 6
  55.  
  56. Gui, 1: Add, Button, xm+330  ym+705 w120 h25 vmyButton16 gonClick, Switch to NTSC (#n)
  57. Gui, 1: Add, Button, xm+450  ym+705 w120 h25 vmyButton17 gonClick, Switch to PAL (#p)
  58.  
  59. Gui, 1: Show, x0 y0 w1280 h768, Overlay
  60.  
  61.  
  62.  
  63.  
  64. onClick:
  65. {
  66.         Gui, 2: Submit, NoHide
  67.         If ( A_GuiControl = "myButton01" )
  68.         {
  69.                 SetTitleMatchMode, 2
  70. WinWait, Digital Rapids Stream,
  71. IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  72. WinWaitActive,  Digital Rapids Stream,
  73. MouseClick, left,  248,  12
  74. Sleep, 200
  75. Send, {ALTDOWN}f{ALTUP}o
  76. WinWait, Open Local Project...,
  77. IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  78. WinWaitActive, Open Local Project...,
  79. Sleep, 200
  80. Send, ntsc{SHIFTDOWN}-{SHIFTUP}ndf{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  81.         }
  82.  
  83.         Else If ( A_GuiControl = "myButton02" )
  84.         {
  85. SetTitleMatchMode, 2
  86. WinWait, Digital Rapids Stream,
  87. IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  88. WinWaitActive,  Digital Rapids Stream,
  89. MouseClick, left,  248,  12
  90. Sleep, 200
  91. Send, {ALTDOWN}f{ALTUP}o
  92. WinWait, Open Local Project...,
  93. IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  94. WinWaitActive, Open Local Project...,
  95. Sleep, 200
  96. Send, ntsc{SHIFTDOWN}-{SHIFTUP}df{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  97.         }
  98.        
  99.         Else If ( A_GuiControl = "myButton03" )
  100.         {
  101. SetTitleMatchMode, 2
  102. WinWait, Digital Rapids Stream,
  103. IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  104. WinWaitActive,  Digital Rapids Stream,
  105. MouseClick, left,  248,  12
  106. Sleep, 200
  107. Send, {ALTDOWN}f{ALTUP}o
  108. WinWait, Open Local Project...,
  109. IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  110. WinWaitActive, Open Local Project...,
  111. Sleep, 200
  112. Send, pal{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  113.         }
  114.  
  115.         Else If ( A_GuiControl = "myButton04" )
  116.         {
  117. SetTitleMatchMode, 2
  118. WinWait, Digital Rapids Stream,
  119. IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  120. WinWaitActive,  Digital Rapids Stream,
  121. MouseClick, left,  248,  12
  122. Sleep, 200
  123. Send, {ALTDOWN}f{ALTUP}o
  124. WinWait, Open Local Project...,
  125. IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  126. WinWaitActive, Open Local Project...,
  127. Sleep, 200
  128. Send, ntsc{SHIFTDOWN}-{SHIFTUP}ndf{SHIFTDOWN}-{SHIFTUP}l-r{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}l-ltc{SHIFTDOWN}-{SHIFTUP}simultaneous.prj{ENTER}
  129.         }
  130.  
  131.         Else If ( A_GuiControl = "myButton05" )
  132.         {
  133. SetTitleMatchMode, 2
  134. WinWait, Digital Rapids Stream,
  135. IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  136. WinWaitActive,  Digital Rapids Stream,
  137. MouseClick, left,  248,  12
  138. Sleep, 200
  139. Send, {ALTDOWN}f{ALTUP}o
  140. WinWait, Open Local Project...,
  141. IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  142. WinWaitActive, Open Local Project...,
  143. Sleep, 200
  144. Send, ntsc{SHIFTDOWN}-{SHIFTUP}df{SHIFTDOWN}-{SHIFTUP}l-r{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}l-ltc{SHIFTDOWN}-{SHIFTUP}simultaneous.prj{ENTER}
  145.         }
  146.  
  147.         Else If ( A_GuiControl = "myButton06" )
  148.         {
  149. SetTitleMatchMode, 2
  150. WinWait, Digital Rapids Stream,
  151. IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  152. WinWaitActive,  Digital Rapids Stream,
  153. MouseClick, left,  248,  12
  154. Sleep, 200
  155. Send, {ALTDOWN}f{ALTUP}o
  156. WinWait, Open Local Project...,
  157. IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  158. WinWaitActive, Open Local Project...,
  159. Sleep, 200
  160. Send, pal{SHIFTDOWN}-{SHIFTUP}l-r{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}l-ltc{SHIFTDOWN}-{SHIFTUP}simultaneous.prj{ENTER}
  161.         }
  162.        
  163.         Else If ( A_GuiControl = "myButton07" )
  164.         {
  165. SetTitleMatchMode, 2
  166. WinWait, Digital Rapids Stream,
  167. IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  168. WinWaitActive,  Digital Rapids Stream,
  169. MouseClick, left,  248,  12
  170. Sleep, 200
  171. Send, {ALTDOWN}f{ALTUP}o
  172. WinWait, Open Local Project...,
  173. IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  174. WinWaitActive, Open Local Project...,
  175. Sleep, 200
  176. Send, ntsc{SHIFTDOWN}-{SHIFTUP}ndf{SHIFTDOWN}-{SHIFTUP}3-4{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  177.         }
  178.  
  179.         Else If ( A_GuiControl = "myButton08" )
  180.         {
  181. SetTitleMatchMode, 2
  182. WinWait, Digital Rapids Stream,
  183. IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  184. WinWaitActive,  Digital Rapids Stream,
  185. MouseClick, left,  248,  12
  186. Send, {ALTDOWN}f{ALTUP}o
  187. WinWait, Open Local Project...,
  188. IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  189. WinWaitActive, Open Local Project...,
  190. Sleep, 200
  191. Send, ntsc{SHIFTDOWN}-{SHIFTUP}df{SHIFTDOWN}-{SHIFTUP}3-4{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  192.         }
  193.  
  194.         Else If ( A_GuiControl = "myButton09" )
  195.         {
  196. SetTitleMatchMode, 2
  197. WinWait, Digital Rapids Stream,
  198. IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  199. WinWaitActive,  Digital Rapids Stream,
  200. MouseClick, left,  248,  12
  201. Sleep, 200
  202. Send, {ALTDOWN}f{ALTUP}o
  203. WinWait, Open Local Project...,
  204. IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  205. WinWaitActive, Open Local Project...,
  206. Sleep, 200
  207. Send, pal{SHIFTDOWN}-{SHIFTUP}3-4{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  208.         }
  209.  
  210.         Else If ( A_GuiControl = "myButton10" )
  211.         {
  212.                 ; Do other stuff here.
  213.                 MsgBox, You clicked "Future Button 1".
  214.         }
  215.         Else If ( A_GuiControl = "myButton11" )
  216.         {
  217.                 ; Do other stuff here.
  218.                 MsgBox, You clicked "Future Button 2".
  219.         }
  220.         Else If ( A_GuiControl = "myButton12" )
  221.         {
  222.                 ; Do other stuff here.
  223.                 MsgBox, You clicked "Future Button 3".
  224.         }
  225.         Else If ( A_GuiControl = "myButton13" )
  226.         {
  227.                 ; Do other stuff here.
  228.                 MsgBox, You clicked "Future Button 4".
  229.         }
  230.         Else If ( A_GuiControl = "myButton14" )
  231.         {
  232.                 ; Do other stuff here.
  233.                 MsgBox, You clicked "Future Button 5".
  234.         }
  235.         Else If ( A_GuiControl = "myButton15" )
  236.         {
  237.                 ; Do other stuff here.
  238.                 MsgBox, You clicked "Future Button 6".
  239.         }
  240.         Else If ( A_GuiControl = "myButton16" )
  241.         {SetTitleMatchMode, 2
  242.         WinWait, Digital Rapids Stream,
  243. IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  244. WinWaitActive,  Digital Rapids Stream,
  245. MouseClick, left,  248,  12
  246. Sleep, 100
  247. Send, {ALTDOWN}{ALTUP}op
  248. WinWait, Preferences,
  249. IfWinNotActive, Preferences, , WinActivate, Preferences,
  250. WinWaitActive, Preferences,
  251. MouseClick, left,  105,  98
  252. Sleep, 100
  253. MouseClick, left,  392,  58
  254. Sleep, 200
  255. Send {Up}
  256. Sleep, 100
  257. Send, {ENTER}
  258. Sleep, 100
  259. Send, {ENTER}
  260.         }
  261.         Else If ( A_GuiControl = "myButton17" )
  262.         {SetTitleMatchMode, 2
  263.                 WinWait, Digital Rapids Stream,
  264. IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  265. WinWaitActive,  Digital Rapids Stream,
  266. MouseClick, left,  248,  12
  267. Sleep, 100
  268. MouseClick, left,  248,  12
  269. Sleep, 100
  270. Send, {ALTDOWN}{ALTUP}op
  271. WinWait, Preferences,
  272. IfWinNotActive, Preferences, , WinActivate, Preferences,
  273. WinWaitActive, Preferences,
  274. MouseClick, left,  105,  98
  275. Sleep, 100
  276. MouseClick, left,  392,  58
  277. Sleep, 200
  278. Send {Down}
  279. Sleep, 100
  280. Send, {ENTER}
  281. Sleep, 100
  282. Send, {ENTER}
  283.         }
  284. }
  285.  
  286.  
  287.  
  288.  
  289.  
  290. SetTitleMatchMode, 2
  291. #n::
  292. WinWait, Digital Rapids Stream,
  293. IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  294. WinWaitActive,  Digital Rapids Stream,
  295. MouseClick, left,  248,  12
  296. Sleep, 100
  297. Send, {ALTDOWN}{ALTUP}op
  298. WinWait, Preferences,
  299. IfWinNotActive, Preferences, , WinActivate, Preferences,
  300. WinWaitActive, Preferences,
  301. MouseClick, left,  105,  98
  302. Sleep, 100
  303. MouseClick, left,  392,  58
  304. Sleep, 200
  305. Send {Up}
  306. Sleep, 100
  307. Send, {ENTER}
  308. Sleep, 100
  309. Send, {ENTER}
  310.  
  311. SetTitleMatchMode, 2
  312. #p::
  313. WinWait, Digital Rapids Stream,
  314. IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  315. WinWaitActive,  Digital Rapids Stream,
  316. MouseClick, left,  248,  12
  317. Sleep, 100
  318. MouseClick, left,  248,  12
  319. Sleep, 100
  320. Send, {ALTDOWN}{ALTUP}op
  321. WinWait, Preferences,
  322. IfWinNotActive, Preferences, , WinActivate, Preferences,
  323. WinWaitActive, Preferences,
  324. MouseClick, left,  105,  98
  325. Sleep, 100
  326. MouseClick, left,  392,  58
  327. Sleep, 200
  328. Send {Down}
  329. Sleep, 100
  330. Send, {ENTER}
  331. Sleep, 100
  332. Send, {ENTER}
  333.  
  334. !numpad0::
  335. MouseClick, left,  710,  460
  336. Sleep, 100
  337. WinWait, Ingest Upload Verification Page - Mozilla Firefox,
  338. IfWinNotActive, Ingest Upload Verification Page - Mozilla Firefox, , WinActivate, Ingest Upload Verification Page - Mozilla Firefox,
  339. WinWaitActive, Ingest Upload Verification Page - Mozilla Firefox,
  340. Sleep, 100
  341. MouseClick, left,  711,  253
  342. Sleep, 100
  343. WinWait, Ingest Upload Sucess Home Page - Mozilla Firefox,
  344. IfWinNotActive, Ingest Upload Sucess Home Page - Mozilla Firefox, , WinActivate, Ingest Upload Sucess Home Page - Mozilla Firefox,
  345. WinWaitActive, Ingest Upload Sucess Home Page - Mozilla Firefox,
  346. Sleep, 100
  347. MouseClick, left,  713,  405
  348. Sleep, 100
  349. MouseClick, left,  713,  370
  350.  
  351. :*:aspera::
  352. Run, C:\Program Files\Aspera\Aspera Scp\bin\asperacopy.exe
  353. WinWait, Aspera File Transfer,
  354. IfWinNotActive, Aspera File Transfer, , WinActivate, Aspera File Transfer,
  355. WinWaitActive, Aspera File Transfer,
  356. MouseClick, left,  491,  131
  357. Sleep, 100
  358. MouseClick, left,  794,  233
  359. Sleep, 100
  360. Send, {ALTDOWN}{SPACE}x{ALTUP}{ALTDOWN}{ALTUP}{RIGHT}{RIGHT}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}
  361. MouseClick, left,  390,  116
  362. Sleep, 100
  363.  
  364. SetTitleMatchMode, 2
  365. #1::
  366. WinWait, Digital Rapids Stream,
  367. IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  368. WinWaitActive,  Digital Rapids Stream,
  369. MouseClick, left,  248,  12
  370. Sleep, 200
  371. Send, {ALTDOWN}f{ALTUP}o
  372. WinWait, Open Local Project...,
  373. IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  374. WinWaitActive, Open Local Project...,
  375. Sleep, 200
  376. Send, ntsc{SHIFTDOWN}-{SHIFTUP}ndf{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  377.  
  378. SetTitleMatchMode, 2
  379. #2::
  380. WinWait, Digital Rapids Stream,
  381. IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  382. WinWaitActive,  Digital Rapids Stream,
  383. MouseClick, left,  248,  12
  384. Sleep, 200
  385. Send, {ALTDOWN}f{ALTUP}o
  386. WinWait, Open Local Project...,
  387. IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  388. WinWaitActive, Open Local Project...,
  389. Sleep, 200
  390. Send, ntsc{SHIFTDOWN}-{SHIFTUP}df{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  391.  
  392. SetTitleMatchMode, 2
  393. #3::
  394. WinWait, Digital Rapids Stream,
  395. IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  396. WinWaitActive,  Digital Rapids Stream,
  397. MouseClick, left,  248,  12
  398. Sleep, 200
  399. Send, {ALTDOWN}f{ALTUP}o
  400. WinWait, Open Local Project...,
  401. IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  402. WinWaitActive, Open Local Project...,
  403. Sleep, 200
  404. Send, pal{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  405.  
  406. SetTitleMatchMode, 2
  407. #4::
  408. WinWait, Digital Rapids Stream,
  409. IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  410. WinWaitActive,  Digital Rapids Stream,
  411. MouseClick, left,  248,  12
  412. Sleep, 200
  413. Send, {ALTDOWN}f{ALTUP}o
  414. WinWait, Open Local Project...,
  415. IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  416. WinWaitActive, Open Local Project...,
  417. Sleep, 200
  418. Send, ntsc{SHIFTDOWN}-{SHIFTUP}ndf{SHIFTDOWN}-{SHIFTUP}l-r{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}l-ltc{SHIFTDOWN}-{SHIFTUP}simultaneous.prj{ENTER}
  419.  
  420. SetTitleMatchMode, 2
  421. #5::
  422. WinWait, Digital Rapids Stream,
  423. IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  424. WinWaitActive,  Digital Rapids Stream,
  425. MouseClick, left,  248,  12
  426. Sleep, 200
  427. Send, {ALTDOWN}f{ALTUP}o
  428. WinWait, Open Local Project...,
  429. IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  430. WinWaitActive, Open Local Project...,
  431. Sleep, 200
  432. Send, ntsc{SHIFTDOWN}-{SHIFTUP}df{SHIFTDOWN}-{SHIFTUP}l-r{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}l-ltc{SHIFTDOWN}-{SHIFTUP}simultaneous.prj{ENTER}
  433.  
  434. SetTitleMatchMode, 2
  435. #6::
  436. WinWait, Digital Rapids Stream,
  437. IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  438. WinWaitActive,  Digital Rapids Stream,
  439. MouseClick, left,  248,  12
  440. Sleep, 200
  441. Send, {ALTDOWN}f{ALTUP}o
  442. WinWait, Open Local Project...,
  443. IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  444. WinWaitActive, Open Local Project...,
  445. Sleep, 200
  446. Send, pal{SHIFTDOWN}-{SHIFTUP}l-r{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}l-ltc{SHIFTDOWN}-{SHIFTUP}simultaneous.prj{ENTER}
  447.  
  448. SetTitleMatchMode, 2
  449. #7::
  450. WinWait, Digital Rapids Stream,
  451. IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  452. WinWaitActive,  Digital Rapids Stream,
  453. MouseClick, left,  248,  12
  454. Sleep, 200
  455. Send, {ALTDOWN}f{ALTUP}o
  456. WinWait, Open Local Project...,
  457. IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  458. WinWaitActive, Open Local Project...,
  459. Sleep, 200
  460. Send, ntsc{SHIFTDOWN}-{SHIFTUP}ndf{SHIFTDOWN}-{SHIFTUP}3-4{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  461.  
  462. SetTitleMatchMode, 2
  463. #8::
  464. WinWait, Digital Rapids Stream,
  465. IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  466. WinWaitActive,  Digital Rapids Stream,
  467. MouseClick, left,  248,  12
  468. Send, {ALTDOWN}f{ALTUP}o
  469. WinWait, Open Local Project...,
  470. IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  471. WinWaitActive, Open Local Project...,
  472. Sleep, 200
  473. Send, ntsc{SHIFTDOWN}-{SHIFTUP}df{SHIFTDOWN}-{SHIFTUP}3-4{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  474.  
  475. SetTitleMatchMode, 2
  476. #9::
  477. WinWait, Digital Rapids Stream,
  478. IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  479. WinWaitActive,  Digital Rapids Stream,
  480. MouseClick, left,  248,  12
  481. Sleep, 200
  482. Send, {ALTDOWN}f{ALTUP}o
  483. WinWait, Open Local Project...,
  484. IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  485. WinWaitActive, Open Local Project...,
  486. Sleep, 200
  487. Send, pal{SHIFTDOWN}-{SHIFTUP}3-4{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
« Last Edit: September 17, 2009, 12:02:14 PM by mouser »

mouser

  • First Author
  • Administrator
  • Joined in 2005
  • *****
  • Posts: 36,406
    • View Profile
    • Mouser's Software Zone on DonationCoder.com
    • Read more about this member.
    • Donate to Member
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

  • Supporting Member
  • Joined in 2009
  • **
  • default avatar
  • Posts: 76
    • View Profile
    • Donate to Member
Thx.
It certainly made it colorful!

skwire

  • Global Moderator
  • Joined in 2005
  • *****
  • Posts: 4,664
    • View Profile
    • Donate to Member
Re: IDEA: Use AHK GUI to make translucent overlay over apps that are not skinnab
« Reply #42 on: September 18, 2009, 02:47:52 AM »
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 [Select]
  1. F1:: ; Toggle the GUI.
  2. {
  3.     If ! ( Toggle_Gui )
  4.     {
  5.         Gui, 3: Show, Hide
  6.         Gui, 1: Show, Hide
  7.     }
  8.     Else
  9.     {
  10.         Gui, 3: Show
  11.         Gui, 1: Show
  12.     }
  13.     Toggle_Gui := !Toggle_Gui
  14. }


Code: AutoIt [Select]
  1. SetTitleMatchMode, 2
  2. DetectHiddenWindows, On
  3.  
  4. Header_Text3 := "EVDCAP 8"
  5. Font_Size3   := "56"
  6. Font_Style3  := "Lucida Sans Unicode"
  7. Font_Color3  := "Black"
  8.  
  9. Gui, 3: +Toolwindow -Caption +Lastfound +AlwaysOnTop
  10. Gui, 3: +LastFound
  11. Gui, 3: Margin, 0, 0
  12. Gui, 3: Font, s%Font_Size3% c%Font_Color3%, % Font_Style3
  13. Gui, 3: Add, Text, xm+457 ym+2 0x200 vmyText, % Header_Text3
  14. Gui, 3: Font
  15. Gui, 3: Color, EEAA99
  16. Winset, Transcolor, EEAA99
  17. Gui, 3: Show, x0 y0 w1280 h768, Overlay
  18.  
  19. Header_Text := "EVDCAP 8"
  20. Font_Size   := "56"
  21. Font_Style  := "Lucida Sans Unicode"
  22. Font_Color  := "Red"
  23.  
  24. Gui, 1: +Toolwindow -Caption +Lastfound +AlwaysOnTop
  25. Gui, 1: +LastFound
  26. Gui, 1: Margin, 0, 0
  27. Gui, 1: Font, s%Font_Size% c%Font_Color%, % Font_Style
  28. Gui, 1: Add, Text, xm+460 ym+0 0x200 vmyText, % Header_Text
  29. Gui, 1: Font
  30. Gui, 1: Color, EEAA99
  31. Winset, Transcolor, EEAA99
  32. Gui, 1: Add, Button, xm+40  ym+125 w145 h25 vmyButton01 gonClick, NDF + LTC mp2 (#1)
  33. Gui, 1: Add, Button, xm+40  ym+150 w145 h25 vmyButton02 gonClick, DF + LTC mp2 (#2)
  34. Gui, 1: Add, Button, xm+40  ym+175 w145 h25 vmyButton03 gonClick, PAL + LTC mp2 (#3)
  35. Gui, 1: Add, Button, xm+40  ym+220 w145 h25 vmyButton04 gonClick, NDF L-R + L-LTC simo (#4)
  36. Gui, 1: Add, Button, xm+40  ym+245 w145 h25 vmyButton05 gonClick, DF L-R + L-LTC simo (#5)
  37. Gui, 1: Add, Button, xm+40  ym+270 w145 h25 vmyButton06 gonClick, PAL L-R + L-LTC simo (#6)
  38. Gui, 1: Add, Button, xm+230  ym+125 w145 h25 vmyButton07 gonClick, NDF 3-4 + 3-LTC mp2 (#7)
  39. Gui, 1: Add, Button, xm+230  ym+150 w145 h25 vmyButton08 gonClick, DF 3-4 + 3-LTC mp2 (#8)
  40. Gui, 1: Add, Button, xm+230  ym+175 w145 h25 vmyButton09 gonClick, PAL 3-4 + 3-LTC mp2 (#9)
  41. Gui, 1: Add, Button, xm+230  ym+220 w145 h25 vmyButton10 gonClick, Future Button 1
  42. Gui, 1: Add, Button, xm+230  ym+245 w145 h25 vmyButton11 gonClick, Future Button 2
  43. Gui, 1: Add, Button, xm+230  ym+270 w145 h25 vmyButton12 gonClick, Future Button 3
  44. Gui, 1: Add, Button, xm+915  ym+125 w145 h25 vmyButton13 gonClick, Future Button 4
  45. Gui, 1: Add, Button, xm+915  ym+150 w145 h25 vmyButton14 gonClick, Future Button 5
  46. Gui, 1: Add, Button, xm+915  ym+175 w145 h25 vmyButton15 gonClick, Future Button 6
  47. Gui, 1: Add, Button, xm+330  ym+705 w120 h25 vmyButton16 gonClick, Switch to NTSC (#n)
  48. Gui, 1: Add, Button, xm+450  ym+705 w120 h25 vmyButton17 gonClick, Switch to PAL (#p)
  49. Gui, 1: Show, x0 y0 w1280 h768, Overlay
  50.  
  51.  
  52. F1:: ; Toggle the GUI.
  53. {
  54.     If ! ( Toggle_Gui )
  55.     {
  56.         Gui, 3: Show, Hide
  57.         Gui, 1: Show, Hide
  58.     }
  59.     Else
  60.     {
  61.         Gui, 3: Show
  62.         Gui, 1: Show
  63.     }
  64.     Toggle_Gui := !Toggle_Gui
  65. }
  66.  
  67. onClick:
  68. {
  69.     Gui, 2: Submit, NoHide
  70.     If ( A_GuiControl = "myButton01" )
  71.     {
  72.         WinWait, Digital Rapids Stream,
  73.         IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  74.         WinWaitActive,  Digital Rapids Stream,
  75.         MouseClick, left,  248,  12
  76.         Sleep, 200
  77.         Send, {ALTDOWN}f{ALTUP}o
  78.         WinWait, Open Local Project...,
  79.         IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  80.         WinWaitActive, Open Local Project...,
  81.         Sleep, 200
  82.         Send, ntsc{SHIFTDOWN}-{SHIFTUP}ndf{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  83.     }
  84.     Else If ( A_GuiControl = "myButton02" )
  85.     {
  86.         WinWait, Digital Rapids Stream,
  87.         IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  88.         WinWaitActive,  Digital Rapids Stream,
  89.         MouseClick, left,  248,  12
  90.         Sleep, 200
  91.         Send, {ALTDOWN}f{ALTUP}o
  92.         WinWait, Open Local Project...,
  93.         IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  94.         WinWaitActive, Open Local Project...,
  95.         Sleep, 200
  96.         Send, ntsc{SHIFTDOWN}-{SHIFTUP}df{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  97.     }
  98.     Else If ( A_GuiControl = "myButton03" )
  99.     {
  100.         WinWait, Digital Rapids Stream,
  101.         IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  102.         WinWaitActive,  Digital Rapids Stream,
  103.         MouseClick, left,  248,  12
  104.         Sleep, 200
  105.         Send, {ALTDOWN}f{ALTUP}o
  106.         WinWait, Open Local Project...,
  107.         IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  108.         WinWaitActive, Open Local Project...,
  109.         Sleep, 200
  110.         Send, pal{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  111.     }
  112.     Else If ( A_GuiControl = "myButton04" )
  113.     {
  114.         WinWait, Digital Rapids Stream,
  115.         IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  116.         WinWaitActive,  Digital Rapids Stream,
  117.         MouseClick, left,  248,  12
  118.         Sleep, 200
  119.         Send, {ALTDOWN}f{ALTUP}o
  120.         WinWait, Open Local Project...,
  121.         IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  122.         WinWaitActive, Open Local Project...,
  123.         Sleep, 200
  124.         Send, ntsc{SHIFTDOWN}-{SHIFTUP}ndf{SHIFTDOWN}-{SHIFTUP}l-r{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}l-ltc{SHIFTDOWN}-{SHIFTUP}simultaneous.prj{ENTER}
  125.     }
  126.     Else If ( A_GuiControl = "myButton05" )
  127.     {
  128.         WinWait, Digital Rapids Stream,
  129.         IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  130.         WinWaitActive,  Digital Rapids Stream,
  131.         MouseClick, left,  248,  12
  132.         Sleep, 200
  133.         Send, {ALTDOWN}f{ALTUP}o
  134.         WinWait, Open Local Project...,
  135.         IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  136.         WinWaitActive, Open Local Project...,
  137.         Sleep, 200
  138.         Send, ntsc{SHIFTDOWN}-{SHIFTUP}df{SHIFTDOWN}-{SHIFTUP}l-r{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}l-ltc{SHIFTDOWN}-{SHIFTUP}simultaneous.prj{ENTER}
  139.     }
  140.     Else If ( A_GuiControl = "myButton06" )
  141.     {
  142.         WinWait, Digital Rapids Stream,
  143.         IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  144.         WinWaitActive,  Digital Rapids Stream,
  145.         MouseClick, left,  248,  12
  146.         Sleep, 200
  147.         Send, {ALTDOWN}f{ALTUP}o
  148.         WinWait, Open Local Project...,
  149.         IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  150.         WinWaitActive, Open Local Project...,
  151.         Sleep, 200
  152.         Send, pal{SHIFTDOWN}-{SHIFTUP}l-r{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}l-ltc{SHIFTDOWN}-{SHIFTUP}simultaneous.prj{ENTER}
  153.     }
  154.     Else If ( A_GuiControl = "myButton07" )
  155.     {
  156.         WinWait, Digital Rapids Stream,
  157.         IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  158.         WinWaitActive,  Digital Rapids Stream,
  159.         MouseClick, left,  248,  12
  160.         Sleep, 200
  161.         Send, {ALTDOWN}f{ALTUP}o
  162.         WinWait, Open Local Project...,
  163.         IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  164.         WinWaitActive, Open Local Project...,
  165.         Sleep, 200
  166.         Send, ntsc{SHIFTDOWN}-{SHIFTUP}ndf{SHIFTDOWN}-{SHIFTUP}3-4{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  167.     }
  168.  
  169.     Else If ( A_GuiControl = "myButton08" )
  170.     {
  171.         WinWait, Digital Rapids Stream,
  172.         IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  173.         WinWaitActive,  Digital Rapids Stream,
  174.         MouseClick, left,  248,  12
  175.         Send, {ALTDOWN}f{ALTUP}o
  176.         WinWait, Open Local Project...,
  177.         IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  178.         WinWaitActive, Open Local Project...,
  179.         Sleep, 200
  180.         Send, ntsc{SHIFTDOWN}-{SHIFTUP}df{SHIFTDOWN}-{SHIFTUP}3-4{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  181.     }
  182.     Else If ( A_GuiControl = "myButton09" )
  183.     {
  184.         WinWait, Digital Rapids Stream,
  185.         IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  186.         WinWaitActive,  Digital Rapids Stream,
  187.         MouseClick, left,  248,  12
  188.         Sleep, 200
  189.         Send, {ALTDOWN}f{ALTUP}o
  190.         WinWait, Open Local Project...,
  191.         IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  192.         WinWaitActive, Open Local Project...,
  193.         Sleep, 200
  194.         Send, pal{SHIFTDOWN}-{SHIFTUP}3-4{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  195.     }
  196.     Else If ( A_GuiControl = "myButton10" )
  197.     {
  198.         ; Do other stuff here.
  199.         MsgBox, You clicked "Future Button 1".
  200.     }
  201.     Else If ( A_GuiControl = "myButton11" )
  202.     {
  203.         ; Do other stuff here.
  204.         MsgBox, You clicked "Future Button 2".
  205.     }
  206.     Else If ( A_GuiControl = "myButton12" )
  207.     {
  208.         ; Do other stuff here.
  209.         MsgBox, You clicked "Future Button 3".
  210.     }
  211.     Else If ( A_GuiControl = "myButton13" )
  212.     {
  213.         ; Do other stuff here.
  214.         MsgBox, You clicked "Future Button 4".
  215.     }
  216.     Else If ( A_GuiControl = "myButton14" )
  217.     {
  218.         ; Do other stuff here.
  219.         MsgBox, You clicked "Future Button 5".
  220.     }
  221.     Else If ( A_GuiControl = "myButton15" )
  222.     {
  223.         ; Do other stuff here.
  224.         MsgBox, You clicked "Future Button 6".
  225.     }
  226.     Else If ( A_GuiControl = "myButton16" )
  227.     {
  228.         WinWait, Digital Rapids Stream,
  229.         IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  230.         WinWaitActive,  Digital Rapids Stream,
  231.         MouseClick, left,  248,  12
  232.         Sleep, 100
  233.         Send, {ALTDOWN}{ALTUP}op
  234.         WinWait, Preferences,
  235.         IfWinNotActive, Preferences, , WinActivate, Preferences,
  236.         WinWaitActive, Preferences,
  237.         MouseClick, left,  105,  98
  238.         Sleep, 100
  239.         MouseClick, left,  392,  58
  240.         Sleep, 200
  241.         Send {Up}
  242.         Sleep, 100
  243.         Send, {ENTER}
  244.         Sleep, 100
  245.         Send, {ENTER}
  246.     }
  247.     Else If ( A_GuiControl = "myButton17" )
  248.     {
  249.         WinWait, Digital Rapids Stream,
  250.         IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  251.         WinWaitActive,  Digital Rapids Stream,
  252.         MouseClick, left,  248,  12
  253.         Sleep, 100
  254.         MouseClick, left,  248,  12
  255.         Sleep, 100
  256.         Send, {ALTDOWN}{ALTUP}op
  257.         WinWait, Preferences,
  258.         IfWinNotActive, Preferences, , WinActivate, Preferences,
  259.         WinWaitActive, Preferences,
  260.         MouseClick, left,  105,  98
  261.         Sleep, 100
  262.         MouseClick, left,  392,  58
  263.         Sleep, 200
  264.         Send {Down}
  265.         Sleep, 100
  266.         Send, {ENTER}
  267.         Sleep, 100
  268.         Send, {ENTER}
  269.     }
  270. }
  271.  
  272. #n::
  273. {
  274.     WinWait, Digital Rapids Stream,
  275.     IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  276.     WinWaitActive,  Digital Rapids Stream,
  277.     MouseClick, left,  248,  12
  278.     Sleep, 100
  279.     Send, {ALTDOWN}{ALTUP}op
  280.     WinWait, Preferences,
  281.     IfWinNotActive, Preferences, , WinActivate, Preferences,
  282.     WinWaitActive, Preferences,
  283.     MouseClick, left,  105,  98
  284.     Sleep, 100
  285.     MouseClick, left,  392,  58
  286.     Sleep, 200
  287.     Send {Up}
  288.     Sleep, 100
  289.     Send, {ENTER}
  290.     Sleep, 100
  291.     Send, {ENTER}
  292. }
  293.  
  294. #p::
  295. {
  296.     WinWait, Digital Rapids Stream,
  297.     IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  298.     WinWaitActive,  Digital Rapids Stream,
  299.     MouseClick, left,  248,  12
  300.     Sleep, 100
  301.     MouseClick, left,  248,  12
  302.     Sleep, 100
  303.     Send, {ALTDOWN}{ALTUP}op
  304.     WinWait, Preferences,
  305.     IfWinNotActive, Preferences, , WinActivate, Preferences,
  306.     WinWaitActive, Preferences,
  307.     MouseClick, left,  105,  98
  308.     Sleep, 100
  309.     MouseClick, left,  392,  58
  310.     Sleep, 200
  311.     Send {Down}
  312.     Sleep, 100
  313.     Send, {ENTER}
  314.     Sleep, 100
  315.     Send, {ENTER}
  316. }
  317.  
  318. !numpad0::
  319. {
  320.     MouseClick, left,  710,  460
  321.     Sleep, 100
  322.     WinWait, Ingest Upload Verification Page - Mozilla Firefox,
  323.     IfWinNotActive, Ingest Upload Verification Page - Mozilla Firefox, , WinActivate, Ingest Upload Verification Page - Mozilla Firefox,
  324.     WinWaitActive, Ingest Upload Verification Page - Mozilla Firefox,
  325.     Sleep, 100
  326.     MouseClick, left,  711,  253
  327.     Sleep, 100
  328.     WinWait, Ingest Upload Sucess Home Page - Mozilla Firefox,
  329.     IfWinNotActive, Ingest Upload Sucess Home Page - Mozilla Firefox, , WinActivate, Ingest Upload Sucess Home Page - Mozilla Firefox,
  330.     WinWaitActive, Ingest Upload Sucess Home Page - Mozilla Firefox,
  331.     Sleep, 100
  332.     MouseClick, left,  713,  405
  333.     Sleep, 100
  334.     MouseClick, left,  713,  370
  335. }
  336.  
  337. :*:aspera::
  338. {
  339.     Run, C:\Program Files\Aspera\Aspera Scp\bin\asperacopy.exe
  340.     WinWait, Aspera File Transfer,
  341.     IfWinNotActive, Aspera File Transfer, , WinActivate, Aspera File Transfer,
  342.     WinWaitActive, Aspera File Transfer,
  343.     MouseClick, left,  491,  131
  344.     Sleep, 100
  345.     MouseClick, left,  794,  233
  346.     Sleep, 100
  347.     Send, {ALTDOWN}{SPACE}x{ALTUP}{ALTDOWN}{ALTUP}{RIGHT}{RIGHT}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}
  348.     MouseClick, left,  390,  116
  349.     Sleep, 100
  350. }
  351.  
  352. #1::
  353. {
  354.     WinWait, Digital Rapids Stream,
  355.     IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  356.     WinWaitActive,  Digital Rapids Stream,
  357.     MouseClick, left,  248,  12
  358.     Sleep, 200
  359.     Send, {ALTDOWN}f{ALTUP}o
  360.     WinWait, Open Local Project...,
  361.     IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  362.     WinWaitActive, Open Local Project...,
  363.     Sleep, 200
  364.     Send, ntsc{SHIFTDOWN}-{SHIFTUP}ndf{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  365. }
  366.  
  367. #2::
  368. {
  369.     WinWait, Digital Rapids Stream,
  370.     IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  371.     WinWaitActive,  Digital Rapids Stream,
  372.     MouseClick, left,  248,  12
  373.     Sleep, 200
  374.     Send, {ALTDOWN}f{ALTUP}o
  375.     WinWait, Open Local Project...,
  376.     IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  377.     WinWaitActive, Open Local Project...,
  378.     Sleep, 200
  379.     Send, ntsc{SHIFTDOWN}-{SHIFTUP}df{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  380. }
  381.  
  382. #3::
  383. {
  384.     WinWait, Digital Rapids Stream,
  385.     IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  386.     WinWaitActive,  Digital Rapids Stream,
  387.     MouseClick, left,  248,  12
  388.     Sleep, 200
  389.     Send, {ALTDOWN}f{ALTUP}o
  390.     WinWait, Open Local Project...,
  391.     IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  392.     WinWaitActive, Open Local Project...,
  393.     Sleep, 200
  394.     Send, pal{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  395. }
  396.  
  397. #4::
  398. {
  399.     WinWait, Digital Rapids Stream,
  400.     IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  401.     WinWaitActive,  Digital Rapids Stream,
  402.     MouseClick, left,  248,  12
  403.     Sleep, 200
  404.     Send, {ALTDOWN}f{ALTUP}o
  405.     WinWait, Open Local Project...,
  406.     IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  407.     WinWaitActive, Open Local Project...,
  408.     Sleep, 200
  409.     Send, ntsc{SHIFTDOWN}-{SHIFTUP}ndf{SHIFTDOWN}-{SHIFTUP}l-r{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}l-ltc{SHIFTDOWN}-{SHIFTUP}simultaneous.prj{ENTER}
  410. }
  411.  
  412. #5::
  413. {
  414.     WinWait, Digital Rapids Stream,
  415.     IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  416.     WinWaitActive,  Digital Rapids Stream,
  417.     MouseClick, left,  248,  12
  418.     Sleep, 200
  419.     Send, {ALTDOWN}f{ALTUP}o
  420.     WinWait, Open Local Project...,
  421.     IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  422.     WinWaitActive, Open Local Project...,
  423.     Sleep, 200
  424.     Send, ntsc{SHIFTDOWN}-{SHIFTUP}df{SHIFTDOWN}-{SHIFTUP}l-r{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}l-ltc{SHIFTDOWN}-{SHIFTUP}simultaneous.prj{ENTER}
  425. }
  426.  
  427. #6::
  428. {   WinWait, Digital Rapids Stream,
  429.     IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  430.     WinWaitActive,  Digital Rapids Stream,
  431.     MouseClick, left,  248,  12
  432.     Sleep, 200
  433.     Send, {ALTDOWN}f{ALTUP}o
  434.     WinWait, Open Local Project...,
  435.     IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  436.     WinWaitActive, Open Local Project...,
  437.     Sleep, 200
  438.     Send, pal{SHIFTDOWN}-{SHIFTUP}l-r{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}l-ltc{SHIFTDOWN}-{SHIFTUP}simultaneous.prj{ENTER}
  439. }
  440.  
  441. #7::
  442. {
  443.     WinWait, Digital Rapids Stream,
  444.     IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  445.     WinWaitActive,  Digital Rapids Stream,
  446.     MouseClick, left,  248,  12
  447.     Sleep, 200
  448.     Send, {ALTDOWN}f{ALTUP}o
  449.     WinWait, Open Local Project...,
  450.     IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  451.     WinWaitActive, Open Local Project...,
  452.     Sleep, 200
  453.     Send, ntsc{SHIFTDOWN}-{SHIFTUP}ndf{SHIFTDOWN}-{SHIFTUP}3-4{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  454. }
  455.  
  456. #8::
  457. {
  458.     WinWait, Digital Rapids Stream,
  459.     IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  460.     WinWaitActive,  Digital Rapids Stream,
  461.     MouseClick, left,  248,  12
  462.     Send, {ALTDOWN}f{ALTUP}o
  463.     WinWait, Open Local Project...,
  464.     IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  465.     WinWaitActive, Open Local Project...,
  466.     Sleep, 200
  467.     Send, ntsc{SHIFTDOWN}-{SHIFTUP}df{SHIFTDOWN}-{SHIFTUP}3-4{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  468. }
  469.  
  470. #9::
  471. {
  472.     WinWait, Digital Rapids Stream,
  473.     IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  474.     WinWaitActive,  Digital Rapids Stream,
  475.     MouseClick, left,  248,  12
  476.     Sleep, 200
  477.     Send, {ALTDOWN}f{ALTUP}o
  478.     WinWait, Open Local Project...,
  479.     IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  480.     WinWaitActive, Open Local Project...,
  481.     Sleep, 200
  482.     Send, pal{SHIFTDOWN}-{SHIFTUP}3-4{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  483. }
  484.  
  485. ; EOF

dwilbank

  • Supporting Member
  • Joined in 2009
  • **
  • default avatar
  • Posts: 76
    • View Profile
    • Donate to Member
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

  • Global Moderator
  • Joined in 2005
  • *****
  • Posts: 4,664
    • View Profile
    • Donate to Member
So, is everything working, as desired, to this point?  Hotkeys, buttons, etc.

dwilbank

  • Supporting Member
  • Joined in 2009
  • **
  • default avatar
  • Posts: 76
    • View Profile
    • Donate to Member
Haven't tried it yet. Bossman hasn't transferred to the script yet, and the encoding computers are firewalled from my normal internet computer.

Soon I will see it in its glory.

dwilbank

  • Supporting Member
  • Joined in 2009
  • **
  • default avatar
  • Posts: 76
    • View Profile
    • Donate to Member
Everything worked.
Mission accomplished.
Thank you sir.

dwilbank

  • Supporting Member
  • Joined in 2009
  • **
  • default avatar
  • Posts: 76
    • View Profile
    • Donate to Member
Adding one more function...Woohoo!

(Added drivespace remaining to the GUI - lines 39 thru 98)
Study and admire.

But how do I make the Drivespacefree value refresh itself every 5 minutes?

The AHK guys told me to use the SETTIMER command, but the scripts given as examples don't seem to have anything related to mine - so I can't just cut and paste their code...

Thx


Code: AutoIt [Select]
  1. SetTitleMatchMode, 2
  2. DetectHiddenWindows, On
  3.  
  4.  
  5. Header_Text := "EVDCAP 8"
  6. Font_Size   := "56"
  7. Font_Style  := "Lucida Sans Unicode"
  8. Font_Color  := "Green"
  9.  
  10. Gui, 1: +Toolwindow -Caption +Lastfound +AlwaysOnTop
  11. Gui, 1: +LastFound
  12. Gui, 1: Margin, 0, 0
  13. Gui, 1: Font, s%Font_Size% c%Font_Color%, % Font_Style
  14. Gui, 1: Add, Text, xm+460 ym+0 0x200 vmyText, % Header_Text
  15. Gui, 1: Font
  16. Gui, 1: Color, EEAA99
  17. Winset, Transcolor, EEAA99
  18. Gui, 1: Add, Button, xm+40  ym+125 w145 h25 vmyButton01 gonClick, NDF + LTC mp2 (#1)
  19. Gui, 1: Add, Button, xm+40  ym+150 w145 h25 vmyButton02 gonClick, DF + LTC mp2 (#2)
  20. Gui, 1: Add, Button, xm+40  ym+175 w145 h25 vmyButton03 gonClick, PAL + LTC mp2 (#3)
  21. Gui, 1: Add, Button, xm+40  ym+220 w145 h25 vmyButton04 gonClick, NDF L-R + L-LTC simo (#4)
  22. Gui, 1: Add, Button, xm+40  ym+245 w145 h25 vmyButton05 gonClick, DF L-R + L-LTC simo (#5)
  23. Gui, 1: Add, Button, xm+40  ym+270 w145 h25 vmyButton06 gonClick, PAL L-R + L-LTC simo (#6)
  24. Gui, 1: Add, Button, xm+230  ym+125 w145 h25 vmyButton07 gonClick, NDF 3-4 + 3-LTC mp2 (#7)
  25. Gui, 1: Add, Button, xm+230  ym+150 w145 h25 vmyButton08 gonClick, DF 3-4 + 3-LTC mp2 (#8)
  26. Gui, 1: Add, Button, xm+230  ym+175 w145 h25 vmyButton09 gonClick, PAL 3-4 + 3-LTC mp2 (#9)
  27. Gui, 1: Add, Button, xm+230  ym+220 w145 h25 vmyButton10 gonClick, Future Button 1
  28. Gui, 1: Add, Button, xm+230  ym+245 w145 h25 vmyButton11 gonClick, Future Button 2
  29. Gui, 1: Add, Button, xm+230  ym+270 w145 h25 vmyButton12 gonClick, Future Button 3
  30. Gui, 1: Add, Button, xm+915  ym+125 w145 h25 vmyButton13 gonClick, Future Button 4
  31. Gui, 1: Add, Button, xm+915  ym+150 w145 h25 vmyButton14 gonClick, Future Button 5
  32. Gui, 1: Add, Button, xm+915  ym+175 w145 h25 vmyButton15 gonClick, Future Button 6
  33. Gui, 1: Add, Button, xm+330  ym+705 w120 h25 vmyButton16 gonClick, Switch to NTSC (#n)
  34. Gui, 1: Add, Button, xm+450  ym+705 w120 h25 vmyButton17 gonClick, Switch to PAL (#p)
  35. Gui, 1: Show, x0 y0 w1280 h768, Overlay
  36.  
  37.  
  38.  
  39. DrivespaceFree, freeQ, Q:\
  40. DrivespaceFree, freeR, R:\
  41. DrivespaceFree, freeS, S:\
  42.  
  43. Header_Text2 := " Gb Free on Cap 6"
  44. Font_Size2   := "14"
  45. Font_Style2  := "Lucida Sans Unicode"
  46. Font_Color2  := "Green"
  47.  
  48. Gui, 2: +Toolwindow -Caption +Lastfound +AlwaysOnTop
  49. GUI_ID := WinExist()
  50. Gui, 2: +LastFound
  51. Gui, 2: Margin, 0, 0
  52.  
  53. Gui, 2: Font, s%Font_Size2% c%Font_Color2%, % Font_Style2
  54. Gui, 2: Add, Text, xm+900 ym+00 0x200 vmyText, % Round(freeQ/1024) Header_Text2
  55. Gui, 2: Font
  56. Gui, 2: Color, EEAA99
  57. Winset, Transcolor, EEAA99
  58. Gui, 2: Show, x0 y0 w1280 h768, Overlay
  59.  
  60.  
  61.  
  62.  
  63. Header_Text3 := " Gb Free on Cap 7"
  64. Font_Size3   := "14"
  65. Font_Style3  := "Lucida Sans Unicode"
  66. Font_Color3  := "Green"
  67.  
  68. Gui, 3: +Toolwindow -Caption +Lastfound +AlwaysOnTop
  69. GUI_ID := WinExist()
  70. Gui, 3: +LastFound
  71. Gui, 3: Margin, 0, 0
  72.  
  73. Gui, 3: Font, s%Font_Size2% c%Font_Color2%, % Font_Style2
  74. Gui, 3: Add, Text, xm+900 ym+30 0x200 vmyText, % Round(freeR/1024) Header_Text3
  75. Gui, 3: Font
  76. Gui, 3: Color, EEAA99
  77. Winset, Transcolor, EEAA99
  78. Gui, 3: Show, x0 y0 w1280 h768, Overlay
  79.  
  80.  
  81.  
  82.  
  83. Header_Text4 := " Gb Free on Cap 8"
  84. Font_Size4   := "14"
  85. Font_Style4  := "Lucida Sans Unicode"
  86. Font_Color4  := "Green"
  87.  
  88. Gui, 4: +Toolwindow -Caption +Lastfound +AlwaysOnTop
  89. GUI_ID := WinExist()
  90. Gui, 4: +LastFound
  91. Gui, 4: Margin, 0, 0
  92.  
  93. Gui, 4: Font, s%Font_Size2% c%Font_Color2%, % Font_Style2
  94. Gui, 4: Add, Text, xm+900 ym+60 0x200 vmyText, % Round(freeS/1024) Header_Text4
  95. Gui, 4: Font
  96. Gui, 4: Color, EEAA99
  97. Winset, Transcolor, EEAA99
  98. Gui, 4: Show, x0 y0 w1280 h768, Overlay
  99.  
  100.  
  101. #T:: ; Toggle the GUI.
  102. {
  103.     If ! ( Toggle_Gui )
  104.     {
  105.  
  106.         Gui, 1: Show, Hide
  107.         Gui, 2: Show, Hide
  108.         Gui, 3: Show, Hide
  109.         Gui, 4: Show, Hide
  110.  
  111.     }
  112.     Else
  113.     {
  114.  
  115.         Gui, 1: Show
  116.         Gui, 2: Show
  117.         Gui, 3: Show, Hide
  118.         Gui, 4: Show, Hide
  119.  
  120.     }
  121.     Toggle_Gui := !Toggle_Gui
  122. }
  123.  
  124. onClick:
  125. {
  126.     Gui, 2: Submit, NoHide
  127.     If ( A_GuiControl = "myButton01" )
  128.     {
  129.         WinWait, Digital Rapids Stream,
  130.         IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  131.         WinWaitActive,  Digital Rapids Stream,
  132.         MouseClick, left,  248,  12
  133.         Sleep, 200
  134.         Send, {ALTDOWN}f{ALTUP}o
  135.         WinWait, Open Local Project...,
  136.         IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  137.         WinWaitActive, Open Local Project...,
  138.         Sleep, 200
  139.         Send, ntsc{SHIFTDOWN}-{SHIFTUP}ndf{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  140.     }
  141.     Else If ( A_GuiControl = "myButton02" )
  142.     {
  143.         WinWait, Digital Rapids Stream,
  144.         IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  145.         WinWaitActive,  Digital Rapids Stream,
  146.         MouseClick, left,  248,  12
  147.         Sleep, 200
  148.         Send, {ALTDOWN}f{ALTUP}o
  149.         WinWait, Open Local Project...,
  150.         IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  151.         WinWaitActive, Open Local Project...,
  152.         Sleep, 200
  153.         Send, ntsc{SHIFTDOWN}-{SHIFTUP}df{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  154.     }
  155.     Else If ( A_GuiControl = "myButton03" )
  156.     {
  157.         WinWait, Digital Rapids Stream,
  158.         IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  159.         WinWaitActive,  Digital Rapids Stream,
  160.         MouseClick, left,  248,  12
  161.         Sleep, 200
  162.         Send, {ALTDOWN}f{ALTUP}o
  163.         WinWait, Open Local Project...,
  164.         IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  165.         WinWaitActive, Open Local Project...,
  166.         Sleep, 200
  167.         Send, pal{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  168.     }
  169.     Else If ( A_GuiControl = "myButton04" )
  170.     {
  171.         WinWait, Digital Rapids Stream,
  172.         IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  173.         WinWaitActive,  Digital Rapids Stream,
  174.         MouseClick, left,  248,  12
  175.         Sleep, 200
  176.         Send, {ALTDOWN}f{ALTUP}o
  177.         WinWait, Open Local Project...,
  178.         IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  179.         WinWaitActive, Open Local Project...,
  180.         Sleep, 200
  181.         Send, ntsc{SHIFTDOWN}-{SHIFTUP}ndf{SHIFTDOWN}-{SHIFTUP}l-r{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}l-ltc{SHIFTDOWN}-{SHIFTUP}simultaneous.prj{ENTER}
  182.     }
  183.     Else If ( A_GuiControl = "myButton05" )
  184.     {
  185.         WinWait, Digital Rapids Stream,
  186.         IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  187.         WinWaitActive,  Digital Rapids Stream,
  188.         MouseClick, left,  248,  12
  189.         Sleep, 200
  190.         Send, {ALTDOWN}f{ALTUP}o
  191.         WinWait, Open Local Project...,
  192.         IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  193.         WinWaitActive, Open Local Project...,
  194.         Sleep, 200
  195.         Send, ntsc{SHIFTDOWN}-{SHIFTUP}df{SHIFTDOWN}-{SHIFTUP}l-r{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}l-ltc{SHIFTDOWN}-{SHIFTUP}simultaneous.prj{ENTER}
  196.     }
  197.     Else If ( A_GuiControl = "myButton06" )
  198.     {
  199.         WinWait, Digital Rapids Stream,
  200.         IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  201.         WinWaitActive,  Digital Rapids Stream,
  202.         MouseClick, left,  248,  12
  203.         Sleep, 200
  204.         Send, {ALTDOWN}f{ALTUP}o
  205.         WinWait, Open Local Project...,
  206.         IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  207.         WinWaitActive, Open Local Project...,
  208.         Sleep, 200
  209.         Send, pal{SHIFTDOWN}-{SHIFTUP}l-r{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}l-ltc{SHIFTDOWN}-{SHIFTUP}simultaneous.prj{ENTER}
  210.     }
  211.     Else If ( A_GuiControl = "myButton07" )
  212.     {
  213.         WinWait, Digital Rapids Stream,
  214.         IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  215.         WinWaitActive,  Digital Rapids Stream,
  216.         MouseClick, left,  248,  12
  217.         Sleep, 200
  218.         Send, {ALTDOWN}f{ALTUP}o
  219.         WinWait, Open Local Project...,
  220.         IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  221.         WinWaitActive, Open Local Project...,
  222.         Sleep, 200
  223.         Send, ntsc{SHIFTDOWN}-{SHIFTUP}ndf{SHIFTDOWN}-{SHIFTUP}3-4{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  224.     }
  225.  
  226.     Else If ( A_GuiControl = "myButton08" )
  227.     {
  228.         WinWait, Digital Rapids Stream,
  229.         IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  230.         WinWaitActive,  Digital Rapids Stream,
  231.         MouseClick, left,  248,  12
  232.         Send, {ALTDOWN}f{ALTUP}o
  233.         WinWait, Open Local Project...,
  234.         IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  235.         WinWaitActive, Open Local Project...,
  236.         Sleep, 200
  237.         Send, ntsc{SHIFTDOWN}-{SHIFTUP}df{SHIFTDOWN}-{SHIFTUP}3-4{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  238.     }
  239.     Else If ( A_GuiControl = "myButton09" )
  240.     {
  241.         WinWait, Digital Rapids Stream,
  242.         IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  243.         WinWaitActive,  Digital Rapids Stream,
  244.         MouseClick, left,  248,  12
  245.         Sleep, 200
  246.         Send, {ALTDOWN}f{ALTUP}o
  247.         WinWait, Open Local Project...,
  248.         IfWinNotActive, Open Local Project..., , WinActivate, Open Local Project...,
  249.         WinWaitActive, Open Local Project...,
  250.         Sleep, 200
  251.         Send, pal{SHIFTDOWN}-{SHIFTUP}3-4{SHIFTDOWN}-{SHIFTUP}{SHIFTDOWN}=-{SHIFTUP}ltc{SHIFTDOWN}-{SHIFTUP}mp2.prj{ENTER}
  252.     }
  253.     Else If ( A_GuiControl = "myButton10" )
  254.     {
  255.         ; Do other stuff here.
  256.         MsgBox, You clicked "Future Button 1".
  257.     }
  258.     Else If ( A_GuiControl = "myButton11" )
  259.     {
  260.         ; Do other stuff here.
  261.         MsgBox, You clicked "Future Button 2".
  262.     }
  263.     Else If ( A_GuiControl = "myButton12" )
  264.     {
  265.         ; Do other stuff here.
  266.         MsgBox, You clicked "Future Button 3".
  267.     }
  268.     Else If ( A_GuiControl = "myButton13" )
  269.     {
  270.         ; Do other stuff here.
  271.         MsgBox, You clicked "Future Button 4".
  272.     }
  273.     Else If ( A_GuiControl = "myButton14" )
  274.     {
  275.         ; Do other stuff here.
  276.         MsgBox, You clicked "Future Button 5".
  277.     }
  278.     Else If ( A_GuiControl = "myButton15" )
  279.     {
  280.         ; Do other stuff here.
  281.         MsgBox, You clicked "Future Button 6".
  282.     }
  283.     Else If ( A_GuiControl = "myButton16" )
  284.     {
  285.         WinWait, Digital Rapids Stream,
  286.         IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  287.         WinWaitActive,  Digital Rapids Stream,
  288.         MouseClick, left,  248,  12
  289.         Sleep, 100
  290.         Send, {ALTDOWN}{ALTUP}op
  291.         WinWait, Preferences,
  292.         IfWinNotActive, Preferences, , WinActivate, Preferences,
  293.         WinWaitActive, Preferences,
  294.         MouseClick, left,  105,  98
  295.         Sleep, 100
  296.         MouseClick, left,  392,  58
  297.         Sleep, 200
  298.         Send {Up}
  299.         Sleep, 100
  300.         Send, {ENTER}
  301.         Sleep, 100
  302.         Send, {ENTER}
  303.     }
  304.     Else If ( A_GuiControl = "myButton17" )
  305.     {
  306.         WinWait, Digital Rapids Stream,
  307.         IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  308.         WinWaitActive,  Digital Rapids Stream,
  309.         MouseClick, left,  248,  12
  310.         Sleep, 100
  311.         MouseClick, left,  248,  12
  312.         Sleep, 100
  313.         Send, {ALTDOWN}{ALTUP}op
  314.         WinWait, Preferences,
  315.         IfWinNotActive, Preferences, , WinActivate, Preferences,
  316.         WinWaitActive, Preferences,
  317.         MouseClick, left,  105,  98
  318.         Sleep, 100
  319.         MouseClick, left,  392,  58
  320.         Sleep, 200
  321.         Send {Down}
  322.         Sleep, 100
  323.         Send, {ENTER}
  324.         Sleep, 100
  325.         Send, {ENTER}
  326.     }
  327. }
  328.  
  329. #n::
  330. {
  331.     WinWait, Digital Rapids Stream,
  332.     IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  333.     WinWaitActive,  Digital Rapids Stream,
  334.     MouseClick, left,  248,  12
  335.     Sleep, 100
  336.     Send, {ALTDOWN}{ALTUP}op
  337.     WinWait, Preferences,
  338.     IfWinNotActive, Preferences, , WinActivate, Preferences,
  339.     WinWaitActive, Preferences,
  340.     MouseClick, left,  105,  98
  341.     Sleep, 100
  342.     MouseClick, left,  392,  58
  343.     Sleep, 200
  344.     Send {Up}
  345.     Sleep, 100
  346.     Send, {ENTER}
  347.     Sleep, 100
  348.     Send, {ENTER}
  349. }
  350.  
  351. #p::
  352. {
  353.     WinWait, Digital Rapids Stream,
  354.     IfWinNotActive, Digital Rapids Stream, , WinActivate, Digital Rapids Stream,
  355.     WinWaitActive,  Digital Rapids Stream,
  356.     MouseClick, left,  248,  12
  357.     Sleep, 100
  358.     MouseClick, left,  248,  12
  359.     Sleep, 100
  360.     Send, {ALTDOWN}{ALTUP}op
  361.     WinWait, Preferences,
  362.     IfWinNotActive, Preferences, , WinActivate, Preferences,
  363.     WinWaitActive, Preferences,
  364.     MouseClick, left,  105,  98
  365.     Sleep, 100
  366.     MouseClick, left,  392,  58
  367.     Sleep, 200
  368.     Send {Down}
  369.     Sleep, 100
  370.     Send, {ENTER}
  371.     Sleep, 100
  372.     Send, {ENTER}
  373. }
  374.  
  375. !numpad0::
  376. {
  377.     MouseClick, left,  710,  460
  378.     Sleep, 100
  379.     WinWait, Ingest Upload Verification Page - Mozilla Firefox,
  380.     IfWinNotActive, Ingest Upload Verification Page - Mozilla Firefox, , WinActivate, Ingest Upload Verification Page - Mozilla Firefox,
  381.     WinWaitActive, Ingest Upload Verification Page - Mozilla Firefox,
  382.     Sleep, 100
  383.     MouseClick, left,  711,  253
  384.     Sleep, 100
  385.     WinWait, Ingest Upload Sucess Home Page - Mozilla Firefox,
  386.     IfWinNotActive, Ingest Upload Sucess Home Page - Mozilla Firefox, , WinActivate, Ingest Upload Sucess Home Page - Mozilla Firefox,
  387.     WinWaitActive, Ingest Upload Sucess Home Page - Mozilla Firefox,
  388.     Sleep, 100
  389.     MouseClick, left,  713,  405
  390.     Sleep, 100
  391.     MouseClick, left,  713,  370
  392. }
  393.  
  394. :*:aspera::
  395. {
  396.     Run, C:\Program Files\Aspera\Aspera Scp\bin\asperacopy.exe
  397.     WinWait, Aspera File Transfer,
  398.     IfWinNotActive, Aspera File Transfer, , WinActivate, Aspera File Transfer,
  399.     WinWaitActive, Aspera File Transfer,
  400.     MouseClick, left,  491,  131
  401.     Sleep, 100
  402.     MouseClick, left,  794,  233
  403.     Sleep, 100
  404.     Send, {ALTDOWN}{SPACE}x{ALTUP}{ALTDOWN}{ALTUP}{RIGHT}{RIGHT}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}
  405.     MouseClick, left,  390,  116
  406.     Sleep, 100
  407. }
  408.  
  409. #1::
  410. {
  411.     WinWait, Digital Rapids Stream,