Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
- #AutoIt3Wrapper_icon=Autoit\icon26.ico
- #AutoIt3Wrapper_Compression=4
- #AutoIt3Wrapper_Res_Comment=DMS Macros
- #AutoIt3Wrapper_Res_Description=Gives usage to F1 - F11 keys
- #AutoIt3Wrapper_Res_Fileversion=1.0.0.0
- #AutoIt3Wrapper_Run_Tidy=y
- #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
- #cs ----------------------------------------------------------------------------
- AutoIt Version: 3.3.0.0
- Author: Bill Hall
- Script Function:
- DMS h8r Macroset - Gives macro Function to the F1 - F11 keyz
- #ce ----------------------------------------------------------------------------
- #include<Date.au3>
- #include<IE.au3>
- #include <GUIConstantsEx.au3>
- Global $Paused
- HotKeySet("{F1}", "_help")
- HotKeySet("^{F1}", "_helpp")
- HotKeySet("{F2}", "_screenshot")
- HotKeySet("^{F2}", "_screenshotp")
- HotKeySet("{F3}", "_scan")
- HotKeySet("{F4}", "_date")
- HotKeySet("^{F4}", "_datey")
- HotKeySet("{F5}", "_searchap")
- HotKeySet("{F6}", "_csearchp")
- HotKeySet("{F7}", "_tab2mask")
- HotKeySet("{F8}", "_savefrommask")
- HotKeySet("{F9}", "_f9textpaste")
- HotKeySet("^{F9}", "_createf9text")
- HotKeySet("{F10}", "_f10textpaste")
- HotKeySet("^{F10}", "_createf10text")
- HotKeySet("{F11}", "_snowmail")
- HotKeySet("^{F11}", "_createf11text")
- While 1
- Sleep(28800)
- WEnd
- ;F1
- Func _help() ;===> Opens DMSPlus...Working!!
- If WinExists("DMS Plus") Then
- MsgBox(0, "DMS", "Already Open", 1)
- WinActivate("DMS Plus")
- Return 0
- Else
- Send("^+d")
- WinWaitActive("Login")
- Sleep(1000)
- Send("{ENTER}")
- EndIf
- EndFunc ;==>_help
- ;Ctrl & F1
- Func _helpp()
- WinActivate("DMS Plus")
- WinWaitActive("DMS Plus")
- Sleep(300)
- ControlClick("DMS Plus", "", "[CLASS:Button; TEXT:Finish]")
- EndFunc ;==>_helpp
- ;F2
- Func _screenshot()
- Run("T:\Gruenstadt\Picture Service\Viewer\i_view32.exe /capture=2")
- EndFunc ;==>_screenshot
- ;Ctrl & F2
- Func _screenshotp()
- Run("T:\Gruenstadt\Picture Service\Viewer\i_view32.exe /capture=2")
- WinWaitActive("IrfanView")
- Send("^p")
- WinWaitActive("Print Preview")
- ControlClick("Print Preview", "", "[CLASS:Button; INSTANCE:21]");portrait
- ControlClick("Print Preview", "", "[CLASS:Button; INSTANCE:5]");custom print size
- ControlClick("Print Preview", "", "[CLASS:Button; INSTANCE:7]");aspect ratio
- GUICtrlSetState("Button7", $GUI_CHECKED)
- ControlSetText("Print Preview", "", "Edit1", "14")
- ControlSetText("Print Preview", "", "Edit2", "9.25")
- ControlClick("Print Preview", "", "[CLASS:Button; INSTANCE:14]");print
- Send("!{F4}")
- EndFunc ;==>_screenshotp
- ;F3
- Func _scan()
- Run("T:\Gruenstadt\Picture Service\Viewer\i_view32.exe")
- WinWaitActive("IrfanView")
- Send("^+a")
- WinActivate("Acquire/Batch Scanning - Setup", "")
- Send("{ENTER}")
- EndFunc ;==>_scan
- ;F4
- Func _date()
- Send(_NowDate())
- EndFunc ;==>_date
- ;Ctrl & F4
- Func _datey()
- $NowDate = _DateAdd('d', -1, _NowCalcDate())
- $sNewDate = _DateTimeFormat($NowDate, 2)
- Send($sNewDate)
- EndFunc ;==>_datey
- ;F5
- Func _searchap()
- If WinExists("DMS Plus") Then
- WinActivate("DMS Plus", "")
- Send("!c")
- Send("{ENTER}")
- Send("f")
- If WinExists("DMS Plus", "Customer Lookup") Then
- MsgBox(0, "debug", "Customer Lookup", 1)
- EndIf
- Send("{TAB}")
- Send("{ENTER}")
- Send("+{TAB}")
- Return 0
- Else
- _help()
- WinWaitActive("DMS Plus", "")
- Send("!c")
- Send("{ENTER}")
- Send("f")
- Send("{TAB}")
- Send("{ENTER}")
- Send("+{TAB}")
- EndIf
- EndFunc ;==>_searchap
- ;F6
- Func _csearchp() ;copy search paste
- Send("^c") ;CTRL C - copies number
- If WinExists("DMS Plus") Then
- WinActivate("DMS Plus", "")
- Send("!c")
- Send("{ENTER}")
- Send("f")
- Else
- _openandDMS()
- EndIf
- If WinExists("DMS Plus", "Customer Lookup") Then
- ;Msgbox(0, "debug", "Customer Lookup", 1)
- Send("+{TAB}")
- ElseIf WinExists("DMS Plus", "Search Results") Then
- ;Msgbox(0, "debug", "Customer Lookup", 1)
- Send("{TAB}")
- Send("{ENTER}")
- EndIf
- Sleep(1000)
- Send("^v")
- Send("{ENTER}")
- Return 0
- EndFunc ;==>_csearchp
- ;F7
- Func _openandDMS()
- _help()
- WinWaitActive("DMS Plus", "")
- Send("!c")
- Send("{ENTER}")
- Send("f")
- Send("+{TAB}")
- ;~ Send("{ENTER}")
- Sleep(1000)
- Send("^v")
- Send("{ENTER}")
- EndFunc
- Func _tab2mask()
- Send("{ENTER}")
- Send("{TAB 21}") ;hit tab button 21 times to get to the delivery info mask
- Sleep(500)
- Send("{END}") ;to get to the end of any text already there
- EndFunc ;==>_tab2mask
- ;F8
- Func _savefrommask()
- Send("{TAB 10}") ;hit tab button 21 times to get to the delivery info mask
- Send("{ENTER}") ;save and closes
- EndFunc ;==>_savefrommask
- ;F9
- Func _f9textpaste()
- $macrof9 = WinGetText("f9.txt", "")
- Send($macrof9) ;enter text from f9.txt file
- EndFunc ;==>_f9textpaste
- ;Ctrl & F9
- Func _createf9text()
- Run("notepad.exe")
- WinWaitActive("Untitled - Notepad")
- Send("Type your text here for the F9 button.")
- Send("^s")
- Send("f9.txt")
- Send("!s")
- Send("y")
- EndFunc ;==>_createf9text
- ;F10
- Func _f10textpaste()
- $macrof10 = WinGetText("f10.txt", "")
- Send($macrof10) ;enter text from f10.txt file
- EndFunc ;==>_f10textpaste
- ;Ctrl & F10
- Func _createf10text()
- Run("notepad.exe")
- WinWaitActive("Untitled - Notepad")
- Send("Type your text here for the F10 button.")
- Send("^s")
- Send("f10.txt")
- Send("!s")
- Send("y")
- EndFunc ;==>_createf10text
- ;F11
- Func _snowmail()
- Send("^c") ;CTRL C - copies number
- Send("{ESC}") ;closes DMS mask
- WinActivate("Inbox - Microsoft Outlook", "")
- Send("^n")
- Send("^v")
- Send("!u")
- Send("Culligan Delivery Cancelled due to Adverse Weather Conditions")
- Send("{TAB}")
- Send("Dear Culligan Customer,")
- Send("{ENTER}")
- Send("{ENTER}")
- Send(" We regret to inform you that due to the extreme weather and adverse road conditions we are unable to complete normal deliveries to your area.")
- Send(" We sincerely apologize for any inconvenience this may have caused and thank you for understanding and sharing our safety concerns for our drivers.")
- Send("{ENTER}")
- Send("{ENTER}")
- Send(" As the road conditions allow, we suggest getting water at your local Shoppette to tide you over until we can get back to our normal delivery cycle as it will be impossible to do any make up deliveries. Weather permitting, we will be able to continue normal route cycles in time for your next delivery.")
- Send("{ENTER}")
- Send("{ENTER}")
- Send("Best regards,")
- Send("{ENTER}")
- Send("Bill")
- Sleep(1000)
- Send("^{ENTER}")
- EndFunc ;==>_f11textpaste
- ;Ctrl & F11
- Func _createf11text()
- Run("notepad.exe")
- WinWaitActive("Untitled - Notepad")
- Send("Type your text here for the F11 button.")
- Send("^s")
- Send("f11.txt")
- Send("!s")
- Send("y")
- EndFunc ;==>_createf11text
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement