Windowtool

[autoit]

#include <array.au3>

[/autoit] [autoit][/autoit] [autoit]

If FileExists("Hotkeys.ini") Then
$ende = IniRead("Hotkeys.ini","Sektion1","Hotkeyende","!{ESC}")
$options = IniRead("Hotkeys.ini","Sektion1","Hotkeyoptions","!o")
$allemini = IniRead("Hotkeys.ini","Sektion1","Hotkeyallemini","!{Space}")
$allemaxi = IniRead("Hotkeys.ini","Sektion1","Hotkeyallemaxi","!l")
$mini = IniRead("Hotkeys.ini","Sektion1","Hotkeymini","!m")
$maxi = IniRead("Hotkeys.ini","Sektion1","Hotkeymaxi","!a")
$transan = IniRead("Hotkeys.ini","Sektion1","Hotkeytransan","!y")
$transaus = IniRead("Hotkeys.ini","Sektion1","Hotkeytransaus","!x")
$kill = IniRead("Hotkeys.ini","Sektion1","Hotkeykill","!k")
$links = IniRead("Hotkeys.ini","Sektion1","Hotkeylinks","!{left}")
$rechts = IniRead("Hotkeys.ini","Sektion1","Hotkeyrechts","!{right}")
$hoch = IniRead("Hotkeys.ini","Sektion1","Hotkeyhoch","!{up}")
$runter = IniRead("Hotkeys.ini","Sektion1","Hotkeyrunter","!{down}")
$hochlinks = IniRead("Hotkeys.ini","Sektion1","Hotkeyhochlinks","!1")
$hochrechts = IniRead("Hotkeys.ini","Sektion1","Hotkeyhochrechts","!2")
$runterlinks = IniRead("Hotkeys.ini","Sektion1","Hotkeyrunterlinks","!3")
$runterrechts = IniRead("Hotkeys.ini","Sektion1","Hotkeyrunterrechts","!4")
Else
options()
Endif

[/autoit] [autoit][/autoit] [autoit]

HotKeySet(IniRead("Hotkeys.ini","Sektion1","Hotkeyende","!{ESC}"), "ende")
HotKeySet(IniRead("Hotkeys.ini","Sektion1","Hotkeyoptions","!o"), "options")
HotKeySet(IniRead("Hotkeys.ini","Sektion1","Hotkeyallemini","!{Space}"), "allemini")
HotKeySet(IniRead("Hotkeys.ini","Sektion1","Hotkeyallemaxi","!l"), "allemaxi")
HotKeySet(IniRead("Hotkeys.ini","Sektion1","Hotkeymini","!m"), "mini")
HotKeySet(IniRead("Hotkeys.ini","Sektion1","Hotkeymaxi","!a"), "maxi")
HotKeySet(IniRead("Hotkeys.ini","Sektion1","Hotkeytransan","!y"), "transan")
HotKeySet(IniRead("Hotkeys.ini","Sektion1","Hotkeytransaus","!x"), "transaus")
HotKeySet(IniRead("Hotkeys.ini","Sektion1","Hotkeykill","!k"), "kill")
HotKeySet(IniRead("Hotkeys.ini","Sektion1","Hotkeylinks","!{left}"), "links")
HotKeySet(IniRead("Hotkeys.ini","Sektion1","Hotkeyrechts","!{right}"), "rechts")
HotKeySet(IniRead("Hotkeys.ini","Sektion1","Hotkeyhoch","!{up}"), "hoch")
HotKeySet(IniRead("Hotkeys.ini","Sektion1","Hotkeyrunter","!{down}"), "runter")
HotKeySet(IniRead("Hotkeys.ini","Sektion1","Hotkeyhochlinks","!1"), "hochlinks")
HotKeySet(IniRead("Hotkeys.ini","Sektion1","Hotkeyhochrechts","!2"), "hochrechts")
HotKeySet(IniRead("Hotkeys.ini","Sektion1","Hotkeyrunterlinks","!3"), "runterlinks")
HotKeySet(IniRead("Hotkeys.ini","Sektion1","Hotkeyrunterrechts","!4"), "runterrechts")

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep(100)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func ende()
Exit
EndFunc ;==>ende

