#AutoIt3Wrapper_UseX64=n ; In order for the x86 DLLs to work
#include "OpenCV-Match_UDF.au3"

_OpenCV_Startup();loads opencv DLLs
_OpenCV_EnableLogging(True,False,False) ;Logs matches, errors in a log file and autoit console output.

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <FileConstants.au3>
#include <Array.au3>
#include <File.au3>
#include <ColorConstants.au3>
#include <MsgBoxConstants.au3>
#include <String.au3>
#include <virtualkey.au3>
#include <eventmouse.au3>
#Region ### START Koda GUI section ### Form=
Global $stop = HotKeySet("{ESC}","_Exit")
Global $pause_y = HotKeySet("{F2}","_pause")
Global $Match1
Global $Documentcheck = False
Global $Pause = False
$check_1 = RegRead("HKEY_CURRENT_USER\Software\Auto_Setup", "key1")
$check_2 = RegRead("HKEY_CURRENT_USER\Software\Auto_Setup", "key2")
$check_3 = RegRead("HKEY_CURRENT_USER\Software\Auto_Setup", "key3")
$check_4 = RegRead("HKEY_CURRENT_USER\Software\Auto_Setup", "key4")
$savefile_check = RegRead("HKEY_CURRENT_USER\Software\Auto_Setup", "savefile")

$Form1 = GUICreate("Auto Download Omidocs", 530, 138, -1, -1)
$Label1 = GUICtrlCreateLabel("Vui lòng nhập link file ID", 8, 21, 118, 17)
$Input1 = GUICtrlCreateInput("", 128, 16, 321, 21)
GUICtrlSetColor(-1,$COLOR_BlUE)
GUICtrlSetState(-1,$GUI_DISABLE)
$shutdown = GUICtrlCreateCheckbox("Shutdown after download",8,115)
            GUICtrlSetState(-1,$GUI_CHECKED)
$Button1 = GUICtrlCreateButton("Run", 450, 40, 81, 40)
$Label3 = GUICtrlCreateLabel("Save To Folder", 8, 95, 118, 17)
$Input2 = GUICtrlCreateInput($savefile_check, 128, 90, 321, 21)
GUICtrlSetColor(-1,$COLOR_BlUE)
$Input3 = GUICtrlCreateInput($check_1, 455, 90, 30, 21)
$Input4 = GUICtrlCreateInput($check_2, 490, 90, 30, 21)
$Input5 = GUICtrlCreateInput($check_3, 455, 115, 30, 21)
$Input6 = GUICtrlCreateInput($check_4, 490, 115, 30, 21)

