;
; AutoIt Version: 3.0
; Language:       English
; Platform:       Win9x/NT/XP
; Author:         Neil Robertson GM8EUG
;
; Script Function: Script to read colours of WSPR status box and chosen HRD button once the two windows have been positioned/sized
;on the screen.


; Prompt the user to run the script - use a Yes/No prompt 
$answer = MsgBox(4, "WSPR6", "Run?")


; If "No" was clicked (7) then exit the script
If $answer = 7 Then
    MsgBox(0, "AutoIt", "OK.  Bye!")
    Exit
EndIf




; Bring WSPR to top
WinActivate("  WSPR 1.12     by K1JT")
; Check that WSPR is running
WinWaitActive("  WSPR 1.12     by K1JT")
; Move WSPR to top LHS of screen and to a known size so position of receiving/waiting/transmitting box on bottom RHS corner of WSPR window is known and fixed
WinMove("  WSPR 1.12     by K1JT","",0,0,690,543)


; Read colour of WSPR status box and display on screen
$var = PixelGetColor( 675 , 526 )
MsgBox(0, "Decimal Colour of WSPR status box is", $var)



; Bring HRD to top
WinActivate("HamRadioDeluxe - [FT-2000: Demo]")
; Check that HRD is running
WinWaitActive("HamRadioDeluxe - [FT-2000: Demo]")
; Move HRD to bottom half of screen and to a known size so position of  TX button is known
WinMove("HamRadioDeluxe - [FT-2000: Demo]","",0,544,1398,500)


; Read colour of chosen button in HRD and display on screen
$var = PixelGetColor( 1092 , 823 )
MsgBox(0, "Decimal Colour of chosen button in HRD is", $var)



; Bring HRD to top
WinActivate("HamRadioDeluxe - [FT-2000: Demo]")
; Send mouse-click to FT-2000 Moni button to test that we can change its state 
ControlClick ("HamRadioDeluxe - [FT-2000: Demo]","",1053)



$answer = MsgBox(4, "End", "ended")

exit

; Finished!