Func VMwareLogin()
   ; Open the VMware program
   Local $iPID = Run("C:\Program Files\VMware\VMware Horizon View Client\vmware-view.exe")
   ; Select the virtual server
   Opt("WinTitleMatchMode", 3)
   WinActivate("VMware Horizon Client")
   WinWaitActive("VMware Horizon Client")
   ; ControlClick("VMware Horizon Client", "", "VMware Horizon Client Image Item1", "left", 2)
   ; Enter password and login
   WinWaitActive("Login")
   Sleep(500)
   Opt("SendKeyDelay",50)
   Send($sPassword1 & "{ENTER}")
   Opt("SendKeyDelay",$iKeyDelay)
   ; Select the virtual machine
   WinWaitActive("VMware Horizon Client")
   ControlClick("VMware Horizon Client", "", "VMware Horizon Client Image Item2", "left", 2)
   ; Accept the terms of use
   WinActivate($sVirtualTitle)
   WinWaitActive($sVirtualTitle)
   Sleep(5000)
   Local $iColor = PixelGetColor(1130,340)
   If $iColor == 0x000000 Then
	  MouseClick ("left", 423, 339)
	  Sleep(1000)
	  MouseClick ("left", 908, 593)
	  Sleep(180000)
   EndIf
   Send("{ENTER}")
   Sleep(180000)
EndFunc

Func VMwareWindowActive($title)
   WinActivate($title)
   WinWaitActive($title)
   Local $iColor = PixelGetColor(635,200)
   If $iColor == 0x1D5F7A Then
	  Send("{ENTER}")
	  Sleep(1000)
	  Send($sPassword1 & "{ENTER}")
	  Sleep(15000)
EndIf
EndFunc

Func DelExport()

   Local $iDelIcon = PixelGetColor(340,720)
   Local $iDelActiveIcon = PixelGetColor(358,700)
   Local $oExcel = _Excel_Open()
   Local $oWorkbook1 = _Excel_BookOpen($oExcel,$sImportFilename)

   WinActivate($sVirtualTitle)
   WinWaitActive($sVirtualTitle)

   If $iDelIcon <> 0xFD0200 Then
	  MouseClick("left",$iStartButtonX,$iStartButtonY)
	  Opt("SendKeyDelay",50)
	  Send("K:\FasTrac.exe{ENTER}")
	  Sleep(5000)
	  Send("AKOP{TAB}")
	  Sleep(1000)
	  Send($sPassword2 & "{ENTER}")
	  Opt("SendKeyDelay",$iKeyDelay)
	  Sleep(5000)
   ElseIf $iDelActiveIcon <> 0xFFFFFF Then
	  MouseClick ("left", 340,720)
	  Sleep(1000)
   EndIf
   Send("{DOWN}{ENTER}")
   Sleep(5000)
   Send("!DM")
   Sleep(5000)
   ;Dim $aRoutes[25] = [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24]
   Dim $aRoutes[3] = [0,4,8]
   Local $iCount = 0
   For $iCount = 0 To 24 Step 1
	  If $aRoutes[$iCount] = $iCount Then
		 Send("{ENTER}{TAB}")
		 Send("{APPSKEY}")
		 Send("X")
		 Sleep(2500)
		 Opt("SendKeyDelay",50)
		 Send("2341")
		 If $iCount < 10 Then
			Send("0")
		 EndIf
		 Send($iCount)
		 Send(".xlsx{ENTER}")
		 Opt("SendKeyDelay",$iKeyDelay)
		 Sleep(4000)
		 MouseClick ("left",$iAcceptButtonX,$iAcceptButtonY)
		 Send("Y")
		 Sleep(4000)
		 Send("{ENTER}")
		 Sleep(6000)
		 Send("^{HOME}^a^c")
		 WinActivate($sImportWindow)
		 WinWaitActive($sImportWindow)
		 Local $oSheet = $oWorkbook1.Worksheets($iCount+1).Activate
		 Sleep(1000)
		 Send("^{HOME}^a^v")
		 WinActivate($sVirtualTitle)
		 WinWaitActive($sVirtualTitle)
		 Send("!{F4}")
		 Send("n")
		 Send("{RIGHT}{ENTER}")
		 Sleep(5000)
		 Send("{TAB}")
	  EndIf
	  Send("{DOWN}")
   Next
   Send("!{F4}")
   Sleep(3000)
   Send("!{F4}")
EndFunc