API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jul 5th, 2015
229
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 8.19 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.  
  13. Opt("GUIOnEventMode", 1)
  14.  
  15. ;===================MAIN FORM======================
  16. $frmTool = GUICreate("Printer", 589, 313)
  17. GUISetOnEvent(-3, "_Exit")
  18. $in_baocao = GUICtrlCreateButton("In BaoCao", 10, 20, 85, 25)
  19. $open_baocao = GUICtrlCreateButton("Open BaoCao", 100, 20, 85, 25)
  20. $in_checktai = GUICtrlCreateButton("In CheckTai", 10, 60, 85, 25)
  21. $open_checktai = GUICtrlCreateButton("Open CheckTai", 100, 60, 85, 25)
  22. $in_uld = GUICtrlCreateButton("In ULD", 10, 100, 85, 25)
  23. $open_uld = GUICtrlCreateButton("Open ULD", 100, 100, 85, 25)
  24. $bieumau = GUICtrlCreateButton("Bieu Mau", 10, 140, 85, 25)
  25. $open_bieumau = GUICtrlCreateButton("Open Bieu Mau", 100, 140, 85, 25)
  26. $ListSang = GUICtrlCreateButton("CheckList Sang", 10, 180, 85, 25)
  27. $open_clsang = GUICtrlCreateButton("Open CLSang", 100, 180, 85, 25)
  28. ;Dùng vòng lặp SetOnEvent nhanh từ nút đầu là $in_baocao đến nút cuối là $open_clsang cùng 1 Func là Call_Function
  29. $Label1 = GUICtrlCreateLabel("Ca Sang", 78, 0, 46, 17)
  30. For $i = $in_baocao To $open_clsang
  31.         GUICtrlSetOnEvent($i, "Call_Function")
  32. Next
  33.  
  34.  
  35.  
  36. ;~==================================================== List Ca Chiều
  37. $Label2 = GUICtrlCreateLabel("Ca Chieu", 285, 0, 46, 17)
  38. $Open_clchieu = GUICtrlCreateButton("Open List Chieu", 310, 20, 85, 25)
  39. $In_CLChieu = GUICtrlCreateButton("In CL-Chieu", 215, 20, 85, 25)
  40. For $c = $Open_clchieu To $In_CLChieu
  41.         GUICtrlSetOnEvent($c, "Call_Function")
  42. Next
  43. $Inlich = GUICtrlCreateButton("In Lịch", 215, 60, 85, 25)
  44. GUICtrlSetOnEvent(-1, In_Lich)
  45. ;~ $y = 60
  46. ;~ Local $Ten_Button[] = ["In Lịch Bay", "Print2", "Print3", "Print4"]
  47. ;~ For $n = 0 To 3 ;Lưu ý là 0 tới 2 vì  mảng bắt đầu từ 0
  48. ;~         GUICtrlCreateButton($Ten_Button[$n], 215, $y, 85, 25)
  49. ;~         GUICtrlSetOnEvent(-1, Set_Color)
  50. ;~         $y += 40
  51. ;~ Next
  52. $y = 60
  53. Local $Ten_open[] = ["Open2", "Open3", "Open4", "Open5"]
  54. For $b = 0 To 3
  55.         GUICtrlCreateButton($Ten_open[$b], 310, $y, 85, 25)
  56.         GUICtrlSetOnEvent(-1, Set_Color)
  57.         $y += 40
  58. Next
  59. ;~ =====================================================End List Ca Chiều
  60.  
  61.  
  62. $Label3 = GUICtrlCreateLabel("Ca Toi", 475, 0, 46, 17)
  63. $Open_cltoi = GUICtrlCreateButton("Open List Toi", 500, 20, 85, 25)
  64. $In_ClToi = GUICtrlCreateButton("In CL-Toi", 415, 20, 85, 25)
  65. For $c = $Open_cltoi To $In_ClToi
  66.         GUICtrlSetOnEvent($c, "Call_Function")
  67. Next
  68. $y = 60
  69. For $i = 1 To 4
  70.         GUICtrlCreateButton("Print" & $i, 415, $y, 75, 25)
  71.         GUICtrlSetOnEvent(-1, Set_Color)
  72.         $y += 40
  73.  
  74. Next
  75.  
  76. GUICtrlCreateButton("Reset", 520, 280, 55, 25)
  77. GUICtrlSetOnEvent(-1, Reset)
  78. GUISetState()
  79.  
  80. ;===================END MAIN FORM==================
  81.  
  82. Func Set_Color()
  83.         GUICtrlSetBkColor(@GUI_CtrlId, 0xFF0011)
  84. EndFunc   ;==>Set_Color
  85.  
  86. Func Reset() ;Lưu ý là dùng Au3Info dò lại  ID khi có sự thay đổi (thêm bớt Control trên GUI)
  87.         For $i = 6 To 15 ;ID các nút Print ca sang
  88.                 GUICtrlSetStyle($i, $GUI_SS_DEFAULT_BUTTON)
  89.         Next
  90.         For $i = 16 To 19 ;ID các nút Print ca chiều
  91.                 GUICtrlSetStyle($i, $GUI_SS_DEFAULT_BUTTON)
  92.         Next
  93.         For $i = 20 To 23 ;ID các nút Print ca tối
  94.                 GUICtrlSetStyle($i, $GUI_SS_DEFAULT_BUTTON)
  95.         Next
  96. EndFunc   ;==>Reset
  97.  
  98. Func Call_Function()
  99.     Switch @GUI_CtrlId ; Cái này giống y chang $nMsg = GuiGetMsg(0 của phương pháp While
  100.                 Case $in_baocao
  101.                         Send_Key_File(@DesktopDir, "bao cao truc data.doc")
  102.                 Case $in_checktai
  103.                         Send_Key_File(@DesktopDir, "bang kiem tra tai.doc")
  104.                 Case $in_uld
  105.                         Send_Key_File("D:\Data\PNL HUY\BieuMau15-8-14", "Bao Cao ULD.doc")
  106.                 Case $bieumau
  107.                         Send_Key_File("D:\Data\PNL HUY\BieuMau15-8-14", "BM Luu Ho So.doc")
  108.                 Case $ListSang
  109.                         Send_Key_TDList("D:\Data\PNL HUY\Bí Kíp\To Do Lists", "To Do List Sang.docx")
  110.                 Case $In_CLChieu
  111.                         Send_Key_TDList("D:\Data\PNL HUY\Bí Kíp\To Do Lists", "To Do List Chieu.docx")
  112.                 Case $In_ClToi
  113.                         Send_Key_TDList("D:\Data\PNL HUY\Bí Kíp\To Do Lists", "To Do List Toi.docx")
  114.                 Case $open_baocao
  115.                         Open_File(@DesktopDir & "\bao cao truc data.doc")
  116.                 Case $open_checktai
  117.                         Open_File(@DesktopDir & "\bang kiem tra tai.doc")
  118.                 Case $open_clsang
  119.                         Open_File("D:\Data\PNL HUY\Bí Kíp\To Do Lists\To Do List Sang.docx")
  120.                 Case $open_bieumau
  121.                         Open_File("D:\Data\PNL HUY\BieuMau15-8-14\BM Luu Ho So.doc")
  122.                 Case $open_uld
  123.                         Open_File("D:\Data\PNL HUY\BieuMau15-8-14\Bao Cao ULD.doc")
  124.                 Case $Open_clchieu
  125.                         Open_File("D:\Data\PNL HUY\Bí Kíp\To Do Lists\To Do List Chieu.docx")
  126.                 Case $Open_cltoi
  127.                         Open_File("D:\Data\PNL HUY\Bí Kíp\To Do Lists\To Do List Toi.docx")
  128.         EndSwitch
  129. EndFunc   ;==>Call_Function
  130.  
  131.  
  132. Func Open_File($duong_dan_file)
  133.         GUICtrlSetBkColor(@GUI_CtrlId, 0xFF0011)
  134.         ShellExecute($duong_dan_file)
  135. EndFunc   ;==>Open_File
  136.  
  137. Func Send_Key_File($path, $ten_file)
  138.         GUICtrlSetBkColor(@GUI_CtrlId, 0xFF0011)
  139.         ShellExecute($path & "\" & $ten_file)
  140.         If @error Then  Return ; Nếu đường dẫn sai sẽ thoát Func
  141.         Local $hWnd = WinWait("[TITLE:" & $ten_file & " [Compatibility Mode] - Microsoft Word; CLASS:OpusApp]")
  142.         WinWaitActive(WinActivate($hWnd))
  143.         Sleep(100)
  144.         Send("^p")
  145.         Sleep(100)
  146.         Send("{Enter}")
  147.         Sleep(100)
  148.         WinClose("[TITLE:" & $ten_file & " [Compatibility Mode] - Microsoft Word; CLASS:OpusApp]")
  149. EndFunc   ;==>Send_Key_File
  150.  
  151. Func Send_Key_TDList($path, $ten_file)
  152.         GUICtrlSetBkColor(@GUI_CtrlId, 0xFF0011)
  153.         ShellExecute($path & "\" & $ten_file)
  154.         If @error Then  Return ; Nếu đường dẫn sai sẽ thoát Func
  155.         Local $hWnd = WinWait("[TITLE:" & $ten_file & " - Microsoft Word; CLASS:OpusApp]")
  156.         WinWaitActive(WinActivate($hWnd))
  157.         Sleep(100)
  158.         Send("^p")
  159.         Sleep(100)
  160.         Send("{Enter}")
  161.         Sleep(100)
  162.         WinClose("[TITLE:" & $ten_file & " - Microsoft Word; CLASS:OpusApp]")
  163. EndFunc   ;==>Send_Key_File
  164. Func _Msgbox()
  165.         GUICreate("Thông Báo", 230, 89, -1, -1)
  166.         $Button_NM = GUICtrlCreateButton("Ngày Mai", 16, 48, 75, 25)
  167.         $Button_HN = GUICtrlCreateButton("Hôm Nay", 128, 48, 75, 25)
  168.         $Label1 = GUICtrlCreateLabel("Chọn ngày để FUI ???", 88, 16, 75, 25)
  169.         GUISetState(@SW_SHOW)
  170.         While 1
  171.                 Switch GUIGetMsg()
  172.                         Case -3
  173.                                 Exit
  174.                         Case $Button_NM
  175.                                 GUIDelete()
  176.                                 Return 1
  177.                         Case $Button_HN
  178.                                 GUIDelete()
  179.                                 Return 2
  180.                 EndSwitch
  181.         WEnd
  182. EndFunc   ;==>_Msgbox
  183. Func In_Lich()
  184.     Local $Active = WinActivate("Diags Flights Care")
  185.     If WinExists("0x002C085A") then
  186.         Send("N0604")
  187.         Sleep(10)
  188.         Send("{Tab}")
  189.         Sleep(10)
  190.         Send("2")
  191.         Sleep(10)
  192.         Send("{Enter}")
  193.     Else
  194.         Send("^p")
  195.         Local $hWnd7 = WinWait("Diags Flights Care", "Print Schedule")
  196.         If Not WinActive($hWnd7) Then WinActivate($hWnd7)
  197.         WinWaitActive($hWnd7)
  198.         Sleep(100)
  199.             If _Msgbox() = 1 Then
  200.                 $sDate = _DateAdd("D", 1, _NowCalcDate())
  201.                 $sNewDate = StringRegExpReplace($sDate, "(\d{4})/(\d{2})/(\d{2})", "$3/$2/$1")
  202.                 Sleep(500)
  203.                 Send($sNewDate)
  204.                 Send("d")
  205.                 Sleep(100)
  206.                 Send("{TAB 6}")
  207.                 Sleep(100)
  208.                 Send("{Enter}")
  209.             Else
  210.                 Send("{TAB}{UP}{TAB 6}{ENTER}")
  211.                 Sleep(100)
  212.         EndIf
  213.     EndIf
  214. EndFunc
  215.  
  216. Func _Exit()
  217.         Exit
  218. EndFunc   ;==>_Exit
  219.  
  220. While 1
  221.         Sleep(10)
  222. WEnd
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!