Erst alles ausblenden dann gui ein blenden?

Mario2323

Hi leutz.

also Ich habe folgendes problem....

Ich schaff es nicht, dass alles ausgeblendet wird wenn was bestimmtes geschieht.

Also ich möchte, dass man nur noch den hintergrund sieht und alles(Taskleiste und alles andere) ausgeblendet wird.

wie mach ich das?

anno2008

[autoit]

WinMinimizeAll()

[/autoit]

/Edit: Also du meinst wie beim runterfahren?, sry, dann hab ich das falsch verstanden.
Schiess die Explorer.exe ab :P.
Anders kann ich mir nicht vorstellen wie das gehen soll...

Mario2323

so werden nur alle fenster minimiert aber taskleiste bleibt noch aktiv und sichtbar und das will ich nicht

naja GTAspider macht das ohne explorer schließen ....

anno2008

Dann frag ihn doch, ich hab mich am Anfang vertan.

Mario2323

ok .... das werd ich mal machen.... die Sufu hat auch nichts vernümpftiges ergeben

anno2008

Bei welchem Programm von GTA eigentlich?

Mario2323

Admin Console...

und der Script der das machen sollte sieht so aus:
nur blendet er nur die fenster aus

Spoiler anzeigen

[autoit]

Func _ShowHideExplorer($show = 0, $allWindows = 0)
Local $GetTitle = WinGetHandle("active")
If $show Then
WinSetState("classname=Shell_TrayWnd", "", @SW_SHOW)
WinSetState("classname=Progman", "", @SW_SHOW)
ControlEnable("classname=DV2ControlHost", "", "Button1")
WinSetTrans('classname=DV2ControlHost', '', 255)
WinSetState("classname=DV2ControlHost", "", @SW_ENABLE)
If $allWindows And IsArray($ActiveWinowList) Then
For $i = 1 To $ActiveWinowList[0]
WinSetState($ActiveWinowList[$i], "", @SW_SHOW)
Next
WinActivate($ActiveWinowList[$ActiveWinowList[0] + 1])
EndIf
Else
WinSetState("classname=Shell_TrayWnd", "", @SW_HIDE)
WinSetState("classname=Progman", "", @SW_HIDE)
GUISetState(@SW_HIDE, $ScreenyWindow)
ControlDisable("classname=DV2ControlHost", "", "Button1")
WinSetTrans('classname=DV2ControlHost', '', 0)
WinSetState("classname=DV2ControlHost", "", @SW_DISABLE)
If $allWindows Then
Dim $ActiveWinowList[1];Leere $ActiveWinowList
Local $UBound = 0
Local $wl = WinList()
For $i = 1 To $wl[0][0]
If $wl[$i][0] <> "" And $wl[$i][1] <> "" And $wl[$i][1] <> $ScreenyWindow And BitAND(WinGetState($wl[$i][1]), 2) And $wl[$i][0] <> "Spider Lock - Server" Then
$UBound += 1
ReDim $ActiveWinowList[$UBound + 1]
$ActiveWinowList[$UBound] = $wl[$i][1]
WinSetState($wl[$i][1], "", @SW_HIDE)
EndIf
Next
ReDim $ActiveWinowList[$UBound + 2]
$ActiveWinowList[$UBound + 1] = $GetTitle
$ActiveWinowList[0] = $UBound
EndIf

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

EndIf
EndFunc

[/autoit]