| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
Мой рабочий AutoIt-скрипт
;AutoItSetOption ( "TrayIconHide", 1)
TraySetIcon("Shell32.dll", 44)
TraySetPauseIcon("Shell32.dll", 44)
;Запуск программ
HotKeySet("+!t", "RunTC") ; Total Commander
HotKeySet("+!a", "RunRA") ; Radmin
HotKeySet("+!j", "RunUD") ; USB Disk Eject
HotKeySet("+!p", "RunVo") ; Voyager
HotKeySet("+!n", "RunLN") ; Lotus Notes
HotKeySet("+!c", "RunSt") ; 1C Starter
HotKeySet("+!r", "RunInet") ; запуск программ для Интернета
; Запись содержимого буфера обмена в файл
HotKeySet("+!i", "MakeInfo") ; Shift+Alt+i - в D:\Temp\info.txt (дописать в конец)
HotKeySet("+!m", "MakeReadme") ; Shift+Alt+m - в D:\Temp\readme.txt (перезаписать файл)
While 1
If WinWaitActive("Lotus Notes")=1 Then
ControlSetText("Lotus Notes", "", "[CLASS:IRIS.password; INSTANCE:1]", "twhgwerg")
ControlSend("Lotus Notes", "", "[CLASS:Button; INSTANCE:1]", "{Enter}")
Endif
WEnd
Exit
; Запись содержимого буфера обмена в файл
;================================
Func MakeFile($fName, $fMode)
$bak = ClipGet()
$file = FileOpen($fName, $fMode)
; Check if file opened for reading OK
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
FileWrite($file, @CRLF & $bak & @CRLF)
FileClose($file)
EndFunc
;================================
Func MakeInfo()
MakeFile("D:\Temp\info.txt", 1)
EndFunc
;================================
Func MakeReadme()
MakeFile("D:\Temp\readme.txt", 2)
EndFunc
;Запуск программ
;================================
Func RunTC()
Run("d:\Arhiv\My\Scripts\Start1C\tc.bat")
EndFunc
;================================
Func RunRA()
Run("c:\WinTools\RadminViewer\Radmin.exe")
EndFunc
;================================
Func RunUD()
Run("c:\WinTools\USB_Disk_Eject\USB_Disk_Eject.exe")
EndFunc
;================================
Func RunVo()
Run("c:\WinTools\Voyager\voystart.exe")
EndFunc
;================================
Func RunLN()
Run("c:\lotus\notes\notes.exe")
EndFunc
;================================
Func RunSt()
Run("c:\WinTools\Starter1C\Starter1C.exe")
EndFunc
;================================
Func RunInet()
Run("c:\WinTools\Miranda\miranda32.exe")
Run("c:\Program Files\FeedDemon\FeedDemon.exe")
If WinWait("FeedDemon")=1 Then
WinClose("FeedDemon", "")
Endif
Run("c:\lotus\notes\nminder.exe")
If WinWait("Notes Minder")=1 Then
ControlSetText("Notes Minder", "", "[CLASS:Edit; INSTANCE:1]", "rtghghg")
ControlSend("Notes Minder", "", "[CLASS:Button; INSTANCE:1]", "{Enter}")
Endif
EndFunc
|
| Категория: Скрипты | Добавил: IgorD (21.01.2010)
|
| Просмотров: 3909
| Рейтинг: 0.0/0 |
|
|
|
