Aufgrund dieses Threads habe ich das Skript nochmals überarbeitet und hier rein gestellt.
Das Skript prüft in der Registry wie der aktuelle Zustand der Versteckten Dateien ist. Danach ruft das Skript die Ordneroptionen auf und ändert den jew. Wert.
Spoiler anzeigen
Opt("WinWaitDelay", 0)
;
;===============================================================================
;Start Program
;===============================================================================
_main()
;
;===============================================================================
;Functions
;===============================================================================
Func _main()
_changeFileVisible()
If @error Then Exit
Exit
EndFunc ;==>_main
;
;
;===============================================================================
; Function Name: _changeFileVisible
; Description: Prüft in der Registry wie der aktuelle Zustand der Versteckten Dateien ist.
; Danach ruft das Skript die Ordneroptionen auf und ändert den jew. Wert.
;
;
; Syntax: _changeFileVisible()
; Return Value(s): On Success -Return 1
;On Failure - Return 0
;
; Author(s): Patric Pendelin
;===============================================================================
Func _changeFileVisible()
Local $i_State
Local $i_TabControl
;
BlockInput(1)
$i_State = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden")
If $i_State = 1 Then
$i_Down = 16
ElseIf $i_State = 2 Then
$i_Down = 15
EndIf
Run("RunDll32.exe shell32.dll,Options_RunDLL 0")
WinWait("Ordneroptionen", "")
WinSetTrans("Ordneroptionen", "", 0)
$h_Win = WinGetHandle("Ordneroptionen", "")
;
While $i_TabControl <> 2
$i_TabControl = ControlCommand($h_Win, "", "SysTabControl321", "CurrentTab", "")
Sleep(100)
If $i_TabControl == 1 Then
;~ Sleep(100)
ControlCommand($h_Win, "", "SysTabControl321", "TabRight", "")
ElseIf $i_TabControl == 2 Then
ElseIf $i_TabControl == 3 Then
ControlCommand($h_Win, "", "SysTabControl321", "TabLeft", "")
ElseIf $i_TabControl == 4 Then
ControlCommand($h_Win, "", "SysTabControl321", "TabLeft", "")
ControlCommand($h_Win, "", "SysTabControl321", "TabLeft", "")
EndIf
WEnd
$i_CST = ControlSend($h_Win, "", "", "{TAB}")
While $i_CST <> 1
MsgBox(0, "", "blah1")
WEnd
$i_CST = ""
$i_CST = ControlSend($h_Win, "", "", "{DOWN " & $i_Down & "}{SPACE}")
While $i_CST <> 1
WEnd
$i_CST = ""
$i_CST = ControlSend($h_Win, "", "", "!b")
While $i_CST <> 1
WEnd
$i_CST = ""
$i_CST = ControlSend($h_Win, "", "", "{TAB}")
While $i_CST <> 1
WEnd
$i_CST = ""
$i_CST = ControlSend($h_Win, "", "", "{TAB}")
While $i_CST <> 1
WEnd
$i_CST = ""
$i_CST = ControlSend($h_Win, "", "", "{TAB}{ENTER}")
While $i_CST <> 1
WEnd
$i_CST = ""
BlockInput(0)
Return 1
EndFunc ;==>_changeFileVisible
;
Func OnAutoItStart()
If @OSVersion <> "WIN_XP" And @OSVersion <> "WIN_VISTA" Then
MsgBox(48, "Hidden Files Toggle", 'Das Programm ist nur unter "Windows XP" geprüft!')
Exit
ElseIf @OSVersion = "WIN_VISTA" Then
MsgBox(48, "Hidden Files Toggle", 'Du benutzt das Betriebssystem "Windows Vista". ' & @CR & 'Das Programm ist nur unter "Windows XP" geprüft!')
Exit
EndIf
EndFunc ;==>OnAutoItStart
Mir wäre es lieb, wenn einer das Skript mal auf Windows Vista testen könnte.
Patric