Hio,
Ich hatte mal wieder langeweile und da ich ja noch Schüler bin dachte ich mir könnte ein "Fenster Verstecker" ganz sinvoll sein, denn Mit meinen Tool kann man jegliches Fenster(also auch Programme) Minimieren, WIederherstellen, Verstecken und WIederanzeigen so das der Lehrer davon nix mit bekommt =)
Bugs:
- ...
Hier die Source
Spoiler anzeigen
#include <Array.au3>
#include <Process.au3>
#include <GuiListView.au3>
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Run_Tidy=y
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: DrîzzIt / Thomas Schmidt
Script Function:
Mit diesen Programm kann man jegliches Fenster Minimieren,Wiederherstellen,Verstecken und Anzeigen
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
Global $Key1, $Key2, $Key3, $Key4
Opt("TrayIconHide", 1)
[/autoit] [autoit][/autoit] [autoit]GUICreate("Fenster Menü's", 300, 240)
GUISetBkColor(0x00FF80)
$settings = GUICtrlCreateMenu("Datei")
$laden = GUICtrlCreateMenuItem("Laden", $settings)
$save = GUICtrlCreateMenuItem("Speichern", $settings)
$settings1 = GUICtrlCreateMenu("Keys Aktivieren")
$aktiv = GUICtrlCreateMenuItem("Keys Aktivieren", $settings1)
$deaktiv = GUICtrlCreateMenuItem("Keys Deaktivieren", $settings1)
$settings2 = GUICtrlCreateMenu("Wichtig")
$info = GUICtrlCreateMenuItem("Infos zu den Key's", $settings2)
;Tab
GUICtrlCreateTab(10, 200, 282)
; Keys Tab
GUICtrlCreateTabItem("Keys")
GUICtrlCreateLabel("Key für MINIMIEREN äuswählen", 30, 30)
$Min = GUICtrlCreateInput("Key", 200, 28, 70, 20, $ES_CENTER)
GUICtrlCreateLabel("Key für MAXIMIEREN äuswählen", 30, 60)
$Max = GUICtrlCreateInput("Key", 200, 58, 70, 20, $ES_CENTER)
GUICtrlCreateLabel("Key für VERSTECKEN äuswählen", 30, 90)
$Hide = GUICtrlCreateInput("Key", 200, 88, 70, 20, $ES_CENTER)
GUICtrlCreateLabel("Key für ANZEIGEN äuswählen", 30, 120)
$Show = GUICtrlCreateInput("Key", 200, 118, 70, 20, $ES_CENTER)
GUICtrlCreateLabel("Name des Fensters ?!", 100, 150)
$Name = GUICtrlCreateInput("Den korrekten Fenster-Titel hier eingeben !!!", 30, 168, 240, 20, $ES_CENTER)
GUICtrlCreateGroup("Keys/Tasten der Einzelnen Funktionen für 1 Fenster", 15, 5, 270, 190)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetState($deaktiv, $GUI_DISABLE)
; Aktuelle Fenster Tab
GUICtrlCreateTabItem("Aktuelle Fenster")
$ListView = GUICtrlCreateListView("", 0, 0, 300, 200)
Global $contextmenu1 = GUICtrlCreateContextMenu($ListView)
$item = GUICtrlCreateMenuItem("Fenster Verstecken", $contextmenu1)
$item2 = GUICtrlCreateMenuItem("Fenster Verkleinern", $contextmenu1)
$item3 = GUICtrlCreateMenuItem("Fenster Wiederherstellen", $contextmenu1)
$hListViewAnw = GUICtrlGetHandle($ListView)
_GUICtrlListView_AddColumn($hListViewAnw, "Fenstertitel", 200)
_GUICtrlListView_AddColumn($hListViewAnw, "Exe", 100)
_GUICtrlListView_AddColumn($hListViewAnw, "State", 60)
;
_GetFenster()
;
;Aktuelle V. Fenster
GUICtrlCreateTabItem("Aktuelle Versteckte Fenster")
$ListView2 = GUICtrlCreateListView("", 0, 0, 300, 200)
$contextmenu2 = GUICtrlCreateContextMenu($ListView2)
$item4 = GUICtrlCreateMenuItem("Fenster Anzeigen", $contextmenu2)
$hListViewAnw2 = GUICtrlGetHandle($ListView2)
_GUICtrlListView_AddColumn($hListViewAnw2, "Fenstertitel", 300)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $save
_Save()
Case $laden
_load()
Case $item
_Verstecken()
Case $item2
_Verkleinern()
Case $item3
_Wiederherstellen()
Case $item4
_Anzeigen()
Case $aktiv
_HotKeySet()
Case $deaktiv
_DeAktivHotKeySet()
Case $info
MsgBox(0, "Key Infos", "Die Strg,Windows,Alt+Gr,Shift und Alt Tasten können nicht verwenden werden" & (@CRLF) & "Wenn Sie mehrere Keys gleichzeitig drücken wollen, müssen Sie es so angeben siehe Beispiel" & (@CRLF) & "z.B. AP(Für A und P drücken) oder AH(Für A und H drücken), wenn Sie die F-Tasten haben wollen einfach F1 schreiben" & (@CRLF) & "" & (@CRLF) & "Sobald Sie ein Fenster durch ein Key Verstecken wird das Fenster(Fenster Menü's) auch verteckt!" & (@CRLF) & 'Wenn Sie das Fenster (Fenster Menü´s) nicht verstecken wollen wählen Sie es dann ein Fenster aus der "Àktuelle Fenster" liste aus')
EndSwitch
WEnd
;######################### Funcs ##############################
;################ Keys für einzelnes Fenster ##################
;_Mini = Fenster Minimieren
;_Display = Fenster Wiederherstellen
;_Hide = Fenster Verstecken
;_Show = Fesnter Anzeigen
;################ Aktuelle Fensterliste #######################
;_Verstecken = Fenster Verstecken
;_Anzeigen = Fenster Anzeigen
;_Verkleinern = Fenster minimieren
;_Wiederherstellen = Fenster was minimiert ist Wiederherstellen
;##############################################################
Func _Save()
IniWrite(@ScriptDir & "\Fenster Menü's.ini", "Minimieren", "Key", GUICtrlRead($Min))
IniWrite(@ScriptDir & "\Fenster Menü's.ini", "Maximieren", "Key", GUICtrlRead($Max))
IniWrite(@ScriptDir & "\Fenster Menü's.ini", "Verstecken", "Key", GUICtrlRead($Hide))
IniWrite(@ScriptDir & "\Fenster Menü's.ini", "Anzeigen", "Key", GUICtrlRead($Show))
IniWrite(@ScriptDir & "\Fenster Menü's.ini", "Fenster", "Name", GUICtrlRead($Name))
$settings1 = GUICtrlRead($deaktiv)
If $settings1 = 68 Then IniWrite(@ScriptDir & "\Fenster Menü's.ini", "Key's", "Status", "aktiv")
If $settings1 = 132 Then IniWrite(@ScriptDir & "\Fenster Menü's.ini", "Key's", "Status", "inaktiv")
EndFunc ;==>_Save
Func _load()
GUICtrlSetData($Min, IniRead(@ScriptDir & "\Fenster Menü's.ini", "Minimieren", "Key", "error"))
GUICtrlSetData($Max, IniRead(@ScriptDir & "\Fenster Menü's.ini", "Maximieren", "Key", "error"))
GUICtrlSetData($Hide, IniRead(@ScriptDir & "\Fenster Menü's.ini", "Verstecken", "Key", "error"))
GUICtrlSetData($Show, IniRead(@ScriptDir & "\Fenster Menü's.ini", "Anzeigen", "Key", "error"))
GUICtrlSetData($Name, IniRead(@ScriptDir & "\Fenster Menü's.ini", "Fenster", "Name", "error"))
$ReadKey = IniRead(@ScriptDir & "Fenster Menü's.ini", "Key's", "Status", "Nicht vorhanden")
If $ReadKey = "aktiv" Then
GUICtrlSetState($deaktiv, $GUI_ENABLE)
GUICtrlSetState($aktiv, $GUI_DISABLE)
EndIf
EndFunc ;==>_load
Func _HotKeySet()
$Key1 = IniRead(@ScriptDir & "\Fenster Menü's.ini", "Minimieren", "Key", "error")
$Key2 = IniRead(@ScriptDir & "\Fenster Menü's.ini", "Maximieren", "Key", "error")
$Key3 = IniRead(@ScriptDir & "\Fenster Menü's.ini", "Verstecken", "Key", "error")
$Key4 = IniRead(@ScriptDir & "\Fenster Menü's.ini", "Anzeigen", "Key", "error")
$HotKey1 = HotKeySet("{" & $Key1 & "}", "_Mini")
$HotKey2 = HotKeySet("{" & $Key2 & "}", "_Display")
$HotKey3 = HotKeySet("{" & $Key3 & "}", "_Hide")
$HotKey4 = HotKeySet("{" & $Key4 & "}", "_Show")
GUICtrlSetState($aktiv, $GUI_DISABLE)
GUICtrlSetState($deaktiv, $GUI_ENABLE)
EndFunc ;==>_HotKeySet
Func _DeAktivHotKeySet()
$HotKey1 = HotKeySet("{" & $Key1 & "}")
$HotKey2 = HotKeySet("{" & $Key2 & "}")
$HotKey3 = HotKeySet("{" & $Key3 & "}")
$HotKey4 = HotKeySet("{" & $Key4 & "}")
GUICtrlSetState($deaktiv, $GUI_DISABLE)
GUICtrlSetState($aktiv, $GUI_ENABLE)
EndFunc ;==>_DeAktivHotKeySet
Func _GetFenster()
_GUICtrlListView_DeleteAllItems($hListViewAnw)
Local $PID, $Prozessname, $WinHandle
$Title = WinList()
For $i = 1 To $Title[0][0]
If $Title[$i][0] <> "" And IsVisible($Title[$i][1]) Then
_GUICtrlListView_AddItem($hListViewAnw, $Title[$i][0], _GUICtrlListView_GetItemCount($hListViewAnw) + 999)
$PID = WinGetProcess($Title[$i][1])
$Prozessname = _ProcessGetName($PID)
$state = WinGetState($Title[$i][0])
If $state = "7" Then $state = "aktiv"
If $state = "15" Or $state = "23" Then $state = "minimiert"
If $state = "1" Or $state = "5" Or $state = "47" Then $state = "existiert"
_GUICtrlListView_AddSubItem($hListViewAnw, _GUICtrlListView_GetItemCount($hListViewAnw) - 1, $Prozessname, 1)
_GUICtrlListView_AddSubItem($hListViewAnw, _GUICtrlListView_GetItemCount($hListViewAnw) - 1, $state, 2)
EndIf
Next
EndFunc ;==>_GetFenster
Func _Mini()
$FesnterN = IniRead(@ScriptDir & "\Fenster Menü's.ini", "Fenster", "Name", "error")
WinSetState($FesnterN, "", @SW_MINIMIZE)
WinSetState("Fenster Menü's", "", @SW_MINIMIZE)
EndFunc ;==>_Mini
Func _Display()
$FesnterN = IniRead(@ScriptDir & "\Fenster Menü's.ini", "Fenster", "Name", "error")
WinSetState($FesnterN, "", @SW_RESTORE)
WinSetState("Fenster Menü's", "", @SW_RESTORE)
EndFunc ;==>_Display
Func _Hide()
$FesnterN = IniRead(@ScriptDir & "\Fenster Menü's.ini", "Fenster", "Name", "error")
WinSetState($FesnterN, "", @SW_HIDE)
WinSetState("Fenster Menü's", "", @SW_HIDE)
EndFunc ;==>_Hide
[/autoit] [autoit][/autoit] [autoit]Func _Show()
$FesnterN = IniRead(@ScriptDir & "\Fenster Menü's.ini", "Fenster", "Name", "error")
WinSetState($FesnterN, "", @SW_SHOW)
WinSetState("Fenster Menü's", "", @SW_SHOW)
EndFunc ;==>_Show
Func _Verstecken()
$Test = _GuiCtrlListView_GetFirstSelected($hListViewAnw)
If @error Then Return
$test2 = _GUICtrlListView_GetItemText($hListViewAnw, $Test, 0)
If _GUICtrlListView_FindText($hListViewAnw2, $test2) = -1 Then
If WinSetState($test2, "", @SW_HIDE) Then _GUICtrlListView_AddItem($hListViewAnw2, $test2)
EndIf
EndFunc ;==>_Verstecken
Func _Anzeigen()
$Test = _GuiCtrlListView_GetFirstSelected($hListViewAnw)
If @error Then Return
$test2 = _GUICtrlListView_GetItemText($hListViewAnw2, $Test, 0)
If WinSetState($test2, "", @SW_SHOW) Then _GUICtrlListView_DeleteItemsSelected($hListViewAnw2)
EndFunc ;==>_Anzeigen
Func _Verkleinern()
$Test = _GuiCtrlListView_GetFirstSelected($hListViewAnw)
$test2 = _GUICtrlListView_GetItemText($hListViewAnw, $Test, 0)
If @error Then Return
If Not WinGetState($test2) = @SW_HIDE Then WinSetState($test2, "", @SW_MINIMIZE)
EndFunc ;==>_Verkleinern
Func _Wiederherstellen()
$Test = _GuiCtrlListView_GetFirstSelected($hListViewAnw)
$test2 = _GUICtrlListView_GetItemText($hListViewAnw, $Test, 0)
If @error Then Return
If Not WinGetState($test2) = @SW_HIDE Then WinSetState($test2, "", @SW_RESTORE)
EndFunc ;==>_Wiederherstellen
;############################# Von Raupi ##############################
Func _GuiCtrlListView_GetFirstSelected($hWnd)
Global $SelectedItemi
$SelectedItemi = _GUICtrlListView_GetSelectedIndices($hWnd, True)
If $SelectedItemi[0] = 0 Then Return SetError(1)
Return $SelectedItemi[1]
EndFunc ;==>_GuiCtrlListView_GetFirstSelected
;####################################################################
Func IsVisible($handle)
If BitAND(WinGetState($handle), 2) Then
Return 1
Else
Return 0
EndIf
EndFunc ;==>IsVisible
Func _Nichts()
Sleep(100)
EndFunc ;==>_Nichts
Hier der Download