AutoHotkey Community

showHidden=0

#H::
   WinGetActiveTitle, WinTitle
   WinGetClass, WinClass, %WinTitle%
   If WinClass <> CabinetWClass
      If WinClass <> ExploreWClass
         Return
   Send, !T
   Sleep, 1
   Send, o
   WinWaitActive, Folder Options,,5
   if ErrorLevel = 1
      Return
   Send, ^{Tab} 
   Sleep, 20
   If showHidden  = 0
   {
      showHidden = 1
      Click, 78,355
      Sleep, 200
      Send, {Tab 4}{Enter}
      Sleep, 500
      Send, {Tab 4}{Enter}
   }
   Else
   {
      showHidden = 0
      Click, 78,337
      Sleep, 200
      Send, {Tab 4}{Enter}
      Sleep, 500
      Send, {Tab 4}{Enter}
   }
Return

#noenv
setbatchlines -1
setmousedelay -1
setwindelay -1
coordmode mouse, screen

ID := WinExist("A")
WinGetClass,Class, ahk_id %ID%
WClasses := "CabinetWClass ExploreWClass"
IfNotInString, WClasses, %Class%
   Exitapp

Mousegetpos mx,my
WinGetPos wx,wy,ww,wh, ahk_id %id%

RootKey = HKEY_CURRENT_USER
SubKey  = Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced

RegRead, HiddenFiles_Status, % RootKey, % SubKey, Hidden

if HiddenFiles_Status = 2
  RegWrite, REG_DWORD, % RootKey, % SubKey, Hidden, 1
else
  RegWrite, REG_DWORD, % RootKey, % SubKey, Hidden, 2
     
mousemove ww+wx-10, wy+110
Send {rbutton}{e}
mousemove mx,my

#h::

RegRead, ValorHidden, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, Hidden

if ValorHidden = 2
   RegWrite, REG_DWORD, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, Hidden, 1
Else
   RegWrite, REG_DWORD, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, Hidden, 2

send {F5}

Return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;          --- TOGGLE "SUPERHIDDEN" FILES ---
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
F11::GoSub,CheckActiveWindow

CheckActiveWindow:
  ID := WinExist("A")
  WinGetClass,Class, ahk_id %ID%
  WClasses := "CabinetWClass ExploreWClass"
  IfInString, WClasses, %Class%
    GoSub, Toggle_HiddenFiles_Display
Return

Toggle_HiddenFiles_Display:
  RootKey = HKEY_CURRENT_USER
  SubKey  = Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced

  RegRead, HiddenFiles_Status, % RootKey, % SubKey, Hidden

  if HiddenFiles_Status = 2
      RegWrite, REG_DWORD, % RootKey, % SubKey, Hidden, 1
  else
      RegWrite, REG_DWORD, % RootKey, % SubKey, Hidden, 2
  PostMessage, 0x111, 41504,,, ahk_id %ID%
Return

; HiddenFiles.ahk by r0lZ, June 5, 2011
#NoEnv
#SingleInstance ignore
#UseHook off
#Persistent
Menu, tray, noicon

ControlGet, hwWindow, HWND,, SysListView321, ahk_class Progman
if hwWindow {
   ; Win XP
   desktopclassname := "Progman"
   explorerlistview := "SysListView321"
} else {
   ; Win 7
   desktopclassname := "WorkerW"
   explorerlistview := "DirectUIHWND3"
}
GroupAdd, ExplorerWindowsGroup, ahk_class CabinetWClass

firstarg =
if 0 >= 1
{
   firstarg = %1%
   if (firstarg == "/h")
      ShowHiddenFiles(0)
   else if (firstarg == "/s")
      ShowHiddenFiles(1)
   else if (firstarg == "/sh")
      ShowHiddenFiles(2)
   else if (firstarg == "/swap")
      Gosub, ToggleHiddenFiles
   else
      GoSub, Usage
   ExitApp
}

menu, tray, NoStandard
menu, tray, Add, Help, Usage
menu, tray, Add, Exit, CleanExit
menu, tray, Add
menu, tray, Add, Hide Hidden Files, HideHiddenFiles
menu, tray, Add, Show Hidden Files, ShowHiddenFiles
menu, tray, Add, Show Hidden and System Files, ShowSystemFiles
menu, tray, Add
menu, tray, Add, Swap Show/Hide Hidden Files, ToggleHiddenFiles
menu, tray, Default, Swap Show/Hide Hidden Files
menu, tray, Icon

; monitors buttons clicks on tray icon
OnMessage(0x404, "OnWM_BUTTONUPMessage")   ; 0x404 = AHK_NOTIFYICON

Return

ToggleHiddenFiles:
   RegRead, ValorHidden,     HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, Hidden
   if (ValorHidden == 2)
      ShowHiddenFiles(1)
   else
      ShowHiddenFiles(0)
