#include <MsgBoxConstants.au3>
#include <Process.au3>
#include <Constants.au3>
#include <String.au3>
#include <Array.au3>
#include <StringConstants.au3>
#RequireAdmin

Global $strUsername,$strPassword
;Give the path of JSQLAccessProperties.xml file of LoanIQ
Global  $sFile ="C:\sam1.xml"
$strFileContent=FileRead($sFile)

; Getting the DBDefaultUsername
$arrResult = StringRegExp($strFileContent, '<entry key="DBDefaultUserName">([^<]*)</entry>', $STR_REGEXPARRAYGLOBALMATCH)
If IsArray($arrResult) Then $strUsername = $arrResult[0]

; Getting the DBDefaultPassword
$arrResult = StringRegExp($strFileContent, '<entry key="DBDefaultPassword">([^<]*)</entry>', $STR_REGEXPARRAYGLOBALMATCH)
If IsArray($arrResult) Then $strPassword = $arrResult[0]

;Getting the DBHostaname
$arrResult = StringRegExp($strFileContent, '<entry key="JSqlAccessJdbcUrl">jdbc:oracle:thin:@[\/]{1,}([^:]+):([^<]+)\/([^<]+)<\/entry>', $STR_REGEXPARRAYGLOBALMATCH)
If IsArray($arrResult) Then  $DBHostName=$arrResult[0]

;Getting the DBPortNumber
$arrResult = StringRegExp($strFileContent, '<entry key="JSqlAccessJdbcUrl">jdbc:oracle:thin:@[\/]{1,}([^:]+):([^<]+)\/([^<]+)<\/entry>', $STR_REGEXPARRAYGLOBALMATCH)
If IsArray($arrResult) Then  $DBPortNumber=$arrResult[1]

;Getting the Datasource
$arrResult = StringRegExp($strFileContent, '<entry key="JSqlAccessJdbcUrl">jdbc:oracle:thin:@[\/]{1,}([^:]+):([^<]+)\/([^<]+)<\/entry>', $STR_REGEXPARRAYGLOBALMATCH)
If IsArray($arrResult) Then  $DataSource=$arrResult[2]

;MsgBox($MB_ICONINFORMATION, "", "Username: " & $strUsername)
;MsgBox($MB_ICONINFORMATION, "", "Password: " & $strPassword)
;MsgBox($MB_ICONINFORMATION, "", "DBHostName: " & $DBHostName)
;MsgBox($MB_ICONINFORMATION, "", "DBPortNumber: " & $DBPortNumber )
;MsgBox($MB_ICONINFORMATION, "", "DataSource: " & $DataSource )

Run(@ScriptDir & '\setup.exe')
AutoItSetOption('MouseCoordMode',0)
;Opt("WinWaitDelay", 100)
;Opt("WinTitleMatchMode", 4)
WinWait('Trader Desktop Server')
WinActivate('Trader Desktop Server')

If WinActive("Trader Desktop Server") Then
    ;MsgBox(0, "", "Trader Desktop Server is active")
Else
    ;MsgBox(0, "", "Trader Desktop Server is not active")
EndIf


ControlClick ("Trader Desktop Server", "", "[CLASS:Button; INSTANCE:1]","", 1, 0, 0)
sleep(1000)
ControlClick ("Trader Desktop Server", "", "[CLASS:Button; INSTANCE:1]","", 1, 0, 0)
sleep(1000)
ControlClick ("Trader Desktop Server", "", "[CLASS:Button; INSTANCE:1]","", 1, 0, 0)
sleep(1000)
ControlClick ("Trader Desktop Server", "", "[CLASS:Button; INSTANCE:5]","left", 1, 0, 0)
sleep(1000)
ControlClick ("Trader Desktop Server", "", "[CLASS:Button; INSTANCE:1]","", 1, 0, 0)
sleep(1000)
ControlClick ("Trader Desktop Server", "", "[CLASS:Button; INSTANCE:1]","", 1, 0, 0)
sleep(1000)
MouseClick('primary', 167, 144, 1, 0)
Opt('SendKeyDelay', 40)
ControlSend("Trader Desktop Server","",1430,$strUsername)
Send ("{TAB}")
ControlSend("Trader Desktop Server","",1427,$strPassword)
Send ("{TAB}")
ControlSend("Trader Desktop Server","",1376,$DataSource)
sleep(1000)
ControlClick ("Trader Desktop Server", "", "[CLASS:Button; INSTANCE:1]","", 1, 0, 0)
sleep(1000)
MouseClick('primary', 167, 154, 1, 0)
sleep(1000)
Opt('SendKeyDelay', 20)
ControlSend("Trader Desktop Server","",1430,$DBHostName)
ControlSend("Trader Desktop Server","",1430,"{TAB}")
Opt('SendKeyDelay', 30)
ControlSend("Trader Desktop Server","",1427,$DBPortNumber)
ControlSend("Trader Desktop Server","",1427,"{TAB}")
ControlSend("Trader Desktop Server","",1376,"TDT_SUNT")
ControlSend("Trader Desktop Server","",1376,"{TAB}")
ControlSend("Trader Desktop Server","",1421,"LIQ")
ControlSend("Trader Desktop Server","",1421,"{TAB}")
ControlSend("Trader Desktop Server","",1361,"C:\Program Files\Finastra\Logs")
sleep(1000)
ControlClick ("Trader Desktop Server", "", "[CLASS:Button; INSTANCE:1]","", 1, 0, 0)
sleep(1000)
MouseClick('primary', 169, 155, 1, 0)
Opt('SendKeyDelay',20)
ControlSend("Trader Desktop Server","",1430,"aa")
ControlSend("Trader Desktop Server","",1430,"{TAB}")
ControlSend("Trader Desktop Server","",1427,"bb")
ControlSend("Trader Desktop Server","",1427,"{TAB}")
ControlSend("Trader Desktop Server","",1376,"cc")
ControlSend("Trader Desktop Server","",1376,"{TAB}")
ControlSend("Trader Desktop Server","",1421,"dd")
ControlSend("Trader Desktop Server","",1421,"{TAB}")
ControlClick ("Trader Desktop Server", "", "[CLASS:Button; INSTANCE:1]","", 1, 0, 0)
sleep(1000)
MouseClick('primary', 168, 154, 1, 0)
Opt('SendKeyDelay',20)
ControlSend("Trader Desktop Server","",1376,"aaa")
ControlSend("Trader Desktop Server","",1376,"{TAB}")
ControlSend("Trader Desktop Server","",1361,"bbb")
ControlSend("Trader Desktop Server","",1361,"{TAB}")
ControlSend("Trader Desktop Server","",1362,"ccc")
ControlSend("Trader Desktop Server","",1362,"{TAB}")
ControlSend("Trader Desktop Server","",1357,"ddd")
ControlSend("Trader Desktop Server","",1357,"{TAB}")
ControlSend("Trader Desktop Server","",1353,"eee")
ControlSend("Trader Desktop Server","",1353,"{TAB}")
ControlClick ("Trader Desktop Server", "", "[CLASS:Button; INSTANCE:1]","", 1, 0, 0)
sleep(1000)
ControlClick ("Trader Desktop Server", "", "[CLASS:Button; INSTANCE:1]","", 1, 0, 0)
sleep(1000)
winwait ('Trader Desktop Server','Trader Desktop Server has been successfully installed')
WinActivate ('Trader Desktop Server')
ControlClick ("Trader Desktop Server", "", "[CLASS:Button; INSTANCE:1]","", 1, 0, 0)