VBS Aktualisiern

Computer: Software & Programmierung JavaScript & Script-Sprachen
#1

Ich habe ein Visual Basic Script geschrieben:

************************************************
Set sh = CreateObject(„WScript.Shell“)
theKey = „HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden“
setHidden = sh.RegRead(theKey)
If setHidden = 1 Then
setHidden = 0
Dim WshShell
Set WshShell = CreateObject(„WScript.Shell“)
WshShell.popup " Unsichtbar!", 1, " Weg!"
Else
setHidden = 1
Set WshShell = CreateObject(„WScript.Shell“)
WshShell.popup " Sichtbar!", 1, " Da!"
End If
sh.RegWrite theKey,setHidden,„REG_DWORD“
Set sh = Nothing
****************************************************

Man muss danach immer rechte maustaste aktualisiern, wie kann ich das als script?

Ich kann KEIN Vbs ich habe es mehr zusammenkopiert!
Also bitte wenn nur die verbesserte version angeben!

#2

Hallo Sepel,

ich bin gerne bereit zu helfen, allerdings ist mir noch nicht klar, was das Skript bewirken soll.
Was heißt „rechte Maustaste aktualisieren“?
Und was genau funktioniert nicht?

Gruß

Arlecks

#3

Frage

Das Script soll bewirken, das sich die einstellung „versteckte objekte einblenden/ausblenden“ Funktioniert auch, nur man muss jedes mal nach dem ausführen Rechte maustasten auf den desktop → aktualisieren (F5) damit die änderungen wirksam werden.
Ich hätte das gerne noch als funktion in dem script drin.

Mfg, Sepel

#4

Hallo Sepel,

folgendes sollte funktionieren:

Set WshShell = CreateObject("WScript.Shell")
theKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"
setHidden = WshShell.RegRead(theKey)
If setHidden = 1 Then
setHidden = 0
Else
setHidden = 1
End If
WshShell.RegWrite theKey,setHidden,"REG\_DWORD"
WshShell.SendKeys "{F5}"
If setHidden = 1 Then
WshShell.popup " Sichtbar!", 1, " Da!" 
Else
WshShell.popup " Unsichtbar!", 1, " Weg!"
End If
Set WshShell = Nothing

Allerdings besteht die Gefahr, dass kurz nach dem Ausführen ein anderes Fenster aufgeht und der „Aktualisieren“-Knopf falsch ankommt. Sollte nicht sehr weh tun, kann aber.

Mfg

Arlecks

#5

Hallo!

Kann leider auch kein VBS und kann daher nicht helfen.

Mfg
Earp

PS: Auch bei einer Expertenanfrage ist eine Begrüßung und Verabschiedung nett.