Return
HideHiddenFiles:
   ShowHiddenFiles(0)
Return
ShowHiddenFiles:
   ShowHiddenFiles(1)
Return
ShowSystemFiles:
   ShowHiddenFiles(2)
Return
ShowHiddenFiles(mode) {
   if (mode == 0) {
      RegWrite, REG_DWORD, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, Hidden, 2
   } else if (mode == 1) {
      RegWrite, REG_DWORD, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, Hidden, 1
      RegWrite, REG_DWORD, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, ShowSuperHidden, 0
   } else {
      RegWrite, REG_DWORD, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, Hidden, 1
      RegWrite, REG_DWORD, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, ShowSuperHidden, 1
   }
   sleep, 10
   RefreshExplorerWindows()
   ; refresh all Explorer windows
   ControlSend, DirectUIHWND3, {F5}, ahk_group ExplorerWindowsGroup
   return
}

RefreshExplorerWindows()
{
   global desktopclassname, explorerlistview

   ; refresh Desktop
   ControlSend, ahk_parent, {F5}, ahk_class %desktopclassname%

   ; refresh all Explorer windows
   ControlSend, %explorerlistview%, {F5}, ahk_group ExplorerWindowsGroup

   return
}

OnWM_BUTTONUPMessage(wParam, lParam)
{
   Critical
   ; Refresh tray menu if Right button pressed
   if (lParam == 0x204) {
      RegRead, ValorHidden,     HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, Hidden
      RegRead, ShowSuperHidden, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, ShowSuperHidden

      menu, tray, UnCheck, Hide Hidden Files
      menu, tray, UnCheck, Show Hidden Files
      menu, tray, UnCheck, Show Hidden and System Files
      if (ValorHidden == 2) {
         menu, tray, Check, Hide Hidden Files
      } else {
         if (ShowSuperHidden) {
            menu, tray, Check, Show Hidden and System Files
         } else {
            menu, tray, Check, Show Hidden Files
         }
      }
   }
   Critical, off
}

Usage:
   MsgBox, 64, HiddenFiles by r0lZ - Freeware, HiddenFiles is an easy way to show or hide the hidden files in all Explorer windows and on the Desktop.`n`nCommand line usage:`nHiddenFiles /h  -> Hide hidden files`nHiddenFiles /s  -> Show hidden files`nHiddenFiles /sh  -> Show hidden and system files`nHiddenFiles /swap  -> Swap Show/Hide hidden files`nHiddenFiles /?  -> Show this help dialogue`nHiddenFiles  -> Without argument, stays resident in the tray
Return

CleanExit:
ExitApp

;
; AutoHotkey Version: 1.0.48.05
; Language:           English
; Platform:           Win9x/NT
; Author:             rbrtryn
;
; This script will show or hide hidden files or extensions
;
; The folder options dialog seems to change slightly with each version of the
; Windows OS, so the variables HidePos and ExtensionPos will have to be changed
; to match your setup.
;
; ************************************************
; *  Hotkeys Defined:                            *
; *  ^#h     Show or hide the hidden files       *
; *  ^#e     Show or hide file extensions        *
; ************************************************

#NoEnv
SendMode Input

SleepTime = 200 ; Time to wait before clicking OK
HidePos = 9     ; XP : 9, Win7 : 7
ExtensionPos=11 ; XP : 11, Win7 : 10

; ********** End of AutoExecute Section **********

^#h::
   ; ***** Get the current status from the Registry
   ; ***** 1 = Files are shown
   ; ***** 2 = Files are hidden
   RootKey = HKEY_CURRENT_USER
   SubKey  = Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced
   RegRead, HiddenFiles_Status, % RootKey,% SubKey, Hidden

   Gosub FolderOptionsDialog

   Send, {Down %HidePos%}    ; Select the 'Hide' Button

   If HiddenFiles_Status = 2 ; If files are Hidden ...
      Send, {Down}           ;   Select the 'Show' Button

   Send, {Space}             ; Click the Button

   Sleep %SleepTime%
   ControlClick, OK
Return

^#e::
   Gosub FolderOptionsDialog
   Send {Down %ExtensionPos%}{Space}  ; Check or UnCheck the box
   Sleep %SleepTime%
   ControlClick, OK
Return

FolderOptionsDialog:
   ; ***** Bring up the folder options dialog
   Run, c:\windows\system32\Rundll32.exe c:\windows\system32\shell32.dll`,Options_RunDLL 0,,
   WinWait, Folder Options
   WinActivate

   ControlFocus, SysTabControl321    ; Tabs
   Send, {Right}                     ; View Tab
   Sleep 100                         ; Wait for window repaint
   ControlFocus, SysTreeView321      ; Options tree
Return