API tools faq
paste
Advertisement
sdynk02

Multi Tool UPdate 17apr fixed Check AC + FUI

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