#include <MsgBoxConstants.au3>
#include <IE.au3>
#include <Date.au3>


Global $Paused, $Runner
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")


Func _Au3RecordSetup()
Opt('WinWaitDelay',100)
Opt('WinDetectHiddenText',1)
Opt('MouseCoordMode',0)
Local $aResult = DllCall('User32.dll', 'int', 'GetKeyboardLayoutNameW', 'wstr', '')
If $aResult[1] <> '00000409' Then
  MsgBox(64, 'Warning', 'Recording has been done under a different Keyboard layout' & @CRLF & '(00000409->' & $aResult[1] & ')')
EndIf

EndFunc

Func _WinWaitActivate($title,$text,$timeout=0)
	WinWait($title,$text,$timeout)
	If Not WinActive($title,$text) Then WinActivate($title,$text)
	WinWaitActive($title,$text,$timeout)
EndFunc

_AU3RecordSetup()

Local $aArray[4]
    $aArray[0] = "1176558276"
    $aArray[1] = "1005642660"
    $aArray[2] = "1171357914"
    $aArray[3] = "1011051215"


Local $bArray[4]
    $bArray[0] = "wvwzzz6nzsw065330"
    $bArray[1] = "zfa18200004373960"
    $bArray[2] = "jt153eea100328788"
    $bArray[3] = "zapc4610000032182"

Run('C:\Users\Besar\Desktop\IAS2X_ALT3C_269_0.exe')
_WinWaitActivate("Siguria login v2.6.9.0","")
Send("as{TAB}asd{ENTER}")
_WinWaitActivate("IAS 2.6.9.0 - Vera Stublla- HQ - Siguria ","")


   for $n_per in $aArray

	  for $n_shas in $bArray

Send("{F2}")
_WinWaitActivate("IAS","Llogaria e kontraktu")
Send("{TAB}{TAB}{TAB}"&$n_per&"{ENTER}"&$n_shas&"{ENTER}{TAB}{TAB}{TAB}{TAB}{TAB}{ENTER}{ENTER}")
_WinWaitActivate("Save Print Output As","Namespace Tree Contr")
MouseClick("left",805,442,1)
Send("ias fatura" &@YEAR & @MON& @MDAY & @HOUR& @Min& @MSEC )
 Send(" {Enter} ")

   Sleep(3500)


	  Next

	Next




Func TogglePause()
    $Paused = Not $Paused
    While $Paused
        Sleep(100)
        ToolTip('Script is "Paused"', 0, 0)
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
    Exit 0
EndFunc