[/autoit] [autoit][/autoit] [autoit]

Func options()
$ende = InputBox("Hotkeys","Beliebiger Buchstabe = a,b,c..."&@CRLF&"Beliebige Zahl = 1,2,3..."&@CRLF&"Hoch = {Up}"&@CRLF&"Runter = {Down}"&@CRLF&"Links = {Left}"&@CRLF&"Rechts = {Right}"&@CRLF&"Escape = {ESC}"&@CRLF&"Alt = !"&@CRLF&@CRLF&"Beispiel:"&@CRLF&"Alt+Links+T = !{left}t"&@CRLF&@CRLF&@CRLF&"Funktion: Beenden"&@CRLF,"!{esc}","",250,290)
$options = InputBox("Hotkeys","Beliebiger Buchstabe = a,b,c..."&@CRLF&"Beliebige Zahl = 1,2,3..."&@CRLF&"Hoch = {Up}"&@CRLF&"Runter = {Down}"&@CRLF&"Links = {Left}"&@CRLF&"Rechts = {Right}"&@CRLF&"Escape = {ESC}"&@CRLF&"Alt = !"&@CRLF&@CRLF&"Beispiel:"&@CRLF&"Alt+Links+T = !{left}t"&@CRLF&@CRLF&@CRLF&"Funktion: Optionen"&@CRLF,"!o","",250,290)
$allemini = InputBox("Hotkeys","Beliebiger Buchstabe = a,b,c..."&@CRLF&"Beliebige Zahl = 1,2,3..."&@CRLF&"Hoch = {Up}"&@CRLF&"Runter = {Down}"&@CRLF&"Links = {Left}"&@CRLF&"Rechts = {Right}"&@CRLF&"Escape = {ESC}"&@CRLF&"Alt = !"&@CRLF&@CRLF&"Beispiel:"&@CRLF&"Alt+Links+T = !{left}t"&@CRLF&@CRLF&@CRLF&"Funktion: Alle minimieren"&@CRLF,"!{space}","",250,290)
$allemaxi = InputBox("Hotkeys","Beliebiger Buchstabe = a,b,c..."&@CRLF&"Beliebige Zahl = 1,2,3..."&@CRLF&"Hoch = {Up}"&@CRLF&"Runter = {Down}"&@CRLF&"Links = {Left}"&@CRLF&"Rechts = {Right}"&@CRLF&"Escape = {ESC}"&@CRLF&"Alt = !"&@CRLF&@CRLF&"Beispiel:"&@CRLF&"Alt+Links+T = !{left}t"&@CRLF&@CRLF&@CRLF&"Funktion: Alle maximieren"&@CRLF,"!l","",250,290)
$mini = InputBox("Hotkeys","Beliebiger Buchstabe = a,b,c..."&@CRLF&"Beliebige Zahl = 1,2,3..."&@CRLF&"Hoch = {Up}"&@CRLF&"Runter = {Down}"&@CRLF&"Links = {Left}"&@CRLF&"Rechts = {Right}"&@CRLF&"Escape = {ESC}"&@CRLF&"Alt = !"&@CRLF&@CRLF&"Beispiel:"&@CRLF&"Alt+Links+T = !{left}t"&@CRLF&@CRLF&@CRLF&"Funktion: Aktuelles Fenster minimieren"&@CRLF,"!m","",250,290)
$maxi = InputBox("Hotkeys","Beliebiger Buchstabe = a,b,c..."&@CRLF&"Beliebige Zahl = 1,2,3..."&@CRLF&"Hoch = {Up}"&@CRLF&"Runter = {Down}"&@CRLF&"Links = {Left}"&@CRLF&"Rechts = {Right}"&@CRLF&"Escape = {ESC}"&@CRLF&"Alt = !"&@CRLF&@CRLF&"Beispiel:"&@CRLF&"Alt+Links+T = !{left}t"&@CRLF&@CRLF&@CRLF&"Funktion: Aktuelles Fenster maximieren"&@CRLF,"!a","",250,290)
$transan = InputBox("Hotkeys","Beliebiger Buchstabe = a,b,c..."&@CRLF&"Beliebige Zahl = 1,2,3..."&@CRLF&"Hoch = {Up}"&@CRLF&"Runter = {Down}"&@CRLF&"Links = {Left}"&@CRLF&"Rechts = {Right}"&@CRLF&"Escape = {ESC}"&@CRLF&"Alt = !"&@CRLF&@CRLF&"Beispiel:"&@CRLF&"Alt+Links+T = !{left}t"&@CRLF&@CRLF&@CRLF&"Funktion: Aktuelles Fenster transparent"&@CRLF,"!y","",250,290)
$transaus = InputBox("Hotkeys","Beliebiger Buchstabe = a,b,c..."&@CRLF&"Beliebige Zahl = 1,2,3..."&@CRLF&"Hoch = {Up}"&@CRLF&"Runter = {Down}"&@CRLF&"Links = {Left}"&@CRLF&"Rechts = {Right}"&@CRLF&"Escape = {ESC}"&@CRLF&"Alt = !"&@CRLF&@CRLF&"Beispiel:"&@CRLF&"Alt+Links+T = !{left}t"&@CRLF&@CRLF&@CRLF&"Funktion: Aktuelles Fenster nicht transparent"&@CRLF,"!x","",250,290)
$kill = InputBox("Hotkeys","Beliebiger Buchstabe = a,b,c..."&@CRLF&"Beliebige Zahl = 1,2,3..."&@CRLF&"Hoch = {Up}"&@CRLF&"Runter = {Down}"&@CRLF&"Links = {Left}"&@CRLF&"Rechts = {Right}"&@CRLF&"Escape = {ESC}"&@CRLF&"Alt = !"&@CRLF&@CRLF&"Beispiel:"&@CRLF&"Alt+Links+T = !{left}t"&@CRLF&@CRLF&@CRLF&"Funktion: Aktuelles Fenster schließen(killen)"&@CRLF,"!k","",250,290)
$links = InputBox("Hotkeys","Beliebiger Buchstabe = a,b,c..."&@CRLF&"Beliebige Zahl = 1,2,3..."&@CRLF&"Hoch = {Up}"&@CRLF&"Runter = {Down}"&@CRLF&"Links = {Left}"&@CRLF&"Rechts = {Right}"&@CRLF&"Escape = {ESC}"&@CRLF&"Alt = !"&@CRLF&@CRLF&"Beispiel:"&@CRLF&"Alt+Links+T = !{left}t"&@CRLF&@CRLF&@CRLF&"Funktion: Aktuelles Fenster nach links"&@CRLF,"!{left}","",250,290)
$rechts = InputBox("Hotkeys","Beliebiger Buchstabe = a,b,c..."&@CRLF&"Beliebige Zahl = 1,2,3..."&@CRLF&"Hoch = {Up}"&@CRLF&"Runter = {Down}"&@CRLF&"Links = {Left}"&@CRLF&"Rechts = {Right}"&@CRLF&"Escape = {ESC}"&@CRLF&"Alt = !"&@CRLF&@CRLF&"Beispiel:"&@CRLF&"Alt+Links+T = !{left}t"&@CRLF&@CRLF&@CRLF&"Funktion: Aktuelles Fenster nach rechts"&@CRLF,"!{right}","",250,290)
$hoch = InputBox("Hotkeys","Beliebiger Buchstabe = a,b,c..."&@CRLF&"Beliebige Zahl = 1,2,3..."&@CRLF&"Hoch = {Up}"&@CRLF&"Runter = {Down}"&@CRLF&"Links = {Left}"&@CRLF&"Rechts = {Right}"&@CRLF&"Escape = {ESC}"&@CRLF&"Alt = !"&@CRLF&@CRLF&"Beispiel:"&@CRLF&"Alt+Links+T = !{left}t"&@CRLF&@CRLF&@CRLF&"Funktion: Aktuelles Fenster nach oben"&@CRLF,"!{up}","",250,290)
$runter = InputBox("Hotkeys","Beliebiger Buchstabe = a,b,c..."&@CRLF&"Beliebige Zahl = 1,2,3..."&@CRLF&"Hoch = {Up}"&@CRLF&"Runter = {Down}"&@CRLF&"Links = {Left}"&@CRLF&"Rechts = {Right}"&@CRLF&"Escape = {ESC}"&@CRLF&"Alt = !"&@CRLF&@CRLF&"Beispiel:"&@CRLF&"Alt+Links+T = !{left}t"&@CRLF&@CRLF&@CRLF&"Funktion: Aktuelles Fenster nach unten"&@CRLF,"!{down}","",250,290)
$hochlinks = InputBox("Hotkeys","Beliebiger Buchstabe = a,b,c..."&@CRLF&"Beliebige Zahl = 1,2,3..."&@CRLF&"Hoch = {Up}"&@CRLF&"Runter = {Down}"&@CRLF&"Links = {Left}"&@CRLF&"Rechts = {Right}"&@CRLF&"Escape = {ESC}"&@CRLF&"Alt = !"&@CRLF&@CRLF&"Beispiel:"&@CRLF&"Alt+Links+T = !{left}t"&@CRLF&@CRLF&@CRLF&"Funktion: Aktuelles Fenster nach obenlinks"&@CRLF,"!1","",250,290)
$hochrechts = InputBox("Hotkeys","Beliebiger Buchstabe = a,b,c..."&@CRLF&"Beliebige Zahl = 1,2,3..."&@CRLF&"Hoch = {Up}"&@CRLF&"Runter = {Down}"&@CRLF&"Links = {Left}"&@CRLF&"Rechts = {Right}"&@CRLF&"Escape = {ESC}"&@CRLF&"Alt = !"&@CRLF&@CRLF&"Beispiel:"&@CRLF&"Alt+Links+T = !{left}t"&@CRLF&@CRLF&@CRLF&"Funktion: Aktuelles Fenster nach obenrechts"&@CRLF,"!2","",250,290)
$runterlinks = InputBox("Hotkeys","Beliebiger Buchstabe = a,b,c..."&@CRLF&"Beliebige Zahl = 1,2,3..."&@CRLF&"Hoch = {Up}"&@CRLF&"Runter = {Down}"&@CRLF&"Links = {Left}"&@CRLF&"Rechts = {Right}"&@CRLF&"Escape = {ESC}"&@CRLF&"Alt = !"&@CRLF&@CRLF&"Beispiel:"&@CRLF&"Alt+Links+T = !{left}t"&@CRLF&@CRLF&@CRLF&"Funktion: Aktuelles Fenster nach untenlinks"&@CRLF,"!3","",250,290)
$runterrechts = InputBox("Hotkeys","Beliebiger Buchstabe = a,b,c..."&@CRLF&"Beliebige Zahl = 1,2,3..."&@CRLF&"Hoch = {Up}"&@CRLF&"Runter = {Down}"&@CRLF&"Links = {Left}"&@CRLF&"Rechts = {Right}"&@CRLF&"Escape = {ESC}"&@CRLF&"Alt = !"&@CRLF&@CRLF&"Beispiel:"&@CRLF&"Alt+Links+T = !{left}t"&@CRLF&@CRLF&@CRLF&"Funktion: Aktuelles Fenster nach untenrechts"&@CRLF,"!4","",250,290)
Iniwrite("Hotkeys.ini","Sektion1","Hotkeyende",$ende)
Iniwrite("Hotkeys.ini","Sektion1","Hotkeyoptions",$options)
Iniwrite("Hotkeys.ini","Sektion1","Hotkeyallemini",$allemini)
Iniwrite("Hotkeys.ini","Sektion1","Hotkeyallemaxi",$allemaxi)
Iniwrite("Hotkeys.ini","Sektion1","Hotkeymini",$mini)
Iniwrite("Hotkeys.ini","Sektion1","Hotkeymaxi",$maxi)
Iniwrite("Hotkeys.ini","Sektion1","Hotkeytransan",$transan)
Iniwrite("Hotkeys.ini","Sektion1","Hotkeytransaus",$transaus)
Iniwrite("Hotkeys.ini","Sektion1","Hotkeykill",$kill)
Iniwrite("Hotkeys.ini","Sektion1","Hotkeylinks",$links)
Iniwrite("Hotkeys.ini","Sektion1","Hotkeyrechts",$rechts)
Iniwrite("Hotkeys.ini","Sektion1","Hotkeyhoch",$hoch)
Iniwrite("Hotkeys.ini","Sektion1","Hotkeyrunter",$runter)
Iniwrite("Hotkeys.ini","Sektion1","Hotkeyhochlinks",$hochlinks)
Iniwrite("Hotkeys.ini","Sektion1","Hotkeyhochrechts",$hochrechts)
Iniwrite("Hotkeys.ini","Sektion1","Hotkeyrunterlinks",$runterlinks)
Iniwrite("Hotkeys.ini","Sektion1","Hotkeyrunterrechts",$runterrechts)
ShellExecute(@AutoItExe, $CMDLINERAW, @WorkingDir)
exit
Endfunc ;==options

