API tools faq
paste
Advertisement
sdynk02

Multi-Tool( Building)

sdynk02
Apr 9th, 2016
214
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 87.66 KB | None | 0 0
raw download clone embed print report
  1.  
  2. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
  3. #AutoIt3Wrapper_Icon=..\Icon AutoIT\The_Blacy!\greedy.ico
  4. #AutoIt3Wrapper_Outfile=Multi-Tool.exe
  5. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
  6. #include <Array.au3>
  7. #include <Date.au3>
  8. #include <Excel.au3>
  9. #include <MsgBoxConstants.au3>
  10. #include <ButtonConstants.au3>
  11. #include <GUIConstantsEx.au3>
  12. #include <EditConstants.au3>
  13. #include <WindowsConstants.au3>
  14. #include <GuiEdit.au3>
  15. #include <StaticConstants.au3>
  16. #include <String.au3>
  17. #include <Misc.au3>
  18. #include <AutoItConstants.au3>
  19. #include <File.au3>
  20. #include <ScrollBarsConstants.au3>
  21. #include <GuiStatusBar.au3>
  22.  
  23.  
  24.  
  25. _Singleton(@ScriptName)
  26. Opt("WinTitleMatchMode", 2)
  27. HotKeySet("^s", "_Save")
  28.  
  29. Global $Folder = @ScriptDir
  30. Global $FolderData = $Folder & "\Data"
  31. Global $Excel_File = $FolderData & "\Excel.xlsx"
  32. Global $Ini_File = $FolderData & "\Data.ini"
  33. Global $DataDFD = $FolderData & "\DataDFD.ini"
  34. Global $DataCheckAC = $FolderData & "\DataCheckAC.ini"
  35. Global $Data16162 = $FolderData & "\DataConfig16162.ini"
  36. Global $Data8195 = "D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Dataconfig8195.ini"
  37. Global $MainDataToday = "D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Today\MainData\Data.ini"
  38. Global $CloneDataToday = "D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Today\CloneData\Data.ini"
  39. Global $MainDataTomorrow = "D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Tomorrow\MainData\Data.ini"
  40. Global $CloneDataTomorrow = "D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Tomorrow\CloneData\Data.ini"
  41. Global $Boqua = ""
  42. Global $ToolShow = 1
  43. Global $ToolPos[2] = [0, 0]
  44. Global $Interact_Title = "Interact-v5.5-24Mar14"
  45. Global $Backup = "Session A (F3: New Windows)"
  46. Global $DFD = "Backup DCS (ADMIN on 10.64.16.153)"
  47. Global $Loai[] = ["VNA334", "VNA335", "VNA336", "VNA602", "VNA606", "VNA610", "VNB210", "VNB212", "VNB214", "XU348", "XU350", "VNA371", "VNA344", "VNA613", "XU349", "XU351", "VNA358", "VNA614", "VNA615"]
  48. Global $Pause = True
  49. Global $Result5 = ""
  50. Global $ClipBoard16C162Y, $Edit123, $Login, $Editlogbook, $InputSita
  51. Global $ClipBoard66Y
  52. Global $ClipBoard8C195Y
  53. Global $Result5 = ""
  54. Global $16162[] = ["VNA334", "VNA335", "VNA336", "VNA602", "VNA606", "VNA610", "XU348", "XU350"]
  55. Global $66[] = ["VNB210", "VNB212", "VNB214"]
  56. Global $8C195Y[] = ["VNA613", "VNA344", "XU349", "XU351", "VNA358", "VNA614", "VNA615"]
  57. Global $check = False
  58. Global $Flag = True
  59. Global $Fileopen16168 = "D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\16168.ini"
  60. Global $Fileopen16162 = "D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\16162.ini"
  61. Global $Fileopen8195 = "D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\8195.ini"
  62. Global $Fileopen33001 = "D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\33001.ini"
  63. Global $Fileopen33005 = "D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\33005.ini"
  64. Global $Fileopen33003 = "D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\33003.ini"
  65. Global $Fileopen33011 = "D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\33011.ini"
  66. Global $Fileopen33014 = "D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\33014.ini"
  67. Global $FileopenB77750 = "D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\B77750.ini"
  68. Global $FileopenB77755 = "D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\B77755.ini"
  69. Global $Fileopen66 = "D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\66.ini"
  70. Global $sFilePath = "D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Excel1.txt"
  71. Global $33001[] = ["VNA376", "VNA377", "VNA378"]
  72. Global $33005[] = ["VNA379", "VNA381"]
  73. Global $33003[] = ["VNA369", "VNA370", "VNA372", "VNA374", "VNA375"]
  74. Global $33011[] = ["VNA371"]
  75. Global $33014[] = ["VNA383"]
  76. Global $AT66[] = ["VNB210", "VNB212", "VNB214"]
  77. Global $B77750[] = ["VNA143", "VNA144", "VNA145", "VNA146"]
  78. Global $B77755[] = ["VNA141", "VNA142", "VNA149", "VNA150"]
  79. Global $count[] = ["01", "03", "05", "11"]
  80. Global $24256[] = ["VNA376", "VNA377", "VNA378", "VNA379", "VNA381"]
  81. Global $24242[] = ["VNA369", "VNA370", "VNA372", "VNA374", "VNA375", "VNA371"]
  82. Global $AllExcept16168[] = ["VNA334", "VNA335", "VNA336", "VNA602", "VNA606", "VNA610", "XU348", "XU350", "VNB210", "VNB212", "VNB214", "VNA613", "VNA344", "XU349", "XU351", "VNA358", "VNA614", "VNA615", "VNA376", "VNA377", "VNA378", "VNA379", "VNA381", "VNA369", "VNA370", "VNA372", "VNA374", "VNA375", "VNA371", "VNA383"]
  83. #Region ### START Koda GUI section ### Form=
  84. $frmTool = GUICreate("Multi-Tool", 800, 500, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_TABSTOP))
  85. GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
  86. $AutoFUI = GUICtrlCreateGroup("SSCI", 10, 5, 150, 150)
  87. GUICtrlSetBkColor(-1, 0x3399FF)
  88. $AutoCheckAC = GUICtrlCreateGroup("AutoCheckAC", 10, 255, 150, 150)
  89. GUICtrlSetBkColor(-1, 0x3399FF)
  90. $Options = GUICtrlCreateGroup("Options", 10, 410, 150, 80)
  91. GUICtrlSetBkColor(-1, 0x3399FF)
  92. $Button1 = GUICtrlCreateButton("GetDataFUI", 19, 25, 75, 25)
  93. $Button2 = GUICtrlCreateButton("FUI", 19, 52, 75, 25)
  94. $Button3 = GUICtrlCreateButton("HDSD", 74, 460, 50, 25)
  95. $Label2 = GUICtrlCreateLabel("Config 16/162", 280, 12)
  96. GUICtrlSetColor(-1, 0xFF0000)
  97. $Edit1 = GUICtrlCreateEdit("", 180, 32, 300, 123, BitOR($GUI_SS_DEFAULT_EDIT, $ES_READONLY, $SS_GRAYFRAME))
  98. GUICtrlSetColor(-1, 0xFF0000)
  99. GUICtrlSetFont(-1, 10, 400, 0)
  100. $NewScript = GUICtrlCreateGroup("AutoDFD", 10, 160, 150, 90)
  101. GUICtrlSetBkColor(-1, 0x3399FF)
  102. $btnAn = GUICtrlCreateButton("/\", 130, 460, 25, 25)
  103. $GetDataAC = GUICtrlCreateButton("GetDataAC", 19, 100, 75, 25)
  104. $CheckAC = GUICtrlCreateButton("CheckAC", 19, 125, 75, 25)
  105. $OpenData = GUICtrlCreateButton("^", 100, 25, 25, 23)
  106. $OpenDataDFD = GUICtrlCreateButton("^", 100, 181, 25, 23)
  107. $OpenDataAC = GUICtrlCreateButton("^", 100, 100, 25, 23)
  108. $OpenCheckDataAC = GUICtrlCreateButton("^", 100, 126, 25, 23)
  109. $Delete = GUICtrlCreateButton("Del", 130, 25, 25, 23)
  110. $DeleteDFD = GUICtrlCreateButton("Del", 130, 181, 25, 23)
  111. $DeleteCheckAC = GUICtrlCreateButton("Del", 130, 100, 25, 23)
  112. $DeleteCheckAC2 = GUICtrlCreateButton("Del", 130, 126, 25, 23)
  113. $Printer = GUICtrlCreateButton("Printer", 19, 460, 50, 25)
  114. $GetAC = GUICtrlCreateButton("GetData", 19, 290, 50, 25)
  115. $Checking = GUICtrlCreateButton("Checking", 90, 290, 60, 25)
  116. $Label4 = GUICtrlCreateLabel("Today", 65, 272, 35, 15)
  117. $GetACMai = GUICtrlCreateButton("GetData", 19, 370, 50, 25)
  118. $Move = GUICtrlCreateButton("Move", 19, 430, 50, 25)
  119. $Aircraft = GUICtrlCreateButton("Air-Craft", 74, 430, 60, 25)
  120. GUICtrlSetFont(-1, 10, 400, 0)
  121. $CheckingMai = GUICtrlCreateButton("Checking", 90, 370, 60, 25)
  122. $Label5 = GUICtrlCreateLabel("Tomorrow", 57, 350, 50, 15)
  123. $Label6 = GUICtrlCreateLabel("Config 8/195", 280, 167)
  124. GUICtrlSetColor(-1, 0xFF0000)
  125. $Edit2 = GUICtrlCreateEdit("", 180, 187, 300, 123, BitOR($GUI_SS_DEFAULT_EDIT, $ES_READONLY, $SS_GRAYFRAME))
  126. GUICtrlSetColor(-1, 0xFF0000)
  127. GUICtrlSetFont(-1, 10, 400, 0)
  128. $Edit3 = GUICtrlCreateEdit("", 180, 320, 300, 150, BitOR($GUI_SS_DEFAULT_EDIT, $ES_READONLY, $SS_GRAYFRAME, $ES_CENTER))
  129. GUICtrlSetColor(-1, 0xFF0000)
  130. GUICtrlSetFont(-1, 10, 400, 0)
  131. $GetDFD = GUICtrlCreateButton("GetDataDFD", 19, 180, 75, 25)
  132. $DFD = GUICtrlCreateButton("DFD", 19, 207, 75, 25)
  133. $DeleteDataAC = GUICtrlCreateButton("DELETE", 19, 320, 50, 25)
  134. GUICtrlSetBkColor($DeleteDataAC, 0x3399FF)
  135. $Clear = GUICtrlCreateButton("SubClear", 90, 320, 60, 25)
  136. GUICtrlSetBkColor($Clear, 0x3399FF)
  137. $Editbriefing = GUICtrlCreateEdit("", 490, 13, 300, 200, BitOR($GUI_SS_DEFAULT_EDIT, $ES_READONLY, $ES_CENTER))
  138. GUICtrlSetColor(-1, 0xFF0000)
  139. $Updatebriefing = GUICtrlCreateButton("BRIEFING", 600, 220, 75, 25)
  140. $Editlogbook = GUICtrlCreateEdit("", 490, 250, 300, 200, BitOR($ES_WANTRETURN, $WS_VSCROLL))
  141. GUICtrlSetFont(-1, 11, 400, 0)
  142. $SaveLogbook = GUICtrlCreateButton("Save", 600, 460, 75, 25)
  143. $Status = GUICtrlCreateLabel("Last Updated :", 180, 475)
  144. $TimeStatus = GUICtrlCreateLabel("", 270, 475, 200, 15)
  145. GUI_MoveIn($frmTool, 3)
  146. GUISetState(@SW_SHOW)
  147. #EndRegion ### END Koda GUI section ###
  148.  
  149.  
  150. #Region Login Code
  151. Func __Login()
  152.     $Login = GUICreate("Thông Báo", 250, 100, -1, -1)
  153.     $Username = GUICtrlCreateInput("Username", 7, 7)
  154.     $Password = GUICtrlCreateInput("Password", 7, 37, Default, Default, $ES_PASSWORD)
  155.     $check = GUICtrlCreateButton('OK', 07, 62, 50, 25)
  156.     $Exit = GUICtrlCreateButton("Cancel", 67, 62, 50, 25)
  157.     GUISetState(@SW_SHOW)
  158.     While 1
  159.         Switch GUIGetMsg()
  160.             Case -3
  161.                 GUIDelete()
  162.                 Return 4
  163.  
  164.             Case $check
  165.                 Global $ID = GUICtrlRead($Username)
  166.                 Global $PW = GUICtrlRead($Password)
  167.                 If $ID = "admin" And $PW = "admin" Then
  168.                     __Mainform()
  169.                 Else
  170.                     MsgBox(16 + 262144, "Error", "Your Username or Password is incorrect")
  171.                     Return False
  172.                 EndIf
  173.                 Return 1
  174.             Case $Exit
  175.                 GUIDelete()
  176.                 Return 2
  177.         EndSwitch
  178.     WEnd
  179. EndFunc   ;==>__Login
  180. #EndRegion Login Code
  181. #Region MainForm Code
  182. Func __Mainform()
  183.     GUIDelete($Login)
  184.     Global $EditForm = GUICreate("Edit", 597, 420, 240, 200)
  185.     Global $Edit123 = GUICtrlCreateEdit("", 10, 8, 449, 401, BitOR($ES_WANTRETURN, $WS_VSCROLL))
  186.     Global $OK = GUICtrlCreateButton("Update", 471, 16, 120, 25)
  187.     Global $ClearMainform = GUICtrlCreateButton("Clear", 471, 46, 120, 25)
  188.     Global $Cancel = GUICtrlCreateButton("Cancel", 471, 76, 120, 25)
  189.     $FileReadLogin = FileRead("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Now.txt")
  190.     $SetdataEdit123 = GUICtrlSetData($Edit123, $FileReadLogin)
  191.     GUICtrlCreateGroup("Copy Địa Chỉ Sita", 465, 310, 125, 100)
  192.     GUICtrlSetBkColor(-1, 0xFF0000)
  193.     $InputSita = GUICtrlCreateInput("test", 475, 340, 105, 25, BitOR($GUI_SS_DEFAULT_INPUT, $ES_CENTER))
  194.     $ButtonSita = GUICtrlCreateButton("GO", 471, 370, 50, 25)
  195.     $DeleteSita = GUICtrlCreateButton("Delete", 535, 370, 50, 25)
  196.     GUICtrlSetBkColor(-1, 0xFF0000)
  197.     GUISetState(@SW_SHOW)
  198.     While 1
  199.         Switch GUIGetMsg()
  200.             Case -3
  201.                 GUIDelete()
  202.                 Return 3
  203.             Case $OK
  204.                 FileOpen("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Now.txt", 2 + 128)
  205.                 FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Now.txt", GUICtrlRead($Edit123))
  206.                 FileClose("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Now.txt")
  207.                 $ReadData = FileRead("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Now.txt")
  208.                 GUICtrlSetData($Edit123, $ReadData)
  209.                 GUICtrlSetData($Editbriefing, $ReadData)
  210.             Case $ClearMainform
  211.                 GUICtrlSetData($Edit123, "")
  212.                 GUICtrlSetData($Editbriefing, "")
  213.                 FileDelete("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Now.txt")
  214.             Case $Cancel
  215.                 GUIDelete()
  216.                 Return 2
  217.             Case $ButtonSita
  218.                 _ButtonSita()
  219.             Case $DeleteSita
  220.                 _DeleteSita()
  221.         EndSwitch
  222.     WEnd
  223. EndFunc   ;==>__Mainform
  224. #EndRegion MainForm Code
  225. #Region Code Read File Login Data at Starting
  226. Func _starting_run()
  227.     Global $Flag = True
  228.     Global $FileReadLogin = FileRead("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Now.txt")
  229.     Global $Setdata = GUICtrlSetData($Editbriefing, $FileReadLogin)
  230.     Global $FileReadLogbook = FileRead("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Logbook.txt")
  231.     Global $Setdatalogbook = GUICtrlSetData($Editlogbook, $FileReadLogbook)
  232.     Global $Flag = False
  233. EndFunc   ;==>_starting_run
  234.  
  235. Func __Update()
  236.     __Login()
  237. EndFunc   ;==>__Update
  238. #EndRegion Code Read File Login Data at Starting
  239. #Region Save Logbook
  240. Func _Save()
  241.     FileOpen("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Logbook.txt", 2 + 128)
  242.     FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Logbook.txt", GUICtrlRead($Editlogbook))
  243.     FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\BackUp\Back up\Logbook Backup.txt", GUICtrlRead($Editlogbook))
  244.     FileClose("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Logbook.txt")
  245.     $ReadEditLogbook = FileRead("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Logbook.txt")
  246.     GUICtrlSetData($Editlogbook, $ReadEditLogbook)
  247. EndFunc   ;==>_Save
  248.  
  249. #EndRegion Save Logbook
  250. #Region While1
  251. While 1
  252.     Switch GUIGetMsg()
  253.         Case -3
  254.             Exit
  255.         Case $Button1
  256.             _Buoc1()
  257.         Case $Button2
  258.             _Buoc2()
  259.         Case $Button3
  260.             _HDSD()
  261.         Case $btnAn
  262.             _UpDown()
  263.         Case $CheckAC
  264.             _CheckAC()
  265.         Case $OpenCheckDataAC
  266.             _OpenCheckDataAC()
  267.         Case $DeleteCheckAC2
  268.             _DeleteCheckAC2()
  269.         Case $Delete
  270.             DeleteData()
  271.         Case $Printer
  272.             _Printer()
  273.         Case $OpenData
  274.             _OpenData()
  275.         Case $GetDFD
  276.             _GetDFD()
  277.         Case $DFD
  278.             _DFD()
  279.         Case $GetDataAC
  280.             _GetDataAC()
  281.         Case $GetAC
  282.             _GetACToday()
  283.         Case $Checking
  284.             _CheckingToday()
  285.         Case $GetACMai
  286.             _GetACTomorrow()
  287.         Case $CheckingMai
  288.             _CheckingTomorrow()
  289.         Case $DeleteDataAC
  290.             _DeleteDataAC()
  291.         Case $Clear
  292.             _Clear()
  293.         Case $OpenDataDFD
  294.             _OpenDataDFD()
  295.         Case $OpenDataAC
  296.             _OpenDataAC()
  297.         Case $DeleteDFD
  298.             _DeleteDFD()
  299.         Case $DeleteCheckAC
  300.             _DeleteCheckAC()
  301.         Case $Move
  302.             _Move()
  303.         Case $Aircraft
  304.             _AirCraft()
  305.         Case $SaveLogbook
  306.             _Save()
  307.         Case $Updatebriefing
  308.             __Update()
  309.     EndSwitch
  310.     Sleep(1)
  311.     If $Flag = True Then
  312.         _starting_run()
  313.         _GUICtrlEdit_Scroll($Editlogbook, $SB_PAGEDOWN)
  314.         GUICtrlSetData($TimeStatus, FileRead("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Time\Time.txt"))
  315.     EndIf
  316. WEnd
  317. #EndRegion While1
  318.  
  319. #Region Auto Copy Dien SITA
  320. Func _ButtonSita()
  321.     If MsgBox(3, "Thông Báo", "Kiểm tra kỹ trước khi sử dụng function này !!!!") = 6 Then
  322.         Global $mainpathsita = "S:\Program Files\SITA\SITATEX v7\WINGW\SESSION\000\USER008\Data\Folders\address books\"
  323.         Global $TailieuPathSita = "S:\Program Files\SITA\SITATEX v7\WINGW\SESSION\000\"
  324.         Global $ReadCity = GUICtrlRead($InputSita)
  325.         Global $UserTL[6] = ["USER019", "USER021", "USER024", "USER026", "USER028", "USER004"]
  326.         Global $ArrayFolder[5] = ["CLM VN", "CPM VN", "LDM VN", "MVT\VN-VIETNAM AIRLINES", "UCM VN"]
  327.         For $b = 0 To 4
  328.             If FileExists($mainpathsita & $ArrayFolder[$b] & "\" & $ReadCity & ".adbk") Then
  329.                 For $a = 0 To 5
  330.                     FileCopy($mainpathsita & $ArrayFolder[$b] & "\" & $ReadCity & ".adbk", $TailieuPathSita & $UserTL[$a] & "\Data\Folders\address books\" & $ArrayFolder[$b] & "\" & $ReadCity & ".adbk")
  331.                 Next
  332.                 MsgBox(64, "Thông Báo", "Hoàn Thành" & @CRLF & StringLeft($ArrayFolder[$b], 3) & " của " & $ReadCity & ".adbk")
  333.             Else
  334.                 MsgBox(48, "Thông Báo", "Chưa có" & " " & StringLeft($ArrayFolder[$b], 3) & " của " & $ReadCity & ".adbk")
  335.             EndIf
  336.         Next
  337.     Else
  338.     EndIf
  339. EndFunc   ;==>_ButtonSita
  340. Func _DeleteSita()
  341.     $ReadCity = GUICtrlRead($InputSita)
  342.     Local $UserTL[6] = ["USER019", "USER021", "USER024", "USER026", "USER028", "USER004"]
  343.     Local $ArrayFolder[5] = ["CLM VN", "CPM VN", "LDM VN", "MVT\VN-VIETNAM AIRLINES", "UCM VN"]
  344.     If MsgBox(3, "Thông Báo", "Function này sẽ xóa tất cả địa chỉ của " & "*" & $ReadCity & ".adbk" & "*" & " trên các máy của tài liệu") = 6 Then
  345.         For $b = 0 To 4
  346.             For $a = 0 To 5
  347.                 FileDelete("S:\Program Files\SITA\SITATEX v7\WINGW\SESSION\000\" & $UserTL[$a] & "\Data\Folders\address books\" & $ArrayFolder[$b] & "\" & $ReadCity & ".adbk")
  348.             Next
  349.             MsgBox(64, "Thông Báo", "Đã xóa địa chỉ điện" & @CRLF & StringLeft($ArrayFolder[$b], 3) & " của " & $ReadCity & ".adbk trên các máy tài liệu")
  350.         Next
  351.     EndIf
  352. EndFunc   ;==>_DeleteSita
  353. #EndRegion Auto Copy Dien SITA
  354.  
  355. #Region Gui MoveUpDown
  356. Func GUI_MoveIn($GUI, $speed = 1, $Flag = 1);$flag 1(Bot to Top), 2(Left 2 Right), 3(Top to Bot), 4(Right to Left)
  357.     If $speed = Default Then $speed = 1
  358.     If $Flag = Default Then $Flag = 1
  359.     Local $pos = WinGetPos($GUI), $DskHeight = @DesktopHeight, $DskWidth = @DesktopWidth
  360.     WinMove($GUI, "", $pos[0], $DskHeight)
  361.     GUISetState(@SW_SHOW, $GUI)
  362.     Switch $Flag
  363.         Case 1
  364.             For $i = $DskHeight To ($DskHeight - $pos[3]) / 2 Step ($speed * -1) / 100
  365.                 WinMove($GUI, "", $pos[0], $i)
  366.             Next
  367.         Case 2
  368.             For $i = -$pos[2] To ($DskWidth - $pos[2]) / 2 Step $speed / 100
  369.                 WinMove($GUI, "", $i, $pos[1])
  370.             Next
  371.         Case 3
  372.             For $i = -$pos[3] To ($DskHeight - $pos[3]) / 2 Step $speed / 100
  373.                 WinMove($GUI, "", $pos[0], $i)
  374.             Next
  375.         Case 4
  376.             For $i = $DskWidth To ($DskWidth - $pos[2]) / 2 Step ($speed * -1) / 100
  377.                 WinMove($GUI, "", $i, $pos[1])
  378.             Next
  379.     EndSwitch
  380. EndFunc   ;==>GUI_MoveIn
  381. Func _UpDown()
  382.     $ToolShow = Not $ToolShow
  383.     frmTool_Show($ToolShow)
  384. EndFunc   ;==>_UpDown
  385.  
  386.  
  387. ;===Hàm lấy vị trí và kích thước GUI===
  388. Func frmTool_GetPos()
  389.     Return WinGetPos($frmTool)
  390. EndFunc   ;==>frmTool_GetPos
  391. ;=============================================
  392.  
  393. ;===Hàm chỉnh vị trí GUI===
  394. Func frmTool_SetPos($x = -1, $y = -1, $speed = 1)
  395.     Local $Size = frmTool_GetPos()
  396.     If Not ($x == -1) Then $Size[0] = $x
  397.     If Not ($y == -1) Then $Size[1] = $y
  398.     WinMove($frmTool, "", $Size[0], $Size[1], $Size[2], $Size[3], $speed)
  399. EndFunc   ;==>frmTool_SetPos
  400. ;=================================
  401.  
  402. ;===Hàm lấy chuỗi của Label===
  403. Func Label_GetText($Label)
  404.     Return GUICtrlRead($Label, 0)
  405. EndFunc   ;==>Label_GetText
  406. ;============================
  407. ;===Hàm chỉnh sửa chuỗi của Label===
  408. Func Label_SetText($Label, $NewValue = "")
  409.     Local $Text = Label_GetText($Label)
  410.     If $Text <> $NewValue Then GUICtrlSetData($Label, $NewValue)
  411. EndFunc   ;==>Label_SetText
  412. ;===================================
  413.  
  414. ;===Hàm lấy chuỗi của button===
  415. Func Button_GetText($button)
  416.     Return GUICtrlRead($button)
  417. EndFunc   ;==>Button_GetText
  418. ;==============================
  419.  
  420. ;===Hàm ch?nh chu?i c?a button===
  421. Func Button_SetText($button, $NewValue = "")
  422.     Local $Text = Button_GetText($button)
  423.     If $Text <> $NewValue Then GUICtrlSetData($button, $NewValue)
  424. EndFunc   ;==>Button_SetText
  425. ;===Hàm ?n hi?n GUI===
  426. Func frmTool_Show($Show = 0)
  427. ;~      Label_SetText($lblStatus, "Status")
  428.     Local $Span = 28
  429.     If $Show Then
  430.         Button_SetText($btnAn, "/\")
  431.         frmTool_SetPos($ToolPos[0], $ToolPos[1])
  432.     Else
  433.         $ToolPos = frmTool_GetPos()
  434.         Button_SetText($btnAn, "\/")
  435.         frmTool_SetPos($ToolPos[0], 0 - $ToolPos[3] + $Span, 2)
  436.     EndIf
  437. EndFunc   ;==>frmTool_Show
  438. #EndRegion Gui MoveUpDown
  439. #Region FUI
  440. Func _Buoc1()
  441. ;~  $ToolShow = Not $ToolShow
  442. ;~  frmTool_Show($ToolShow)
  443.     slideUp_Dialog("Warning", "Script is running !!!!" & @CRLF & "Pls, Do not touch this Computer")
  444.     Local $sDate = _DateAdd('d', 0, _NowCalcDate())
  445.     Sleep(300)
  446.     ProcessClose("EXCEL.EXE")
  447.     If FileExists($Excel_File) Then FileDelete($Excel_File)
  448.     If FileExists("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Excel1.txt") Then FileDelete("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Excel1.txt")
  449.     If FileExists($Fileopen16168) Then FileDelete($Fileopen16168)
  450.     If FileExists($Fileopen16162) Then FileDelete($Fileopen16162)
  451.     If FileExists($Fileopen8195) Then FileDelete($Fileopen8195)
  452.     If FileExists($Fileopen33001) Then FileDelete($Fileopen33001)
  453.     If FileExists($Fileopen33005) Then FileDelete($Fileopen33005)
  454.     If FileExists($Fileopen33003) Then FileDelete($Fileopen33003)
  455.     If FileExists($Fileopen33011) Then FileDelete($Fileopen33011)
  456.     If FileExists($Fileopen33014) Then FileDelete($Fileopen33014)
  457.     If FileExists($FileopenB77750) Then FileDelete($FileopenB77750)
  458.     If FileExists($FileopenB77755) Then FileDelete($FileopenB77755)
  459.     Run("D:\Appls\dfc\dfc.exe")
  460.     Local $hWnd1 = WinWait("Diags Flights Care", "Sign In")
  461.     If Not WinActive($hWnd1) Then WinActivate($hWnd1)
  462.     WinWaitActive($hWnd1)
  463.     Sleep(80)
  464.     Send("N0604")
  465.     Sleep(100)
  466.     Send("{TAB}")
  467.     Sleep(100)
  468.     Send("2")
  469.     Sleep(100)
  470.     Send("{ENTER 3}")
  471.     Sleep(500)
  472.     Local $hWnd2 = WinWait("[TITLE:Diags Flights Care; CLASS:dfc9c000000]")
  473.     If Not WinActive($hWnd2) Then WinActivate($hWnd2)
  474.     WinWaitActive($hWnd2)
  475.     Sleep(80)
  476.     Send("^p")
  477.     Local $hWnd3 = WinWait("Diags Flights Care", "Print Schedule")
  478.     If Not WinActive($hWnd3) Then WinActivate($hWnd3)
  479.     WinWaitActive($hWnd3)
  480.     Sleep(100)
  481.     If _Msgbox() = 1 Then
  482.         $sDate = _DateAdd("D", 1, _NowCalcDate())
  483.         $sNewDate = StringRegExpReplace($sDate, "(\d{4})/(\d{2})/(\d{2})", "$3/$2/$1")
  484.         Sleep(500)
  485.         Send($sNewDate)
  486.         Send("d")
  487.         Sleep(100)
  488.         Send("{TAB 6}")
  489.         Sleep(100)
  490.         Send("{Enter}")
  491.     Else
  492.     EndIf
  493.     Sleep(100)
  494.     Send("{TAB}{UP}{TAB 6}{ENTER}")
  495.     Sleep(100)
  496.     Local $hWnd4 = WinWait("Microsoft Excel")
  497.     If Not WinActive($hWnd4) Then WinActivate($hWnd4)
  498.     WinWaitActive($hWnd4)
  499.     Sleep(10000)
  500.         WinClose($hWnd4)
  501.     Sleep(1000)
  502.     Send("!s")
  503.     Sleep(1000)
  504.     Send($Excel_File)
  505.     Send("!s")
  506.     Sleep(3000)
  507.     ;===================Buoc 1==========================
  508.     ProgressOn("Progress Information", "Calculating.... ", "0%")
  509.     For $z = 10 To 100 Step 10
  510.         Sleep(200) ; 5 giay chay progress
  511.         ProgressSet($z, $z & "%")
  512.     Next
  513.     ProgressSet(100, "Done", "Complete")
  514.     Sleep(200)
  515.     If FileExists($FolderData & "\Excel.xlsx") Then
  516.         Local $oExcel = ObjCreate("Excel.Application")
  517.         $oExcel.visible = True
  518.         $oExcel.Workbooks.Open($Excel_File)
  519.         Local $i = 7
  520.         With $oExcel.ActiveWorkBook.ActiveSheet
  521.             While .Cells($i, 2).Value
  522.                 If StringInStr(.Cells($i, 3).Value, "VN") Then
  523.                     $Result2 = StringRegExp(.Cells($i, 3).Value, "(\d+)", 3)
  524.                     $Result5 = StringMid(.Cells($i, 4).Value, 5, 3)
  525.                     If $Result2[0] <> 430 Then
  526.                         $Result3 = StringRegExp(.Cells($i, 2).Value, "(?i)(?:VNA|VNB|XU)\d+", 3)
  527.                         If Not @error Then
  528.                             Local $j = 1, $k = UBound($Loai), $n = 0
  529.                             For $dt In $Loai
  530.                                 If $Result3[0] = $dt Then
  531.                                     If $Boqua = "" Then
  532.                                         $Boqua = @CRLF & "VN" & $Result2[0] & " = " & $Result3[$n] & " ( " & $Result5 & " ) "
  533.                                         IniWrite($Data16162, $Result2[0], "Air", $Result3[$n])
  534.                                         IniWrite($Data16162, $Result2[0], "Des", $Result5)
  535.                                     Else
  536.                                         $Boqua &= @CRLF & "VN" & $Result2[0] & " = " & $Result3[$n] & " ( " & $Result5 & " ) "
  537.                                         IniWrite($Data16162, $Result2[0], "Air", $Result3[$n])
  538.                                         IniWrite($Data16162, $Result2[0], "Des", $Result5)
  539.                                     EndIf
  540.                                     $n += 1
  541.                                     ExitLoop
  542.                                 ElseIf $j < $k Then
  543.                                     $j += 1
  544.                                 Else
  545.                                     IniWrite($Ini_File, $Result2[0], "Air", $Result3[0])
  546.                                     IniWrite($Ini_File, $Result2[0], "Des", $Result5)
  547.                                 EndIf
  548.                             Next
  549.                         EndIf
  550.                     EndIf
  551.                 EndIf
  552.                 $i += 1
  553.             WEnd
  554.         EndWith
  555.         $oExcel.ActiveWorkBook.Saved = True
  556.         $oExcel.Quit
  557.         Sleep(300)
  558.         FileDelete($FolderData & "\Excel.xlsx")
  559.         IniWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Logbook.ini", "Time: " & @HOUR & ":" & @MIN & "--" & @MDAY & "/" & @MON, "AutoFUI - Các tàu có Config 16/162(66)(8/195) " & @CRLF, $Boqua)
  560.         ProgressOff()
  561.         MsgBox(0, "Thông Báo", "Những chuyến có Config 16/162 hoặc 66:" & $Boqua)
  562.         Sleep(50)
  563.         slideDown_Dialog()
  564.         GUICtrlSetData($Edit1, "" & $Boqua, 1)
  565.         MsgBox(0, "Thông Báo", "Hoàn thành, Kiểm tra ngày trong F1 - Shift F3 truớc khi qua step 2")
  566.         GUI_MoveIn($frmTool, 3, 3)
  567.     Else
  568.         ProgressOff()
  569.         slideDown_Dialog()
  570.         MsgBox(0, "Thông Báo", "Thao tác sai, Thực hiện lại Step 1", 0)
  571.         GUI_MoveIn($frmTool, 3, 3)
  572.     EndIf
  573. EndFunc   ;==>_Buoc1
  574. Func _Buoc2()
  575. ;~  $ToolShow = Not $ToolShow
  576. ;~  frmTool_Show($ToolShow)
  577.     slideUp_Dialog("Warning", "Script đang chạy !!!!" & @CRLF & "Có thể sử dụng PC khi dùng chức năng này" & @CRLF & "Nếu lỗi, các anh chạy lại Sabre Tool + Multi Tool !!!!")
  578.     If FileExists($Excel_File) Then FileDelete($Excel_File)
  579.     If FileExists($Fileopen16168) Then
  580.         WinActivate("[CLASS:WindowsForms10.Window.8.app.0.378734a]")
  581.         $InputDaynMonth = InputBox("Day 'n' Month !!", "Nhap Ngay va Thang muon FUI theo form : 20FEB", StringRight(_DateAdd('d', 1, _NowCalcDate()), 2) & _DateToMonth(@MON, $DMW_SHORTNAME))
  582.         If $InputDaynMonth = "" Then Exit
  583.         $winHandle = WinGetHandle("[CLASS:WindowsForms10.Window.8.app.0.378734a]")
  584.         $controlhandlecommand = ControlGetHandle("Sabre Tool for LoadControl Office (Ver 10.02.2015)", '', "[CLASS:WindowsForms10.EDIT.app.0.378734a; INSTANCE:6]")
  585.         $controlHandleinfor = ControlGetHandle("Sabre Tool for LoadControl Office (Ver 10.02.2015)", '', "[CLASS:WindowsForms10.RichEdit20W.app.0.378734a; INSTANCE:1]")
  586.         $controlhandlebutton = ControlGetHandle("Sabre Tool for LoadControl Office (Ver 10.02.2015)", '', "[CLASS:WindowsForms10.BUTTON.app.0.378734a; INSTANCE:29]")
  587. ;~  ;FUI tau 16/168 & 68 ===============================================================================================================================================
  588.         MsgBox(64, "Thông Báo", "FUI tàu có Config 16/168 & 68")
  589.         Local $AllSection = IniReadSectionNames($Fileopen16168)
  590.         For $i = 1 To $AllSection[0]
  591.             Local $Sendtext = ControlSetText("", "", $controlhandlecommand, "G*" & $AllSection[$i] & "/" & $InputDaynMonth & "dad/d")
  592.             ControlSend("", "Send", $controlhandlebutton, "{SPACE}")
  593.             Sleep(6000)
  594.             $Gettext = ControlGetText("", "", $controlHandleinfor)
  595.             $Open = FileOpen("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\DataFromSabreTool1.txt", 2)
  596.             FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\DataFromSabreTool1.txt", $Gettext)
  597.             $Read = FileRead($Open)
  598.             $1 = StringLeft($Read, 7)
  599.             If $1 = "‡FLIGHT" Then
  600.                 MsgBox(0, "", "VN" & $AllSection[$i] & " bị cancel hoặc Ferry" & @CRLF)
  601.             Else
  602.                 $config = StringRegExp($Read, "ACFT-(\S*)\s*CFG-(\S*)", 3) ; 330/01, 321/50
  603.                 $VN = StringRegExp($Read, "VN\s*(\d*)", 3) ; 101, 109
  604.                 If $VN = @error Then
  605.                     slideDown_Dialog()
  606.                     MsgBox(0, "", "Script không đọc được nội dung của SSCI nên bị lỗi, tắt bớt các ứng dụng ko cần thiết đang chạy rồi chạy lại Script" & @CRLF & "Đã chạy đến VN" & $AllSection[$i])
  607.                     GUI_MoveIn($frmTool, 3, 3)
  608.                     Return False
  609.                 EndIf
  610.                 $RegInDFC = IniRead($Fileopen16168, $AllSection[$i], "Air", "")
  611.                 If $VN[0] = $AllSection[$i] Then
  612.                     If $config[0] = "321" And $config[1] = "50" Then
  613.                         $flag = 0
  614.                         For $a = 0 To UBound($AllExcept16168) - 1
  615.                             If $RegInDFC <> $AllExcept16168[$a] Then
  616.                                 MsgBox(0,"","Dung")
  617.                                 $flag = 1
  618. ;~                              ControlSetText("", "", $controlhandlecommand, "GF/" & "VN" & $AllSection[$i] & "/" & $InputDaynMonth & "dad" & IniRead($Ini_File, $AllSection[$i], "Des", "") & "/reg/" & $RegInDFC)
  619. ;~                              Sleep(300)
  620. ;~                              ControlSend("", "Send", $controlhandlebutton, "{SPACE}")
  621. ;~                              Sleep(1000)
  622. ;~                              WinWaitActive($controlHandleinfor, "‡OK", 5)
  623.  
  624.                             ElseIf $flag = 0 Then
  625.                                 If $RegInDFC = $AllExcept16168[$a] Then
  626.                                 MsgBox(0,"","Sai")
  627.                                 EndIf
  628. ;~                      ControlSetText("", "", $controlhandlecommand, "GF/" & "VN" & $AllSection[$i] & "/" & $InputDaynMonth & "dad" & IniRead($Ini_File, $AllSection[$i], "Des", "") & "/reg/" & $RegInDFC)
  629. ;~                      Sleep(300)
  630. ;~                      ControlSend("", "Send", $controlhandlebutton, "{SPACE}")
  631. ;~                      Sleep(1000)
  632. ;~                      WinWaitActive($controlHandleinfor, "‡OK", 5)
  633.                             EndIf
  634.                         Next
  635.  
  636.                         ElseIf $config[0] = "AT7" And $config[1] = "11" Then
  637.  
  638. ;~                      ControlSetText("", "", $controlhandlecommand, "GF/" & "VN" & $AllSection[$i] & "/" & $InputDaynMonth & "dad" & IniRead($Ini_File, $AllSection[$i], "Des", "") & "/reg/" & $RegInDFC)
  639. ;~                      Sleep(300)
  640. ;~                      ControlSend("", "Send", $controlhandlebutton, "{SPACE}")
  641. ;~                      Sleep(1000)
  642. ;~                      WinWaitActive($controlHandleinfor, "‡OK", 5)
  643.                         EndIf
  644.                     EndIf
  645.             EndIf
  646.             Next
  647.         MsgBox(64, "", "Hoàn Thành 16/168")
  648.         ; FUI tau config 16/162 ===============================================================================================================================================
  649. ;~      Local $Config5558 = IniReadSectionNames($Fileopen16162)
  650. ;~      If FileExists($Fileopen16162) Then
  651. ;~          MsgBox(64, "Thông Báo", "Fui các tàu có Config 16/162")
  652. ;~          For $k = 1 To $Config5558[0]
  653. ;~              Local $Sendtext = ControlSetText("", "", $controlhandlecommand, "G*" & $Config5558[$k] & "/" & $InputDaynMonth & "dad/L")
  654. ;~              ControlSend("", "Send", $controlhandlebutton, "{SPACE}")
  655. ;~              Sleep(6000)
  656. ;~              $Gettext = ControlGetText("", "", $controlHandleinfor)
  657. ;~              $Open = FileOpen("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\DataFromSabreTool.txt", 2)
  658. ;~              FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\DataFromSabreTool.txt", $Gettext)
  659. ;~              $Read = FileRead($Open)
  660. ;~              $1 = StringLeft($Read, 7)
  661. ;~              If $1 = "‡FLIGHT" Then
  662. ;~                  MsgBox(0, "", "VN" & $Config5558[$k] & " bị cancel hoặc Ferry" & @CRLF)
  663. ;~              Else
  664. ;~              $config = StringRegExp($Read, "ACFT-(\S*)\s*CFG-(\S*)", 3) ; 330/01, 321/50
  665. ;~              $VN = StringRegExp($Read, "VN\s*(\d*)", 3) ; 101, 109
  666. ;~                  If $VN = @error Then
  667. ;~                      slideDown_Dialog()
  668. ;~                      MsgBox(0, "", "Script không đọc được nội dung của SSCI nên bị lỗi, tắt bớt các ứng dụng ko cần thiết đang chạy rồi chạy lại Script" & @CRLF & "Đã chạy đến VN" & $Config5558[$k])
  669. ;~                      GUI_MoveIn($frmTool, 3, 3)
  670. ;~                      Return False
  671. ;~                  EndIf
  672. ;~                  $RegInDFC16162 = IniRead($Fileopen16162, $Config5558[$k], "Air", "")
  673. ;~                  If $VN[0] = $Config5558[$k] Then
  674. ;~                      If $config[0] = "321" And $config[1] = "55" Then
  675. ;~                          For $j = 0 To UBound($16162) - 1
  676. ;~                              If $RegInDFC16162 = $16162[$j] Then
  677. ;~                                  ControlSetText("", "", $controlhandlecommand, "GF/" & "VN" & $Config5558[$k] & "/" & $InputDaynMonth & "dad" & IniRead($Ini_File, $Config5558[$k], "Des", "") & "/reg/" & $RegInDFC16162)
  678. ;~                                  Sleep(300)
  679. ;~                                  ControlSend("", "Send", $controlhandlebutton, "{SPACE}")
  680. ;~                                  Sleep(1000)
  681. ;~                                  WinWaitActive($controlHandleinfor, "‡OK", 5)
  682. ;~                              EndIf
  683. ;~                          Next
  684. ;~                      ElseIf $config[0] <> "16/162" Then
  685. ;~                          MsgBox(0, "FUI ---- 16/162", "VN" & $Config5558[$k] & " = " & $RegInDFC16162 & _
  686. ;~                                  @CRLF & "Config trên SSCI là : " & $config[0] & "/" & $config[1] & _
  687. ;~                                  @CRLF & "===[Finally] : Sai Config===")
  688. ;~                          GUICtrlSetData($Edit3, "VN" & $Config5558[$k] & " = " & $RegInDFC16162 & _
  689. ;~                                  @CRLF & "Config trên SSCI là : " & $config[0] & "/" & $config[1] & _
  690. ;~                                  @CRLF & "===[Finally] : Sai Config===", 1)
  691. ;~                      EndIf
  692. ;~                  EndIf
  693. ;~              EndIf
  694. ;~          Next
  695. ;~          MsgBox(64, "Thông Báo", "Hoàn Thành 16/162")
  696. ;~      Else
  697. ;~          MsgBox(64, "Thông Báo", "Không có tàu có Config 16/162")
  698. ;~      EndIf
  699. ;~      ; FUI tau config 8/195 ===============================================================================================================================================
  700. ;~      Local $Config58 = IniReadSectionNames($Fileopen8195)
  701. ;~      If FileExists($Fileopen8195) Then
  702. ;~          MsgBox(64, "Thông Báo", "FUI tàu có Config 8/195")
  703. ;~          For $l = 1 To $Config58[0]
  704. ;~              Local $Sendtext = ControlSetText("", "", $controlhandlecommand, "G*" & $Config58[$l] & "/" & $InputDaynMonth & "dad/L")
  705. ;~              ControlSend("", "Send", $controlhandlebutton, "{SPACE}")
  706. ;~              Sleep(6000)
  707. ;~              $Gettext = ControlGetText("", "", $controlHandleinfor)
  708. ;~              $Open = FileOpen("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\DataFromSabreTool.txt", 2)
  709. ;~              FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\DataFromSabreTool.txt", $Gettext)
  710. ;~              $Read = FileRead($Open)
  711. ;~              $1 = StringLeft($Read, 7)
  712. ;~              If $1 = "‡FLIGHT" Then
  713. ;~                  MsgBox(0, "", "VN" & $Config58[$l] & " bị cancel hoặc Ferry" & @CRLF)
  714. ;~              Else
  715. ;~              $config = StringRegExp($Read, "ACFT-(\S*)\s*CFG-(\S*)", 3) ; 330/01, 321/50
  716. ;~              $VN = StringRegExp($Read, "VN\s*(\d*)", 3) ; 101, 109
  717. ;~                  If $VN = @error Then
  718. ;~                      slideDown_Dialog()
  719. ;~                      MsgBox(0, "", "Script không đọc được nội dung của SSCI nên bị lỗi, tắt bớt các ứng dụng ko cần thiết đang chạy rồi chạy lại Script" & @CRLF & "Đã chạy đến VN" & $Config58[$l])
  720. ;~                      GUI_MoveIn($frmTool, 3, 3)
  721. ;~                      Return False
  722. ;~                  EndIf
  723. ;~                  $RegInDFC8195 = IniRead($Fileopen8195, $Config58[$l], "Air", "")
  724. ;~                  If $VN[0] = $Config58[$l] Then
  725. ;~                      If $config[0] = "321" And $config[1] = "58" Then
  726. ;~                          For $n = 0 To UBound($8C195Y) - 1
  727. ;~                              If $RegInDFC8195 = $8C195Y[$n] Then
  728. ;~                                  ControlSetText("", "", $controlhandlecommand, "GF/" & "VN" & $Config58[$l] & "/" & $InputDaynMonth & "dad" & IniRead($Ini_File, $Config58[$l], "Des", "") & "/reg/" & $RegInDFC8195)
  729. ;~                                  Sleep(300)
  730. ;~                                  ControlSend("", "Send", $controlhandlebutton, "{SPACE}")
  731. ;~                                  Sleep(1000)
  732. ;~                                  WinWaitActive($controlHandleinfor, "‡OK", 5)
  733. ;~                              EndIf
  734. ;~                          Next
  735. ;~                      ElseIf $config[0] <> "8/195" Then
  736. ;~                          MsgBox(0, "FUI ---- 8/195", "VN" & $Config58[$l] & " = " & $RegInDFC8195 & _
  737. ;~                                  @CRLF & "Config trên SSCI là : " & $config[0] & "/" & $config[1] & _
  738. ;~                                  @CRLF & "===[Finally] : Sai Config===")
  739. ;~                          GUICtrlSetData($Edit3, "VN" & $Config58[$l] & " = " & $RegInDFC8195 & _
  740. ;~                                  @CRLF & "Config trên SSCI là : " & $config[0] & "/" & $config[1] & _
  741. ;~                                  @CRLF & "===[Finally] : Sai Config===", 1)
  742. ;~                      EndIf
  743. ;~                  EndIf
  744. ;~              EndIf
  745. ;~          Next
  746. ;~          MsgBox(64, "Thông Báo", "Hoàn Thành 8/195")
  747. ;~      Else
  748. ;~          MsgBox(64, "Thông Báo", "Không có tàu có Config 8/195")
  749. ;~      EndIf
  750. ;~      ; FUI tau config A33001 ===============================================================================================================================================
  751. ;~      Local $ConfigA330 = IniReadSectionNames($Fileopen33001)
  752. ;~      If FileExists($Fileopen33001) Then
  753. ;~          For $m = 1 To $ConfigA330[0]
  754. ;~                  Local $Sendtext = ControlSetText("", "", $controlhandlecommand, "G*" & $ConfigA330[$m] & "/" & $InputDaynMonth & "dad/L")
  755. ;~              ControlSend("", "Send", $controlhandlebutton, "{SPACE}")
  756. ;~              Sleep(6000)
  757. ;~              $Gettext = ControlGetText("", "", $controlHandleinfor)
  758. ;~              $Open = FileOpen("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\DataFromSabreTool.txt", 2)
  759. ;~              FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\DataFromSabreTool.txt", $Gettext)
  760. ;~              $Read = FileRead($Open)
  761. ;~              $1 = StringLeft($Read, 7)
  762. ;~              If $1 = "‡FLIGHT" Then
  763. ;~                  MsgBox(0, "", "VN" & $ConfigA330[$m] & " bị cancel hoặc Ferry" & @CRLF)
  764. ;~              Else
  765. ;~                  $config = StringRegExp($Read, "ACFT-(\S*)\s*CFG-(\S*)", 3) ; 330/01, 321/50
  766. ;~                  $VN = StringRegExp($Read, "VN\s*(\d*)", 3) ; 101, 109
  767. ;~                  If $VN = @error Then
  768. ;~                      slideDown_Dialog()
  769. ;~                      MsgBox(0, "", "Script không đọc được nội dung của SSCI nên bị lỗi, tắt bớt các ứng dụng ko cần thiết đang chạy rồi chạy lại Script" & @CRLF & "Đã chạy đến VN" & $ConfigA330[$m])
  770. ;~                      GUI_MoveIn($frmTool, 3, 3)
  771. ;~                      Return False
  772. ;~                  EndIf
  773. ;~                  $RegInDFCA330 = IniRead($Fileopen33001, $ConfigA330[$m], "Air", "")
  774. ;~                  If $VN[0] = $ConfigA330[$m] Then
  775. ;~                      If $config[0] = "330" And $config[1] = "01" Then
  776. ;~                          For $m = 0 To UBound($24256) - 1
  777. ;~                              If $RegInDFCA330 = $24256[$m] Then
  778. ;~                                  ControlSetText("", "", $controlhandlecommand, "GF/" & "VN" & $ConfigA330[$m] & "/" & $InputDaynMonth & "dad" & IniRead($Ini_File, $ConfigA330[$m], "Des", "") & "/reg/" & $RegInDFCA330)
  779. ;~                                  Sleep(300)
  780. ;~                                  ControlSend("", "Send", $controlhandlebutton, "{SPACE}")
  781. ;~                                  Sleep(1000)
  782. ;~                                  WinWaitActive($controlHandleinfor, "‡OK", 5)
  783. ;~                                  GUICtrlSetData($Edit3, "VN" & $VN[0] & " = " & $RegInDFCA330 & @CRLF & "Kiểm tra lại Config của tàu !!!!", 1)
  784. ;~                              EndIf
  785. ;~                          Next
  786. ;~                          For $k = 0 To UBound($24242) - 1
  787. ;~                              If $RegInDFCA330 = $24242[$k] Then
  788. ;~                                  ControlSetText("", "", $controlhandlecommand, "GF/" & "VN" & $ConfigA330[$m] & "/" & $InputDaynMonth & "dad" & IniRead($Ini_File, $ConfigA330[$m], "Des", "") & "/reg/" & $RegInDFCA330)
  789. ;~                                  Sleep(300)
  790. ;~                                  ControlSend("", "Send", $controlhandlebutton, "{SPACE}")
  791. ;~                                  Sleep(1000)
  792. ;~                                  WinWaitActive($controlHandleinfor, "‡OK", 5)
  793. ;~                                  GUICtrlSetData($Edit3, "VN" & $VN[0] & " = " & $RegInDFCA330 & @CRLF & "Kiểm tra kỹ lại Config của tàu !!!!", 1)
  794. ;~                              EndIf
  795. ;~                          Next
  796. ;~                      ElseIf $VN[0] <> $ConfigA330[$m] Then
  797. ;~                          MsgBox(0, "HIỆN ĐANG FUI CÁC TÀU CÓ CONFIG 330/01", "VN" & $ConfigA330[$m] & " = " & $RegInDFCA330 & _
  798. ;~                                  @CRLF & "Config trên SSCI là : " & $config[0] & _
  799. ;~                                  @CRLF & "===[Finally] : Sai Config===")
  800. ;~                          GUICtrlSetData($Edit3, "VN" & $ConfigA330[$m] & " = " & $RegInDFCA330 & _
  801. ;~                                  @CRLF & "Config trên SSCI là : " & $config[0] & _
  802. ;~                                  @CRLF & "===[Finally] : Sai Config===", 1)
  803. ;~                      EndIf
  804. ;~                  EndIf
  805. ;~              EndIf
  806. ;~          Next
  807. ;~      Else
  808. ;~          MsgBox(64, "Thông Báo", "Không có tàu A330")
  809. ;~      EndIf
  810.         If MsgBox(32 + 1 + 262144, "Thông Báo", "Xóa File Data ???") = 1 Then
  811.             FileDelete($Ini_File)
  812.             FileDelete($Data16162)
  813.             FileDelete("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\DataFromSabreTool.txt")
  814.             FileDelete($Data8195)
  815.         EndIf
  816.         slideDown_Dialog()
  817.         MsgBox(0, "Thông Báo", "Hoàn thành")
  818.         GUI_MoveIn($frmTool, 3, 3)
  819.     Else
  820.         slideDown_Dialog()
  821.         MsgBox(0, "Thông báo", "Thiếu File Data(Chưa chạy bước 1, hoặc bước 1 lỗi)" & @CRLF & "Chạy lại bước 1")
  822.         GUI_MoveIn($frmTool, 3, 3)
  823.     EndIf
  824. EndFunc   ;==>_Buoc2
  825. #EndRegion FUI
  826.  
  827. #Region _Msgbox()
  828. Func _Msgbox()
  829.     GUICreate("Thông Báo", 230, 89, -1, -1)
  830.     $Button_NM = GUICtrlCreateButton("Ngày Mai", 16, 48, 75, 25)
  831.     $Button_HN = GUICtrlCreateButton("Hôm Nay", 128, 48, 75, 25)
  832.     $Label1 = GUICtrlCreateLabel("Chọn ngày để FUI(DFD)(CheckAC)???", 60, 16, 135, 25)
  833.     GUISetState(@SW_SHOW)
  834.     While 1
  835.         Switch GUIGetMsg()
  836.             Case -3
  837.                 Exit
  838.             Case $Button_NM
  839.                 GUIDelete()
  840.                 Return 1
  841.             Case $Button_HN
  842.                 GUIDelete()
  843.                 Return 2
  844.         EndSwitch
  845.     WEnd
  846. EndFunc   ;==>_Msgbox
  847. #EndRegion _Msgbox()
  848.  
  849.  
  850. #Region CheckAC
  851. Func _GetDataAC()
  852.     $ToolShow = Not $ToolShow
  853.     frmTool_Show($ToolShow)
  854.     slideUp_Dialog("Warning", "Script is running !!!!" & @CRLF & "Pls, Do not touch this Computer")
  855.     Local $sDate = _DateAdd('d', 0, _NowCalcDate())
  856.     Sleep(300)
  857.     ProcessClose("Excel.exe")
  858.         FileDelete($Fileopen66)
  859.     FileDelete($Fileopen16168)
  860.     FileDelete("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\DataFromSabreTool.txt")
  861.     FileDelete($Fileopen16162)
  862.     FileDelete($Fileopen8195)
  863.     FileDelete($Fileopen33001)
  864.     If FileExists($FolderData & "\Excel.xlsx") Then FileDelete($FolderData & "\Excel.xlsx")
  865.     If FileExists("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Excel1.txt") Then FileDelete("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Excel1.txt")
  866.     Run("D:\Appls\dfc\dfc.exe")
  867.     Local $hWnd1 = WinWait("Diags Flights Care", "Sign In")
  868.     If Not WinActive($hWnd1) Then WinActivate($hWnd1)
  869.     WinWaitActive($hWnd1)
  870.     If FileExists($Excel_File) Then FileDelete($Excel_File)
  871.     Sleep(80)
  872.     Send("N0604")
  873.     Sleep(100)
  874.     Send("{TAB}")
  875.     Sleep(100)
  876.     Send("2")
  877.     Sleep(100)
  878.     Send("{ENTER 3}")
  879.     Sleep(500)
  880.     Local $hWnd2 = WinWait("[TITLE:Diags Flights Care; CLASS:dfc9c000000]")
  881.     If Not WinActive($hWnd2) Then WinActivate($hWnd2)
  882.     WinWaitActive($hWnd2)
  883.     Sleep(80)
  884.     Send("^p")
  885.     Local $hWnd3 = WinWait("Diags Flights Care", "Print Schedule")
  886.     If Not WinActive($hWnd3) Then WinActivate($hWnd3)
  887.     WinWaitActive($hWnd3)
  888.     Sleep(100)
  889.     If _Msgbox() = 1 Then
  890.         $sDate = _DateAdd("D", 1, _NowCalcDate())
  891.         $sNewDate = StringRegExpReplace($sDate, "(\d{4})/(\d{2})/(\d{2})", "$3/$2/$1")
  892.         Sleep(500)
  893.         Send($sNewDate)
  894.         Send("d")
  895.         Sleep(100)
  896.         Send("{TAB 6}")
  897.         Sleep(100)
  898.         Send("{Enter}")
  899.     Else
  900.     EndIf
  901.     Sleep(100)
  902.     Send("{TAB}{UP}{TAB 6}{ENTER}")
  903.     Sleep(100)
  904.     Local $hWnd4 = WinWait("Microsoft Excel")
  905.     If Not WinActive($hWnd4) Then WinActivate($hWnd4)
  906.     WinWaitActive($hWnd4)
  907.     Sleep(10000)
  908.         WinClose($hWnd4)
  909.     Sleep(1000)
  910.     Send("!s")
  911.     Sleep(1000)
  912.     Send($Excel_File)
  913.     Send("!s")
  914.     Sleep(1000)
  915.     ;===================Buoc 1==========================
  916.         ProgressOn("Progress Information", "Calculating.... ", "0%")
  917.     For $z = 10 To 100 Step 10
  918.         Sleep(200) ; 5 giay chay progress
  919.         ProgressSet($z, $z & "%")
  920.     Next
  921.     ProgressSet(100, "Done", "Complete")
  922.     Sleep(200)
  923.     If FileExists($FolderData & "\Excel.xlsx") Then
  924.         Local $oExcel = ObjCreate("Excel.Application")
  925.         $oExcel.visible = False
  926.         $oExcel.Workbooks.Open($Excel_File)
  927.         Local $i = 7
  928.         With $oExcel.ActiveWorkBook.ActiveSheet
  929.             While .Cells($i, 2).Value
  930.                 If StringInStr(.Cells($i, 3).Value, "VN") Then
  931.                     $Result2 = StringRegExp(.Cells($i, 3).Value, "(\d+)", 3)
  932.                     $Result5 = StringMid(.Cells($i, 4).Value, 5, 3)
  933.                     If $Result2[0] <> 430 Then
  934.                         $Result3 = StringRegExp(.Cells($i, 2).Value, "(?i)(?:VNA|VNB|XU)\d+", 3)
  935.                         If Not @error Then
  936.                             Local $j = 1, $k = UBound($Loai), $n = 0
  937.                             For $dt In $Loai
  938.                                 If $Result3[0] = $dt Then
  939.                                     If $Boqua = "" Then
  940.                                         $Boqua = @CRLF & "VN" & $Result2[0] & " = " & $Result3[$n] & " ( " & $Result5 & " ) "
  941.                                         IniWrite($Data16162, $Result2[0], "Air", $Result3[$n])
  942.                                         IniWrite($Data16162, $Result2[0], "Des", $Result5)
  943.                                     Else
  944.                                         $Boqua &= @CRLF & "VN" & $Result2[0] & " = " & $Result3[$n] & " ( " & $Result5 & " ) "
  945.                                         IniWrite($Data16162, $Result2[0], "Air", $Result3[$n])
  946.                                         IniWrite($Data16162, $Result2[0], "Des", $Result5)
  947.                                     EndIf
  948.                                     $n += 1
  949.                                     ExitLoop
  950.                                 ElseIf $j < $k Then
  951.                                     $j += 1
  952.                                 Else
  953.                                     IniWrite($Ini_File, $Result2[0], "Air", $Result3[0])
  954.                                     IniWrite($Ini_File, $Result2[0], "Des", $Result5)
  955.                                 EndIf
  956.                             Next
  957.                         EndIf
  958.                     EndIf
  959.                 EndIf
  960.                 $i += 1
  961.             WEnd
  962.         EndWith
  963.         $oExcel.ActiveWorkBook.Saved = True
  964.         $oExcel.Quit
  965.         Sleep(300)
  966.         FileDelete($FolderData & "\Excel.xlsx")
  967.         IniWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Logbook.ini", "Time: " & @HOUR & ":" & @MIN & "--" & @MDAY & "/" & @MON, "AutoFUI - Các tàu có Config 16/162(66)(8/195) " & @CRLF, $Boqua)
  968.         ProgressOff()
  969.         MsgBox(0, "Thông Báo", "Những chuyến có Config 16/162 hoặc 66:" & $Boqua)
  970.         Sleep(50)
  971.         slideDown_Dialog()
  972.         GUICtrlSetData($Edit1, "" & $Boqua, 1)
  973.         MsgBox(0, "Thông Báo", "Hoàn thành, Kiểm tra ngày trong F1 - Shift F3 truớc khi qua step 2")
  974.         GUI_MoveIn($frmTool, 3, 3)
  975.     Else
  976.         ProgressOff()
  977.         slideDown_Dialog()
  978.         MsgBox(0, "Thông Báo", "Thao tác sai, Thực hiện lại Step 1", 0)
  979.         GUI_MoveIn($frmTool, 3, 3)
  980.     EndIf
  981. EndFunc   ;==>_GetDataAC
  982.  
  983. Func _CheckAC()
  984.     $ToolShow = Not $ToolShow
  985.     frmTool_Show($ToolShow)
  986.     slideUp_Dialog("Warning", "Script đang chạy !!!!" & @CRLF & "Có thể sử dụng được PC khi chức năng này đang chạy" & @CRLF & "Nếu lỗi xảy ra, các a chạy lại Sabre Tool + Multi Tool")
  987.     If FileExists($Excel_File) Then FileDelete($Excel_File)
  988.     If FileExists("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt") Then FileDelete("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt")
  989.     If FileExists($Fileopen16168) Then
  990.         WinActivate("[CLASS:WindowsForms10.Window.8.app.0.378734a]")
  991.         $InputDaynMonth = InputBox("Day 'n' Month !!", "Nhap Ngay va Thang muon check theo form : 20FEB", @MDAY & _DateToMonth(@MON, $DMW_SHORTNAME))
  992.         If $InputDaynMonth = "" Then Exit
  993.         $winHandle = WinGetHandle("[CLASS:WindowsForms10.Window.8.app.0.378734a]")
  994.         $controlhandlecommand = ControlGetHandle("Sabre Tool for LoadControl Office (Ver 10.02.2015)", '', "[CLASS:WindowsForms10.EDIT.app.0.378734a; INSTANCE:6]")
  995.         $controlHandleinfor = ControlGetHandle("Sabre Tool for LoadControl Office (Ver 10.02.2015)", '', "[CLASS:WindowsForms10.RichEdit20W.app.0.378734a; INSTANCE:1]")
  996.         $controlhandlebutton = ControlGetHandle("Sabre Tool for LoadControl Office (Ver 10.02.2015)", '', "[CLASS:WindowsForms10.BUTTON.app.0.378734a; INSTANCE:29]")
  997.         Local $AllSection = IniReadSectionNames($Fileopen16168)
  998.         For $i = 1 To $AllSection[0]
  999.             Local $Sendtext = ControlSetText("", "", $controlhandlecommand, "G*" & $AllSection[$i] & "/" & $InputDaynMonth & "dad/d")
  1000.             ControlSend("", "Send", $controlhandlebutton, "{SPACE}")
  1001.             Sleep(6000)
  1002.             $Gettext = ControlGetText("", "", $controlHandleinfor)
  1003.             $Open = FileOpen("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\DataFromSabreTool.txt", 2)
  1004.             FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\DataFromSabreTool.txt", $Gettext)
  1005.             $Read = FileRead($Open)
  1006.             $1 = StringLeft($Read, 7)
  1007.             If $1 = "‡FLIGHT" Then
  1008.                 MsgBox(0, "", "VN" & $AllSection[$i] & " bị cancel hoặc Ferry" & @CRLF)
  1009.                 FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt", "VN" & $AllSection[$i] & " bị cancel hoặc Ferry")
  1010.             Else
  1011.                 $config = StringRegExp($Read, "CFG-(\d*)\s*", 3)
  1012.                 $ACinSabre = StringRegExp($Read, "REG-(\w*\d*)", 3)
  1013.                 $VN = StringRegExp($Read, "VN\s*(\d*)", 3)
  1014.                 If $VN = @error Then
  1015.                     slideDown_Dialog()
  1016.                     MsgBox(0, "", "Script không đọc được nội dung của SSCI nên bị lỗi, tắt bớt các ứng dụng ko cần thiết đang chạy rồi chạy lại Script" & @CRLF & "Đã chạy đến VN" & $AllSection[$i])
  1017.                     GUI_MoveIn($frmTool, 3, 3)
  1018.                     ShellExecute($Fileopen16168)
  1019.                     Return False
  1020.                 EndIf
  1021.                 $RegInDFC = IniRead($Fileopen16168, $AllSection[$i], "Air", "")
  1022.                 If $VN[0] = $AllSection[$i] Then
  1023.                     If $RegInDFC = $ACinSabre[0] Then
  1024.                         If $config[0] = "50" Or $config[0] = "11" Then
  1025.                             FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt", "VN" & $VN[0] & "=================>" & "OK" & _
  1026.                                     @CRLF & "A/C trên SSCI : " & $ACinSabre[0] & @CRLF & "A/C trên DFC : " & $RegInDFC & _
  1027.                                     @CRLF & "Seatsel trên SSCI : " & $config[0] & @CRLF & @CRLF)
  1028.                         ElseIf $config[0] <> "11" Or $config[0] <> "50" Then
  1029.                             FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt", "VN" & $VN[0] & "=================>" & "Sai Config ( Tàu đúng )" & _
  1030.                                     @CRLF & "A/C trên SSCI : " & $ACinSabre[0] & @CRLF & "A/C trên DFC : " & $RegInDFC & _
  1031.                                     @CRLF & "Seatsel trên SSCI : " & $config[0] & @CRLF & @CRLF)
  1032.                         EndIf
  1033.                     ElseIf $RegInDFC <> $ACinSabre[0] Then
  1034.                         If $config[0] = "11" Or $config[0] = "50" Then
  1035.                             FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt", "VN" & $VN[0] & "=================>" & "Sai Tàu ( Config đúng )" & _
  1036.                                     @CRLF & "A/C trên SSCI : " & $ACinSabre[0] & @CRLF & "A/C trên DFC : " & $RegInDFC & _
  1037.                                     @CRLF & "Seatsel trên SSCI : " & $config[0] & @CRLF & @CRLF)
  1038.                         ElseIf $config[0] <> "11" Or $config[0] <> "50" Then
  1039.                             FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt", "VN" & $VN[0] & "=================>" & "Sai Tàu & Config" & _
  1040.                                     @CRLF & "A/C trên SSCI : " & $ACinSabre[0] & @CRLF & "A/C trên DFC : " & $RegInDFC & _
  1041.                                     @CRLF & "Seatsel trên SSCI : " & $config[0] & @CRLF & @CRLF)
  1042.                         EndIf
  1043.                     EndIf
  1044.                 EndIf
  1045.             EndIf
  1046.         Next
  1047.         ;=================================================================Check Tau 16/162===================================
  1048.         Local $Config5558 = IniReadSectionNames($Fileopen16162)
  1049.         If FileExists($Fileopen16162) Then
  1050.             For $k = 1 To $Config5558[0]
  1051.                 Local $Sendtext = ControlSetText("", "", $controlhandlecommand, "G*" & $Config5558[$k] & "/" & $InputDaynMonth & "dad/d")
  1052.                 ControlSend("", "Send", $controlhandlebutton, "{SPACE}")
  1053.                 Sleep(6000)
  1054.                 $Gettext = ControlGetText("", "", $controlHandleinfor)
  1055.                 $Open = FileOpen("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\DataFromSabreTool.txt", 2)
  1056.                 FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\DataFromSabreTool.txt", $Gettext)
  1057.                 $Read = FileRead($Open)
  1058.                 $1 = StringLeft($Read, 7)
  1059.                 If $1 = "‡FLIGHT" Then
  1060.                     MsgBox(0, "", "VN" & $Config5558[$k] & " bị cancel hoặc Ferry" & @CRLF)
  1061.                     FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt", "VN" & $Config5558[$k] & " bị cancel hoặc Ferry")
  1062.                 Else
  1063.                     $config = StringRegExp($Read, "CFG-(\d*)\s*", 3)
  1064.                     $ACinSabre55 = StringRegExp($Read, "REG-(\w*\d*)", 3)
  1065.                     $VN = StringRegExp($Read, "VN\s*(\d*)", 3)
  1066.                     If $VN = @error Then
  1067.                         slideDown_Dialog()
  1068.                         MsgBox(0, "", "Script không đọc được nội dung của SSCI nên bị lỗi, tắt bớt các ứng dụng ko cần thiết đang chạy rồi chạy lại Script" & @CRLF & "Đã chạy đến VN" & $Config5558[$k])
  1069.                         GUI_MoveIn($frmTool, 3, 3)
  1070.                         Return False
  1071.                     EndIf
  1072.                     $RegInDFC16162 = IniRead($Fileopen16162, $Config5558[$k], "Air", "")
  1073.                     If $VN[0] = $Config5558[$k] Then
  1074.                         If $RegInDFC16162 = $ACinSabre55[0] Then
  1075.                             If $config[0] = "55" Then
  1076.                                 FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt", "VN" & $VN[0] & "=================>" & "OK" & _
  1077.                                         @CRLF & "A/C trên SSCI : " & $ACinSabre55[0] & @CRLF & "A/C trên DFC : " & $RegInDFC16162 & _
  1078.                                         @CRLF & "Seatsel trên SSCI : " & $config[0] & @CRLF & @CRLF)
  1079.                             ElseIf $config[0] <> "55" Then
  1080.                                 FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt", "VN" & $VN[0] & "=================>" & "Sai Config ( Tàu đúng )" & _
  1081.                                         @CRLF & "A/C trên SSCI : " & $ACinSabre55[0] & @CRLF & "A/C trên DFC : " & $RegInDFC16162 & _
  1082.                                         @CRLF & "Seatsel trên SSCI : " & $config[0] & @CRLF & @CRLF)
  1083.                             EndIf
  1084.                         ElseIf $RegInDFC16162 <> $ACinSabre55[0] Then
  1085.                             If $config[0] <> "55" Then
  1086.                                 FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt", "VN" & $VN[0] & "=================>" & "Sai Tàu & Config" & _
  1087.                                         @CRLF & "A/C trên SSCI : " & $ACinSabre55[0] & @CRLF & "A/C trên DFC : " & $RegInDFC16162 & _
  1088.                                         @CRLF & "Seatsel trên SSCI : " & $config[0] & @CRLF & @CRLF)
  1089.                             ElseIf $config[0] = "55" Then
  1090.                                 FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt", "VN" & $VN[0] & "=================>" & "Sai Tàu ( Config đúng )" & _
  1091.                                         @CRLF & "A/C trên SSCI : " & $ACinSabre55[0] & @CRLF & "A/C trên DFC : " & $RegInDFC16162 & _
  1092.                                         @CRLF & "Seatsel trên SSCI : " & $config[0] & @CRLF & @CRLF)
  1093.                             EndIf
  1094.                         EndIf
  1095.                     EndIf
  1096.                 EndIf
  1097.             Next
  1098.         Else
  1099.             MsgBox(64, "Thông Báo", "Không có tàu có Config 16/162")
  1100.         EndIf
  1101.         ;=================================================================Check Tau 8/195======
  1102.         Local $Config58 = IniReadSectionNames($Fileopen8195)
  1103.         If FileExists($Fileopen8195) Then
  1104.             For $l = 1 To $Config58[0]
  1105.                 Local $Sendtext = ControlSetText("", "", $controlhandlecommand, "G*" & $Config58[$l] & "/" & $InputDaynMonth & "dad/d")
  1106.                 ControlSend("", "Send", $controlhandlebutton, "{SPACE}")
  1107.                 Sleep(6000)
  1108.                 $Gettext = ControlGetText("", "", $controlHandleinfor)
  1109.                 $Open = FileOpen("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\DataFromSabreTool.txt", 2)
  1110.                 FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\DataFromSabreTool.txt", $Gettext)
  1111.                 $Read = FileRead($Open)
  1112.                 $1 = StringLeft($Read, 7)
  1113.                 If $1 = "‡FLIGHT" Then
  1114.                     MsgBox(0, "", "VN" & $Config58[$l] & " bị cancel hoặc Ferry")
  1115.                     FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt", "VN" & $Config58[$l] & " bị cancel hoặc Ferry")
  1116.                 Else
  1117.                     $config = StringRegExp($Read, "CFG-(\d*)\s*", 3)
  1118.                     $ACinSabre58 = StringRegExp($Read, "REG-(\w*\d*)", 3)
  1119.                     $VN = StringRegExp($Read, "VN\s*(\d*)", 3)
  1120.                     If $VN = @error Then
  1121.                         slideDown_Dialog()
  1122.                         MsgBox(0, "", "Script không đọc được nội dung của SSCI nên bị lỗi, tắt bớt các ứng dụng ko cần thiết đang chạy rồi chạy lại Script" & @CRLF & "Đã chạy đến VN" & $Config58[$l])
  1123.                         GUI_MoveIn($frmTool, 3, 3)
  1124.                         Return False
  1125.                     EndIf
  1126.                     $RegInDFC8195 = IniRead($Fileopen8195, $Config58[$l], "Air", "")
  1127.                     If $VN[0] = $Config58[$l] Then
  1128.                         If $RegInDFC8195 = $ACinSabre58[0] Then
  1129.                             If $config[0] = "58" Then
  1130.                                 FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt", "VN" & $VN[0] & "=================>" & "OK" & _
  1131.                                         @CRLF & "A/C trên SSCI : " & $ACinSabre58[0] & @CRLF & "A/C trên DFC : " & $RegInDFC8195 & _
  1132.                                         @CRLF & "Seatsel trên SSCI : " & $config[0] & @CRLF & @CRLF)
  1133.                             ElseIf $config[0] <> "58" Then
  1134.                                 FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt", "VN" & $VN[0] & "=================>" & "Sai Config ( Tàu đúng )" & _
  1135.                                         @CRLF & "A/C trên SSCI : " & $ACinSabre58[0] & @CRLF & "A/C trên DFC : " & $RegInDFC8195 & _
  1136.                                         @CRLF & "Seatsel trên SSCI : " & $config[0] & @CRLF & @CRLF)
  1137.                             EndIf
  1138.                         ElseIf $RegInDFC8195 <> $ACinSabre58[0] Then
  1139.                             If $config[0] <> "58" Then
  1140.                                 FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt", "VN" & $VN[0] & "=================>" & "Sai Tàu & Config" & _
  1141.                                         @CRLF & "A/C trên SSCI : " & $ACinSabre58[0] & @CRLF & "A/C trên DFC : " & $RegInDFC8195 & _
  1142.                                         @CRLF & "Seatsel trên SSCI : " & $config[0] & @CRLF & @CRLF)
  1143.                             ElseIf $config[0] = "58" Then
  1144.                                 FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt", "VN" & $VN[0] & "=================>" & "Sai Tàu ( Config đúng )" & _
  1145.                                         @CRLF & "A/C trên SSCI : " & $ACinSabre58[0] & @CRLF & "A/C trên DFC : " & $RegInDFC8195 & _
  1146.                                         @CRLF & "Seatsel trên SSCI : " & $config[0] & @CRLF & @CRLF)
  1147.                             EndIf
  1148.                         EndIf
  1149.                     EndIf
  1150.                 EndIf
  1151.             Next
  1152.         Else
  1153.             MsgBox(64, "Thông Báo", "Không có tàu có Config 8/195")
  1154.         EndIf
  1155.         ;=================================================================Check Tau A330===================================
  1156.         Local $ConfigA330 = IniReadSectionNames($Fileopen33001)
  1157.         If FileExists($Fileopen33001) Then
  1158.             For $m = 1 To $ConfigA330[0]
  1159.                 Local $Sendtext = ControlSetText("", "", $controlhandlecommand, "G*" & $ConfigA330[$m] & "/" & $InputDaynMonth & "dad/d")
  1160.                 ControlSend("", "Send", $controlhandlebutton, "{SPACE}")
  1161.                 Sleep(6000)
  1162.                 $Gettext = ControlGetText("", "", $controlHandleinfor)
  1163.                 $Open = FileOpen("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\DataFromSabreTool.txt", 2)
  1164.                 FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\DataFromSabreTool.txt", $Gettext)
  1165.                 $Read = FileRead($Open)
  1166.                 $1 = StringLeft($Read, 7)
  1167.                 If $1 = "‡FLIGHT" Then
  1168.                     MsgBox(0, "", "VN" & $ConfigA330[$m] & " bị cancel hoặc Ferry")
  1169.                     FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt", "VN" & $ConfigA330[$m] & " bị cancel hoặc Ferry")
  1170.                 Else
  1171.                     $config = StringRegExp($Read, "ACFT-(\d*)\s*CFG-(\d*)\s*", 3)
  1172.                     $ACSabreA330 = StringRegExp($Read, "REG-(\w*\d*)", 3)
  1173.                     $VN = StringRegExp($Read, "VN\s*(\d*)", 3)
  1174.                     If $VN = @error Then
  1175.                         slideDown_Dialog()
  1176.                         MsgBox(0, "", "Script không đọc được nội dung của SSCI nên bị lỗi, tắt bớt các ứng dụng ko cần thiết đang chạy rồi chạy lại Script" & @CRLF & "Đã chạy đến VN" & $ConfigA330[$m])
  1177.                         GUI_MoveIn($frmTool, 3, 3)
  1178.                         Return False
  1179.                     EndIf
  1180.                     $RegInDFCA330 = IniRead($Fileopen33001, $ConfigA330[$m], "Air", "")
  1181.                     If $VN[0] = $ConfigA330[$m] Then
  1182.                         If $RegInDFCA330 = $ACSabreA330[0] Then
  1183.                             For $m = 0 To UBound($count) - 1
  1184.                                 If $config[1] = $count[$m] And $config[0] = "330" Then
  1185.                                     FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt", "VN" & $VN[0] & "=================>" & "OK" & _
  1186.                                             @CRLF & "A/C trên SSCI : " & $ACSabreA330[0] & @CRLF & "A/C trên DFC : " & $RegInDFCA330 & _
  1187.                                             @CRLF & "Seatsel trên SSCI : " & $config[0] & @CRLF & @CRLF)
  1188.                                 ElseIf $config[1] = $count[$m] And $config[0] = "330" Then
  1189.                                     FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt", "VN" & $VN[0] & "=================>" & "OK" & _
  1190.                                             @CRLF & "A/C trên SSCI : " & $ACSabreA330[0] & @CRLF & "A/C trên DFC : " & $RegInDFCA330 & _
  1191.                                             @CRLF & "Seatsel trên SSCI : " & $config[0] & @CRLF & @CRLF)
  1192.                                 ElseIf $config[1] = $count[$m] And $config[0] = "330" Then
  1193.                                     FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt", "VN" & $VN[0] & "=================>" & "OK" & _
  1194.                                             @CRLF & "A/C trên SSCI : " & $ACSabreA330[0] & @CRLF & "A/C trên DFC : " & $RegInDFCA330 & _
  1195.                                             @CRLF & "Seatsel trên SSCI : " & $config[0] & @CRLF & @CRLF)
  1196.                                 ElseIf $config[1] = $count[$m] And $config[0] = "330" Then
  1197.                                     FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt", "VN" & $VN[0] & "=================>" & "OK" & _
  1198.                                             @CRLF & "A/C trên SSCI : " & $ACSabreA330[0] & @CRLF & "A/C trên DFC : " & $RegInDFCA330 & _
  1199.                                             @CRLF & "Seatsel trên SSCI : " & $config[0] & @CRLF & @CRLF)
  1200.                                 ElseIf $config[1] <> $count[$m] And $config[0] = "330" Then
  1201.                                     FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt", "VN" & $VN[0] & "=================>" & "Sai Config ( Tàu đúng )" & _
  1202.                                             @CRLF & "A/C trên SSCI : " & $ACSabreA330[0] & @CRLF & "A/C trên DFC : " & $RegInDFCA330 & _
  1203.                                             @CRLF & "Seatsel trên SSCI : " & $config[0] & @CRLF & @CRLF)
  1204.                                 EndIf
  1205.                             Next
  1206.                         ElseIf $RegInDFCA330 <> $ACSabreA330[0] Then
  1207.                             If $config[1] <> $count[$m] And $config[0] <> "330" Then
  1208.                                 FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt", "VN" & $VN[0] & "=================>" & "Sai Tàu & Config" & _
  1209.                                         @CRLF & "A/C trên SSCI : " & $ACSabreA330[0] & @CRLF & "A/C trên DFC : " & $RegInDFCA330 & _
  1210.                                         @CRLF & "Seatsel trên SSCI : " & $config[0] & @CRLF & @CRLF)
  1211.                             ElseIf $config[1] = $count[$m] And $config[0] = "330" Then
  1212.                                 FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt", "VN" & $VN[0] & "=================>" & "Sai Tàu ( Config đúng )" & _
  1213.                                         @CRLF & "A/C trên SSCI : " & $ACSabreA330[0] & @CRLF & "A/C trên DFC : " & $RegInDFCA330 & _
  1214.                                         @CRLF & "Seatsel trên SSCI : " & $config[0] & @CRLF & @CRLF)
  1215.                             EndIf
  1216.                         EndIf
  1217.                     EndIf
  1218.                 EndIf
  1219.             Next
  1220.         Else
  1221.             MsgBox(64, "Thông Báo", "Không có tàu A330")
  1222.         EndIf
  1223.         ShellExecute("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt")
  1224.         slideDown_Dialog()
  1225.         MsgBox(0, "Thông Báo", "Hoàn thành")
  1226.         GUI_MoveIn($frmTool, 3, 3)
  1227.     Else
  1228.         slideDown_Dialog()
  1229.         MsgBox(0, "Thông báo", "Thiếu File Data(Chưa chạy bước 1, hoặc bước 1 lỗi)" & @CRLF & "Chạy lại bước 1")
  1230.         GUI_MoveIn($frmTool, 3, 3)
  1231.     EndIf
  1232. EndFunc   ;==>_CheckAC
  1233. #EndRegion CheckAC
  1234. #Region CheckAC SSCI Cu
  1235. ;~ Func _CheckAC()
  1236. ;~  $ToolShow = Not $ToolShow
  1237. ;~  frmTool_Show($ToolShow)
  1238. ;~  slideUp_Dialog("Warning", "Script is running !!!!" & @CRLF & "Pls, Do not touch this Computer")
  1239. ;~  If FileExists($Excel_File) Then FileDelete($Excel_File)
  1240. ;~  If FileExists($DataCheckAC) Then
  1241. ;~      Local $AllSection = IniReadSectionNames($DataCheckAC)
  1242. ;~      For $i = 1 To $AllSection[0]
  1243. ;~          Local $hWnd = WinActivate($Interact_Title)
  1244. ;~          Sleep(100)
  1245. ;~          Send("{F1}")
  1246. ;~          Sleep(100)
  1247. ;~          Send("+{F3}")
  1248. ;~          Sleep(500)
  1249. ;~          Send("+{Tab}")
  1250. ;~          Sleep(100)
  1251. ;~          Send("VN")
  1252. ;~          Sleep(100)
  1253. ;~          Send($AllSection[$i], 1)
  1254. ;~          Sleep(200)
  1255. ;~          Send("DAD")
  1256. ;~          Sleep(50)
  1257. ;~          Local $Value = IniRead($DataCheckAC, $AllSection[$i], "Des", "")
  1258. ;~          Sleep(50)
  1259. ;~          Send($Value, 1)
  1260. ;~          Sleep(500)
  1261. ;~          Send("{ENTER}")
  1262. ;~          Sleep(50)
  1263. ;~          Send("!{i}")
  1264. ;~          Sleep(8000)
  1265. ;~          Send("{ESC}")
  1266. ;~          Sleep(500)
  1267. ;~      Next
  1268. ;~      Sleep(50)
  1269. ;~      If MsgBox(32 + 4 + 262144, "Thông Báo", "Xóa File Data ???") = 6 Then
  1270. ;~          FileDelete($DataCheckAC)
  1271. ;~      EndIf
  1272. ;~      slideDown_Dialog()
  1273. ;~      MsgBox(0, "Thông Báo", "Hoàn Thành.", 0, $hWnd)
  1274. ;~      GUI_MoveIn($frmTool, 3, 3)
  1275. ;~  Else
  1276. ;~      slideDown_Dialog()
  1277. ;~      MsgBox(0, "Thông báo", "Lỗi, Chạy lại bước 1 !!!", 0)
  1278. ;~      GUI_MoveIn($frmTool, 3, 3)
  1279. ;~  EndIf
  1280. ;~ EndFunc   ;==>_CheckAC
  1281. #EndRegion CheckAC SSCI Cu
  1282. #Region DFD
  1283. Func _GetDFD()
  1284.     $ToolShow = Not $ToolShow
  1285.     frmTool_Show($ToolShow)
  1286.     slideUp_Dialog("Warning", "Script is running !!!!" & @CRLF & "Pls, Do not touch this Computer")
  1287.     If FileExists($Excel_File) Then FileDelete($Excel_File)
  1288.     Local $sDate = _DateAdd('d', 0, _NowCalcDate())
  1289.     Sleep(100)
  1290.     Run("D:\Appls\dfc\dfc.exe")
  1291.     Local $hWnd1 = WinWait("Diags Flights Care", "Sign In")
  1292.     If Not WinActive($hWnd1) Then WinActivate($hWnd1)
  1293.     WinWaitActive($hWnd1)
  1294.     Sleep(80)
  1295.     Send("N0604")
  1296.     Sleep(100)
  1297.     Send("{TAB}")
  1298.     Sleep(100)
  1299.     Send("2")
  1300.     Sleep(100)
  1301.     Send("{ENTER 3}")
  1302.     Sleep(500)
  1303.     Local $hWnd2 = WinWait("[TITLE:Diags Flights Care; CLASS:dfc9c000000]")
  1304.     If Not WinActive($hWnd2) Then WinActivate($hWnd2)
  1305.     WinWaitActive($hWnd2)
  1306.     Sleep(80)
  1307.     Send("^p")
  1308.     Local $hWnd3 = WinWait("Diags Flights Care", "Print Schedule")
  1309.     If Not WinActive($hWnd3) Then WinActivate($hWnd3)
  1310.     WinWaitActive($hWnd3)
  1311.     Sleep(100)
  1312.     If _Msgbox() = 1 Then
  1313.         $sDate = _DateAdd("D", 1, _NowCalcDate())
  1314.         $sNewDate = StringRegExpReplace($sDate, "(\d{4})/(\d{2})/(\d{2})", "$3/$2/$1")
  1315.         Sleep(500)
  1316.         Send($sNewDate)
  1317.         Send("d")
  1318.         Sleep(100)
  1319.         Send("{TAB 6}")
  1320.         Sleep(100)
  1321.         Send("{Enter}")
  1322.     Else
  1323.     EndIf
  1324.     Sleep(100)
  1325.     Send("{TAB}{UP}{TAB 6}{ENTER}")
  1326.     Sleep(100)
  1327.     Local $hWnd4 = WinWait("Microsoft Excel")
  1328.     If Not WinActive($hWnd4) Then WinActivate($hWnd4)
  1329.     WinWaitActive($hWnd4)
  1330.     Sleep(10000)
  1331.     WinClose($hWnd4)
  1332.     Sleep(1000)
  1333.     Send("!s")
  1334.     Sleep(1000)
  1335.     Send($Excel_File)
  1336.     Send("!s")
  1337.     Sleep(1000)
  1338. ;~  ProgressOn("Progress Information", "Calculating.... ", "0%")
  1339. ;~  For $z = 10 To 100 Step 10
  1340. ;~      Sleep(500)
  1341. ;~      ProgressSet($z, $z & "%")
  1342. ;~  Next
  1343. ;~  ProgressSet(100, "Done", "Complete")
  1344. ;~  Sleep(300)
  1345.     If FileExists($FolderData & "\Excel.xlsx") Then
  1346.         Local $oExcel = ObjCreate("Excel.Application")
  1347.         $oExcel.visible = False
  1348.         $oExcel.Workbooks.Open($FolderData & "\Excel.xlsx")
  1349.         Local $i = 7
  1350.         With $oExcel.ActiveWorkBook.ActiveSheet
  1351.             While .Cells($i, 2).Value
  1352.                 If StringInStr(.Cells($i, 3).Value, "VN") Then
  1353.                     $Result2 = StringRegExp(.Cells($i, 3).Value, "(\d+)", 3)
  1354.                     $Result5 = StringMid(.Cells($i, 4).Value, 5, 3)
  1355.                     If $Result2[0] <> 430 Then
  1356.                         $Result3 = StringRegExp(.Cells($i, 2).Value, "(?i)(?:VNA|VNB|XU)\d+", 3)
  1357.                         $Data = .Cells($i, 5).Value
  1358.                         If StringInStr($Data, '.') Then
  1359.                             $Result6 = _ExcelDecToTime($Data)
  1360.                         Else
  1361.                             $Result6 = StringLeft($Data, 5)
  1362.                         EndIf
  1363.                         For $m = 0 To UBound($16162) - 1
  1364.                             $ClipBoard16C162Y &= $16162[$m] & '|'
  1365.                         Next
  1366.                         For $m = 0 To UBound($66) - 1
  1367.                             $ClipBoard66Y &= $66[$m] & '|'
  1368.                         Next
  1369.                         For $m = 0 To UBound($8C195Y) - 1
  1370.                             $ClipBoard8C195Y &= $8C195Y[$m] & '|'
  1371.                         Next
  1372.                         If StringInStr($Result3[0], 'VNB') Then
  1373.                             If StringInStr($ClipBoard66Y, $Result3[0]) Then
  1374.                                 IniWrite($DataDFD, $Result2[0], "AC", "AT66")
  1375.                             Else
  1376.                                 IniWrite($DataDFD, $Result2[0], "AC", "AT68")
  1377.                             EndIf
  1378.                         Else
  1379.                             If StringInStr($ClipBoard16C162Y, $Result3[0]) Then
  1380.                                 IniWrite($DataDFD, $Result2[0], "AC", "321B")
  1381.                             ElseIf StringInStr($ClipBoard8C195Y, $Result3[0]) Then
  1382.                                 IniWrite($DataDFD, $Result2[0], "AC", "8195")
  1383.                             Else
  1384.                                 IniWrite($DataDFD, $Result2[0], "AC", "321")
  1385.                             EndIf
  1386.                         EndIf
  1387. ;~                                 IniWrite($Ini_File, $Result2[0], "Air", $Result3[0])
  1388.                         IniWrite($DataDFD, $Result2[0], "Timing", $Result6)
  1389.                         IniWrite($DataDFD, $Result2[0], "Des", $Result5)
  1390.                         $ClipBoard = ''
  1391.                     EndIf
  1392.  
  1393.                 EndIf
  1394.                 $i += 1
  1395.             WEnd
  1396.         EndWith
  1397.         $oExcel.ActiveWorkBook.Saved = True
  1398.         $oExcel.Quit
  1399.         Sleep(300)
  1400.         FileDelete($FolderData & "\Excel.xlsx")
  1401.         Sleep(50)
  1402.     Else
  1403.         ProgressOff()
  1404.         slideDown_Dialog()
  1405.         MsgBox(0, "Thông Báo", "Lỗi, Tắt Vietkey, Excel or tắt DFC trước", 0)
  1406.         GUI_MoveIn($frmTool, 3, 3)
  1407.     EndIf
  1408. ;~  ProgressOff()
  1409.     slideDown_Dialog()
  1410.     MsgBox(0, "Thông Báo", "Hoàn thành, SIGN IN + Bật sẵn cửa sổ DFD lên trước khi chạy DFD")
  1411.     GUI_MoveIn($frmTool, 3, 3)
  1412. EndFunc   ;==>_GetDFD
  1413.  
  1414. Func _ExcelDecToTime($dec_value, $format = 0) ;format=0 -> 24 hours, format=1 -> 12 hours
  1415.     $time_sec = $dec_value * 86400
  1416.     $hours = Int($time_sec / 3600)
  1417.     If $hours < 10 Then $hours = "0" & $hours
  1418.     $minutes = Int(Round(Mod($time_sec, 3600) / 60))
  1419.     If $minutes < 10 Then $minutes = "0" & $minutes
  1420.     $seconds = Round(Mod($time_sec, 60))
  1421.     If $seconds < 10 Then $seconds = "0" & $seconds
  1422.     Switch $format
  1423.         Case 0 ;24 hours format
  1424.             Return $hours & ":" & $minutes
  1425.         Case 1 ;AM/PM format
  1426.             Switch Number($hours)
  1427.                 Case 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23
  1428.                     Return $hours - 12 & ":" & $minutes & ":" & $seconds & " PM"
  1429.                 Case 12
  1430.                     Return $hours & ":" & $minutes & ":" & $seconds & " PM"
  1431.                 Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11
  1432.                     Return $hours & ":" & $minutes & ":" & $seconds & " AM"
  1433.                 Case 0
  1434.                     Return "12:" & $minutes & ":" & $seconds & " AM"
  1435.                 Case Else
  1436.                     MsgBox(16, "Hour Error", $hours & " is not between 0 and 24")
  1437.             EndSwitch
  1438.         Case Else
  1439.             MsgBox(16, "Flag error", $format & " is not a valid option")
  1440.     EndSwitch
  1441. EndFunc   ;==>_ExcelDecToTime
  1442.  
  1443. Func _DFD()
  1444.     $ToolShow = Not $ToolShow
  1445.     frmTool_Show($ToolShow)
  1446.     slideUp_Dialog("Warning", "Script is running !!!!" & @CRLF & "Pls, Do not touch this Computer")
  1447.     If FileExists($Excel_File) Then FileDelete($Excel_File)
  1448.     If FileExists($DataDFD) Then
  1449.         Local $AllSection = IniReadSectionNames($DataDFD)
  1450.         For $i = 1 To $AllSection[0]
  1451.             Local $hWnd = WinActivate($Backup)
  1452.             Sleep(10)
  1453.             Send("{PGDN}")
  1454.             Sleep(10)
  1455.             Send("DFD:" & $AllSection[$i] & "/+", 1) ; VN101
  1456.             Sleep(800)
  1457.             Send("^{Enter}")
  1458.             Sleep(500)
  1459.             If IniRead($DataDFD, $AllSection[$i], "AC", "") = "321" Then
  1460.                 Send("321")
  1461.             ElseIf IniRead($DataDFD, $AllSection[$i], "AC", "") = "321B" Then
  1462.                 Send("321")
  1463.                 Sleep(500)
  1464.                 Send("{DOWN}")
  1465.             ElseIf IniRead($DataDFD, $AllSection[$i], "AC", "") = "AT68" Then
  1466.                 Send("AT")
  1467.                 Sleep(500)
  1468.                 Send("{DOWN 2}")
  1469.             ElseIf IniRead($DataDFD, $AllSection[$i], "AC", "") = "AT66" Then
  1470.                 Send("AT")
  1471.             ElseIf IniRead($DataDFD, $AllSection[$i], "AC", "") = "8195" Then
  1472.                 Send("321")
  1473.                 Sleep(500)
  1474.                 Send("{DOWN 10}")
  1475.             EndIf
  1476.             Sleep(500)
  1477.             Send("{Tab 2}")
  1478.             Sleep(200)
  1479.             Send(IniRead($DataDFD, $AllSection[$i], "Timing", ""), 1) ; Time :
  1480.             Sleep(200)
  1481.             Send("{tab}")
  1482.             Sleep(200)
  1483.             Send(IniRead($DataDFD, $AllSection[$i], "Des", ""), 1) ; Destination : SGN, HAN
  1484.             Sleep(200)
  1485.             Send("{Tab}")
  1486.             Sleep(200)
  1487.             Send("12:12") ; Time Dep
  1488.             Sleep(200)
  1489.             Send("{TAB 3}")
  1490.             Sleep(200)
  1491.             Send("{Enter}")
  1492.         Next
  1493.         Sleep(50)
  1494.         If MsgBox(32 + 4 + 262144, "Thông Báo", "Xóa File Data ???") = 6 Then
  1495.             FileDelete($DataDFD)
  1496.         EndIf
  1497.         Sleep(50)
  1498.         slideDown_Dialog()
  1499.         MsgBox(0, "Thông Báo", "DFD VN430 + các chuyến quốc tế !!!!", 0, $hWnd)
  1500.         GUI_MoveIn($frmTool, 3, 3)
  1501.     Else
  1502.         slideDown_Dialog()
  1503.         MsgBox(0, "Thông báo", "Lỗi ! Chạy lại bước 1", 0)
  1504.         GUI_MoveIn($frmTool, 3, 3)
  1505.     EndIf
  1506. EndFunc   ;==>_DFD
  1507. #EndRegion DFD
  1508. #Region Checking Air Craft
  1509. Func _GetACToday()
  1510.     $ToolShow = Not $ToolShow
  1511.     frmTool_Show($ToolShow)
  1512.     FileDelete($Excel_File)
  1513.     slideUp_Dialog("Warning", "Script is running !!!!" & @CRLF & "Pls, Do not touch this Computer")
  1514.     If FileExists("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Today\MainData\Data.ini") Then
  1515.         GUI_MoveIn($frmTool, 3, 3)
  1516.         MsgBox(0, "Thông Báo", "Đã có File Data Gốc, Không cần GetData lại !!!")
  1517.     Else
  1518.         Local $sDate = _DateAdd('d', 0, _NowCalcDate())
  1519.         Sleep(100)
  1520.         Run("D:\Appls\dfc\dfc.exe")
  1521.         Local $hWnd1 = WinWait("Diags Flights Care", "Sign In")
  1522.         If Not WinActive($hWnd1) Then WinActivate($hWnd1)
  1523.         WinWaitActive($hWnd1)
  1524.         Sleep(80)
  1525.         Send("N0604")
  1526.         Sleep(100)
  1527.         Send("{TAB}")
  1528.         Sleep(100)
  1529.         Send("2")
  1530.         Sleep(100)
  1531.         Send("{ENTER 3}")
  1532.         Sleep(500)
  1533.         Local $hWnd2 = WinWait("[TITLE:Diags Flights Care; CLASS:dfc9c000000]")
  1534.         If Not WinActive($hWnd2) Then WinActivate($hWnd2)
  1535.         WinWaitActive($hWnd2)
  1536.         Sleep(80)
  1537.         Send("^p")
  1538.         Local $hWnd3 = WinWait("Diags Flights Care", "Print Schedule")
  1539.         If Not WinActive($hWnd3) Then WinActivate($hWnd3)
  1540.         WinWaitActive($hWnd3)
  1541.         Sleep(100)
  1542.         Send("{TAB}{UP}{TAB 6}{ENTER}")
  1543.         Sleep(100)
  1544.         Local $hWnd4 = WinWait("Microsoft Excel")
  1545.         If Not WinActive($hWnd4) Then WinActivate($hWnd4)
  1546.         WinWaitActive($hWnd4)
  1547.         Sleep(10000)
  1548.         WinClose($hWnd4)
  1549.         Sleep(1000)
  1550.         Send("!s")
  1551.         Sleep(1000)
  1552.         Send($Excel_File)
  1553.         Send("!s")
  1554.         Sleep(1000)
  1555.         ProgressOn("Progress Information", "Calculating.... ", "0%")
  1556.         For $z = 10 To 100 Step 10
  1557.             Sleep(500)
  1558.             ProgressSet($z, $z & "%")
  1559.         Next
  1560.         ProgressSet(100, "Done", "Complete")
  1561.         Sleep(300)
  1562.         If FileExists($FolderData & "\Excel.xlsx") Then
  1563.             Local $oExcel = ObjCreate("Excel.Application")
  1564.             $oExcel.visible = False
  1565.             $oExcel.Workbooks.Open($FolderData & "\Excel.xlsx")
  1566.             Local $i = 7
  1567.             With $oExcel.ActiveWorkBook.ActiveSheet
  1568.                 While .Cells($i, 2).Value
  1569.                     If StringInStr(.Cells($i, 3).Value, "VN") Then
  1570.                         $Result2 = StringRegExp(.Cells($i, 3).Value, "(\d+)", 3)
  1571.                         $Result5 = StringMid(.Cells($i, 4).Value, 5, 3)
  1572.                         If $Result2[0] Then
  1573.                             $Result3 = StringRegExp(.Cells($i, 2).Value, "(?i)(?:VNA|VNB|XU)\d+", 3)
  1574.                             IniWrite($MainDataToday, $Result2[0], "Air", $Result3[0])
  1575.                             $ClipBoard = ''
  1576.                         EndIf
  1577.  
  1578.                     EndIf
  1579.                     $i += 1
  1580.                 WEnd
  1581.             EndWith
  1582.             $oExcel.ActiveWorkBook.Saved = True
  1583.             $oExcel.Quit
  1584.             Sleep(300)
  1585.             FileDelete($FolderData & "\Excel.xlsx")
  1586.             ProgressOff()
  1587.             slideDown_Dialog()
  1588.             MsgBox(0, "Thông Báo", "Hoàn thành")
  1589.             GUI_MoveIn($frmTool, 3, 3)
  1590.         Else
  1591.             ProgressOff()
  1592.             slideDown_Dialog()
  1593.             MsgBox(0, "Thông Báo", "Thao tác sai, Thực hiện lại Step 1", 0)
  1594.             GUI_MoveIn($frmTool, 3, 3)
  1595.         EndIf
  1596.     EndIf
  1597. EndFunc   ;==>_GetACToday
  1598.  
  1599. Func _CheckingToday()
  1600.     $ToolShow = Not $ToolShow
  1601.     frmTool_Show($ToolShow)
  1602.     FileDelete("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Time\Time.txt")
  1603.     FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Time\Time.txt", @HOUR & ":" & @MIN & ":" & @SEC & "      " & @MDAY & "/" & @MON & "/" & @YEAR)
  1604.     GUICtrlSetData($TimeStatus, @HOUR & ":" & @MIN & ":" & @SEC & "      " & @MDAY & "/" & @MON & "/" & @YEAR)
  1605.     FileDelete($Excel_File)
  1606.     slideUp_Dialog("Warning", "Script is running !!!!" & @CRLF & "Pls, Do not touch this Computer")
  1607.     If FileExists($MainDataToday) Then
  1608.         Local $sDate = _DateAdd('d', 0, _NowCalcDate())
  1609.         Sleep(100)
  1610.         Run("D:\Appls\dfc\dfc.exe")
  1611.         Local $hWnd1 = WinWait("Diags Flights Care", "Sign In")
  1612.         If Not WinActive($hWnd1) Then WinActivate($hWnd1)
  1613.         WinWaitActive($hWnd1)
  1614.         Sleep(80)
  1615.         Send("N0604")
  1616.         Sleep(100)
  1617.         Send("{TAB}")
  1618.         Sleep(100)
  1619.         Send("2")
  1620.         Sleep(100)
  1621.         Send("{ENTER 3}")
  1622.         Sleep(500)
  1623.         Local $hWnd2 = WinWait("[TITLE:Diags Flights Care; CLASS:dfc9c000000]")
  1624.         If Not WinActive($hWnd2) Then WinActivate($hWnd2)
  1625.         WinWaitActive($hWnd2)
  1626.         Sleep(80)
  1627.         Send("^p")
  1628.         Local $hWnd3 = WinWait("Diags Flights Care", "Print Schedule")
  1629.         If Not WinActive($hWnd3) Then WinActivate($hWnd3)
  1630.         WinWaitActive($hWnd3)
  1631.         Send("{TAB}{UP}{TAB 6}{ENTER}")
  1632.         Sleep(100)
  1633.         Local $hWnd4 = WinWait("Microsoft Excel")
  1634.         If Not WinActive($hWnd4) Then WinActivate($hWnd4)
  1635.         WinWaitActive($hWnd4)
  1636.         Sleep(10000)
  1637.         WinClose($hWnd4)
  1638.         Sleep(1000)
  1639.         Send("!s")
  1640.         Sleep(1000)
  1641.         Send($Excel_File)
  1642.         Send("!s")
  1643.         Sleep(1000)
  1644.         If FileExists($FolderData & "\Excel.xlsx") Then
  1645.             Local $oExcel = ObjCreate("Excel.Application")
  1646.             $oExcel.visible = False
  1647.             $oExcel.Workbooks.Open($FolderData & "\Excel.xlsx")
  1648.             Local $i = 7
  1649.             With $oExcel.ActiveWorkBook.ActiveSheet
  1650.                 While .Cells($i, 2).Value
  1651.                     If StringInStr(.Cells($i, 3).Value, "VN") Then
  1652.                         $Result2 = StringRegExp(.Cells($i, 3).Value, "(\d+)", 3)
  1653.                         $Result5 = StringMid(.Cells($i, 4).Value, 5, 3)
  1654.                         If $Result2[0] Then
  1655.                             $Result3 = StringRegExp(.Cells($i, 2).Value, "(?i)(?:VNA|VNB|XU)\d+", 3)
  1656.                             IniWrite($CloneDataToday, $Result2[0], "Air", $Result3[0])
  1657.                             $ClipBoard = ''
  1658.                         EndIf
  1659.                     EndIf
  1660.                     $i += 1
  1661.                 WEnd
  1662.             EndWith
  1663.             $oExcel.ActiveWorkBook.Saved = True
  1664.             $oExcel.Quit
  1665.             Sleep(300)
  1666.             FileDelete($FolderData & "\Excel.xlsx")
  1667.             Sleep(300)
  1668. ;~ ;----------------------------------------------------------------------
  1669.             Local $sections = IniReadSectionNames(@ScriptDir & "\Data\Today\MainData\Data.ini")
  1670.             Global $check
  1671.             If @error Then
  1672.                 MsgBox(16, "", "Lỗi, không có file data !!!")
  1673.             Else
  1674.                 For $i = 1 To $sections[0]
  1675.                     Local $values = IniReadSection(@ScriptDir & "\Data\Today\MainData\Data.ini", $sections[$i])
  1676.                     If @error Then
  1677.                         MsgBox(0, '', 'Thiếu .Ini File')
  1678.                         ContinueLoop
  1679.                     EndIf
  1680.                     For $i2 = 1 To $values[0][0]
  1681.                         $values2 = IniReadSection(@ScriptDir & "\Data\Today\CloneData\Data.ini", $sections[$i])
  1682.                         If @error Then
  1683.                             MsgBox(0, '', 'Lỗi')
  1684.                         Else
  1685.                             If $values[$i2][1] <> $values2[1][1] Then
  1686.                                 Sleep(200)
  1687.                                 GUICtrlSetData($Edit3, @CRLF & "Các tàu hôm nay thay đổi", 1)
  1688.                                 Sleep(200)
  1689.                                 GUICtrlSetData($Edit3, @CRLF & "VN" & $sections[$i] & " " & "(" & $values[$i2][1] & '=>' & $values2[1][1] & ")", 1)
  1690.                                 Sleep(200)
  1691.                                 IniWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Logbook.ini", "Time: " & @HOUR & ":" & @MIN & "--" & @MDAY & "/" & @MON, "VN" & $sections[$i] & " ", "      " & $values[$i2][1] & " " & "=>" & " " & $values2[1][1])
  1692.                                 $check = True
  1693.                             EndIf
  1694.                         EndIf
  1695.                     Next
  1696.                 Next
  1697.                 If $check = False Then
  1698.                     Sleep(600)
  1699.                     GUICtrlSetData($Edit3, @CRLF & "Hiện Tại Vẫn Chưa Có Tàu Thay Đổi !!!!")
  1700.                     Sleep(600)
  1701.                     IniWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Logbook.ini", "Time: " & @HOUR & ":" & @MIN & "--" & @MDAY & "/" & @MON, "", "Hiện Tại Vẫn Chưa Có Tàu Thay Đổi !!!!")
  1702.                 EndIf
  1703.             EndIf
  1704.             FileDelete(@ScriptDir & "\Data\Today\MainData\Data.ini")
  1705.             Sleep(300)
  1706.             FileMove(@ScriptDir & "\Data\Today\CloneData\Data.ini", @ScriptDir & "\Data\Today\MainData\Data.ini")
  1707.             slideDown_Dialog()
  1708.             Sleep(200)
  1709.             MsgBox(0, "Thông Báo", "Hoàn thành")
  1710.             GUI_MoveIn($frmTool, 3, 3)
  1711.         Else
  1712.             slideDown_Dialog()
  1713.             Sleep(200)
  1714.             ProgressOff()
  1715.             Sleep(200)
  1716.             MsgBox(0, "Thông Báo", "Thao tác sai, Thực hiện lại Step 1", 0)
  1717.             GUI_MoveIn($frmTool, 3, 3)
  1718.         EndIf
  1719.     Else
  1720.         MsgBox(0, "Thông Báo", "Chạy GetData(Today) trước !!!")
  1721.         slideDown_Dialog()
  1722.         GUI_MoveIn($frmTool, 3, 3)
  1723.     EndIf
  1724. EndFunc   ;==>_CheckingToday
  1725.  
  1726. Func _GetACTomorrow()
  1727.     $ToolShow = Not $ToolShow
  1728.     frmTool_Show($ToolShow)
  1729.     FileDelete($Excel_File)
  1730.     slideUp_Dialog("Warning", "Script is running !!!!" & @CRLF & "Pls, Do not touch this Computer")
  1731.     If FileExists("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Tomorrow\MainData\Data.ini") Then
  1732.         GUI_MoveIn($frmTool, 3, 3)
  1733.         MsgBox(0, "Thông Báo", "Đã có File Data Gốc, Không cần GetData lại !!!")
  1734.     Else
  1735.         Local $sDate = _DateAdd('d', 0, _NowCalcDate())
  1736.         Sleep(100)
  1737.         Run("D:\Appls\dfc\dfc.exe")
  1738.         Local $hWnd1 = WinWait("Diags Flights Care", "Sign In")
  1739.         If Not WinActive($hWnd1) Then WinActivate($hWnd1)
  1740.         WinWaitActive($hWnd1)
  1741.         Sleep(80)
  1742.         Send("N0604")
  1743.         Sleep(100)
  1744.         Send("{TAB}")
  1745.         Sleep(100)
  1746.         Send("2")
  1747.         Sleep(100)
  1748.         Send("{ENTER 3}")
  1749.         Sleep(500)
  1750.         Local $hWnd2 = WinWait("[TITLE:Diags Flights Care; CLASS:dfc9c000000]")
  1751.         If Not WinActive($hWnd2) Then WinActivate($hWnd2)
  1752.         WinWaitActive($hWnd2)
  1753.         Sleep(80)
  1754.         Send("^p")
  1755.         Local $hWnd3 = WinWait("Diags Flights Care", "Print Schedule")
  1756.         If Not WinActive($hWnd3) Then WinActivate($hWnd3)
  1757.         WinWaitActive($hWnd3)
  1758.         Sleep(100)
  1759.         $sDate = _DateAdd("D", 1, _NowCalcDate())
  1760.         $sNewDate = StringRegExpReplace($sDate, "(\d{4})/(\d{2})/(\d{2})", "$3/$2/$1")
  1761.         Sleep(500)
  1762.         Send($sNewDate)
  1763.         Send("d")
  1764.         Sleep(100)
  1765.         Send("{TAB 6}")
  1766.         Sleep(100)
  1767.         Send("{Enter}")
  1768.         Local $hWnd4 = WinWait("Microsoft Excel")
  1769.         If Not WinActive($hWnd4) Then WinActivate($hWnd4)
  1770.         WinWaitActive($hWnd4)
  1771.         Sleep(10000)
  1772.         WinClose($hWnd4)
  1773.         Sleep(1000)
  1774.         Send("!s")
  1775.         Sleep(1000)
  1776.         Send($Excel_File)
  1777.         Send("!s")
  1778.         Sleep(1000)
  1779.         ProgressOn("Progress Information", "Calculating.... ", "0%")
  1780.         For $z = 10 To 100 Step 10
  1781.             Sleep(500)
  1782.             ProgressSet($z, $z & "%")
  1783.         Next
  1784.         ProgressSet(100, "Done", "Complete")
  1785.         Sleep(300)
  1786.         If FileExists($FolderData & "\Excel.xlsx") Then
  1787.             Local $oExcel = ObjCreate("Excel.Application")
  1788.             $oExcel.visible = False
  1789.             $oExcel.Workbooks.Open($FolderData & "\Excel.xlsx")
  1790.             Local $i = 7
  1791.             With $oExcel.ActiveWorkBook.ActiveSheet
  1792.                 While .Cells($i, 2).Value
  1793.                     If StringInStr(.Cells($i, 3).Value, "VN") Then
  1794.                         $Result2 = StringRegExp(.Cells($i, 3).Value, "(\d+)", 3)
  1795.                         $Result5 = StringMid(.Cells($i, 4).Value, 5, 3)
  1796.                         If $Result2[0] Then
  1797.                             $Result3 = StringRegExp(.Cells($i, 2).Value, "(?i)(?:VNA|VNB|XU)\d+", 3)
  1798.                             IniWrite($MainDataTomorrow, $Result2[0], "Air", $Result3[0])
  1799.                             $ClipBoard = ''
  1800.                         EndIf
  1801.  
  1802.                     EndIf
  1803.                     $i += 1
  1804.                 WEnd
  1805.             EndWith
  1806.             $oExcel.ActiveWorkBook.Saved = True
  1807.             $oExcel.Quit
  1808.             Sleep(300)
  1809.             FileDelete($FolderData & "\Excel.xlsx")
  1810.             ProgressOff()
  1811.             slideDown_Dialog()
  1812.             MsgBox(0, "Thông Báo", "Hoàn thành")
  1813.             GUI_MoveIn($frmTool, 3, 3)
  1814.         Else
  1815.             ProgressOff()
  1816.             slideDown_Dialog()
  1817.             MsgBox(0, "Thông Báo", "Thao tác sai, Thực hiện lại Step 1", 0)
  1818.             GUI_MoveIn($frmTool, 3, 3)
  1819.         EndIf
  1820.     EndIf
  1821. EndFunc   ;==>_GetACTomorrow
  1822. Func _CheckingTomorrow()
  1823.     $ToolShow = Not $ToolShow
  1824.     frmTool_Show($ToolShow)
  1825.     slideUp_Dialog("Warning", "Script is running !!!!" & @CRLF & "Pls, Do not touch this Computer")
  1826.     If FileExists($Excel_File) Then FileDelete($Excel_File)
  1827.     If FileExists($MainDataTomorrow) Then
  1828.         Local $sDate = _DateAdd('d', 0, _NowCalcDate())
  1829.         Sleep(100)
  1830.         Run("D:\Appls\dfc\dfc.exe")
  1831.         Local $hWnd1 = WinWait("Diags Flights Care", "Sign In")
  1832.         If Not WinActive($hWnd1) Then WinActivate($hWnd1)
  1833.         WinWaitActive($hWnd1)
  1834.         Sleep(80)
  1835.         Send("N0604")
  1836.         Sleep(100)
  1837.         Send("{TAB}")
  1838.         Sleep(100)
  1839.         Send("2")
  1840.         Sleep(100)
  1841.         Send("{ENTER 3}")
  1842.         Sleep(500)
  1843.         Local $hWnd2 = WinWait("[TITLE:Diags Flights Care; CLASS:dfc9c000000]")
  1844.         If Not WinActive($hWnd2) Then WinActivate($hWnd2)
  1845.         WinWaitActive($hWnd2)
  1846.         Sleep(80)
  1847.         Send("^p")
  1848.         Local $hWnd3 = WinWait("Diags Flights Care", "Print Schedule")
  1849.         If Not WinActive($hWnd3) Then WinActivate($hWnd3)
  1850.         WinWaitActive($hWnd3)
  1851.         Sleep(100)
  1852.         $sDate = _DateAdd("D", 1, _NowCalcDate())
  1853.         $sNewDate = StringRegExpReplace($sDate, "(\d{4})/(\d{2})/(\d{2})", "$3/$2/$1")
  1854.         Sleep(500)
  1855.         Send($sNewDate)
  1856.         Send("d")
  1857.         Sleep(100)
  1858.         Send("{TAB 6}")
  1859.         Sleep(100)
  1860.         Send("{Enter}")
  1861.         Local $hWnd4 = WinWait("Microsoft Excel")
  1862.         If Not WinActive($hWnd4) Then WinActivate($hWnd4)
  1863.         WinWaitActive($hWnd4)
  1864.         Sleep(10000)
  1865.         WinClose($hWnd4)
  1866.         Sleep(1000)
  1867.         Send("!s")
  1868.         Sleep(1000)
  1869.         Send($Excel_File)
  1870.         Send("!s")
  1871.         Sleep(1000)
  1872.         If FileExists($FolderData & "\Excel.xlsx") Then
  1873.             Local $oExcel = ObjCreate("Excel.Application")
  1874.             $oExcel.visible = False
  1875.             $oExcel.Workbooks.Open($FolderData & "\Excel.xlsx")
  1876.             Local $i = 7
  1877.             With $oExcel.ActiveWorkBook.ActiveSheet
  1878.                 While .Cells($i, 2).Value
  1879.                     If StringInStr(.Cells($i, 3).Value, "VN") Then
  1880.                         $Result2 = StringRegExp(.Cells($i, 3).Value, "(\d+)", 3)
  1881.                         $Result5 = StringMid(.Cells($i, 4).Value, 5, 3)
  1882.                         If $Result2[0] Then
  1883.                             $Result3 = StringRegExp(.Cells($i, 2).Value, "(?i)(?:VNA|VNB|XU)\d+", 3)
  1884.                             IniWrite($CloneDataTomorrow, $Result2[0], "Air", $Result3[0])
  1885.                             $ClipBoard = ''
  1886.                         EndIf
  1887.  
  1888.                     EndIf
  1889.                     $i += 1
  1890.                 WEnd
  1891.             EndWith
  1892.             $oExcel.ActiveWorkBook.Saved = True
  1893.             $oExcel.Quit
  1894.             Sleep(300)
  1895.             FileDelete($FolderData & "\Excel.xlsx")
  1896. ;~ ;----------------------------------------------------------------------
  1897.             ProgressOn("Progress Information", "Calculating.... ", "0%")
  1898.             For $z = 10 To 100 Step 10
  1899.                 Sleep(700)
  1900.                 ProgressSet($z, $z & "%")
  1901.             Next
  1902.             ProgressSet(100, "Done", "Complete")
  1903.             Sleep(300)
  1904.             Local $sections = IniReadSectionNames(@ScriptDir & "\Data\Tomorrow\MainData\Data.ini")
  1905.             If @error Then
  1906.                 MsgBox(16, "", "Lỗi, không có file data !!!")
  1907.             Else
  1908.                 For $i = 1 To $sections[0]
  1909.                     Local $values = IniReadSection(@ScriptDir & "\Data\Tomorrow\MainData\Data.ini", $sections[$i])
  1910.                     If @error Then
  1911.                         MsgBox(0, '', 'Thiếu .Ini File')
  1912.                         ContinueLoop
  1913.                     EndIf
  1914.                     For $i2 = 1 To $values[0][0]
  1915.                         $values2 = IniReadSection(@ScriptDir & "\Data\Tomorrow\CloneData\Data.ini", $sections[$i])
  1916.                         If @error Then
  1917.                             MsgBox(0, '', 'Lỗi')
  1918.                         Else
  1919.                             If $values[$i2][1] <> $values2[1][1] Then
  1920.                                 Sleep(200)
  1921.                                 GUICtrlSetData($Edit3, @CRLF & "Các tàu ngày mai thay đổi", 1)
  1922.                                 Sleep(200)
  1923.                                 GUICtrlSetData($Edit3, @CRLF & "VN" & $sections[$i] & " " & "(" & $values[$i2][1] & '=>' & $values2[1][1] & ")", 1)
  1924.                                 Sleep(200)
  1925.                                 IniWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Logbook.ini", "Time: " & @HOUR & ":" & @MIN & "--" & @MDAY & "/" & @MON, "Các tàu ngày mai thay đổi" & @CRLF & "VN" & $sections[$i] & " ", "      " & $values[$i2][1] & " " & "=>" & " " & $values2[1][1])
  1926.                                 $check = True
  1927.                             EndIf
  1928.                         EndIf
  1929.                     Next
  1930.                 Next
  1931.                 If $check = False Then
  1932.                     Sleep(400)
  1933.                     GUICtrlSetData($Edit3, @CRLF & "Các tàu ngày mai không thay đổi !!!!")
  1934.                     Sleep(400)
  1935.                     IniWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Logbook.ini", "Time: " & @HOUR & ":" & @MIN & "--" & @MDAY & "/" & @MON, "", "Các tàu ngày mai không thay đổi !!!!")
  1936.                     Sleep(400)
  1937.                 EndIf
  1938.             EndIf
  1939.             FileDelete(@ScriptDir & "\Data\Tomorrow\MainData\Data.ini")
  1940.             Sleep(300)
  1941.             FileMove(@ScriptDir & "\Data\Tomorrow\CloneData\Data.ini", @ScriptDir & "\Data\Tomorrow\MainData\Data.ini")
  1942.             ProgressOff()
  1943.             slideDown_Dialog()
  1944.             MsgBox(0, "Thông Báo", "Hoàn thành")
  1945.             GUI_MoveIn($frmTool, 3, 3)
  1946.         Else
  1947.             ProgressOff()
  1948.             slideDown_Dialog()
  1949.             MsgBox(0, "Thông Báo", "Thao tác sai, Thực hiện lại Step 1", 0)
  1950.             GUI_MoveIn($frmTool, 3, 3)
  1951.         EndIf
  1952.     Else
  1953.         MsgBox(0, "Thong Bao", "Chạy GetData(Tomorrow) trước !!!")
  1954.         GUI_MoveIn($frmTool, 3, 3)
  1955.         slideDown_Dialog()
  1956.     EndIf
  1957. EndFunc   ;==>_CheckingTomorrow
  1958. #EndRegion Checking Air Craft
  1959. #Region HDSD
  1960. Func _HDSD()
  1961.     MsgBox(0, "Huớng Dẫn Sử Dụng", "==============Cách Sử Dụng AutoFUI==============" & @CRLF _
  1962.              & "(Không sử dụng chuột và bàn phím khi sử dụng Tool) " & @CRLF _
  1963.              & "Trước khi chạy GetDataFui, tắt Diag Flight Care, Vietkey, Excel !!!" & @CRLF & "       " & @CRLF _
  1964.              & "Trước khi chạy FUI, chọn ngày trên SSCI trước, các anh nên chọn ngày trong F1 Shift F3 trước " & @CRLF _
  1965.              & "P/s : Hotkey :    Phim ESC = Exit   " & @CRLF & " " & @CRLF)
  1966. EndFunc   ;==>_HDSD
  1967. #EndRegion HDSD
  1968. #Region Rest Code
  1969. Func DeleteData()
  1970.     If FileExists($Fileopen16168) Then
  1971.         If MsgBox(4, "Thông Báo", "Xóa CSDL của GetDataFUI ???") = 6 Then
  1972.             FileDelete($Fileopen66)
  1973.             FileDelete($Fileopen16168)
  1974.             FileDelete("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\DataFromSabreTool.txt")
  1975.             FileDelete($Fileopen16162)
  1976.             FileDelete($Fileopen8195)
  1977.             FileDelete($Fileopen33001)
  1978.             MsgBox(0,"","Hoàn Thành")
  1979.         EndIf
  1980.     Else
  1981.         MsgBox(0, " Thông Báo", "Không có CSDL của GetDataFUI")
  1982.     EndIf
  1983. EndFunc   ;==>DeleteData
  1984. Func _OpenData()
  1985.     If FileExists($Fileopen16168) Then
  1986.         ShellExecute($Fileopen16168)
  1987.     Else
  1988.         MsgBox(48, "Warning", "Không có CSDL của FUI!")
  1989.     EndIf
  1990. EndFunc   ;==>_OpenData
  1991.  
  1992. Func _OpenDataDFD()
  1993.     If FileExists($DataDFD) Then
  1994.         ShellExecute($DataDFD)
  1995.     Else
  1996.         MsgBox(48, "Warning", "Không có CSDL của DFD!")
  1997.     EndIf
  1998. EndFunc   ;==>_OpenDataDFD
  1999.  
  2000. Func _OpenDataAC()
  2001.     If FileExists($Fileopen16168) Then
  2002.         ShellExecute($Fileopen16168)
  2003.     ElseIf FileExists($Fileopen16162) Then
  2004.         ShellExecute($Fileopen16162)
  2005.     Else
  2006.         MsgBox(48, "Warning", "Không có CSDL của CheckAC!!!")
  2007.     EndIf
  2008.     If FileExists($Fileopen8195) Then
  2009.         ShellExecute($Fileopen8195)
  2010.     Else
  2011.         MsgBox(48,"Thông Báo", "Không có tàu của 8/195")
  2012.     EndIf
  2013. EndFunc   ;==>_OpenDataAC
  2014. Func _OpenCheckDataAC()
  2015.     If FileExists("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt") Then
  2016.         ShellExecute("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt")
  2017.     Else
  2018.         MsgBox(48, "Warning", "Không có CSDL của CheckAC !")
  2019.     EndIf
  2020. EndFunc   ;==>_OpenCheckDataAC
  2021. Func _AirCraft()
  2022.     MsgBox(64, "Air Craft Config", "Các tàu có Config 16/162 :" & _
  2023.             @CRLF & "VNA334, VNA335, VNA336, VNA602, VNA606, VNA610, XU348, XU350" & _
  2024.             @CRLF & @CRLF & "Các tàu có Config 8/195 :" & _
  2025.             @CRLF & "VNA613, VNA344, XU349, XU351, VNA358, VNA614, VNA615" & _
  2026.             @CRLF & @CRLF & "Các tàu có Config Y66 :" & _
  2027.             @CRLF & "VNB210, VNB212, VNB214" & _
  2028.             @CRLF & @CRLF & "Còn lại là tàu có Config 16/168")
  2029. EndFunc   ;==>_AirCraft
  2030. ;===Hàm thoát GUI===
  2031. Func frmTool_Exit()
  2032.     Exit
  2033. EndFunc   ;==>frmTool_Exit
  2034. ;===================
  2035.  
  2036. Func _Printer()
  2037.     ShellExecute("D:\Data\PNL HUY\autoit-v3\AutoFUI\Printer.exe")
  2038. EndFunc   ;==>_Printer
  2039.  
  2040. Func _Exit()
  2041.     Exit 255
  2042. EndFunc   ;==>_Exit
  2043. Func _DeleteDataAC()
  2044.     If FileExists("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Today\MainData\Data.ini") Then
  2045.         If MsgBox(1, "Thông Báo", "Xóa File GetDataToday ???") = 1 Then
  2046.             Sleep(200)
  2047.             FileDelete("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Today\MainData\Data.ini")
  2048.             Sleep(200)
  2049.             MsgBox(0, "Thông Báo", "Đã xóa file GetDataToday")
  2050.         EndIf
  2051.     Else
  2052.         MsgBox(0, "Thông Báo", "Ko có file GetDataToday")
  2053.     EndIf
  2054.     If FileExists("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Tomorrow\MainData\Data.ini") Then
  2055.         If MsgBox(1, "", "Xoa File GetDataTomorrow ???") = 1 Then
  2056.             Sleep(200)
  2057.             FileDelete("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Tomorrow\MainData\Data.ini")
  2058.             Sleep(200)
  2059.             MsgBox(0, "Thông Báo", "Đã xóa file GetDataTomorrow")
  2060.         EndIf
  2061.     Else
  2062.         MsgBox(0, "Thông Báo", "Ko có file GetDataTomorrow")
  2063.     EndIf
  2064. EndFunc   ;==>_DeleteDataAC
  2065.  
  2066. Func _DeleteDFD()
  2067.     If FileExists($DataDFD) Then
  2068.         If MsgBox(4, "Thông Báo", "Xóa CSDL của DFD ???") = 6 Then
  2069.             FileDelete($DataDFD)
  2070.         EndIf
  2071.     Else
  2072.         MsgBox(0, " Thông Báo", "Không có CSDL của DFD")
  2073.     EndIf
  2074. EndFunc   ;==>_DeleteDFD
  2075.  
  2076. Func _DeleteCheckAC()
  2077.     If FileExists($Fileopen16168) Then
  2078.         If MsgBox(4, "Thông Báo", "Xóa CSDL của CheckAC ???") = 6 Then
  2079.             FileDelete($Fileopen66)
  2080.             FileDelete($Fileopen16168)
  2081.             FileDelete("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\DataFromSabreTool.txt")
  2082.             FileDelete($Fileopen16162)
  2083.             FileDelete($Fileopen8195)
  2084.             FileDelete($Fileopen33001)
  2085.             MsgBox(0,"","Hoàn Thành")
  2086.         EndIf
  2087.     Else
  2088.         MsgBox(0, " Thông Báo", "Không có CSDL của CheckAC")
  2089.     EndIf
  2090. EndFunc   ;==>_DeleteCheckAC
  2091. Func _DeleteCheckAC2()
  2092.     If FileExists(("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt")) Then
  2093.         If MsgBox(4, "Thông Báo", "Xóa CSDL của CheckAC ???") = 6 Then
  2094.             FileDelete("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Checktau.txt")
  2095.         EndIf
  2096.     Else
  2097.         MsgBox(0, " Thông Báo", "Không có CSDL của CheckAC")
  2098.     EndIf
  2099. EndFunc   ;==>_DeleteCheckAC2
  2100. Func _Clear()
  2101.     If MsgBox(1, "Thông Báo", "Submit & Clear thông tin của AutoCheckAC + AutoFUI ?") = 1 Then
  2102.         IniWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Logbook.ini", "Time " & @HOUR & ":" & @MIN & "--" & @MDAY & "/" & @MON, "", "OK")
  2103.         Sleep(200)
  2104.         GUICtrlSetData($Edit1, "")
  2105.         Sleep(100)
  2106.         GUICtrlSetData($Edit2, "")
  2107.         GUICtrlSetData($Edit3, "")
  2108.     Else
  2109.     EndIf
  2110. EndFunc   ;==>_Clear
  2111.  
  2112. #EndRegion Rest Code
  2113. #Region Message Slide Up/Down
  2114. ;=======================================================Message Slideup + Down =====================================
  2115. Func slideUp_Dialog($title, $message)
  2116.     Local $desktopH = @DesktopHeight, $desktopW = @DesktopWidth
  2117.     Local $width = 285, $height = 236
  2118.     Local $x = $desktopW - ($width + 12)
  2119.     #Region ### START Koda GUI section ### Form=
  2120.     Global $MainForm = GUICreate($title, $width, 165, $x, $desktopH, -1, BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE), WinGetHandle(AutoItWinGetTitle()))
  2121.     GUISetFont(12, 400, 0, "Arial")
  2122.     GUISetOnEvent($GUI_EVENT_CLOSE, "slideDown_Dialog")
  2123.     GUISetOnEvent($GUI_EVENT_MINIMIZE, "slideDown_Dialog")
  2124.     Local $Edit = GUICtrlCreateEdit($message, 0, 0, 284, 164, BitOR($GUI_SS_DEFAULT_EDIT, $ES_READONLY))
  2125.     GUICtrlSetState(-1, $GUI_FOCUS)
  2126.     GUISetState(@SW_SHOW)
  2127.     #EndRegion ### END Koda GUI section ###
  2128.     For $i = 0 To $height Step +5
  2129.         WinMove($MainForm, "", $x, $desktopH - $i)
  2130.         Sleep(1)
  2131.     Next
  2132.  
  2133.  
  2134. EndFunc   ;==>slideUp_Dialog
  2135. Func _Move()
  2136.     If FileExists($MainDataTomorrow) Then
  2137.         If MsgBox(1, "Thông Báo", "Move File Data Ngày mai ????") = 1 Then
  2138.             FileMove($MainDataTomorrow, "D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Today\MainData", $FC_OVERWRITE)
  2139.             Sleep(100)
  2140.             MsgBox(0, "Thông Báo", "Hoàn Thành")
  2141.         EndIf
  2142.     Else
  2143.         MsgBox(0, "Thông Báo", "File Data ngày mai không có !!!")
  2144.     EndIf
  2145.  
  2146.  
  2147. EndFunc   ;==>_Move
  2148. Func slideDown_Dialog()
  2149.     For $i = 255 To 0 Step -10
  2150.         WinSetTrans($MainForm, "", $i)
  2151.         Sleep(1)
  2152.     Next
  2153.     Sleep(300)
  2154.     GUIDelete($MainForm)
  2155.  
  2156. EndFunc   ;==>slideDown_Dialog
  2157. #EndRegion Message Slide Up/Down
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!