Hi ich habe ein kleines aber nützliches skript geschrieben, das das arbeiten auf windows vista oder älter erleichtern soll. Soweit ich weiß gibt es so ein ähnliches tool ja nur in windows 7, welches bei der installation dabei ist, deshalb habe ich es so ähnlich nachgebaut um es auch leuten möglich zu machen die kein windows 7 haben.
Hier der Code:
Spoiler anzeigen
Hotkeyset("!{esc}", "ende")
Hotkeyset("!{space}", "allemini")
Hotkeyset("!m", "mini")
Hotkeyset("!y", "transan")
Hotkeyset("!x", "transaus")
Hotkeyset("!k", "kill")
Hotkeyset("!{left}", "links")
Hotkeyset("!{right}", "rechts")
Hotkeyset("!{up}", "hoch")
Hotkeyset("!{down}", "runter")
Hotkeyset("!1", "hochlinks")
Hotkeyset("!2", "hochrechts")
Hotkeyset("!3", "runterlinks")
Hotkeyset("!4", "runterrechts")
While 1
Sleep(50)
WEnd
Func transan()
WinSetTrans("[active]", "", 170)
Endfunc
Func transaus()
WinSetTrans("[active]", "", 255)
Endfunc
Func allemini()
WinMinimizeAll()
Endfunc
Func mini()
WinSetState( "[active]", "", @SW_MINIMIZE)
Endfunc
Func kill()
WinKill("[active]")
EndFunc
Func links()
WinMove("[active]", "", 0, 0, @DesktopWidth/2-30, @DesktopHeight)
Endfunc
Func rechts()
WinMove("[active]", "", @DesktopWidth/2-30, 0, @DesktopWidth/2+30, @DesktopHeight)
Endfunc
Func hoch()
WinMove("[active]", "", 0, 0, @DesktopWidth, @DesktopHeight/2-30)
Endfunc
Func runter()
WinMove("[active]", "", 0, @DesktopHeight/2-30, @DesktopWidth, @DesktopHeight)
Endfunc
Func hochlinks()
WinMove("[active]", "", 0, 0, @DesktopWidth/2-30, @DesktopHeight/2-30)
Endfunc
Func hochrechts()
WinMove("[active]", "", @DesktopWidth/2-30, 0, @DesktopWidth/2+30, @DesktopHeight/2-30)
Endfunc
Func runterlinks()
WinMove("[active]", "", 0, @DesktopHeight/2-30, @DesktopWidth/2-30, @DesktopHeight/2)
Endfunc
Func runterrechts()
WinMove("[active]", "", @DesktopWidth/2-30, @DesktopHeight/2-30, @DesktopWidth/2+30, @DesktopHeight/2)
Endfunc
Func ende()
Exit
EndFunc