Scripte für Autohotkey: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
K (1 Version importiert) |
Daniel (Diskussion | Beiträge) K (1 Version importiert) |
(kein Unterschied)
|
Aktuelle Version vom 21. Oktober 2021, 06:18 Uhr
Diese Seite ist eigentlich wie alle anderen nicht öffentlich und nur für mich, Google und Konsorten sollten ausgesperrt sein. Deshalb stehen hier auch Scripte, die nicht von mir sind und dessen Quelle ich manchmal nicht mehr kenne.
Hier ein paar nützöliche Links
Eigene Shortcuts und Scripte
Shortcuts
;------------------------------------------------Programme WIN-Taste aufrufen #n:: run notepad #f:: run "C:\Program Files\Mozilla Firefox\firefox.exe" #k:: run "D:\Program Files\KeePass Password Safe\KeePass.exe" #a:: run msaccess.exe #t:: run "D:\Program Files\totalcmd\TOTALCMD.EXE" #w:: run winword.exe #e:: run excel.exe #p:: run powerpnt.exe #v:: Goto, OSN #m:: run mailto: ;------------------------------------------------Programme mit Zusatzfunktion aufrufen #m:: Goto, AppMail #ä:: Goto, Wiki #ö:: Goto, Google #ü:: Goto, LEO ;------------------------------------------------Ordner mit strg + alt aufrufen !m:: run D:\Agfa\Module !l:: run D:\Agfa\Module\LSTM !s:: run D:\Agfa\Module\SIEDA OC !t:: run D:\Agfa\Module\TVER !a:: run D:\Agfa !h:: run D:\Program Files\AutoHotkey
Mein Programmstarter fürs Homeoffice
;------------------------------------------------ Erzeugt GUI mit der man verschiedene wichtige Programme starten kann OSN: ;------------------------------------------------OSN Gui, Destroy Gui, Add, CheckBox, x36 y30 w210 h30 vcbxVPN + Checked, VPN starten Gui, Add, CheckBox, x36 y60 w210 h30 vcbxSMT +Checked, Sametime starten Gui, Add, CheckBox, x36 y90 w210 h30 vcbxOUT +Checked , Outlook starten Gui, Add, CheckBox, x36 y120 w210 h30 vcbxNLW +Checked, Netzlaufwerke mappen Gui, Add, Button, x36 y160 w100 h30 , Los Gui, Add, Button, x146 y160 w100 h30 , Abrechen ; Generated using SmartGUI Creator 4.0 Gui, Show, x2284 y255 h215 w280, Programmstarter Return ButtonAbrechen: GUI, Submit Goto, Ende ButtonLos: GUI, Submit if cbxVPN = 1 GoTo, VPN Step2: ;------------------------------------------------ if cbxSMT = 1 Goto, SMT Step3: ;------------------------------------------------ if cbxOUT = 1 Goto, OUT Step4: ;------------------------------------------------ if cbxNLW = 1 Goto, NLW Step5: ;------------------------------------------------ Ende: ;------------------------------------------------ Return VPN: ;------------------------------------------------VPN run "C:\Program Files\AGFA\Agfa VPN Client\ipsecdialer.exe" sleep 2000 WinWait, VPN Client - Version 4.0.3 (A) send g sleep 100 send o WinWait, VPN Client | User Authentication for "GWI", IfWinNotActive, VPN Client | User Authentication for "GWI", , WinActivate, VPN Client | User Authentication for "GWI", WinWaitActive, VPN Client | User Authentication for "GWI", Sleep, 100 WinWait, VPN Client | Banner, IfWinNotActive, VPN Client | Banner, , WinActivate, VPN Client | Banner, WinWaitActive, VPN Client | Banner, send {return} Goto, Step2 return ;------------------------------------------------Sametime SMT: run "C:\Program Files\IBM\Sametime Connect\sametime.exe" WinWait, IBM Lotus Sametime Connect, IfWinNotActive, IBM Lotus Sametime Connect, , WinActivate, IBM Lotus Sametime Connect, WinWaitActive, IBM Lotus Sametime Connect, Goto, Step3 Return ;------------------------------------------------OUT OUT: Run outlook.exe WinWait, Posteingang - Microsoft Outlook, IfWinNotActive, Posteingang - Microsoft Outlook, , WinActivate, Posteingang - Microsoft Outlook, WinWaitActive, Posteingang - Microsoft Outlook, Goto, Step4 Return ;------------------------------------------------NLW NLW: run "C:\Program Files\AGFA\HandleNetDrives.exe" reconnect WinWait, Information, IfWinNotActive, Information, , WinActivate, Information, WinWaitActive, Information, sleep 1000 send {return} Goto, Step5 Return
Selektiere Datei oder Text in die Zwischenablage kopieren und als Mail versenden
;------------------------------------------------ Selektiere Datei oder Text in die Zwischenablage kopieren und als Mail versenden AppMail: temp := ClipboardAll Clipboard = Send, c strSuche := Clipboard run mailto: WinWait, Unbenannt - Nachricht (HTML) , IfWinNotActive, Unbenannt - Nachricht (HTML) , , WinActivate, Unbenannt - Nachricht (HTML) , WinWaitActive, Unbenannt - Nachricht (HTML) , Send, {TAB}{TAB}{TAB} send, v Return
Scripte von anderen, die ich aber verwende
leider weiß ich nicht mehr wo ih die alle herhabe
Dieses Script automatisch nach speichern neu laden
;------------------------------------------------dieses Script automatisch nach speichern neu laden ; BEGIN ; Dieses Skript bewirkt, dass die Datei in der das Skript sich befindet ; automatisch neu geladen wird, wenn sie gespeichert wurde ; Achtung! Das Skript muss sich ganz oben in der Datei befinden. SetTimer,UPDATEDSCRIPT,1000 UPDATEDSCRIPT: FileGetAttrib,attribs,%A_ScriptFullPath% IfInString,attribs,A { FileSetAttrib,-A,%A_ScriptFullPath% SplashTextOn,,,Updated script, Sleep,500 Reload } Return ; END
Autohotkey Skript zum verschieben des aktiven Fensters über mehrere Monitore
; Autohotkey Skript zum verschieben des aktiven Fensters über mehrere Monitore ; ; Zusammengebaut aus Ideen des Autohokey Forums ; z.B. http://www.autohotkey.com/forum/topic998.html ; ; s k i r o n 1 @ g m x . n e t ; ; STEUERUNG ; Taste: WIN + Left | aktives Fenster in den linken Monitor verschieben ; Taste: WIN + Right | aktives Fenster in den rechten Monitor verschieben ; Taste: WIN + Up | aktives Fenster maximieren, bzw. maximiertes Fenster wieder verkleinern ; Taste: WIN + Down | aktives Fenster minimieren ; ; TODO ; * Bessere Positionserkennung des Fensters ; * Geschwindigkeit verbessern (PID nutzen...?) ; * Einfügen: Verschieben in kleinen Schritten zu 10/50/500 Pixeln in alle Richtungen o.ä. ; ; HISTORY ; 2007-03-23; 10 Pixel Toleranz beim entscheiden, ob fenster im linken/rechten Monitor steht... ; 2007-03-23; Maximiertes Fenster wird 1. normalisiert, 2. verschoben, 3. maximiert ; 2007-03-17; erstellt. ;-------------------------------------------------------------------------------------------------- #SingleInstance ; Allow only one instance of this script to be running. SetTitleMatchMode, 2 ; Funktion: aktives Fenster über zwei Monitore verschieben ; Parameter: Cmd="Left" bzw. Cmd="Right" MoveWindow(Cmd) { SysGet, MonitorCount, MonitorCount if MonitorCount < 2 return SysGet, Mon1, MonitorWorkArea, 1 SysGet, Mon2, MonitorWorkArea, 2 ;MsgBox %Mon1Left% %Mon1Right% %Mon2Left% %Mon2Right% WinGetActiveStats ,Title, Width, Height, x, y WinGet, state, MinMax, A if (state == 1) WinRestore , A if ((Cmd == "Left") and (X > Mon1Right-10)) ; 10 Pixel Toleranz WinMove, %Title%, , %Mon1Left%, 0 else if ((Cmd == "Right") and (X < Mon2Left)) WinMove, %Title%, , %Mon2Left%, 0 if (state == 1) WinMaximize , A } ; Taste: WIN + Left | aktives Fenster in den linken Monitor verschieben #Left::MoveWindow("Left") ; Taste: WIN + Right | aktives Fenster in den rechten Monitor verschieben #Right::MoveWindow("Right") ; Taste: WIN + Up | aktives Fenster maximieren, bzw. maximiertes Fenster wieder verkleinern #Up:: WinGet, state, MinMax, A if (state == 0) WinMaximize, A else WinRestore , A return ; Taste: WIN + Down | aktives Fenster minimieren #Down::WinMinimize, A Return