[/autoit] [autoit][/autoit] [autoit]

Func allemini()
WinMinimizeAll()
EndFunc ;==>allemini

[/autoit] [autoit][/autoit] [autoit]

Func allemaxi()

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>allemaxi

[/autoit] [autoit][/autoit] [autoit]

Func mini()
WinSetState("[active]", "", @SW_MINIMIZE)
EndFunc ;==>mini

[/autoit] [autoit][/autoit] [autoit]

Func maxi()
WinSetState("[active]", "", @SW_MAXIMIZE)
EndFunc ;==>maxi

[/autoit] [autoit][/autoit] [autoit]

Func transan()
WinSetTrans("[active]", "", 170)
EndFunc ;==>transan

[/autoit] [autoit][/autoit] [autoit]

Func transaus()
WinSetTrans("[active]", "", 255)
EndFunc ;==>transaus

[/autoit] [autoit][/autoit] [autoit]

Func kill()
WinKill("[active]")
EndFunc ;==>kill

[/autoit] [autoit][/autoit] [autoit]

Func links()
WinMove("[active]", "", 0, 0, @DesktopWidth / 2 - 30, @DesktopHeight)
EndFunc ;==>links

[/autoit] [autoit][/autoit] [autoit]

Func rechts()
WinMove("[active]", "", @DesktopWidth / 2 - 30, 0, @DesktopWidth / 2 + 30, @DesktopHeight)
EndFunc ;==>rechts

