#SingleInstance, Force
#Persistent
#NoEnv
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.


; Create the gui
Gui, Add, Edit, H200 W200
Gui, Add, Button, w56 h20 gGo, &Go
gui, show,, Tournament Summary Requester

return

Go:

; Get list tourn from text box
ControlGetText, Tourn_List, Edit1, Tournament Summary Requester

; Loop through tourn list
Loop, parse, Tourn_List, `n, `r
{

SetTitleMatchMode, 2

; Select the Tournament History Requests menu item
WinMenuSelectItem, PokerStars Lobby,, Requests, Tournament History...
if ErrorLevel
{
    MsgBox, WinWait timed out Trying to request the Tournament History from main request in the lobby.
    exit
}
else
{
   ;MsgBox, Found Tournament History.
   ; Wait for the Tournament History Requests item to popup
   WinWait, Tournament History ahk_class #32770,,3
   if ErrorLevel
   {
    MsgBox, WinWait timed out inside of waiting to set tournament ID after 3 seconds
    exit
   }
   else 
   {
     ; MsgBox, In the Tournament History window, Going to set the Tournament ID to %A_LoopField%
      SetControlDelay -1
      ControlClick, Button2, Tournament History,,,,NA
      ControlSetText, Edit2, %A_LoopField%, Tournament History
      ControlClick, OK, Tournament History
      ; Wait for the email message sent box
      SetTitleMatchMode, 3
      WinWait, PokerStars ahk_class #32770,,120
      if ErrorLevel
      {
       MsgBox, WinWait timed out waiting on email message box for %A_LoopField% for 120 seconds.
       return
      }
      else
      {
       ; Click OK on message box
       ;MsgBox WinWait found email message box for %A_LoopField%
       ControlClick, OK, PokerStars
      }


   }
} ;end the else
} ;end the loop

MsgBox, Done!
return

#SingleInstance, Force
#Persistent
#NoEnv
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.

#include postgresfunctions.ahk


; Create the gui
Gui, Add, Edit, H200 W200
Gui, Add, Button, w56 h20 gGo, &Go
gui, show,, Tournament Summary Requester


sql := "SELECT tourney_holdem_summary.tourney_no FROM tourney_holdem_summary  WHERE ((SELECT sum(val_finish) FROM tourney_holdem_results thr WHERE thr.id_tourney = tourney_holdem_summary.id_tourney) = 0) AND tourney_holdem_summary.id_site in (100) ORDER BY tourney_no DESC LIMIT 60;" 
result := psql(sql)
controlsettext, Edit1, %result%, Tournament Summary Requester


return

Go:

; Get list tourn from text box
ControlGetText, Tourn_List, Edit1, Tournament Summary Requester

; Loop through tourn list
Loop, parse, Tourn_List, `n, `r
{
; Select the Tournament History Requests menu item
WinMenuSelectItem, PokerStars Lobby,, Requests, Tournament History...
; Wait for the Tournament History Requests item to popup
WinWait, Tournament History ahk_class #32770,

; Click the radio button for Tournament ID. Repeat until selected (ControlClick is unreliable, probably a better way of doing this)
loop 
{
Enabled = 0
ControlGet, Enabled, Enabled, , Edit2, Tournament History
IF (Enabled == 0)
	ControlClick, Button2, Tournament History
ELSE
	break
sleep, 1000
}

sleep, 1000
; Enter the tourn ID into the text box
ControlSetText, Edit2, %A_LoopField%, Tournament History
sleep, 1000
Click the OK button
ControlClick, Button4, Tournament History
sleep, 1000
; Wait for the message box
WinWait, PokerStars ahk_class #32770,,PokerStars
sleep, 1000
; Click OK on message box
ControlClick, Button1, PokerStars ahk_class #32770,,,,PokerStars Lobby
sleep, 1000
}
MsgBox, Done!
return

GuiClose:
 ExitApp
Return