Scripte für Autohotkey

Aus Roebke Wiki
Version vom 28. Dezember 2018, 19:34 Uhr von wiki>Daniel (1 Version importiert)
(Unterschied) ← Nächstältere Version | Aktuelle Version (Unterschied) | Nächstjüngere Version → (Unterschied)
Zur Navigation springen Zur Suche springen

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