[/autoit] [autoit][/autoit] [autoit]

Func hoch()
WinMove("[active]", "", 0, 0, @DesktopWidth, @DesktopHeight / 2 - 30)
EndFunc ;==>hoch

[/autoit] [autoit][/autoit] [autoit]

Func runter()
WinMove("[active]", "", 0, @DesktopHeight / 2 - 30, @DesktopWidth, @DesktopHeight)
EndFunc ;==>runter

[/autoit] [autoit][/autoit] [autoit]

Func hochlinks()
WinMove("[active]", "", 0, 0, @DesktopWidth / 2 - 30, @DesktopHeight / 2 - 30)
EndFunc ;==>hochlinks

[/autoit] [autoit][/autoit] [autoit]

Func hochrechts()
WinMove("[active]", "", @DesktopWidth / 2 - 30, 0, @DesktopWidth / 2 + 30, @DesktopHeight / 2 - 30)
EndFunc ;==>hochrechts

[/autoit] [autoit][/autoit] [autoit]

Func runterlinks()
WinMove("[active]", "", 0, @DesktopHeight / 2 - 30, @DesktopWidth / 2 - 30, @DesktopHeight / 2)
EndFunc ;==>runterlinks

[/autoit] [autoit][/autoit] [autoit]

Func runterrechts()
WinMove("[active]", "", @DesktopWidth / 2 - 30, @DesktopHeight / 2 - 30, @DesktopWidth / 2 + 30, @DesktopHeight / 2)
EndFunc ;==>runterrechts

[/autoit]