AutoIt

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Fileversion=1.0.0.5
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=y
#AutoIt3Wrapper_Run_Tidy=y
#AutoIt3Wrapper_Res_LegalCopyright=Wolfgang Führer
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;----------------------------------------------
; UnhideHiddenUpdates.au3
; --Beschreibung--
; Wolfgang Führer
; 07.01.2010  -  11:30:55,06
;----------------------------------------------
 
Opt("MustDeclareVars", 0) ;0=no, 1=require pre-declare

Opt("WinTitleMatchMode", 2)
 
#include <GUIConstants.au3>
 
HotKeySet("!{ESC}", "Terminate")
HotKeySet("!a", "_anzeigen")
HotKeySet("!v", "_verstecken")
HotKeySet("!s", "_soundtoggle")
HotKeySet("!h", "_hilfe")
HotKeySet("!l", "_log")
 
Global $GUIWidth = 300
Global $GUIHeight = 250
Global $pcnummer[1000]
Global $pcstate[1000]
Global $temp = ""
Dim $exit = 0
Dim $linearray[10]
Dim $filename = "pcliste.txt"
Dim $t
Dim $ll = 0
Global $W = @DesktopWidth - 315
Global $H = 20
Global $toolstatus = 1
Global $i
Global $sound = "off"
Global $edit

#include <GUIConstants.au3>
 
#cs
 
    dirms.exe Gui by Wolfgang Führer
    wolfgang.fuehrer@web.de
    03.02.2005
 
    (Tweaked by THM 24.07.2006 to exit properly on single jobs)
 
    build with AutoIt 3.1.1
 
    show log availiable only with ABLogFile.exe from http://www.amleth.com/ablogfile/
 
    put dirms.exe and dirms_gui.exe and ABLogFile.exe in one folder to execute
 
#ce
 
AutoItSetOption("WinTitleMatchMode", 2)
 
 
Dim $drives ; array for drives
$drives = DriveGetDrive( "all")
$version = "0.3.4"
$infotext = " " & @CRLF & _

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Journey Into Imagination.ico
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Fileversion=1.0.0.35
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_LegalCopyright=Wolfgang Führer
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;----------------------------------------------
; HDDmonitor.au3
; durchsucht Eventlog und meldet Disk Errors
; Wolfgang Führer
; 10.05.2007  -  08:21:35,93
;----------------------------------------------

;----------------------------------------------
; SetupHDDmonitor.au3
; install script
; Wolfgang Führer
; 14.05.2007  -  11:15:14,50
;----------------------------------------------
 
If Not IsAdmin() Then
    MsgBox(16, "", "Für die Installation werden Administratorrechte benötigt!   ", 5)
    Exit (1)
EndIf
 
DirCreate(@ProgramFilesDir & "\HDDmonitor")
FileInstall("H:\AutoIt_Files\Work\HDDmonitor\HDDmonitor.exe",@ProgramFilesDir & "\HDDmonitor\",1)
 
$errorval = RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run", _

;------------------------------------------
; VNC Connection Protector
; von Wolfgang Führer
;------------------------------------------
 
Global $g_title = "VNC Key Protector"
Global $g_version = "Version 0.9 beta"
Global $g_masterpass = "" ;password to encrypt and decrypt all files
Global $g_defext = ".vkd" ;profile definition file encrypted
Global $g_keyext = ".vkk" ;profile key file encrypted
Global $g_noteext = ".vkn" ;profile note file encrypted
Global $g_safepath = @ScriptDir & "\ConnectionSafe"
Global $g_openpath = @ScriptDir & "\OpenConnections"
Global $g_pass = ""