;
; AutoIt Version: 3.0
; Language:       English
; Platform:       Win9x/NT
; Author:         Rick G
;
; Script Function:
;   Run SAProxy Pro to learn spam messages from Outlook Express
;

; Prompt the user to load program
$answer = MsgBox(0, "Load SAProxyPro", "You need to start SAProxy Pro manually - can't automate this step yet!")
WinWaitActive("SAproxy Pro Configuration Window")

; Run the program
; Run("D:\Program Files\Stata Labs\SAproxy Pro\sa-gui.exe")


; Now start Training mode by pressing Alt-t
Send("!t")

; Now a screen will pop up - need to choose Outlook Express
WinWaitActive("Spam Training", "spamTrainingSelectEmailClient")

; Use AutoItSetOption to slow down the typing speed so we can see it :)
AutoItSetOption("SendKeyDelay", 200)

; Send 4 tabs, then space, then Alt-N
Send("{TAB}")
Send("{TAB}")
Send("{TAB}")
Send("{TAB}")
Send(" ")
Send("!n")

; Now an info screen will pop up - press Next
WinWaitActive("Spam Training", "SpamTrainingInfoPage")
Send("!n")

; Now an info screen will pop up - Need to press Browse button
WinWaitActive("Spam Training", "SpamTrainingLocateMessages")
ControlClick ( "Spam Training", "SpamTrainingLocateMessages", "pushButtonSpamTrainingBrowse")

; Now aBrowse screen appears - enter OE inbox file and then "press Enter"
WinWaitActive("Choose a file")
Send("Inbox.dbx")
Send("!o")

; Now an info screen will pop up - Need to slect these as Spam messages
WinWaitActive("Spam Training", "SpamTrainingLocateMessages")

; Send 3 tabs, then space, then Alt-N
Send("{TAB}")
Send("{TAB}")
Send("{TAB}")
Send(" ")
Send("!n")

; Now an info screen will pop up - press Enter
WinWaitActive("Alert")
Send("{ENTER}")

; Now an info screen will pop up - press Next
WinWaitActive("Spam Training", "SpamTrainingConfirm")
Send("!n")
Sleep(5000)

; Now an info screen will pop up - press Finish
WinWaitActive("Spam Training", "SpamTrainingLearning")
Send("!f")

; Now main window should appear - press Enter
WinWaitActive("SAproxy Pro Configuration Window")
Send("{ENTER}")