Tja, heute hatte ich langweilig.
Programm 1: WiMa
Mit diesem Progrämmchen könnt ihr überflüssige Fenster einfach ausblenden wenn ihr es aktiviert und Strg & Umschalt & Leer drückt.
Um es wieder hervor zu holen drückt ihr dann Strg & Umschalt & s solange bis es kommt, die fenster werden der Reihe nach angezeigt und gleich aktiviert.
Wenn ihr möchtet dass das fenster beim nächsten Strg & Umschalt & s nichtmehr verschwindet, dann aktiviert ihr das fenster und drückt Strg & Umschalt & d.
Fazit: Für mich ist es wunderbar (iTunes anwerfen und weg damit von der Taskliste :D)
Spoiler anzeigen
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compression=0
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
TraySetIcon("shell32.dll", -277)
HotKeySet("^+{SPACE}", "hidelist")
HotKeySet("^+s", "showhidden")
HotKeySet("^+d", "delhidden")
Opt("TrayAutoPause", 0)
Global $hidden[1]
$hidden[0] = 0
$showpos= 1
$B_BLOCK = TrayCreateItem("Fenster blocken")
While True
If TrayGetMsg() = $B_BLOCK Then Blockfunc()
WEnd
Func hidelist()
If WinGetTitle("[ACTIVE]") = "" Then Return 0
For $c = 1 To $hidden[0]
If $hidden[$c] = WinGetHandle("[ACTIVE]") Then
WinSetState($hidden[$c], "", @SW_HIDE)
Return 0
EndIf
Next
$hidden[0]+=1
ReDim $hidden[$hidden[0]+1]
$hidden[$hidden[0]] = WinGetHandle("[ACTIVE]")
WinSetState($hidden[$hidden[0]], "", @SW_HIDE)
EndFunc
Func showhidden()
If $hidden[0] = 0 Then Return 0
$showpos += 1
If $showpos > $hidden[0] Then $showpos = 1
WinSetState($hidden[$showpos], "", @SW_SHOW)
WinActivate($hidden[$showpos])
hidelast()
EndFunc
Func hidelast()
If $hidden[0] = 1 Then Return 0
$temp = $showpos-1
If $temp < 1 Then $temp = $hidden[0]
WinSetState($hidden[$temp], "", @SW_HIDE)
EndFunc
Func delhidden()
For $c = 1 To $hidden[0]
If $hidden[$c] = WinGetHandle("[ACTIVE]") Then
$hidden[$c] = $hidden[$hidden[0]]
$hidden[0] -= 1
ReDim $hidden[$hidden[0]+1]
Return 0
EndIf
Next
EndFunc
Func Blockfunc()
$str = InputBox("Fenster vor Transparenz schützen", "Geben Sie den Fenstertitel ein")
If $str = "" Then Return 0
IniWrite(@UserProfileDir&"\desing.ini", $str, "block", "yes")
EndFunc
Programm 2: Starter
Um dieses Programm zu nutzen solltet ihr die Sourcen etwas umschreiben. Zurzeit bildet es nur HotKeys zu 3 verschiedenen Ordnern und blendet diese wieder aus wenn sie inaktiv werden.
Fazit: Mein Desktop is leer (UIIII Schöne&Coole Wallpapers )
Spoiler anzeigen
HotKeySet("^!y", "programming")
HotKeySet("^!x", "archive")
HotKeySet("^!c", "games")
TraySetIcon("shell32.dll", -160)
Opt("TrayAutoPause", 0)
Opt("WinTitleMatchMode", 3)
While True
Sleep(124)
WEnd
Func programming()
ShellExecute("D:\Administrator\Starting\Programming")
$h = WinWaitActive("Programming")
WinWaitNotActive($h)
If WinGetTitle($h) = "Programming" Then WinClose($h)
EndFunc
Func archive()
ShellExecute("D:\Administrator\Starting\Archiv")
$h = WinWaitActive("Archiv")
WinWaitNotActive($h)
If WinGetTitle($h) = "Archiv" Then WinClose($h)
EndFunc
Func games()
ShellExecute("D:\Administrator\Starting\Games")
$h = WinWaitActive("Games")
WinWaitNotActive($h)
If WinGetTitle($h) = "Games" Then WinClose($h)
EndFunc
Programm 5 ääh 3: Transparency
Dieses Programm ist nur dazu da, die Fenster auf eurem Desktop transparent zu machen. Damit man den Inhalt in praktisch allen Fällen noch lesen kann, wird das aktive Fenster mit weniger Transparenz dargestellt.
Ausserdem beinhaltet WiMa eine Funktion, die diesem Programm sagt, welche Fenster nicht Transparent werden dürfen.
Fazit: Ich hab den totalen durchblick (He das Wallpaper kam erst gerade! )
Spoiler anzeigen
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compression=0
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
$lwh = 0
HotKeySet("!t", "notransset")
TraySetIcon("shell32.dll", -35)
Opt("TrayAutoPause", 0)
$hidden = 0
$transp = 175
$atransp = 220
$trsp = 175
$atrsp = 220
While True
$handle = WinGetHandle("[ACTIVE]")
If $handle <> $lwh And WinGetTitle($handle) <> "" And WinGetTitle($handle) <> "Start" Then
If winblocklist($handle) Then WinSetTrans($handle, "", $atransp)
If winblocklist($lwh) Then WinSetTrans($lwh, "", $transp)
$lwh = $handle
EndIf
sleep(50)
WEnd
Func winblocklist($name)
If IniRead(@UserProfileDir&"\desing.ini", WinGetTitle($name), "block", "no") = "yes" Then Return False
Return True
EndFunc
Func notransset()
If $transp <> 255 Then
$trsp = $transp
$transp = 255
$atrsp = $atransp
$atransp = 255
Else
$transp = $trsp
$atransp = $atrsp
EndIf
EndFunc