Alle Internet Fenster verstecken

turbobaby

Hallo Profis,

aus dem Grund dass meine 3 Kinder, meine Frau und ich aus Platzmangel zusammen einen Computer teilen müssen habe ich sehr oft das Problem, dass wenn ich am PC am arbeiten bin und mehrere InternetExplorer Fenster offen hab und muss mal aus dem Haus (lasse ich die Fenster offen damit ich später weiter arbeiten kann), (Leider viel zu oft:) wenn ich wieder komme sind die Fenster geschlossen und ich muss die Suche wieder von vorne anfangen.
Deshalb wollte ich mir ein script schreiben, womit ich alle IE Fenster verstecken und wieder Sichtbar machen kann.

Ich hab mal folgendes probiert:

C

#include <Misc.au3>
#include <Array.au3>
Global $Versteckt


If _Singleton("Skript", 1) = 0 Then Exit


HotKeySet("{ESC}", "Beenden")
HotKeySet("{F11}", "versteckeninet")


While 1
;~  $List = ProcessList("iexplore.exe")
;~  _ArrayDisplay($List)


WEnd


Func versteckeninet()
;~  Internet Explorer verstecken
  $Versteckt = NOT $Versteckt
  $List = ProcessList("iexplore.exe")


  for $i = 1 to $list[0][0]
   $WinHnd = $list[$i][1]
   IF $Versteckt = True Then WinSetState($WinHnd, "", @SW_HIDE)
   IF $Versteckt = False Then WinSetState($WinHnd, "", @SW_SHOW)
   TrayTip("IE. ", $Versteckt & @CRLF & $WinHnd, 20, 1)
  next
 While $Versteckt
  ExitLoop
    WEnd
EndFunc


Func Beenden()
 Exit 0
EndFunc   ;==>Beenden

Alles anzeigen

Das geht leider nicht

Dann noch so:

C

#include <Misc.au3>
#include <Array.au3>
Global $Versteckt


If _Singleton("Skript", 1) = 0 Then Exit


HotKeySet("{ESC}", "Beenden")
HotKeySet("{F11}", "versteckeninet")


While 1
;~  $List = ProcessList("iexplore.exe")
;~  _ArrayDisplay($List)


WEnd


Func versteckeninet()
;~  Internet Explorer verstecken
  $Versteckt = NOT $Versteckt
  $List = ProcessList("iexplore.exe")


  for $i = 1 to $list[0][0]
   $WinHnd = $list[$i][1]
   IF $Versteckt = True Then WinSetState("[CLASS:IEFrame]", "", @SW_HIDE)
   IF $Versteckt = False Then WinSetState("[CLASS:IEFrame]", "", @SW_SHOW)
   TrayTip("IE. ", $Versteckt & @CRLF & $WinHnd, 20, 1)
  next
 While $Versteckt
  ExitLoop
    WEnd
EndFunc


Func Beenden()
 Exit 0
EndFunc   ;==>Beenden

Alles anzeigen

So versteckt es aber immer nur das letzte geöffnete IE Fenster

Vielleicht kann mir jemand helfen und mir sagen wie kann ich anhand der PID Fenster verstecken?
Bitte um hilfe

Big THX vorab

**BugFix**

Ist das nicht etwas umständlich? Ich arbeite nicht mit dem IE - aber alle anderen Browser, die ich kenne, bieten die Möglichkeiten offene Tabs als Gruppe abzuspeichern. Falls das der IE nicht kann, verwende doch einen anderen Browser.

turbobaby

Umständlich ist es vor allen Dingen, aber ich möchte auch gerne was dazu lernen.
Gib es den keine Möglichkeit Fenster anhand der SID zu verstecken?
Es ist auch so dass ich gerne weiter mein Wissen erweitern möchte und nicht an einem es geht nicht stehen bleibe.
Wenn du verstehst was ich meine?

Normallerweise habe ich bis jetzt immer was aus dem Forum geholt und so lange experimentiert bis ich meine Ergebnisse verwirklicht habe aber jetzt komme ich einfach nicht weiter.

**Kanashius**

