API tools faq
paste
Advertisement
sdynk02

Multi Tool OnEventMode

sdynk02
Jan 12th, 2016
212
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 54.49 KB | None | 0 0
raw download clone embed print report
  1. #RequireAdmin
  2. #include <Array.au3>
  3. #include <Date.au3>
  4. #include <Excel.au3>
  5. #include <MsgBoxConstants.au3>
  6. #include <ButtonConstants.au3>
  7. #include <GUIConstantsEx.au3>
  8. #include <EditConstants.au3>
  9. #include <WindowsConstants.au3>
  10. #include <GuiEdit.au3>
  11. #include <StaticConstants.au3>
  12. #include <String.au3>
  13. #include <Misc.au3>
  14. #include <AutoItConstants.au3>
  15. #include <File.au3>
  16.  
  17. _Singleton(@ScriptName)
  18. ;~ Opt("WinTitleMatchMode", 2)
  19. Opt("GUIOnEventMode", 1)
  20. ;~ Opt("GUICloseOnESC", 1)
  21. HotKeySet("^s", "_Save")
  22. Global $Folder = @ScriptDir
  23. Global $FolderData = $Folder & "\Data"
  24. Global $Excel_File = $FolderData & "\Excel.xlsx"
  25. Global $Ini_File = $FolderData & "\Data.ini"
  26. Global $DataDFD = $FolderData & "\DataDFD.ini"
  27. Global $DataCheckAC = $FolderData & "\DataCheckAC.ini"
  28. Global $Data16162 = $FolderData & "\DataConfig16162.ini"
  29. Global $MainDataToday = "D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Today\MainData\Data.ini"
  30. Global $CloneDataToday = "D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Today\CloneData\Data.ini"
  31. Global $MainDataTomorrow = "D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Tomorrow\MainData\Data.ini"
  32. Global $CloneDataTomorrow = "D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Tomorrow\CloneData\Data.ini"
  33. Global $Boqua = ""
  34. Global $ToolShow = 1
  35. Global $ToolPos[2] = [0, 0]
  36. Global $Interact_Title = "Interact-v5.5-24Mar14"
  37. Global $Backup = "Session A (F3: New Windows)"
  38. Global $DFD = "Backup DCS (ADMIN on 10.64.16.153)"
  39. Global $Loai[] = ["VNA334", "VNA335", "VNA336", "VNA602", "VNA606", "VNA610", "VNB210", "VNB212", "VNB214", "XU348", "XU350", "VNA371", "VNA344", "VNA613", "XU349", "XU351", "VNA358", "VNA614", "VNA615"]
  40. Global $Result5 = ""
  41. Global $ClipBoard16C162Y
  42. Global $ClipBoard66Y
  43. Global $ClipBoard8C195Y
  44. Global $Result5 = ""
  45. Global $16162[] = ["VNA334", "VNA335", "VNA336", "VNA602", "VNA606", "VNA610", "XU348", "XU350"]
  46. Global $66[] = ["VNB210", "VNB212", "VNB214"]
  47. Global $8C195Y[] = ["VNA613", "VNA344", "XU349", "XU351", "VNA358", "VNA614", "VNA615"]
  48. Global $check = False
  49. Global $Pathlogin = "D:\Data\PNL HUY\autoit-v3\AutoFUI\Login\Briefing.log"
  50. Global $Flag = True
  51.  
  52. #Region ### START Koda GUI section ### Form=
  53. $frmTool = GUICreate("Multi-Tool", 800, 500, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_TABSTOP))
  54. GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
  55. $AutoFUI = GUICtrlCreateGroup("SSCI", 10, 5, 150, 150)
  56. GUICtrlSetBkColor(-1, 0x3399FF)
  57. $AutoCheckAC = GUICtrlCreateGroup("AutoCheckAC", 10, 255, 150, 150)
  58. GUICtrlSetBkColor(-1, 0x3399FF)
  59. $Options = GUICtrlCreateGroup("Options", 10, 410, 150, 80)
  60. GUICtrlSetBkColor(-1, 0x3399FF)
  61. $Button1 = GUICtrlCreateButton("GetDataFUI", 19, 25, 75, 25)
  62. GUICtrlSetOnEvent(-1, "_Buoc1")
  63. $Button2 = GUICtrlCreateButton("FUI", 19, 52, 75, 25)
  64. GUICtrlSetOnEvent(-1, "_Buoc2")
  65. $Button3 = GUICtrlCreateButton("HDSD", 74, 460, 50, 25)
  66. GUICtrlSetOnEvent(-1, "_HDSD")
  67. $Edit1 = GUICtrlCreateEdit("Những chuyến có Config 16/162(66) (330/11) (8/195):", 180, 12, 300, 143, BitOR($GUI_SS_DEFAULT_EDIT, $ES_READONLY, $SS_GRAYFRAME))
  68. GUICtrlSetColor(-1, 0xFF0000)
  69. GUICtrlSetFont(-1, 10, 400, 0)
  70. $NewScript = GUICtrlCreateGroup("AutoDFD", 10, 160, 150, 90)
  71. GUICtrlSetBkColor(-1, 0x3399FF)
  72. $btnAn = GUICtrlCreateButton("/\", 130, 460, 25, 25)
  73. GUICtrlSetOnEvent(-1, "_UpDown")
  74. $GetDataAC = GUICtrlCreateButton("GetDataAC", 19, 100, 75, 25)
  75. GUICtrlSetOnEvent(-1, "_GetDataAC")
  76. $CheckAC = GUICtrlCreateButton("CheckAC", 19, 125, 75, 25)
  77. GUICtrlSetOnEvent(-1, "_CheckAC")
  78. $OpenData = GUICtrlCreateButton("^", 100, 25, 25, 23)
  79. GUICtrlSetOnEvent(-1 ,"_OpenData")
  80. $OpenDataDFD = GUICtrlCreateButton("^", 100, 181, 25, 23)
  81. GUICtrlSetOnEvent(-1, "_OpenDataDFD")
  82. $OpenDataAC = GUICtrlCreateButton("^", 100, 100, 25, 23)
  83. GUICtrlSetOnEvent(-1,"_OpenDataAC")
  84. $Delete = GUICtrlCreateButton("Del", 130, 25, 25, 23)
  85. GUICtrlSetOnEvent(-1, "DeleteData")
  86. $DeleteDFD = GUICtrlCreateButton("Del", 130, 181, 25, 23)
  87. GUICtrlSetOnEvent(-1, "_DeleteDFD")
  88. $DeleteCheckAC = GUICtrlCreateButton("Del", 130, 100, 25, 23)
  89. GUICtrlSetOnEvent(-1, "_DeleteCheckAC")
  90. $Printer = GUICtrlCreateButton("Printer", 19, 460, 50, 25)
  91. GUICtrlSetOnEvent(-1, "_Printer")
  92. $GetAC = GUICtrlCreateButton("GetData", 19, 290, 50, 25)
  93. GUICtrlSetOnEvent(-1, "_GetACToday")
  94. $Checking = GUICtrlCreateButton("Checking", 90, 290, 60, 25)
  95. GUICtrlSetOnEvent(-1, "_CheckingToday")
  96. $Label4 = GUICtrlCreateLabel("Today", 65, 272, 35, 15)
  97. $GetACMai = GUICtrlCreateButton("GetData", 19, 370, 50, 25)
  98. GUICtrlSetOnEvent(-1, "_GetACTomorrow")
  99. $Move = GUICtrlCreateButton("Move", 19, 430, 50, 25)
  100. GUICtrlSetOnEvent(-1, "_Move")
  101. $Aircraft = GUICtrlCreateButton("Air-Craft", 74, 430, 60, 25)
  102. GUICtrlSetFont(-1, 10, 400, 0)
  103. GUICtrlSetOnEvent(-1, "_AirCraft")
  104. $CheckingMai = GUICtrlCreateButton("Checking", 90, 370, 60, 25)
  105. GUICtrlSetOnEvent(-1, "_CheckingTomorrow")
  106. $Label5 = GUICtrlCreateLabel("Tomorrow", 57, 350, 50, 15)
  107. $Edit3 = GUICtrlCreateEdit("", 180, 167, 300, 143, BitOR($GUI_SS_DEFAULT_EDIT, $ES_READONLY, $SS_GRAYFRAME))
  108. GUICtrlSetColor(-1, 0xFF0000)
  109. GUICtrlSetFont(-1, 10, 400, 0)
  110. $Edit2 = GUICtrlCreateEdit("***Update Information***" & @CRLF _
  111.          & "Cập nhật thêm 2 khung briefing và Logbook" & @CRLF _
  112.          & "Khung Briefing dùng để thông báo những thông tin chung" & @CRLF _
  113.          & "Khung Logbook dùng thay thế cho file logbook !!!" & @CRLF _
  114.          & "Có chỗ nào không ổn feedback lại để em fix. " & @CRLF _
  115.          & @CRLF & "****AutoFUI****" & @CRLF _
  116.          & "Các a khi sử dụng tool, vào ca tối khi chạy tool " & @CRLF _
  117.          & "chịu khó ngồi xem tool chạy để theo dõi config tàu" & @CRLF _
  118.          & @CRLF & "****AutoDFD****" & @CRLF _
  119.          & "Hoàn thành AutoDFD, còn lỗi phát sinh các anh" & @CRLF _
  120.          & "báo lại để e fix. " & @CRLF _
  121.          & "Cách sử dụng : Tương tự AutoFUI, Tắt Excel," & @CRLF _
  122.          & "Vietkey trc khi chạy GetData" & @CRLF _
  123.          & "Bật trước 2 màn hình của BDCS trước khi dùng" & @CRLF _
  124.          & "bước DFD" & @CRLF _
  125.          & @CRLF & "****Auto Kiểm Tra Tàu ****" & @CRLF _
  126.          & "Cách sử dụng : Tắt DFC, Excel, Vietkey trước khi" & @CRLF _
  127.          & "chạy GetData và cả Checking của Today(Tomorrow)" & @CRLF _
  128.          & @CRLF & "Các anh chỉ cần sử dụng phím Checking để" & @CRLF _
  129.          & "kiểm tra thay đổi tàu, còn phím GetData chỉ sử" & @CRLF _
  130.          & "dụng khi có sai sót gì trong File Data gốc" & @CRLF _
  131.          & @CRLF & "Mục đích của Tool này để khi điều hành báo có thay" & @CRLF _
  132.          & "đổi tàu thì chỉ cần chạy Tool sẽ biết được tàu nào đổi" & @CRLF _
  133.          & "****Thanks/Huy****", 180, 320, 300, 170, BitOR($GUI_SS_DEFAULT_EDIT, $ES_READONLY, $SS_GRAYFRAME, $ES_CENTER))
  134. GUICtrlSetColor(-1, 0xFF0000)
  135. GUICtrlSetFont(-1, 10, 400, 0)
  136. $GetDFD = GUICtrlCreateButton("GetDataDFD", 19, 180, 75, 25)
  137. GUICtrlSetOnEvent(-1, "_GetDFD")
  138. $DFD = GUICtrlCreateButton("DFD", 19, 207, 75, 25)
  139. GUICtrlSetOnEvent(-1, "_DFD")
  140. $DeleteDataAC = GUICtrlCreateButton("DELETE", 19, 320, 50, 25)
  141. GUICtrlSetBkColor($DeleteDataAC, 0x3399FF)
  142. GUICtrlSetOnEvent(-1, "_DeleteDataAC")
  143. $Clear = GUICtrlCreateButton("SubClear", 90, 320, 60, 25)
  144. GUICtrlSetBkColor($Clear, 0x3399FF)
  145. GUICtrlSetOnEvent(-1, "_Clear")
  146. $Editbriefing = GUICtrlCreateEdit("", 490, 13, 300, 200, BitOR($GUI_SS_DEFAULT_EDIT, $ES_READONLY, $SS_GRAYFRAME,$ES_CENTER))
  147. $Updatebriefing = GUICtrlCreateButton("BRIEFING", 600, 220, 75, 25)
  148. GUICtrlSetOnEvent(-1,"__Update")
  149. $Editlogbook = GUICtrlCreateEdit("", 490, 250, 300, 200)
  150. GUICtrlSetFont(-1, 11, 400, 0)
  151. $SaveLogbook = GUICtrlCreateButton("Save", 600, 460, 75, 25)
  152. GUICtrlSetOnEvent(-1, "_Save")
  153. GUI_MoveIn($frmTool, 3)
  154. GUISetState(@SW_SHOW)
  155. #EndRegion ### END Koda GUI section ###
  156.  
  157.  
  158.  
  159. #Region CODE EDIT Briefing
  160. Func __Mainform()
  161.     GUISetState(@SW_DISABLE, $frmTool)
  162.     Global $EditForm = GUICreate("Edit", 597, 436, 240, 200)
  163.     GUISetOnEvent($GUI_EVENT_CLOSE, "__Cancel")
  164.     Global $Edit123 = GUICtrlCreateEdit("", 40, 8, 449, 401)
  165.     Global $OK = GUICtrlCreateButton("Update", 504, 16, 75, 25)
  166.     GUICtrlSetOnEvent(-1, "__Enter")
  167.     Global $ClearMainform = GUICtrlCreateButton("Clear", 504, 46, 75, 25)
  168.     GUICtrlSetOnEvent(-1, "__ClearEdit")
  169.     Global $Cancel = GUICtrlCreateButton("Cancel", 504, 76, 75, 25)
  170.     GUICtrlSetOnEvent(-1, "__Cancel")
  171.     GUISetState(@SW_SHOW)
  172. EndFunc   ;==>__Edit
  173.  
  174. Func __Enter()
  175.     FileOpen("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Now.txt", 2 + 128)
  176.     FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Now.txt", GUICtrlRead($Edit123))
  177.     FileClose("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Now.txt")
  178.     $ReadData = FileRead("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Now.txt")
  179.     GUICtrlSetData($Editbriefing, $ReadData)
  180.     GUICtrlSetData($Edit123, $ReadData)
  181. EndFunc
  182. Func __Cancel()
  183. GUISetState(@SW_DISABLE, $EditForm)
  184. GUISetState(@SW_ENABLE, $frmTool)
  185. GUISwitch($frmTool)
  186. GUIDelete($EditForm)
  187. EndFunc
  188. Func __ClearEdit()
  189.     GUICtrlSetData($Edit123, "")
  190.     GUICtrlSetData($Editbriefing, "")
  191.     FileDelete("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Now.txt")
  192. EndFunc
  193. #EndRegion END CODE EDIT Briefing
  194.  
  195.  
  196.  
  197. While 1
  198.     Sleep(10)
  199.     If $Flag = True Then
  200.         _starting_run()
  201.     EndIf
  202. WEnd
  203.  
  204.  
  205.  
  206. #Region Code Read File Login Data at Starting
  207. Func _starting_run()
  208.     Global $Flag = True
  209.     Global $FileReadLogin = FileRead("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Now.txt")
  210.     Global $Setdata = GUICtrlSetData($Editbriefing, $FileReadLogin)
  211.     Global $FileReadLogbook = FileRead("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Logbook.txt")
  212.     Global $Setdatalogbook = GUICtrlSetData($Editlogbook, $FileReadLogbook)
  213.     Global $Flag = False
  214. EndFunc
  215.  
  216. Func __Update()
  217.     __Login()
  218.  
  219. EndFunc
  220. #EndRegion
  221.  
  222. #Region Login Code
  223. Func __Login()
  224.     GUISetState(@SW_DISABLE, $frmTool)
  225.     Global $Login = GUICreate("Login", 250, 100)
  226.     GUISetOnEvent($GUI_EVENT_CLOSE, "__Exit1")
  227.     Global $Username = GUICtrlCreateInput("Username", 7, 7)
  228.     Global $Password = GUICtrlCreateInput("Password", 7, 37, Default, Default, $ES_PASSWORD)
  229.      $check = GUICtrlCreateButton('OK', 07, 62, 50, 25)
  230.     GUICtrlSetOnEvent(-1, "__Signin")
  231.      $Exit = GUICtrlCreateButton("Cancel", 67, 62, 50, 25)
  232.     GUICtrlSetOnEvent(-1, "__Exit1")
  233.     GUISetState(@SW_SHOW)
  234. EndFunc   ;==>__Login
  235.  
  236. Func __Signin()
  237.     Global $ID = GUICtrlRead($Username)
  238.     Global $PW = GUICtrlRead($Password)
  239.     If $ID = "admin" And $PW = "admin" Then
  240.         __Mainform()
  241.     Global $FileReadLogin = FileRead("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Now.txt")
  242.     Global $SetdataEdit123 = GUICtrlSetData($Edit123, $FileReadLogin)
  243.         GUIDelete($Login)
  244.     Else
  245.         MsgBox(16 + 262144, "Error", "Your Username or Password is incorrect")
  246.         Return False
  247.     EndIf
  248. EndFunc
  249.  
  250. Func __Exit1()
  251.     GUISetState(@SW_DISABLE, $Login)
  252.     GUISetState(@SW_ENABLE, $frmTool)
  253.     GUISwitch($frmTool)
  254.     GUIDelete($Login)
  255. EndFunc
  256. #EndRegion End Login Code
  257.  
  258. #Region Edit Logbook
  259. Func _Save()
  260.     FileOpen("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Logbook.txt", 2 + 128)
  261.     FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Logbook.txt", GUICtrlRead($Editlogbook))
  262.     FileWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\BackUp\Back up\Logbook Backup.txt", GUICtrlRead($Editlogbook))
  263.     FileClose("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Logbook.txt")
  264.     $ReadEditLogbook = FileRead("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Login\Logbook.txt")
  265.     GUICtrlSetData($Editlogbook, $ReadEditLogbook)
  266. EndFunc
  267.  
  268. #EndRegion End Edit Logbook
  269.  
  270. 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)
  271.     If $speed = Default Then $speed = 1
  272.     If $flag = Default Then $flag = 1
  273.     Local $pos = WinGetPos($GUI), $DskHeight = @DesktopHeight, $DskWidth = @DesktopWidth
  274.     WinMove($GUI, "", $pos[0], $DskHeight)
  275.     GUISetState(@SW_SHOW, $GUI)
  276.     Switch $flag
  277.         Case 1
  278.             For $i = $DskHeight To ($DskHeight - $pos[3]) / 2 Step ($speed * -1) / 100
  279.                 WinMove($GUI, "", $pos[0], $i)
  280.             Next
  281.         Case 2
  282.             For $i = -$pos[2] To ($DskWidth - $pos[2]) / 2 Step $speed / 100
  283.                 WinMove($GUI, "", $i, $pos[1])
  284.             Next
  285.         Case 3
  286.             For $i = -$pos[3] To ($DskHeight - $pos[3]) / 2 Step $speed / 100
  287.                 WinMove($GUI, "", $pos[0], $i)
  288.             Next
  289.         Case 4
  290.             For $i = $DskWidth To ($DskWidth - $pos[2]) / 2 Step ($speed * -1) / 100
  291.                 WinMove($GUI, "", $i, $pos[1])
  292.             Next
  293.     EndSwitch
  294. EndFunc   ;==>GUI_MoveIn
  295. Func _UpDown()
  296.     $ToolShow = Not $ToolShow
  297.     frmTool_Show($ToolShow)
  298. EndFunc   ;==>_UpDown
  299.  
  300.  
  301. ;===Hàm lấy vị trí và kích thước GUI===
  302. Func frmTool_GetPos()
  303.     Return WinGetPos($frmTool)
  304. EndFunc   ;==>frmTool_GetPos
  305. ;=============================================
  306.  
  307. ;===Hàm chỉnh vị trí GUI===
  308. Func frmTool_SetPos($x = -1, $y = -1, $speed = 1)
  309.     Local $Size = frmTool_GetPos()
  310.     If Not ($x == -1) Then $Size[0] = $x
  311.     If Not ($y == -1) Then $Size[1] = $y
  312.     WinMove($frmTool, "", $Size[0], $Size[1], $Size[2], $Size[3], $speed)
  313. EndFunc   ;==>frmTool_SetPos
  314. ;=================================
  315.  
  316. ;===Hàm lấy chuỗi của Label===
  317. Func Label_GetText($Label)
  318.     Return GUICtrlRead($Label, 0)
  319. EndFunc   ;==>Label_GetText
  320. ;============================
  321. ;===Hàm chỉnh sửa chuỗi của Label===
  322. Func Label_SetText($Label, $NewValue = "")
  323.     Local $Text = Label_GetText($Label)
  324.     If $Text <> $NewValue Then GUICtrlSetData($Label, $NewValue)
  325. EndFunc   ;==>Label_SetText
  326. ;===================================
  327.  
  328. ;===Hàm lấy chuỗi của button===
  329. Func Button_GetText($button)
  330.     Return GUICtrlRead($button)
  331. EndFunc   ;==>Button_GetText
  332. ;==============================
  333.  
  334. ;===Hàm ch?nh chu?i c?a button===
  335. Func Button_SetText($button, $NewValue = "")
  336.     Local $Text = Button_GetText($button)
  337.     If $Text <> $NewValue Then GUICtrlSetData($button, $NewValue)
  338. EndFunc   ;==>Button_SetText
  339. ;===Hàm ?n hi?n GUI===
  340. Func frmTool_Show($Show = 0)
  341. ;~      Label_SetText($lblStatus, "Status")
  342.     Local $Span = 28
  343.     If $Show Then
  344.         Button_SetText($btnAn, "/\")
  345.         frmTool_SetPos($ToolPos[0], $ToolPos[1])
  346.     Else
  347.         $ToolPos = frmTool_GetPos()
  348.         Button_SetText($btnAn, "\/")
  349.         frmTool_SetPos($ToolPos[0], 0 - $ToolPos[3] + $Span, 2)
  350.     EndIf
  351. EndFunc   ;==>frmTool_Show
  352. #Region Loi MSgbox
  353. ;============================================================================= CODE MSGBOX BI LOI
  354. ;~ Func _Msgbox()
  355. ;~ $msgbox = GUICreate('Thong Bao', 230, 89, -1, -1, -1, $WS_EX_MDICHILD, $frmTool)
  356. ;~  GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
  357. ;~  $Button_NM = GUICtrlCreateButton("Ngày Mai", 16, 48, 75, 25)
  358. ;~  GUICtrlSetOnEvent(-1, "__Button_NM")
  359. ;~  $Button_HN = GUICtrlCreateButton("Hôm Nay", 128, 48, 75, 25)
  360. ;~  GUICtrlSetOnEvent(-1, "__Button_HN")
  361. ;~  $Label1 = GUICtrlCreateLabel("Chọn ngày để FUI(DFD)(CheckAC)???", 60, 16, 135, 25)
  362. ;~  GUISetState(@SW_SHOW)
  363. ;~  Global $returnofbutton = 0
  364. ;~  Return $returnofbutton
  365. ;~ EndFunc   ;==>_Msgbox
  366.  
  367. ;~ Func __Button_NM()
  368. ;~  MsgBox(0,0,0)
  369. ;~  GUIDelete()
  370. ;~  $returnofbutton = 1
  371. ;~  Return 1;
  372. ;~ Func __Button_HN()
  373. ;~  MsgBox(0,0,0)
  374. ;~  GUIDelete()
  375. ;~  $returnofbutton = 2
  376. ;~  Return 2
  377. ;~ EndFunc
  378. ;~ #EndRegion End Loi Msgbox
  379. ;===================================================================================== END CODE MSGBOX
  380. Func _Msgbox()
  381.     $msgbox = GUICreate('Thong Bao', 230, 89, -1, -1, -1, $WS_EX_OVERLAPPEDWINDOW, $frmTool)
  382.     GUISetOnEvent($GUI_EVENT_CLOSE, 'GUI_Close')
  383.     $Button_NM = GUICtrlCreateButton("Ngày Mai", 16, 48, 75, 25)
  384.     GUICtrlSetOnEvent($Button_NM, "__Button_NM")
  385.     $Button_HN = GUICtrlCreateButton("Hôm Nay", 128, 48, 75, 25)
  386.     GUICtrlSetOnEvent($Button_HN, "__Button_HN")
  387.     $Label1 = GUICtrlCreateLabel("Chọn ngày để FUI(DFD)(CheckAC)???", 60, 16, 135, 25)
  388.     GUISetState(@SW_SHOW)
  389. EndFunc
  390. Func __Button_NM()
  391. ;~  MsgBox(0,0,0)
  392.     GUIDelete()
  393. ;~  Return 1
  394. EndFunc
  395. Func __Button_HN()
  396. ;~  MsgBox(0,0,0)
  397.     GUIDelete()
  398. ;~  Return 2
  399. EndFunc
  400. Func GUI_Close()
  401.     Exit
  402. EndFunc
  403. Func _Buoc1()
  404.     $ToolShow = Not $ToolShow
  405.     frmTool_Show($ToolShow)
  406.     slideUp_Dialog("Warning", "Script is running !!!!" & @CRLF & "Pls, Do not touch this Computer")
  407.     FileDelete($Data16162)
  408.     Sleep(300)
  409.     FileDelete($Ini_File)
  410.     Sleep(300)
  411.     Local $sDate = _DateAdd('d', 0, _NowCalcDate())
  412.     Sleep(300)
  413.     Run("D:\Appls\dfc\dfc.exe")
  414.     Local $hWnd1 = WinWait("Diags Flights Care", "Sign In")
  415.     If Not WinActive($hWnd1) Then WinActivate($hWnd1)
  416.     WinWaitActive($hWnd1)
  417.     If FileExists($Excel_File) Then FileDelete($Excel_File)
  418.     Sleep(80)
  419.     Send("N0604")
  420.     Sleep(100)
  421.     Send("{TAB}")
  422.     Sleep(100)
  423.     Send("2")
  424.     Sleep(100)
  425.     Send("{ENTER 3}")
  426.     Sleep(500)
  427.     Local $hWnd2 = WinWait("[TITLE:Diags Flights Care; CLASS:dfc9c000000]")
  428.     If Not WinActive($hWnd2) Then WinActivate($hWnd2)
  429.     WinWaitActive($hWnd2)
  430.     Sleep(80)
  431.     Send("^p")
  432.     Local $hWnd3 = WinWait("Diags Flights Care", "Print Schedule")
  433.     If Not WinActive($hWnd3) Then WinActivate($hWnd3)
  434.     WinWaitActive($hWnd3)
  435.     $msg = _Msgbox()
  436.      If $msg = 1 Then       ; loi~ o day la 1
  437.         $sDate = _DateAdd("D", 1, _NowCalcDate())
  438.         $sNewDate = StringRegExpReplace($sDate, "(\d{4})/(\d{2})/(\d{2})", "$3/$2/$1")
  439.         Sleep(500)
  440.         Send($sNewDate)
  441.         Send("d")
  442.         Sleep(100)
  443.         Send("{TAB 6}")
  444.         Sleep(100)
  445.         Send("{Enter}")
  446.     Else
  447.     EndIf
  448.     Sleep(100)
  449.     Send("{TAB}{UP}{TAB 6}{ENTER}")
  450.     Sleep(100)
  451.     Local $hWnd4 = WinWait("Microsoft Excel")       ; loi o day la 2
  452.     If Not WinActive($hWnd4) Then WinActivate($hWnd4)
  453.     WinWaitActive($hWnd4)
  454.     Sleep(10000)
  455.     Send("^s")
  456.     Sleep(1000)
  457.     WinWait("Save As")
  458.     Sleep(1000)
  459.     Send($Excel_File)
  460.     Sleep(500)
  461.     Send("{ENTER}")
  462.     Sleep(500)
  463.     WinClose($hWnd4)
  464.     Sleep(100)
  465.     ;===================Buoc 1==========================
  466.     ProgressOn("Progress Information", "Calculating.... ", "0%")
  467.     For $z = 10 To 100 Step 10
  468.         Sleep(200) ; 5 giay chay progress
  469.         ProgressSet($z, $z & "%")
  470.     Next
  471.     ProgressSet(100, "Done", "Complete")
  472.     Sleep(200)
  473.     If FileExists($FolderData & "\Excel.xlsx") Then
  474.         Local $oExcel = ObjCreate("Excel.Application")
  475.         $oExcel.visible = False
  476.         $oExcel.Workbooks.Open($Excel_File)
  477.         Local $i = 7
  478.         With $oExcel.ActiveWorkBook.ActiveSheet
  479.             While .Cells($i, 2).Value
  480.                 If StringInStr(.Cells($i, 3).Value, "VN") Then
  481.                     $Result2 = StringRegExp(.Cells($i, 3).Value, "(\d+)", 3)
  482.                     $Result5 = StringMid(.Cells($i, 4).Value, 5, 3)
  483.                     If $Result2[0] <> 430 Then
  484.                         $Result3 = StringRegExp(.Cells($i, 2).Value, "(?i)(?:VNA|VNB|XU)\d+", 3)
  485.                         If Not @error Then
  486.                             Local $j = 1, $k = UBound($Loai), $n = 0
  487.                             For $dt In $Loai
  488.                                 If $Result3[0] = $dt Then
  489.                                     If $Boqua = "" Then
  490.                                         $Boqua = @CRLF & "VN" & $Result2[0] & " = " & $Result3[$n] & " ( " & $Result5 & " ) "
  491.                                         IniWrite($Data16162, $Result2[0], "Air", $Result3[$n])
  492.                                         IniWrite($Data16162, $Result2[0], "Des", $Result5)
  493.                                     Else
  494.                                         $Boqua &= @CRLF & "VN" & $Result2[0] & " = " & $Result3[$n] & " ( " & $Result5 & " ) "
  495.                                         IniWrite($Data16162, $Result2[0], "Air", $Result3[$n])
  496.                                         IniWrite($Data16162, $Result2[0], "Des", $Result5)
  497.                                     EndIf
  498.                                     $n += 1
  499.                                     ExitLoop
  500.                                 ElseIf $j < $k Then
  501.                                     $j += 1
  502.                                 Else
  503.                                     IniWrite($Ini_File, $Result2[0], "Air", $Result3[0])
  504.                                     IniWrite($Ini_File, $Result2[0], "Des", $Result5)
  505.                                 EndIf
  506.                             Next
  507.                         EndIf
  508.                     EndIf
  509.                 EndIf
  510.                 $i += 1
  511.             WEnd
  512.         EndWith
  513.         $oExcel.ActiveWorkBook.Saved = True
  514.         $oExcel.Quit
  515.         Sleep(300)
  516.         FileDelete($FolderData & "\Excel.xlsx")
  517.         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)
  518.         ProgressOff()
  519.         MsgBox(0, "Thông Báo", "Những chuyến có Config 16/162 hoặc 66:" & $Boqua)
  520.         Sleep(50)
  521.         slideDown_Dialog()
  522.         GUICtrlSetData($Edit1, "" & $Boqua, 1)
  523.         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")
  524.         GUI_MoveIn($frmTool, 3, 3)
  525.     Else
  526.         ProgressOff()
  527.         slideDown_Dialog()
  528.         MsgBox(0, "Thông Báo", "Thao tác sai, Thực hiện lại Step 1", 0)
  529.         GUI_MoveIn($frmTool, 3, 3)
  530.     EndIf
  531. EndFunc   ;==>_Buoc1
  532.  
  533.  
  534. Func _Buoc2()
  535.     $ToolShow = Not $ToolShow
  536.     frmTool_Show($ToolShow)
  537.     slideUp_Dialog("Warning", "Script is running !!!!" & @CRLF & "Pls, Do not touch this Computer")
  538.     If FileExists($Excel_File) Then FileDelete($Excel_File)
  539.     If FileExists($Ini_File) Then
  540.         Local $AllSection = IniReadSectionNames($Ini_File)
  541.         For $i = 1 To $AllSection[0]
  542.             Local $hWnd = WinActivate($Interact_Title)
  543.             Sleep(100)
  544.             Send("{F1}")
  545.             Sleep(100)
  546.             Send("+{F3}")
  547.             Sleep(500)
  548.             Send("+{Tab}")
  549.             Sleep(100)
  550.             Send("VN")
  551.             Sleep(100)
  552.             Send($AllSection[$i], 1)
  553.             Sleep(500)
  554.             Send("DAD")
  555.             Sleep(500)
  556.             Send(IniRead($Ini_File, $AllSection[$i], "Des", ""), 1)
  557.             Sleep(500)
  558.             Send("{ENTER}")
  559.             Sleep(1500) ; F4 Shift 1 nhap tau
  560.             Send("{F4}")
  561.             Sleep(300)
  562.             Send("+{F1}")
  563.             Sleep(500)
  564.             Send("{ENTER}")
  565.             Sleep(500)
  566.             Send("r")
  567.             Sleep(50)
  568.             Send("r")
  569.             Sleep(300)
  570.             Send("{ENTER}")
  571.             Sleep(500)
  572.             Send("{TAB}")
  573.             Sleep(300)
  574.             Send("VN")
  575.             Sleep(300)
  576.             Send("{TAB 5}")
  577.             Sleep(150)
  578.             Local $Value = IniRead($Ini_File, $AllSection[$i], "Air", "")
  579.             Sleep(150)
  580.             Send($Value, 1)
  581.             Sleep(300)
  582.             Send("{TAB}")
  583.             Sleep(500)
  584.             Send("{ENTER}")
  585.             Sleep(2000) ; Loop
  586.         Next
  587.         Sleep(50)
  588.         If MsgBox(48 + 4 + 262144, "WARNING", "Fui các tàu có config 16/162 & 8/195 ???" & @CRLF & "(Bước này các anh nên kiểm tra kỹ nhé !!! Vì dễ nhầm giữa 2 config)") = 6 Then
  589.             If FileExists($Data16162) Then
  590.                 Local $Config16162 = IniReadSectionNames($Data16162)
  591.                 For $i = 1 To $Config16162[0]
  592.                     Send("{F1}")
  593.                     Sleep(100)
  594.                     Send("+{F3}")
  595.                     Sleep(500)
  596.                     Send("+{Tab}")
  597.                     Sleep(100)
  598.                     Send("VN")
  599.                     Sleep(100)
  600.                     Send($Config16162[$i], 1)
  601.                     Sleep(500)
  602.                     Send("DAD")
  603.                     Sleep(500)
  604.                     Send(IniRead($Data16162, $Config16162[$i], "Des", ""), 1)
  605.                     Sleep(500)
  606.                     Send("{ENTER}")
  607.                     Sleep(1500) ; F4 Shift 1 nhap tau
  608.                     Send("{F4}")
  609.                     Sleep(300)
  610.                     Send("+{F1}")
  611.                     Sleep(500)
  612.                     Send("{ENTER}")
  613.                     Sleep(500)
  614.                     Send("r")
  615.                     Sleep(50)
  616.                     Send("r")
  617.                     Sleep(300)
  618.                     Send("{ENTER}")
  619.                     Sleep(500)
  620.                     Send("{TAB}")
  621.                     Sleep(300)
  622.                     Send("VN")
  623.                     Sleep(300)
  624.                     Send("{TAB 5}")
  625.                     Sleep(150)
  626.                     Local $Value3 = IniRead($Data16162, $Config16162[$i], "Air", "")
  627.                     Sleep(150)
  628.                     Send($Value3, 1)
  629.                     Sleep(300)
  630.                     Send("{TAB}")
  631.                     Sleep(500)
  632.                     Send("{ENTER}")
  633.                     Sleep(2000) ; Loop
  634.                 Next
  635.             EndIf
  636.         EndIf
  637.         If MsgBox(32 + 1 + 262144, "Thông Báo", "Xóa File Data ???") = 1 Then
  638.             FileDelete($Ini_File)
  639.             Sleep(500)
  640.             FileDelete($Data16162)
  641.         EndIf
  642.         Sleep(50)
  643.         slideDown_Dialog()
  644.         MsgBox(0, "Thông Báo", "FUI các tàu có Config 16/162 + VN430 ngày hôm sau!!!! ", 0, $hWnd)
  645.         GUI_MoveIn($frmTool, 3, 3)
  646.     Else
  647.         slideDown_Dialog()
  648.         MsgBox(0, "Thông báo", "Lỗi, Chạy lại Step 1", 0)
  649.         GUI_MoveIn($frmTool, 3, 3)
  650.     EndIf
  651. EndFunc   ;==>_Buoc2
  652.  
  653. Func _GetDataAC()
  654.     $ToolShow = Not $ToolShow
  655.     frmTool_Show($ToolShow)
  656.     slideUp_Dialog("Warning", "Script is running !!!!" & @CRLF & "Pls, Do not touch this Computer")
  657.     If FileExists($Excel_File) Then FileDelete($Excel_File)
  658.     Local $sDate = _DateAdd('d', 0, _NowCalcDate())
  659.     Sleep(100)
  660.     Run("D:\Appls\dfc\dfc.exe")
  661.     Local $hWnd1 = WinWait("Diags Flights Care", "Sign In")
  662.     If Not WinActive($hWnd1) Then WinActivate($hWnd1)
  663.     WinWaitActive($hWnd1)
  664.     Sleep(80)
  665.     Send("N0604")
  666.     Sleep(100)
  667.     Send("{TAB}")
  668.     Sleep(100)
  669.     Send("2")
  670.     Sleep(100)
  671.     Send("{ENTER 3}")
  672.     Sleep(500)
  673.     Local $hWnd2 = WinWait("[TITLE:Diags Flights Care; CLASS:dfc9c000000]")
  674.     If Not WinActive($hWnd2) Then WinActivate($hWnd2)
  675.     WinWaitActive($hWnd2)
  676.     Sleep(80)
  677.     Send("^p")
  678.     Local $hWnd3 = WinWait("Diags Flights Care", "Print Schedule")
  679.     If Not WinActive($hWnd3) Then WinActivate($hWnd3)
  680.     WinWaitActive($hWnd3)
  681.     Sleep(100)
  682.     If _Msgbox() = 1 Then
  683.         $sDate = _DateAdd("D", 1, _NowCalcDate())
  684.         $sNewDate = StringRegExpReplace($sDate, "(\d{4})/(\d{2})/(\d{2})", "$3/$2/$1")
  685.         Sleep(500)
  686.         Send($sNewDate)
  687.         Send("d")
  688.         Sleep(100)
  689.         Send("{TAB 6}")
  690.         Sleep(100)
  691.         Send("{Enter}")
  692.     Else
  693.     EndIf
  694.     Sleep(100)
  695.     Send("{TAB}{UP}{TAB 6}{ENTER}")
  696.     Sleep(100)
  697.     Local $hWnd4 = WinWait("Microsoft Excel")
  698.     If Not WinActive($hWnd4) Then WinActivate($hWnd4)
  699.     WinWaitActive($hWnd4)
  700.     Sleep(10000)
  701.     Send("^s")
  702.     Sleep(1000)
  703.     WinWait("Save As")
  704.     Sleep(1000)
  705.     Send($Excel_File)
  706.     Sleep(500)
  707.     Send("{ENTER}")
  708.     Sleep(500)
  709.     WinClose($hWnd4)
  710.     Sleep(100)
  711.     ProgressOn("Progress Information", "Calculating.... ", "0%")
  712.     For $z = 10 To 100 Step 10
  713.         Sleep(500)
  714.         ProgressSet($z, $z & "%")
  715.     Next
  716.     ProgressSet(100, "Done", "Complete")
  717.     Sleep(300)
  718.     If FileExists($FolderData & "\Excel.xlsx") Then
  719.         Local $oExcel = ObjCreate("Excel.Application")
  720.         $oExcel.visible = False
  721.         $oExcel.Workbooks.Open($FolderData & "\Excel.xlsx")
  722.         Local $i = 7
  723.         With $oExcel.ActiveWorkBook.ActiveSheet
  724.             While .Cells($i, 2).Value
  725.                 If StringInStr(.Cells($i, 3).Value, "VN") Then
  726.                     $Result2 = StringRegExp(.Cells($i, 3).Value, "(\d+)", 3)
  727.                     $Result5 = StringMid(.Cells($i, 4).Value, 5, 3)
  728.                     If $Result2[0] <> 430 Then
  729.                         $Result3 = StringRegExp(.Cells($i, 2).Value, "(?i)(?:VNA|VNB|XU)\d+", 3)
  730.                         IniWrite($DataCheckAC, $Result2[0], "Des", $Result5)
  731.                         $ClipBoard = ''
  732.                     EndIf
  733.                 EndIf
  734.                 $i += 1
  735.             WEnd
  736.         EndWith
  737.         $oExcel.ActiveWorkBook.Saved = True
  738.         $oExcel.Quit
  739.         Sleep(300)
  740.         FileDelete($FolderData & "\Excel.xlsx")
  741.         Sleep(50)
  742.         ProgressOff()
  743.         slideDown_Dialog()
  744.         MsgBox(0, "Thông Báo", "Hoàn thành")
  745.         GUI_MoveIn($frmTool, 3, 3)
  746.     Else
  747.         ProgressOff()
  748.         slideDown_Dialog()
  749.         MsgBox(0, "Thông Báo", "Thao tác sai, thực hiện lại Step 1", 0)
  750.         GUI_MoveIn($frmTool, 3, 3)
  751.     EndIf
  752. EndFunc   ;==>_GetDataAC
  753.  
  754. Func _CheckAC()
  755.     $ToolShow = Not $ToolShow
  756.     frmTool_Show($ToolShow)
  757.     slideUp_Dialog("Warning", "Script is running !!!!" & @CRLF & "Pls, Do not touch this Computer")
  758.     If FileExists($Excel_File) Then FileDelete($Excel_File)
  759.     If FileExists($DataCheckAC) Then
  760.         Local $AllSection = IniReadSectionNames($DataCheckAC)
  761.         For $i = 1 To $AllSection[0]
  762.             Local $hWnd = WinActivate($Interact_Title)
  763.             Sleep(100)
  764.             Send("{F1}")
  765.             Sleep(100)
  766.             Send("+{F3}")
  767.             Sleep(500)
  768.             Send("+{Tab}")
  769.             Sleep(100)
  770.             Send("VN")
  771.             Sleep(100)
  772.             Send($AllSection[$i], 1)
  773.             Sleep(200)
  774.             Send("DAD")
  775.             Sleep(50)
  776.             Local $Value = IniRead($DataCheckAC, $AllSection[$i], "Des", "")
  777.             Sleep(50)
  778.             Send($Value, 1)
  779.             Sleep(500)
  780.             Send("{ENTER}")
  781.             Sleep(50)
  782.             Send("!{i}")
  783.             Sleep(8000)
  784.             Send("{ESC}")
  785.             Sleep(500)
  786.         Next
  787.         Sleep(50)
  788.         If MsgBox(32 + 4 + 262144, "Thông Báo", "Xóa File Data ???") = 6 Then
  789.             FileDelete($DataCheckAC)
  790.         EndIf
  791.         slideDown_Dialog()
  792.         MsgBox(0, "Thông Báo", "Hoàn Thành.", 0, $hWnd)
  793.         GUI_MoveIn($frmTool, 3, 3)
  794.     Else
  795.         slideDown_Dialog()
  796.         MsgBox(0, "Thông báo", "Lỗi, Chạy lại bước 1 !!!", 0)
  797.         GUI_MoveIn($frmTool, 3, 3)
  798.     EndIf
  799. EndFunc   ;==>_CheckAC
  800.  
  801. Func _GetDFD()
  802.     $ToolShow = Not $ToolShow
  803.     frmTool_Show($ToolShow)
  804.     slideUp_Dialog("Warning", "Script is running !!!!" & @CRLF & "Pls, Do not touch this Computer")
  805.     If FileExists($Excel_File) Then FileDelete($Excel_File)
  806.     Local $sDate = _DateAdd('d', 0, _NowCalcDate())
  807.     Sleep(100)
  808.     Run("D:\Appls\dfc\dfc.exe")
  809.     Local $hWnd1 = WinWait("Diags Flights Care", "Sign In")
  810.     If Not WinActive($hWnd1) Then WinActivate($hWnd1)
  811.     WinWaitActive($hWnd1)
  812.     Sleep(80)
  813.     Send("N0604")
  814.     Sleep(100)
  815.     Send("{TAB}")
  816.     Sleep(100)
  817.     Send("2")
  818.     Sleep(100)
  819.     Send("{ENTER 3}")
  820.     Sleep(500)
  821.     Local $hWnd2 = WinWait("[TITLE:Diags Flights Care; CLASS:dfc9c000000]")
  822.     If Not WinActive($hWnd2) Then WinActivate($hWnd2)
  823.     WinWaitActive($hWnd2)
  824.     Sleep(80)
  825.     Send("^p")
  826.     Local $hWnd3 = WinWait("Diags Flights Care", "Print Schedule")
  827.     If Not WinActive($hWnd3) Then WinActivate($hWnd3)
  828.     WinWaitActive($hWnd3)
  829.     Sleep(100)
  830.     If _Msgbox() = 1 Then
  831.         $sDate = _DateAdd("D", 1, _NowCalcDate())
  832.         $sNewDate = StringRegExpReplace($sDate, "(\d{4})/(\d{2})/(\d{2})", "$3/$2/$1")
  833.         Sleep(500)
  834.         Send($sNewDate)
  835.         Send("d")
  836.         Sleep(100)
  837.         Send("{TAB 6}")
  838.         Sleep(100)
  839.         Send("{Enter}")
  840.     Else
  841.     EndIf
  842.     Sleep(100)
  843.     Send("{TAB}{UP}{TAB 6}{ENTER}")
  844.     Sleep(100)
  845.     Local $hWnd4 = WinWait("Microsoft Excel")
  846.     If Not WinActive($hWnd4) Then WinActivate($hWnd4)
  847.     WinWaitActive($hWnd4)
  848.     Sleep(10000)
  849.     Send("^s")
  850.     Sleep(1000)
  851.     WinWait("Save As")
  852.     Sleep(1000)
  853.     Send($Excel_File)
  854.     Sleep(500)
  855.     Send("{ENTER}")
  856.     Sleep(500)
  857.     WinClose($hWnd4)
  858.     Sleep(100)
  859. ;~  ProgressOn("Progress Information", "Calculating.... ", "0%")
  860. ;~  For $z = 10 To 100 Step 10
  861. ;~      Sleep(500)
  862. ;~      ProgressSet($z, $z & "%")
  863. ;~  Next
  864. ;~  ProgressSet(100, "Done", "Complete")
  865. ;~  Sleep(300)
  866.     If FileExists($FolderData & "\Excel.xlsx") Then
  867.         Local $oExcel = ObjCreate("Excel.Application")
  868.         $oExcel.visible = False
  869.         $oExcel.Workbooks.Open($FolderData & "\Excel.xlsx")
  870.         Local $i = 7
  871.         With $oExcel.ActiveWorkBook.ActiveSheet
  872.             While .Cells($i, 2).Value
  873.                 If StringInStr(.Cells($i, 3).Value, "VN") Then
  874.                     $Result2 = StringRegExp(.Cells($i, 3).Value, "(\d+)", 3)
  875.                     $Result5 = StringMid(.Cells($i, 4).Value, 5, 3)
  876.                     If $Result2[0] <> 430 Then
  877.                         $Result3 = StringRegExp(.Cells($i, 2).Value, "(?i)(?:VNA|VNB|XU)\d+", 3)
  878.                         $Data = .Cells($i, 5).Value
  879.                         If StringInStr($Data, '.') Then
  880.                             $Result6 = _ExcelDecToTime($Data)
  881.                         Else
  882.                             $Result6 = StringLeft($Data, 5)
  883.                         EndIf
  884.                         For $m = 0 To UBound($16162) - 1
  885.                             $ClipBoard16C162Y &= $16162[$m] & '|'
  886.                         Next
  887.                         For $m = 0 To UBound($66) - 1
  888.                             $ClipBoard66Y &= $66[$m] & '|'
  889.                         Next
  890.                         For $m = 0 To UBound($8C195Y) - 1
  891.                             $ClipBoard8C195Y &= $8C195Y[$m] & '|'
  892.                         Next
  893.                         If StringInStr($Result3[0], 'VNB') Then
  894.                             If StringInStr($ClipBoard66Y, $Result3[0]) Then
  895.                                 IniWrite($DataDFD, $Result2[0], "AC", "AT66")
  896.                             Else
  897.                                 IniWrite($DataDFD, $Result2[0], "AC", "AT68")
  898.                             EndIf
  899.                         Else
  900.                             If StringInStr($ClipBoard16C162Y, $Result3[0]) Then
  901.                                 IniWrite($DataDFD, $Result2[0], "AC", "321B")
  902.                             ElseIf StringInStr($ClipBoard8C195Y, $Result3[0]) Then
  903.                                 IniWrite($DataDFD, $Result2[0], "AC", "8195")
  904.                             Else
  905.                                 IniWrite($DataDFD, $Result2[0], "AC", "321")
  906.                             EndIf
  907.                         EndIf
  908. ;~                                 IniWrite($Ini_File, $Result2[0], "Air", $Result3[0])
  909.                         IniWrite($DataDFD, $Result2[0], "Timing", $Result6)
  910.                         IniWrite($DataDFD, $Result2[0], "Des", $Result5)
  911.                         $ClipBoard = ''
  912.                     EndIf
  913.  
  914.                 EndIf
  915.                 $i += 1
  916.             WEnd
  917.         EndWith
  918.         $oExcel.ActiveWorkBook.Saved = True
  919.         $oExcel.Quit
  920.         Sleep(300)
  921.         FileDelete($FolderData & "\Excel.xlsx")
  922.         Sleep(50)
  923.     Else
  924.         ProgressOff()
  925.         slideDown_Dialog()
  926.         MsgBox(0, "Thông Báo", "Lỗi, Tắt Vietkey, Excel or tắt DFC trước", 0)
  927.         GUI_MoveIn($frmTool, 3, 3)
  928.     EndIf
  929. ;~  ProgressOff()
  930.     slideDown_Dialog()
  931.     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")
  932.     GUI_MoveIn($frmTool, 3, 3)
  933. EndFunc   ;==>_GetDFD
  934.  
  935. Func _ExcelDecToTime($dec_value, $format = 0) ;format=0 -> 24 hours, format=1 -> 12 hours
  936.     $time_sec = $dec_value * 86400
  937.     $hours = Int($time_sec / 3600)
  938.     If $hours < 10 Then $hours = "0" & $hours
  939.     $minutes = Int(Round(Mod($time_sec, 3600) / 60))
  940.     If $minutes < 10 Then $minutes = "0" & $minutes
  941.     $seconds = Round(Mod($time_sec, 60))
  942.     If $seconds < 10 Then $seconds = "0" & $seconds
  943.     Switch $format
  944.         Case 0 ;24 hours format
  945.             Return $hours & ":" & $minutes
  946.         Case 1 ;AM/PM format
  947.             Switch Number($hours)
  948.                 Case 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23
  949.                     Return $hours - 12 & ":" & $minutes & ":" & $seconds & " PM"
  950.                 Case 12
  951.                     Return $hours & ":" & $minutes & ":" & $seconds & " PM"
  952.                 Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11
  953.                     Return $hours & ":" & $minutes & ":" & $seconds & " AM"
  954.                 Case 0
  955.                     Return "12:" & $minutes & ":" & $seconds & " AM"
  956.                 Case Else
  957.                     MsgBox(16, "Hour Error", $hours & " is not between 0 and 24")
  958.             EndSwitch
  959.         Case Else
  960.             MsgBox(16, "Flag error", $format & " is not a valid option")
  961.     EndSwitch
  962. EndFunc   ;==>_ExcelDecToTime
  963.  
  964. Func _DFD()
  965.     $ToolShow = Not $ToolShow
  966.     frmTool_Show($ToolShow)
  967.     slideUp_Dialog("Warning", "Script is running !!!!" & @CRLF & "Pls, Do not touch this Computer")
  968.     If FileExists($Excel_File) Then FileDelete($Excel_File)
  969.     If FileExists($DataDFD) Then
  970.         Local $AllSection = IniReadSectionNames($DataDFD)
  971.         For $i = 1 To $AllSection[0]
  972.             Local $hWnd = WinActivate($Backup)
  973.             Sleep(10)
  974.             Send("{PGDN}")
  975.             Sleep(10)
  976.             Send("DFD:" & $AllSection[$i] & "/+", 1) ; VN101
  977.             Sleep(800)
  978.             Send("^{Enter}")
  979.             Sleep(500)
  980.             If IniRead($DataDFD, $AllSection[$i], "AC", "") = "321" Then
  981.                 Send("321")
  982.             ElseIf IniRead($DataDFD, $AllSection[$i], "AC", "") = "321B" Then
  983.                 Send("321")
  984.                 Sleep(500)
  985.                 Send("{DOWN}")
  986.             ElseIf IniRead($DataDFD, $AllSection[$i], "AC", "") = "AT68" Then
  987.                 Send("AT")
  988.                 Sleep(500)
  989.                 Send("{DOWN 2}")
  990.             ElseIf IniRead($DataDFD, $AllSection[$i], "AC", "") = "AT66" Then
  991.                 Send("AT")
  992.             ElseIf IniRead($DataDFD, $AllSection[$i], "AC", "") = "8195" Then
  993.                 Send("321")
  994.                 Sleep(500)
  995.                 Send("{DOWN 10}")
  996.             EndIf
  997.             Sleep(500)
  998.             Send("{Tab 2}")
  999.             Sleep(200)
  1000.             Send(IniRead($DataDFD, $AllSection[$i], "Timing", ""), 1) ; Time :
  1001.             Sleep(200)
  1002.             Send("{tab}")
  1003.             Sleep(200)
  1004.             Send(IniRead($DataDFD, $AllSection[$i], "Des", ""), 1) ; Destination : SGN, HAN
  1005.             Sleep(200)
  1006.             Send("{Tab}")
  1007.             Sleep(200)
  1008.             Send("12:12") ; Time Dep
  1009.             Sleep(200)
  1010.             Send("{TAB 3}")
  1011.             Sleep(200)
  1012.             Send("{Enter}")
  1013.         Next
  1014.         Sleep(50)
  1015.         If MsgBox(32 + 4 + 262144, "Thông Báo", "Xóa File Data ???") = 6 Then
  1016.             FileDelete($DataDFD)
  1017.         EndIf
  1018.         Sleep(50)
  1019.         slideDown_Dialog()
  1020.         MsgBox(0, "Thông Báo", "DFD VN430 + các chuyến quốc tế !!!!", 0, $hWnd)
  1021.         GUI_MoveIn($frmTool, 3, 3)
  1022.     Else
  1023.         slideDown_Dialog()
  1024.         MsgBox(0, "Thông báo", "Lỗi ! Chạy lại bước 1", 0)
  1025.         GUI_MoveIn($frmTool, 3, 3)
  1026.     EndIf
  1027. EndFunc   ;==>_DFD
  1028.  
  1029. Func _GetACToday()
  1030.     $ToolShow = Not $ToolShow
  1031.     frmTool_Show($ToolShow)
  1032.     FileDelete($Excel_File)
  1033.     slideUp_Dialog("Warning", "Script is running !!!!" & @CRLF & "Pls, Do not touch this Computer")
  1034.     If FileExists("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Today\MainData\Data.ini") Then
  1035.         GUI_MoveIn($frmTool, 3, 3)
  1036.         MsgBox(0, "Thông Báo", "Đã có File Data Gốc, Không cần GetData lại !!!")
  1037.     Else
  1038.         Local $sDate = _DateAdd('d', 0, _NowCalcDate())
  1039.         Sleep(100)
  1040.         Run("D:\Appls\dfc\dfc.exe")
  1041.         Local $hWnd1 = WinWait("Diags Flights Care", "Sign In")
  1042.         If Not WinActive($hWnd1) Then WinActivate($hWnd1)
  1043.         WinWaitActive($hWnd1)
  1044.         Sleep(80)
  1045.         Send("N0604")
  1046.         Sleep(100)
  1047.         Send("{TAB}")
  1048.         Sleep(100)
  1049.         Send("2")
  1050.         Sleep(100)
  1051.         Send("{ENTER 3}")
  1052.         Sleep(500)
  1053.         Local $hWnd2 = WinWait("[TITLE:Diags Flights Care; CLASS:dfc9c000000]")
  1054.         If Not WinActive($hWnd2) Then WinActivate($hWnd2)
  1055.         WinWaitActive($hWnd2)
  1056.         Sleep(80)
  1057.         Send("^p")
  1058.         Local $hWnd3 = WinWait("Diags Flights Care", "Print Schedule")
  1059.         If Not WinActive($hWnd3) Then WinActivate($hWnd3)
  1060.         WinWaitActive($hWnd3)
  1061.         Sleep(100)
  1062.         Send("{TAB}{UP}{TAB 6}{ENTER}")
  1063.         Sleep(100)
  1064.         Local $hWnd4 = WinWait("Microsoft Excel")
  1065.         If Not WinActive($hWnd4) Then WinActivate($hWnd4)
  1066.         WinWaitActive($hWnd4)
  1067.         Sleep(10000)
  1068.         Send("^s")
  1069.         Sleep(1000)
  1070.         WinWait("Save As")
  1071.         Sleep(1000)
  1072.         Send($Excel_File)
  1073.         Sleep(500)
  1074.         Send("{ENTER}")
  1075.         Sleep(500)
  1076.         WinClose($hWnd4)
  1077.         Sleep(100)
  1078.         ProgressOn("Progress Information", "Calculating.... ", "0%")
  1079.         For $z = 10 To 100 Step 10
  1080.             Sleep(500)
  1081.             ProgressSet($z, $z & "%")
  1082.         Next
  1083.         ProgressSet(100, "Done", "Complete")
  1084.         Sleep(300)
  1085.         If FileExists($FolderData & "\Excel.xlsx") Then
  1086.             Local $oExcel = ObjCreate("Excel.Application")
  1087.             $oExcel.visible = False
  1088.             $oExcel.Workbooks.Open($FolderData & "\Excel.xlsx")
  1089.             Local $i = 7
  1090.             With $oExcel.ActiveWorkBook.ActiveSheet
  1091.                 While .Cells($i, 2).Value
  1092.                     If StringInStr(.Cells($i, 3).Value, "VN") Then
  1093.                         $Result2 = StringRegExp(.Cells($i, 3).Value, "(\d+)", 3)
  1094.                         $Result5 = StringMid(.Cells($i, 4).Value, 5, 3)
  1095.                         If $Result2[0] Then
  1096.                             $Result3 = StringRegExp(.Cells($i, 2).Value, "(?i)(?:VNA|VNB|XU)\d+", 3)
  1097.                             IniWrite($MainDataToday, $Result2[0], "Air", $Result3[0])
  1098.                             $ClipBoard = ''
  1099.                         EndIf
  1100.  
  1101.                     EndIf
  1102.                     $i += 1
  1103.                 WEnd
  1104.             EndWith
  1105.             $oExcel.ActiveWorkBook.Saved = True
  1106.             $oExcel.Quit
  1107.             Sleep(300)
  1108.             FileDelete($FolderData & "\Excel.xlsx")
  1109.             ProgressOff()
  1110.             slideDown_Dialog()
  1111.             MsgBox(0, "Thông Báo", "Hoàn thành")
  1112.             GUI_MoveIn($frmTool, 3, 3)
  1113.         Else
  1114.             ProgressOff()
  1115.             slideDown_Dialog()
  1116.             MsgBox(0, "Thông Báo", "Thao tác sai, Thực hiện lại Step 1", 0)
  1117.             GUI_MoveIn($frmTool, 3, 3)
  1118.         EndIf
  1119.     EndIf
  1120. EndFunc   ;==>_GetACToday
  1121.  
  1122. Func _CheckingToday()
  1123.     $ToolShow = Not $ToolShow
  1124.     frmTool_Show($ToolShow)
  1125.     If FileExists($Excel_File) Then FileDelete($Excel_File)
  1126.     slideUp_Dialog("Warning", "Script is running !!!!" & @CRLF & "Pls, Do not touch this Computer")
  1127.     If FileExists($MainDataToday) Then
  1128.         Local $sDate = _DateAdd('d', 0, _NowCalcDate())
  1129.         Sleep(100)
  1130.         Run("D:\Appls\dfc\dfc.exe")
  1131.         Local $hWnd1 = WinWait("Diags Flights Care", "Sign In")
  1132.         If Not WinActive($hWnd1) Then WinActivate($hWnd1)
  1133.         WinWaitActive($hWnd1)
  1134.         Sleep(80)
  1135.         Send("N0604")
  1136.         Sleep(100)
  1137.         Send("{TAB}")
  1138.         Sleep(100)
  1139.         Send("2")
  1140.         Sleep(100)
  1141.         Send("{ENTER 3}")
  1142.         Sleep(500)
  1143.         Local $hWnd2 = WinWait("[TITLE:Diags Flights Care; CLASS:dfc9c000000]")
  1144.         If Not WinActive($hWnd2) Then WinActivate($hWnd2)
  1145.         WinWaitActive($hWnd2)
  1146.         Sleep(80)
  1147.         Send("^p")
  1148.         Local $hWnd3 = WinWait("Diags Flights Care", "Print Schedule")
  1149.         If Not WinActive($hWnd3) Then WinActivate($hWnd3)
  1150.         WinWaitActive($hWnd3)
  1151.         Send("{TAB}{UP}{TAB 6}{ENTER}")
  1152.         Sleep(100)
  1153.         Local $hWnd4 = WinWait("Microsoft Excel")
  1154.         If Not WinActive($hWnd4) Then WinActivate($hWnd4)
  1155.         WinWaitActive($hWnd4)
  1156.         Sleep(10000)
  1157.         Send("^s")
  1158.         Sleep(1000)
  1159.         WinWait("Save As")
  1160.         Sleep(1000)
  1161.         Send($Excel_File)
  1162.         Sleep(500)
  1163.         Send("{ENTER}")
  1164.         Sleep(500)
  1165.         WinClose("Microsoft Excel")
  1166.         Sleep(100)
  1167.         If FileExists($FolderData & "\Excel.xlsx") Then
  1168.             Local $oExcel = ObjCreate("Excel.Application")
  1169.             $oExcel.visible = False
  1170.             $oExcel.Workbooks.Open($FolderData & "\Excel.xlsx")
  1171.             Local $i = 7
  1172.             With $oExcel.ActiveWorkBook.ActiveSheet
  1173.                 While .Cells($i, 2).Value
  1174.                     If StringInStr(.Cells($i, 3).Value, "VN") Then
  1175.                         $Result2 = StringRegExp(.Cells($i, 3).Value, "(\d+)", 3)
  1176.                         $Result5 = StringMid(.Cells($i, 4).Value, 5, 3)
  1177.                         If $Result2[0] Then
  1178.                             $Result3 = StringRegExp(.Cells($i, 2).Value, "(?i)(?:VNA|VNB|XU)\d+", 3)
  1179.                             IniWrite($CloneDataToday, $Result2[0], "Air", $Result3[0])
  1180.                             $ClipBoard = ''
  1181.                         EndIf
  1182.  
  1183.                     EndIf
  1184.                     $i += 1
  1185.                 WEnd
  1186.             EndWith
  1187.             $oExcel.ActiveWorkBook.Saved = True
  1188.             $oExcel.Quit
  1189.             Sleep(300)
  1190.             FileDelete($FolderData & "\Excel.xlsx")
  1191.             Sleep(300)
  1192. ;~ ;----------------------------------------------------------------------
  1193.             Local $sections = IniReadSectionNames(@ScriptDir & "\Data\Today\MainData\Data.ini")
  1194.             Global $check
  1195.             If @error Then
  1196.                 MsgBox(16, "", "Lỗi, không có file data !!!")
  1197.             Else
  1198.                 For $i = 1 To $sections[0]
  1199.                     Local $values = IniReadSection(@ScriptDir & "\Data\Today\MainData\Data.ini", $sections[$i])
  1200.                     If @error Then
  1201.                         MsgBox(0, '', 'Thiếu .Ini File')
  1202.                         ContinueLoop
  1203.                     EndIf
  1204.                     For $i2 = 1 To $values[0][0]
  1205.                         $values2 = IniReadSection(@ScriptDir & "\Data\Today\CloneData\Data.ini", $sections[$i])
  1206.                         If @error Then
  1207.                             MsgBox(0, '', 'Lỗi')
  1208.                         Else
  1209.                             If $values[$i2][1] <> $values2[1][1] Then
  1210.                                 Sleep(200)
  1211.                                 GUICtrlSetData($Edit3, @CRLF & "Các tàu hôm nay thay đổi")
  1212.                                 Sleep(200)
  1213.                                 GUICtrlSetData($Edit3, @CRLF & "VN" & $sections[$i] & " " & "(" & $values[$i2][1] & '=>' & $values2[1][1] & ")")
  1214.                                 Sleep(200)
  1215.                                 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])
  1216.                                 $check = True
  1217.                             EndIf
  1218.                         EndIf
  1219.                     Next
  1220.                 Next
  1221.                 If $check = False Then
  1222.                     Sleep(600)
  1223.                     GUICtrlSetData($Edit3, @CRLF & "Hiện Tại Vẫn Chưa Có Tàu Thay Đổi !!!!")
  1224.                     Sleep(600)
  1225.                     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 !!!!")
  1226.                 EndIf
  1227.             EndIf
  1228.             FileDelete(@ScriptDir & "\Data\Today\MainData\Data.ini")
  1229.             Sleep(300)
  1230.             FileMove(@ScriptDir & "\Data\Today\CloneData\Data.ini", @ScriptDir & "\Data\Today\MainData\Data.ini")
  1231.             slideDown_Dialog()
  1232.             Sleep(200)
  1233.             MsgBox(0, "Thông Báo", "Hoàn thành")
  1234.             GUI_MoveIn($frmTool, 3, 3)
  1235.         Else
  1236.             slideDown_Dialog()
  1237.             Sleep(200)
  1238.             ProgressOff()
  1239.             Sleep(200)
  1240.             MsgBox(0, "Thông Báo", "Thao tác sai, Thực hiện lại Step 1", 0)
  1241.             GUI_MoveIn($frmTool, 3, 3)
  1242.         EndIf
  1243.     Else
  1244.         MsgBox(0, "Thông Báo", "Chạy GetData(Today) trước !!!")
  1245.         slideDown_Dialog()
  1246.         GUI_MoveIn($frmTool, 3, 3)
  1247.     EndIf
  1248. EndFunc   ;==>_CheckingToday
  1249.  
  1250. Func _GetACTomorrow()
  1251.     $ToolShow = Not $ToolShow
  1252.     frmTool_Show($ToolShow)
  1253.     FileDelete($Excel_File)
  1254.     slideUp_Dialog("Warning", "Script is running !!!!" & @CRLF & "Pls, Do not touch this Computer")
  1255.     If FileExists("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Tomorrow\MainData\Data.ini") Then
  1256.         GUI_MoveIn($frmTool, 3, 3)
  1257.         MsgBox(0, "Thông Báo", "Đã có File Data Gốc, Không cần GetData lại !!!")
  1258.     Else
  1259.         Local $sDate = _DateAdd('d', 0, _NowCalcDate())
  1260.         Sleep(100)
  1261.         Run("D:\Appls\dfc\dfc.exe")
  1262.         Local $hWnd1 = WinWait("Diags Flights Care", "Sign In")
  1263.         If Not WinActive($hWnd1) Then WinActivate($hWnd1)
  1264.         WinWaitActive($hWnd1)
  1265.         Sleep(80)
  1266.         Send("N0604")
  1267.         Sleep(100)
  1268.         Send("{TAB}")
  1269.         Sleep(100)
  1270.         Send("2")
  1271.         Sleep(100)
  1272.         Send("{ENTER 3}")
  1273.         Sleep(500)
  1274.         Local $hWnd2 = WinWait("[TITLE:Diags Flights Care; CLASS:dfc9c000000]")
  1275.         If Not WinActive($hWnd2) Then WinActivate($hWnd2)
  1276.         WinWaitActive($hWnd2)
  1277.         Sleep(80)
  1278.         Send("^p")
  1279.         Local $hWnd3 = WinWait("Diags Flights Care", "Print Schedule")
  1280.         If Not WinActive($hWnd3) Then WinActivate($hWnd3)
  1281.         WinWaitActive($hWnd3)
  1282.         Sleep(100)
  1283.         $sDate = _DateAdd("D", 1, _NowCalcDate())
  1284.         $sNewDate = StringRegExpReplace($sDate, "(\d{4})/(\d{2})/(\d{2})", "$3/$2/$1")
  1285.         Sleep(500)
  1286.         Send($sNewDate)
  1287.         Send("d")
  1288.         Sleep(100)
  1289.         Send("{TAB 6}")
  1290.         Sleep(100)
  1291.         Send("{Enter}")
  1292.         Local $hWnd4 = WinWait("Microsoft Excel")
  1293.         If Not WinActive($hWnd4) Then WinActivate($hWnd4)
  1294.         WinWaitActive($hWnd4)
  1295.         Sleep(10000)
  1296.         Send("^s")
  1297.         Sleep(1000)
  1298.         WinWait("Save As")
  1299.         Sleep(1000)
  1300.         Send($Excel_File)
  1301.         Sleep(500)
  1302.         Send("{ENTER}")
  1303.         Sleep(500)
  1304.         WinClose($hWnd4)
  1305.         Sleep(100)
  1306.         ProgressOn("Progress Information", "Calculating.... ", "0%")
  1307.         For $z = 10 To 100 Step 10
  1308.             Sleep(500)
  1309.             ProgressSet($z, $z & "%")
  1310.         Next
  1311.         ProgressSet(100, "Done", "Complete")
  1312.         Sleep(300)
  1313.         If FileExists($FolderData & "\Excel.xlsx") Then
  1314.             Local $oExcel = ObjCreate("Excel.Application")
  1315.             $oExcel.visible = False
  1316.             $oExcel.Workbooks.Open($FolderData & "\Excel.xlsx")
  1317.             Local $i = 7
  1318.             With $oExcel.ActiveWorkBook.ActiveSheet
  1319.                 While .Cells($i, 2).Value
  1320.                     If StringInStr(.Cells($i, 3).Value, "VN") Then
  1321.                         $Result2 = StringRegExp(.Cells($i, 3).Value, "(\d+)", 3)
  1322.                         $Result5 = StringMid(.Cells($i, 4).Value, 5, 3)
  1323.                         If $Result2[0] Then
  1324.                             $Result3 = StringRegExp(.Cells($i, 2).Value, "(?i)(?:VNA|VNB|XU)\d+", 3)
  1325.                             IniWrite($MainDataTomorrow, $Result2[0], "Air", $Result3[0])
  1326.                             $ClipBoard = ''
  1327.                         EndIf
  1328.  
  1329.                     EndIf
  1330.                     $i += 1
  1331.                 WEnd
  1332.             EndWith
  1333.             $oExcel.ActiveWorkBook.Saved = True
  1334.             $oExcel.Quit
  1335.             Sleep(300)
  1336.             FileDelete($FolderData & "\Excel.xlsx")
  1337.             ProgressOff()
  1338.             slideDown_Dialog()
  1339.             MsgBox(0, "Thông Báo", "Hoàn thành")
  1340.             GUI_MoveIn($frmTool, 3, 3)
  1341.         Else
  1342.             ProgressOff()
  1343.             slideDown_Dialog()
  1344.             MsgBox(0, "Thông Báo", "Thao tác sai, Thực hiện lại Step 1", 0)
  1345.             GUI_MoveIn($frmTool, 3, 3)
  1346.         EndIf
  1347.     EndIf
  1348. EndFunc   ;==>_GetACTomorrow
  1349. Func _CheckingTomorrow()
  1350.     $ToolShow = Not $ToolShow
  1351.     frmTool_Show($ToolShow)
  1352.     slideUp_Dialog("Warning", "Script is running !!!!" & @CRLF & "Pls, Do not touch this Computer")
  1353.     If FileExists($Excel_File) Then FileDelete($Excel_File)
  1354.     If FileExists($MainDataTomorrow) Then
  1355.         Local $sDate = _DateAdd('d', 0, _NowCalcDate())
  1356.         Sleep(100)
  1357.         Run("D:\Appls\dfc\dfc.exe")
  1358.         Local $hWnd1 = WinWait("Diags Flights Care", "Sign In")
  1359.         If Not WinActive($hWnd1) Then WinActivate($hWnd1)
  1360.         WinWaitActive($hWnd1)
  1361.         Sleep(80)
  1362.         Send("N0604")
  1363.         Sleep(100)
  1364.         Send("{TAB}")
  1365.         Sleep(100)
  1366.         Send("2")
  1367.         Sleep(100)
  1368.         Send("{ENTER 3}")
  1369.         Sleep(500)
  1370.         Local $hWnd2 = WinWait("[TITLE:Diags Flights Care; CLASS:dfc9c000000]")
  1371.         If Not WinActive($hWnd2) Then WinActivate($hWnd2)
  1372.         WinWaitActive($hWnd2)
  1373.         Sleep(80)
  1374.         Send("^p")
  1375.         Local $hWnd3 = WinWait("Diags Flights Care", "Print Schedule")
  1376.         If Not WinActive($hWnd3) Then WinActivate($hWnd3)
  1377.         WinWaitActive($hWnd3)
  1378.         Sleep(100)
  1379.         $sDate = _DateAdd("D", 1, _NowCalcDate())
  1380.         $sNewDate = StringRegExpReplace($sDate, "(\d{4})/(\d{2})/(\d{2})", "$3/$2/$1")
  1381.         Sleep(500)
  1382.         Send($sNewDate)
  1383.         Send("d")
  1384.         Sleep(100)
  1385.         Send("{TAB 6}")
  1386.         Sleep(100)
  1387.         Send("{Enter}")
  1388.         Local $hWnd4 = WinWait("Microsoft Excel")
  1389.         If Not WinActive($hWnd4) Then WinActivate($hWnd4)
  1390.         WinWaitActive($hWnd4)
  1391.         Sleep(10000)
  1392.         Send("^s")
  1393.         Sleep(1000)
  1394.         WinWait("Save As")
  1395.         Sleep(1000)
  1396.         Send($Excel_File)
  1397.         Sleep(500)
  1398.         Send("{ENTER}")
  1399.         Sleep(500)
  1400.         WinClose($hWnd4)
  1401.         Sleep(100)
  1402.         If FileExists($FolderData & "\Excel.xlsx") Then
  1403.             Local $oExcel = ObjCreate("Excel.Application")
  1404.             $oExcel.visible = False
  1405.             $oExcel.Workbooks.Open($FolderData & "\Excel.xlsx")
  1406.             Local $i = 7
  1407.             With $oExcel.ActiveWorkBook.ActiveSheet
  1408.                 While .Cells($i, 2).Value
  1409.                     If StringInStr(.Cells($i, 3).Value, "VN") Then
  1410.                         $Result2 = StringRegExp(.Cells($i, 3).Value, "(\d+)", 3)
  1411.                         $Result5 = StringMid(.Cells($i, 4).Value, 5, 3)
  1412.                         If $Result2[0] Then
  1413.                             $Result3 = StringRegExp(.Cells($i, 2).Value, "(?i)(?:VNA|VNB|XU)\d+", 3)
  1414.                             IniWrite($CloneDataTomorrow, $Result2[0], "Air", $Result3[0])
  1415.                             $ClipBoard = ''
  1416.                         EndIf
  1417.  
  1418.                     EndIf
  1419.                     $i += 1
  1420.                 WEnd
  1421.             EndWith
  1422.             $oExcel.ActiveWorkBook.Saved = True
  1423.             $oExcel.Quit
  1424.             Sleep(300)
  1425.             FileDelete($FolderData & "\Excel.xlsx")
  1426. ;~ ;----------------------------------------------------------------------
  1427.             ProgressOn("Progress Information", "Calculating.... ", "0%")
  1428.             For $z = 10 To 100 Step 10
  1429.                 Sleep(700)
  1430.                 ProgressSet($z, $z & "%")
  1431.             Next
  1432.             ProgressSet(100, "Done", "Complete")
  1433.             Sleep(300)
  1434.             Local $sections = IniReadSectionNames(@ScriptDir & "\Data\Tomorrow\MainData\Data.ini")
  1435.             If @error Then
  1436.                 MsgBox(16, "", "Lỗi, không có file data !!!")
  1437.             Else
  1438.                 For $i = 1 To $sections[0]
  1439.                     Local $values = IniReadSection(@ScriptDir & "\Data\Tomorrow\MainData\Data.ini", $sections[$i])
  1440.                     If @error Then
  1441.                         MsgBox(0, '', 'Thiếu .Ini File')
  1442.                         ContinueLoop
  1443.                     EndIf
  1444.                     For $i2 = 1 To $values[0][0]
  1445.                         $values2 = IniReadSection(@ScriptDir & "\Data\Tomorrow\CloneData\Data.ini", $sections[$i])
  1446.                         If @error Then
  1447.                             MsgBox(0, '', 'Lỗi')
  1448.                         Else
  1449.                             If $values[$i2][1] <> $values2[1][1] Then
  1450.                                 Sleep(200)
  1451.                                 GUICtrlSetData($Edit3, @CRLF & "Các tàu ngày mai thay đổi", 1)
  1452.                                 Sleep(200)
  1453.                                 GUICtrlSetData($Edit3, @CRLF & "VN" & $sections[$i] & " " & "(" & $values[$i2][1] & '=>' & $values2[1][1] & ")", 1)
  1454.                                 Sleep(200)
  1455.                                 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])
  1456.                                 $check = True
  1457.                             EndIf
  1458.                         EndIf
  1459.                     Next
  1460.                 Next
  1461.                 If $check = False Then
  1462.                     Sleep(400)
  1463.                     GUICtrlSetData($Edit3, @CRLF & "Các tàu ngày mai không thay đổi !!!!")
  1464.                     Sleep(400)
  1465.                     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 !!!!")
  1466.                     Sleep(400)
  1467.                 EndIf
  1468.             EndIf
  1469.             FileDelete(@ScriptDir & "\Data\Tomorrow\MainData\Data.ini")
  1470.             Sleep(300)
  1471.             FileMove(@ScriptDir & "\Data\Tomorrow\CloneData\Data.ini", @ScriptDir & "\Data\Tomorrow\MainData\Data.ini")
  1472.             ProgressOff()
  1473.             slideDown_Dialog()
  1474.             MsgBox(0, "Thông Báo", "Hoàn thành")
  1475.             GUI_MoveIn($frmTool, 3, 3)
  1476.         Else
  1477.             ProgressOff()
  1478.             slideDown_Dialog()
  1479.             MsgBox(0, "Thông Báo", "Thao tác sai, Thực hiện lại Step 1", 0)
  1480.             GUI_MoveIn($frmTool, 3, 3)
  1481.         EndIf
  1482.     Else
  1483.         MsgBox(0, "Thong Bao", "Chạy GetData(Tomorrow) trước !!!")
  1484.         GUI_MoveIn($frmTool, 3, 3)
  1485.         slideDown_Dialog()
  1486.     EndIf
  1487. EndFunc   ;==>_CheckingTomorrow
  1488. Func _HDSD()
  1489.     MsgBox(0, "Huớng Dẫn Sử Dụng", "==============Cách Sử Dụng AutoFUI==============" & @CRLF _
  1490.              & "(Không sử dụng chuột và bàn phím khi sử dụng Tool) " & @CRLF _
  1491.              & "Trước khi chạy GetDataFui, tắt Diag Flight Care, Vietkey, Excel !!!" & @CRLF & "       " & @CRLF _
  1492.              & "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 _
  1493.              & "P/s : Hotkey :    Phim ESC = Exit   " & @CRLF & " " & @CRLF)
  1494. EndFunc   ;==>_HDSD
  1495.  
  1496. Func DeleteData()
  1497.     If FileExists($Ini_File) Then
  1498.         If MsgBox(4, "Thông Báo", "Delete C16Y168 Data???") = 6 Then
  1499.             Sleep(200)
  1500.             FileDelete($Ini_File)
  1501.             Sleep(200)
  1502.             MsgBox(0, "Thông Báo", "Deleted C16Y168 Data!!!")
  1503.         EndIf
  1504.     Else
  1505.         MsgBox(0, "Thông Báo", "Không Có CSDL của FUI (1)" & @CRLF & "(16/168)")
  1506.     EndIf
  1507.     If FileExists($Data16162) Then
  1508.         If MsgBox(4, "", "Delete C16Y162 & C8Y195 Data???") = 6 Then
  1509.             Sleep(200)
  1510.             FileDelete($Data16162)
  1511.             Sleep(200)
  1512.             MsgBox(0, "Thông Báo", "Deleted C16Y162 & C8Y195 Data")
  1513.         EndIf
  1514.     Else
  1515.         MsgBox(0, "Thông Báo", "Không Có CSDL của FUI (2)" & @CRLF & "(16/162 & 8/195)")
  1516.     EndIf
  1517. EndFunc   ;==>DeleteData
  1518. Func _OpenData()
  1519.     If FileExists($Ini_File) Then
  1520.         ShellExecute($Ini_File)
  1521.     Else
  1522.         MsgBox(48, "Warning", "Không có CSDL của FUI!")
  1523.     EndIf
  1524. EndFunc   ;==>_OpenData
  1525.  
  1526. Func _OpenDataDFD()
  1527.     If FileExists($DataDFD) Then
  1528.         ShellExecute($DataDFD)
  1529.     Else
  1530.         MsgBox(48, "Warning", "Không có CSDL của DFD!")
  1531.     EndIf
  1532. EndFunc   ;==>_OpenDataDFD
  1533.  
  1534. Func _OpenDataAC()
  1535.     If FileExists($DataCheckAC) Then
  1536.         ShellExecute($DataCheckAC)
  1537.     Else
  1538.         MsgBox(48, "Warning", "Không có CSDL của CheckAC !")
  1539.     EndIf
  1540. EndFunc   ;==>_OpenDataAC
  1541.  
  1542. Func _AirCraft()
  1543. ;~  SplashTextOn("Title", "Message goes here.", -1, -1, -1, -1, $DLG_TEXTLEFT, "", 24)
  1544.     MsgBox(64, "Air Craft Config", "Các tàu có Config 16/162 :" & _
  1545.             @CRLF & "VNA334, VNA335, VNA336, VNA602, VNA606, VNA610, XU348, XU350" & _
  1546.             @CRLF & @CRLF & "Các tàu có Config 8/195 :" & _
  1547.             @CRLF & "VNA613, VNA344, XU349, XU351, VNA358, VNA614, VNA615" & _
  1548.             @CRLF & @CRLF & "Các tàu có Config Y66 :" & _
  1549.             @CRLF & "VNB210, VNB212, VNB214" & _
  1550.             @CRLF & @CRLF & "Còn lại là tàu có Config 16/168")
  1551. EndFunc   ;==>_AirCraft
  1552. ;===Hàm thoát GUI===
  1553. Func frmTool_Exit()
  1554.     Exit
  1555. EndFunc   ;==>frmTool_Exit
  1556. ;===================
  1557.  
  1558. Func _Printer()
  1559.     ShellExecute("D:\Data\PNL HUY\autoit-v3\AutoFUI\Printer.exe")
  1560. EndFunc   ;==>_Printer
  1561.  
  1562. Func _Exit()
  1563.     Exit
  1564. EndFunc   ;==>_Exit
  1565. Func _DeleteDataAC()
  1566.     If FileExists("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Today\MainData\Data.ini") Then
  1567.         If MsgBox(1, "Thông Báo", "Xóa File GetDataToday ???") = 1 Then
  1568.             Sleep(200)
  1569.             FileDelete("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Today\MainData\Data.ini")
  1570.             Sleep(200)
  1571.             MsgBox(0, "Thông Báo", "Đã xóa file GetDataToday")
  1572.         EndIf
  1573.     Else
  1574.         MsgBox(0, "Thông Báo", "Ko có file GetDataToday")
  1575.     EndIf
  1576.     If FileExists("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Tomorrow\MainData\Data.ini") Then
  1577.         If MsgBox(1, "", "Xoa File GetDataTomorrow ???") = 1 Then
  1578.             Sleep(200)
  1579.             FileDelete("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Tomorrow\MainData\Data.ini")
  1580.             Sleep(200)
  1581.             MsgBox(0, "Thông Báo", "Đã xóa file GetDataTomorrow")
  1582.         EndIf
  1583.     Else
  1584.         MsgBox(0, "Thông Báo", "Ko có file GetDataTomorrow")
  1585.     EndIf
  1586. EndFunc   ;==>_DeleteDataAC
  1587.  
  1588. Func _DeleteDFD()
  1589.     If FileExists($DataDFD) Then
  1590.         If MsgBox(4, "Thông Báo", "Xóa CSDL của DFD ???") = 6 Then
  1591.             FileDelete($DataDFD)
  1592.         EndIf
  1593.     Else
  1594.         MsgBox(0, " Thông Báo", "Không có CSDL của DFD")
  1595.     EndIf
  1596. EndFunc   ;==>_DeleteDFD
  1597.  
  1598. Func _DeleteCheckAC()
  1599.     If FileExists($DataCheckAC) Then
  1600.         If MsgBox(4, "Thông Báo", "Xóa CSDL của CheckAC ???") = 6 Then
  1601.             FileDelete($DataCheckAC)
  1602.         EndIf
  1603.     Else
  1604.         MsgBox(0, " Thông Báo", "Không có CSDL của CheckAC")
  1605.     EndIf
  1606. EndFunc   ;==>_DeleteCheckAC
  1607.  
  1608. Func _Clear()
  1609.     If MsgBox(1, "Thông Báo", "Submit & Clear thông tin của AutoCheckAC + AutoFUI ?") = 1 Then
  1610.         IniWrite("D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\LogBook\Logbook.ini", "Time " & @HOUR & ":" & @MIN & "--" & @MDAY & "/" & @MON, "", "OK")
  1611.         Sleep(200)
  1612.         GUICtrlSetData($Edit1, "Những chuyến có Config 16/162(66) (330/11) (8/195):")
  1613.         Sleep(500)
  1614.         GUICtrlSetData($Edit3, "")
  1615.     Else
  1616.     EndIf
  1617. EndFunc   ;==>_Clear
  1618.  
  1619. #Region Msg Slide up and Down
  1620. ;=======================================================Message Slideup + Down =====================================
  1621. Func slideUp_Dialog($title, $message)
  1622.     Local $desktopH = @DesktopHeight, $desktopW = @DesktopWidth
  1623.     Local $width = 285, $height = 236
  1624.     Local $x = $desktopW - ($width + 12)
  1625.     #Region ### START Koda GUI section ### Form=
  1626.     Global $MainForm = GUICreate($title, $width, 165, $x, $desktopH, -1, BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE), WinGetHandle(AutoItWinGetTitle()))
  1627.     GUISetFont(12, 400, 0, "Arial")
  1628.     GUISetOnEvent($GUI_EVENT_CLOSE, "slideDown_Dialog")
  1629.     GUISetOnEvent($GUI_EVENT_MINIMIZE, "slideDown_Dialog")
  1630.     Local $Edit = GUICtrlCreateEdit($message, 0, 0, 284, 164, BitOR($GUI_SS_DEFAULT_EDIT, $ES_READONLY))
  1631.     GUICtrlSetState(-1, $GUI_FOCUS)
  1632.     GUISetState(@SW_SHOW)
  1633.     #EndRegion ### END Koda GUI section ###
  1634.     For $i = 0 To $height Step +5
  1635.         WinMove($MainForm, "", $x, $desktopH - $i)
  1636.         Sleep(1)
  1637.     Next
  1638. EndFunc   ;==>slideUp_Dialog
  1639. Func _Move()
  1640.     If FileExists($MainDataTomorrow) Then
  1641.         If MsgBox(1, "Thông Báo", "Move File Data Ngày mai ????") = 1 Then
  1642.             FileMove($MainDataTomorrow, "D:\Data\PNL HUY\autoit-v3\AutoFUI\Data\Today\MainData", $FC_OVERWRITE)
  1643.             Sleep(100)
  1644.             MsgBox(0, "Thông Báo", "Hoàn Thành")
  1645.         EndIf
  1646.     Else
  1647.         MsgBox(0, "Thông Báo", "File Data ngày mai không có !!!")
  1648.     EndIf
  1649. EndFunc   ;==>_Move
  1650. Func slideDown_Dialog()
  1651.     For $i = 255 To 0 Step -10
  1652.         WinSetTrans($MainForm, "", $i)
  1653.         Sleep(1)
  1654.     Next
  1655.     Sleep(300)
  1656.     GUIDelete($MainForm)
  1657. EndFunc   ;==>slideDown_Dialog
  1658. #EndRegion End Msg Slide up and 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!