winrar_license_close.ahk

;winrar_license_close.ahk
; Closing license window popping up from winrar
; As all of my scripts this works best on AHK_L version.
; Please enter correct values for Your system in the variables: w_path, w_title, w_text
#Persistent
#SingleInstance force
Menu, Tray, NoStandard
Menu, Tray, DeleteAll
Menu, Tray, Add, Pro Action, proactiontoggle
Menu, Tray, Default, Pro Action
Menu, Tray, Add
Menu, Tray, Standard

w_title:="Kup licencję!"
;w_class:="#32770"
w_text:="WinRAR nie jest darmowym programem"
w_path:="ENTER HERE PATH TO YOUR PROGRAM FILES\WinRAR\WinRAR.exe"
proaction:=true         ;set this to opposite of what you want at startup
GoSub, proactiontoggle
SetTitleMatchMode 2
SetTimer, smth, -500
SetTimer, closetip, -6000
TrayTip,,Jesli wyskoczy okno Kup licencje! z WinRara wcisne w nim Esc
SoundPlay,DISK:\Team Fortress 2\tf\sound\vo\engineer_specialcompleted06.wav,wait
return              ; koniec auto-execute section

smth:
SetTimer, smth, off
if proaction
{
    WinWait,%w_title%, %w_text%
    WinActivate
} else
    WinWaitActive,%w_title%, %w_text%
Send, {Esc}
traytip,,Zamknięte
SoundPlay,DISK:\Team Fortress 2\tf\sound\vo\engineer_specialcompleted08.wav,wait
Menu, Tray, Icon, %w_path%,1
SetTimer, closetip, -2000
SetTimer, smth, -2000
return ;end of smth

closetip:
SetTimer, closetip, Off
tooltip
traytip
Menu, Tray, Icon, %w_path%,2
return

proactiontoggle:
proaction:=not proaction
if proaction
{
    Menu, Tray, Check, Pro Action
    TrayTip,, Now closing window if anywhere found!
} else {
    Menu, Tray, Uncheck, Pro Action
    TrayTip,, Closing window if active
}
return