So könnte man es machen. (IE hat anscheinend für jedes Fenster ein 2tes kleineres. Deshalb prüf ich vorher, ob das Fenster überhaupt angezeigt wird.
Ich denke, es wird dir recht nützlich sein

Spoiler anzeigen

[autoit]

$IEWins=_HideAllIEWin()
msgbox(48,"","Press to Show")
_ShowAllIEWin($IEWins)

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

Func _HideAllIEWin()
$Windows=WinList()
global $HiddenWindows[$Windows[0][0]],$count=0
for $i=1 to UBound($Windows)-1 step 1
if StringInStr($Windows[$i][0],"Windows Internet Explorer") and WinGetState($Windows[$i][0])<>5 then
WinSetState($Windows[$i][1],"",@SW_HIDE)
$HiddenWindows[$count]=$Windows[$i][1]
$count+=1
endif
next
ReDim $HiddenWindows[$count]
return $HiddenWindows
EndFunc

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

Func _ShowAllIEWin($WinList)
for $i=0 to UBound($HiddenWindows)-1 step 1
WinSetState($WinList[$i],"",@SW_SHOW)
next
EndFunc

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

**BugFix**

Wenn ich mich recht erinnere, können auch mehrere Instanzen des IE parallel laufen (in einer PID). Da hatten wir mal Funktionen zu gebastelt (GetWndByPID oder so), quäle mal die SuFu. Da kannst du dann alle existierenden IE-Fenster abfragen und verstecken.

turbobaby

OK, danke für eure Mühe!
Kanashius: Bei deinem CODE hat er mir noch andere Fenster sichtbar gemacht, die nicht unbedingt zu IE gehörten.

Ich habe das jetzt so hinbekommen:

C

#include <Misc.au3>
#include <Array.au3>


Opt("TrayIconHide", 1) ;0=anzeigen, 1=tray icon verstecken


Global $Versteckt


If _Singleton("Skript", 1) = 0 Then Exit


HotKeySet("!{ESC}", "Beenden")
HotKeySet("!{F11}", "versteckeninet")


While 1
WEnd


Func versteckeninet()
;~  Internet Explorer verstecken


  $Versteckt = NOT $Versteckt
  $Fenster = WinList()


  IF $Versteckt = True Then
   For $i = 1 to $Fenster[0][0]
    $IEStatus = WinGetState($Fenster[$i][1])
    If $Fenster[$i][0] <>"" AND $IEStatus=39 Then
     $windowTitle = $Fenster[$i][0]
     If (StringInStr($windowTitle, "Windows Internet Explorer", True)) Then
      WinSetState($Fenster[$i][1], "", @SW_HIDE)
     EndIf
    EndIf
   Next
  Else
   For $i = 1 to $Fenster[0][0]
    $IEStatus = WinGetState($Fenster[$i][1])
    If $Fenster[$i][0] <>"" AND $IEStatus=37 Then
     $windowTitle = $Fenster[$i][0]
     If (StringInStr($windowTitle, "Windows Internet Explorer", True)) Then
      WinSetState($Fenster[$i][1], "", @SW_SHOW)
     EndIf
    EndIf
   Next
  EndIf
 While $Versteckt
  ExitLoop
    WEnd
EndFunc


Func Beenden()
 Exit 0
EndFunc   ;==>Beenden

Alles anzeigen

Muss noch schauen ob das auch immer funktionieren wird
Versteckt und zeigt die Fenster etwas langsam eins nach dem anderen aber es geht
Hab gedacht der könnte auch irgendwie alle Fenster auf einmal verstecken und zeigen

**chesstiger**

Du versuchst, deine Arbeitsumgebung von den Arbeitsumgebungen anderer Benutzer abzugrenzen. Mal ein ganz anderer Vorschlag... Auch wenn Windows kein Multisession-System ist, so ist es doch immerhin ein Multiuser-System. Das heißt konkret, dass verschiedene Arbeitsumgebungen simultan nebeneinander existieren können, auch wenn nicht gleichzeitig in mehreren Umgebungen gearbeitet werden kann.
Worauf ich hinaus will: Du hast meinetwegen zwei Accounts, einmal der normale Benutzer (CommonUser, CU) und dann den Arbeits-Nutzer (WorkUser, WU). Du öffnest deine ganzen Tabs und Programme als WU, dann klickst du auf "Benutzer wechseln" und loggst dich mit dem CU ein. Da kann dann deine Familie prinzipiell wüten, wie sie will. Wenn du wiederkommst, führst du als CU einfach wieder einen Benutzerwechsel durch und meldest dich als WU an. Dann sollte deine alte Arbeitsumgebung wieder vollkommen hergestellt werden.

Gruß