$Open = GUICtrlCreateButton("Open", 456, 16, 65, 21)
$Label2 = GUICtrlCreateLabel("Information: ", 8, 56, 49, 17)
Global $Label3 = GUICtrlCreateLabel("Waiting", 80, 56, 350, 25)
GUICtrlSetColor(-1,$COLOR_RED)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
	     Case $GUI_EVENT_CLOSE
			_OpenCV_Shutdown();Closes DLLs
			Exit
		 Case $Open
			$sFileOpenDialog = FileOpenDialog("vui lòng chọn file",@WindowsDir & "\", "All (*.txt)", $FD_FILEMUSTEXIST)
			If @error Then
			   MsgBox(0,"Notify", "No file was selected.")
			Else
			$sFileOpenDialog = StringReplace($sFileOpenDialog, "|", @CRLF)
			   GUICtrlSetData($Input1,$sFileOpenDialog)
			EndIf
		 Case $Button1
			Sleep(3000)
			Local $readinput = GUICtrlRead( $Input1)
			Local $savefile = GUICtrlRead( $Input2)
			Local $toado1 = GUICtrlRead( $Input3)
			Local $toado2 = GUICtrlRead( $Input4)
			Local $toado3 = GUICtrlRead( $Input5)
			Local $toado4 = GUICtrlRead( $Input6)

            RegWrite("HKEY_CURRENT_USER\Software\Auto_Setup", "key1", "REG_SZ", $toado1)
			RegWrite("HKEY_CURRENT_USER\Software\Auto_Setup", "Key2", "REG_SZ", $toado2)
			RegWrite("HKEY_CURRENT_USER\Software\Auto_Setup", "Key3", "REG_SZ", $toado3)
			RegWrite("HKEY_CURRENT_USER\Software\Auto_Setup", "Key4", "REG_SZ", $toado4)
			RegWrite("HKEY_CURRENT_USER\Software\Auto_Setup", "savefile", "REG_SZ", $savefile)

			If $savefile = "" Then $savefile = "C:\Users\tranvantien2\Downloads\Test_pic"
			If $readinput = "" Then
			   MsgBox(0,"Warning!","Vui lòng chọn file trước khi chạy chương trình",$MB_ICONERROR)
			   GUICtrlSetData($Label3, "No file was selected.")
			Else
			Local $sFileRead = FileReadToArray($readinput)
			Local $sogplx_no
			Local $soseri_no
			For $i = 0 To UBound($sFileRead)-1
			    GUICtrlSetData($Label3, "Reading Appid: "& $sFileRead[$i] &" With Line "& $i+1)
				ToolTip("Reading Appid: "& $sFileRead[$i] &" With Line "& $i+1,0,0)
				$App_id = $sFileRead[$i]
				download_pic($App_id,$savefile,$toado1,$toado2,$toado3,$toado4)
			Next

				GUICtrlSetData($Label3, "Done")

			EndIf

;;Check logout user from omidocs
   WinClose('Search - Google Chrome')
   $out = _MatchPicture(@ScriptDir&"\Match\out.png", 0.70,False,10,500)
   If Not @error Then
	   _MarkMatch($out)
	   Sleep(100)
	   _ClickMouse($out, "left",1)
   EndIf
;;End logout

			_OpenCV_Shutdown();Closes DLLs
			If GUICtrlRead($shutdown) = 1 Then
			   Sleep(5000)
			   Shutdown(5)
			   Exit 0
			EndIf
		  EndSwitch
WEnd


Func _Exit()
   _OpenCV_Shutdown();Closes DLLs
   Exit 0
EndFunc

Func _pause()
   If $Pause = False Then
	  $Pause = True
	  _end_pause()
   Else
	  $Pause = False
   EndIf
EndFunc

Func _end_pause()
   ToolTip("Đang tạm dừng, vui lòng nhấn F2.",0,0)
   While 1
	  Sleep(300)
	  If $Pause = False Then ExitLoop
   WEnd
   ToolTip("Tiếp tục thực thi lệnh.",0,0)
EndFunc

Func download_pic($appid,$savefile,$toado1,$toado2,$toado3,$toado4)
Local $path_file = $savefile & "\"

If FileExists($path_file & "HÌNH C_A KHÁCH HÀNG.jpg") = 1 Then
  FileDelete($path_file & "HÌNH C_A KHÁCH HÀNG.jpg")
EndIf

Local $axhwnd = WinGetHandle('Search - Google Chrome')
Local $axhwnd_pop = WinGetHandle('HÌNH CỦA KHÁCH HÀNG - Google Chrome')
  MouseClick_Hy(  $axhwnd, $toado1, $toado2, 'Left')
  ControlSend($axhwnd,"","",'{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}')
  ControlSend($axhwnd,"","",$appid & '{Enter}')
  Sleep(300)
   $Match1 = _MatchPicture(@ScriptDir&"\Match\pic_2.png", 0.70,False,10,500)
   If Not @error Then
	   _MarkMatch($Match1)
	   Sleep(100)
	   _ClickMouse($Match1, "left",1)
	   $Documentcheck = False
   Else
	   $Documentcheck = True
   EndIf

If $Documentcheck = False Then
  $sttcheck = 1
  While 1
     Sleep(300)
	 If WinExists("HÌNH CỦA KHÁCH HÀNG - Google Chrome") = 1 Then ExitLoop
     If $sttcheck >= 3 Then
		_ClickMouse($Match1, "left",1)
     Else
		$sttcheck = $sttcheck + 1
     EndIf
  WEnd
  Sleep(1000)
  ControlClick('HÌNH CỦA KHÁCH HÀNG - Google Chrome',"","","Left",1,$toado3,$toado4)
  Sleep(1000)
  WinClose('HÌNH CỦA KHÁCH HÀNG - Google Chrome')
  $stt = 1
  While 1
	 If FileExists($path_file & "HÌNH C_A KHÁCH HÀNG.jpg") = 1 Or $stt >= 6 Then ExitLoop
     Sleep(300)
     If $stt >= 4 Then
		download_pic_2($appid,$toado3,$toado4)
		$stt = $stt + 1
     Else
		$stt = $stt + 1
     EndIf
  WEnd
  FileMove($path_file & "HÌNH C_A KHÁCH HÀNG.jpg", $path_file & $appid & ".jpg")
EndIf

EndFunc

Func download_pic_2($appid,$toado3,$toado4)
  _ClickMouse($Match1, "left",1)
  Sleep(1000)
  ControlClick('HÌNH CỦA KHÁCH HÀNG - Google Chrome',"","","Left",1,$toado3,$toado4)
  Sleep(1000)
  WinClose('HÌNH CỦA KHÁCH HÀNG - Google Chrome')
EndFunc