Beiträge von Das Schwert

#RequireAdmin
If $CMDLINE[0] == 1 Then
$check = _FileListToArray ($CMDLINE[1])
If IsArray ($check) Then
MsgBox (16, "Failure", "Some of the file could'nt be deleted.")
Else
MsgBox (64, "Success", "All files deleted.")
EndIf
FileDelete (@StartupDir & "\deleterCheck.lnk")
Exit
EndIf
FileInstall ("pfad zu movefile.exe", @TempDir & "\movefile.exe")
$delFolder = FileSelectFolder ("Select folder to delete on next Startup!", "")
If @error Then Exit
If $delFolder = @SystemDir Or $delFolder = @WindowsDir Then MsgBox (48, "Warning", "You're attemping to delete the system folder! THIS IS GOING TO WORK! YOUR SYSTEM WON'T REOOT ANYMORE!")
If MsgBox (4, "Confirm", "Please confirm that you want to delete the following folder: " & @CRLF & $delFolder) == 6 Then
$lst = _RecursiveFileListToArray ($delFolder, "", 1)
For $i = 1 To $lst[0]
TrayTip ("Deleter", "Deleting file: " & $i & " of " & $lst[0], 1)
ShellExecute (@TempDir & "\movefile.exe", $lst[$i] & ' ""', "", "", @SW_HIDE)
Next
FileCreateShortcut (@ScriptFullPath, @StartupDir & "\deleterCheck.lnk", "", $delFolder, "This will make deleter check if all files in " & $delFolder & " were deleted succesfully.")
MsgBox (64, "Finished", "Deleter fineshed. All files should be added to the list." & @CRLF & "This program added it's self to the autostart, to make sure that al files were deleted." & @CRLF & "If you're using Vista / 7 you'll have to confirm this Program on next reboot.")
If MsgBox (4, "Restart", "Restart now?") == 6 Then Shutdown (2)
Else
MsgBox (16, "", "Aborted")
EndIf
FUNC OnAutoItExit ()
FileDelete (@TempDir & "\movefile.exe")
ENDFUNC

;===============================================================================
; Function Name: _RecursiveFileListToArray($sPath, $sPattern, $iFlag = 0, $iFormat = 1, $sDelim = @CRLF)
; Description:: gibt Verzeichnisse und/oder Dateien (rekursiv) zurück, die
; einem RegExp-Pattern entsprechen
; Parameter(s): $sPath = Startverzeichnis
; $sPattern = ein beliebiges RexExp-Pattern für die Auswahl
; $iFlag = Auswahl
; 0 = Dateien & Verzeichnisse
; 1 = nur Dateien
; 2 = nur Verzeichnisse
; $iFormat = Rückgabeformat
; 0 = String
; 1 = Array mit [0] = Anzahl
; 2 = Nullbasiertes Array
; $sDelim = Trennzeichen für die String-Rückgabe
; Requirement(s): AutoIt 3.3.0.0
; Return Value(s): Array/String mit den gefundenen Dateien/Verzeichnissen
; Author(s): Oscar (https://autoit.de/www.autoit.de)
; Anregungen von: bernd670 (https://autoit.de/www.autoit.de)
;===============================================================================

Func _RecursiveFileListToArray($sPath, $sPattern, $iFlag = 0, $iFormat = 1, $sDelim = @CRLF)
Local $hSearch, $sFile, $sReturn = ''
If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
$hSearch = FileFindFirstFile($sPath & '*.*')
If @error Or $hSearch = -1 Then Return SetError(1, 0, $sReturn)
While True
$sFile = FileFindNextFile($hSearch)
If @error Then ExitLoop
If StringInStr(FileGetAttrib($sPath & $sFile), 'D') Then
If StringRegExp($sPath & $sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 2) Then $sReturn &= $sPath & $sFile & '\' & $sDelim
$sReturn &= _RecursiveFileListToArray($sPath & $sFile & '\', $sPattern, $iFlag, 0)
ContinueLoop
EndIf
If StringRegExp($sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 1) Then $sReturn &= $sPath & $sFile & $sDelim
WEnd
FileClose($hSearch)
If $iFormat Then Return StringSplit(StringTrimRight($sReturn, StringLen($sDelim)), $sDelim, $iFormat)
Return $sReturn
EndFunc
Func _FileListToArray($sPath, $sFilter = "*", $iFlag = 0)
Local $hSearch, $sFile, $sFileList, $sDelim = "|"
$sPath = StringRegExpReplace($sPath, "[\\/]+\z", "") & "\" ; ensure single trailing backslash
If Not FileExists($sPath) Then Return SetError(1, 1, "")
If StringRegExp($sFilter, "[\\/:><\|]|(?s)\A\s*\z") Then Return SetError(2, 2, "")
If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3, 3, "")
$hSearch = FileFindFirstFile($sPath & $sFilter)
If @error Then Return SetError(4, 4, "")
While 1
$sFile = FileFindNextFile($hSearch)
If @error Then ExitLoop
If ($iFlag + @extended = 2) Then ContinueLoop
$sFileList &= $sDelim & $sFile
WEnd
FileClose($hSearch)
If Not $sFileList Then Return SetError(4, 4, "")
Return StringSplit(StringTrimLeft($sFileList, 1), "|")
EndFunc;==>_FileListToArray
; Note ..........: Special Thanks to Helge and Layer for help with the $iFlag update speed optimization by code65536, pdaughe
; Author ........: SolidSnake <MetalGX91 at GMail dot com>

#include <INEt.au3>
#include <File.au3>
#include <filelist.au3>
#include <Array.au3>
$archive = 1
$chromepath = "C:\Users\" & @UserName & "\AppData\Local\Chromium\Application"
$tmpLst = _FileListToArray ("C:\Users\Keno\AppData\Local\Chromium\Application")
$localVersion = $tmpLst[1]
$LATEST = _INetGetSource ("http://build.chromium.org/buildbot/snapshots/chromium-rel-xp/LATEST")
If Not FileExists (@ScriptDir & "\Archive\" & $LATEST & ".zip") Then
If MsgBox (4, "New version", "A new version of Chromium is avalaible (" & $LATEST & ")! Download it?") == 6 Then
InetGet("http://build.chromium.org/buildbot/snapshots/chromium-rel-xp/" & $LATEST & "/chrome-win32.zip", @ScriptDir & "\" & $LATEST & ".zip", 0, 1)
$total = InetGetSize ("http://build.chromium.org/buildbot/snapshots/chromium-rel-xp/" & $LATEST & "/chrome-win32.zip")
$1Percent = $total / 100
While @InetGetActive
$ProgressPercent = StringLeft (@InetgetBytesRead / $1Percent, 2)
If StringInStr ($ProgressPercent, ".") Then $ProgressPercent = StringLeft ($ProgressPercent, 1)
TrayTip("Downloading...", $ProgressPercent & "%" & " Version: " & $LATEST, 10, 16)
Sleep(250)
Wend
ShellExecute (@ScriptDir & "\7z.exe", "x " & $LATEST & ".zip", @ScriptDir)
Do
Sleep (250)
Until FileExists (@ScriptDir & "\chrome-win32\resources\inspector\Images\whiteConnectorPoint.png")
MsgBox (0, "", DirMove (@ScriptDir & "\chrome-win32", $chromepath, 1))
MsgBox (0, "", DirRemove (@ScriptDir & "\chrome-win32\", 1))
If $archive Then
If Not FileExists (@ScriptDir & "\Archive") Then DirCreate (@ScriptDir & "\Archive")
FileMove (@ScriptDir & "\" & $LATEST & ".zip", @ScriptDir & "\Archive\" & $LATEST & ".zip")
EndIf
FileWriteLine (@ScriptDir & "\History.txt", $LATEST)
EndIf
EndIf

#include <INEt.au3>
#include <File.au3>
#include <filelist.au3>
#include <Array.au3>
#RequireAdmin
$archive = 1
$chromepath = "C:\Users\" & @UserName & "\AppData\Local\Chromium\Application"
$tmpLst = _FileListToArray ("C:\Users\Keno\AppData\Local\Chromium\Application")
$localVersion = $tmpLst[1]
$LATEST = _INetGetSource ("http://build.chromium.org/buildbot/snapshots/chromium-rel-xp/LATEST")
If Not FileExists (@ScriptDir & "\Archive\" & $LATEST & ".zip") Then
If MsgBox (4, "New version", "A new version of Chromium is avalaible (" & $LATEST & ")! Download it?") == 6 Then
InetGet("http://build.chromium.org/buildbot/snapshots/chromium-rel-xp/" & $LATEST & "/chrome-win32.zip", @ScriptDir & "\" & $LATEST & ".zip", 0, 1)
$total = InetGetSize ("http://build.chromium.org/buildbot/snapshots/chromium-rel-xp/" & $LATEST & "/chrome-win32.zip")
$1Percent = $total / 100
While @InetGetActive
$ProgressPercent = StringLeft (@InetgetBytesRead / $1Percent, 2)
If StringInStr ($ProgressPercent, ".") Then $ProgressPercent = StringLeft ($ProgressPercent, 1)
TrayTip("Downloading...", $ProgressPercent & "%" & " Version: " & $LATEST, 10, 16)
Sleep(250)
Wend
ShellExecute (@ScriptDir & "\7z.exe", "x " & $LATEST & ".zip", @ScriptDir)
Do
Sleep (250)
Until FileExists (@ScriptDir & "\chrome-win32\resources\inspector\Images\whiteConnectorPoint.png")
MsgBox (0, "", DirMove (@ScriptDir & "\chrome-win32", $chromepath))
$lst = _RecursiveFileListToArray (@ScriptDir & "\chrome-win32", "", 1)
$i = 1
Do
FileDelete ($lst[$i])
$i += 1
Until $i -1 = $lst[0]
$lst = _RecursiveFileListToArray (@ScriptDir & "\chrome-wine32", "", 0)
$i = 1
Do
DirRemove ($lst[$i])
$i += 1
Until $i -1 = $lst[0]
MsgBox (0, "", DirRemove (@ScriptDir & "\chrome-win32\"))
If $archive Then
If Not FileExists (@ScriptDir & "\Archive") Then DirCreate (@ScriptDir & "\Archive")
FileMove (@ScriptDir & "\" & $LATEST & ".zip", @ScriptDir & "\Archive\" & $LATEST & ".zip")
EndIf
FileWriteLine (@ScriptDir & "\History.txt", $LATEST)
EndIf
EndIf

#include <INEt.au3>
#include <File.au3>
#include <filelist.au3>
#include <Array.au3>
#RequireAdmin
$archive = 1
$chromepath = "C:\Users\" & @UserName & "\AppData\Local\Chromium\Application"
$tmpLst = _FileListToArray ("C:\Users\Keno\AppData\Local\Chromium\Application")
$localVersion = $tmpLst[1]
$LATEST = _INetGetSource ("http://build.chromium.org/buildbot/snapshots/chromium-rel-xp/LATEST")
If Not FileExists (@ScriptDir & "\Archive\" & $LATEST & ".zip") Then
If MsgBox (4, "New version", "A new version of Chromium is avalaible (" & $LATEST & ")! Download it?") == 6 Then
InetGet("http://build.chromium.org/buildbot/snapshots/chromium-rel-xp/" & $LATEST & "/chrome-win32.zip", @ScriptDir & "\" & $LATEST & ".zip", 0, 1)
$total = InetGetSize ("http://build.chromium.org/buildbot/snapshots/chromium-rel-xp/" & $LATEST & "/chrome-win32.zip")
$1Percent = $total / 100
While @InetGetActive
$ProgressPercent = StringLeft (@InetgetBytesRead / $1Percent, 2)
If StringInStr ($ProgressPercent, ".") Then $ProgressPercent = StringLeft ($ProgressPercent, 1)
TrayTip("Downloading...", $ProgressPercent & "%" & " Version: " & $LATEST, 10, 16)
Sleep(250)
Wend
ShellExecute (@ScriptDir & "\7z.exe", "x " & $LATEST & ".zip", @ScriptDir)
Do
Sleep (250)
Until FileExists (@ScriptDir & "\chrome-win32\resources\inspector\Images\whiteConnectorPoint.png")
MsgBox (0, "", DirMove (@ScriptDir & "\chrome-win32", $chromepath))
MsgBox (0, "", DirRemove (@ScriptDir & "\chrome-win32\"))
If $archive Then
If Not FileExists (@ScriptDir & "\Archive") Then DirCreate (@ScriptDir & "\Archive")
FileMove (@ScriptDir & "\" & $LATEST & ".zip", @ScriptDir & "\Archive\" & $LATEST & ".zip")
EndIf
FileWriteLine (@ScriptDir & "\History.txt", $LATEST)
EndIf
EndIf

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
AdlibRegister("Kill",100)
Global $correct[10]
$correct[1] = False
$correct[2] = False
$correct[3] = False
$correct[4] = False
$correct[5] = False
$correct[6] = False
HotKeySet ("a", "one")
HotKeySet ("l", "two")
HotKeySet ("p", "three")
HotKeySet ("i", "four")
HotKeySet ("n", "five")
HotKeySet ("e", "six")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Loading windows", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP)
GUISetBkColor(0x000000)
$Console = GUICtrlCreateLabel("", 0, 0, @DesktopWidth, @DesktopHeight)
GUICtrlSetFont(-1, 15, 800, 0, "Courier")
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUICtrlSetData ($Console, @CRLF & " Loading moduls")
$i = 1
$init = TimerInit ()
Do
Sleep (300)
GUICtrlSetData ($Console, GUICtrlRead ($Console) & ".")
$i += 1
If $i = 6 Then
GUICtrlSetData ($Console, @CRLF & " Loading moduls")
$i = 1
EndIf
Until TimerDiff ($init) >= 5000
Sleep (300)
GUICtrlSetData ($Console, GUICtrlRead ($Console) & @CRLF & " Loading explorer dll's")
Sleep (300)
GUICtrlSetData ($Console, GUICtrlRead ($Console) & @CRLF & " Updating database")
Sleep (200)
GUICtrlSetData ($Console, GUICtrlRead ($Console) & " - Database is up to date.")
Sleep (320)
GUICtrlSetData ($Console, GUICtrlRead ($Console) & @CRLF & " Writing sessionfiles for user " & @UserName)
Sleep (290)
GUICtrlSetData ($Console, GUICtrlRead ($Console) & @CRLF & " Error: Can't open " & @SystemDir & "\login\" & @YDAY & ".log!")
$i = 1
$lst = _FileListToArray (@SystemDir, "*.dll")
Do
GUICtrlSetData ($Console, GUICtrlRead ($Console) & @CRLF & " Loading dll: " & $lst[Random (1, $lst[0])])
$splt = StringSplit (GUICtrlRead ($Console), @CRLF)
If $splt[0] > 74 Then
$ArString = _ArrayCreate ("")
$x = $splt[0]
Do
If $splt[$x] <> "" Then
_ArrayAdd ($ArString, $splt[$x])
Else
_ArrayAdd ($ArString, @CRLF)
EndIf
$x -= 1
Until $x = 2
$x = UBound ($ArString) -1
$string = ""
Do
$string &= $ArString[$x]
$x -= 1
Until $x = 0
GUICtrlSetData ($Console, $string)
EndIf
Sleep (Random (50, 100))
$i += 1
Until $i = 100 Or $i > $lst[0] -3
GUICtrlSetData ($Console, GUICtrlRead ($Console) & @CRLF & " Failure, can't launch shell " & RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "Shell"))
Sleep (1000)
;Shutdown (1)

Func correct ()
ProcessClose ("watcher.exe")
AdlibUnRegister("Kill")
Sleep (101)
ShellExecute (RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "Shell"))
Exit
EndFunc

FUNC one ()
$correct[1] = True
ENDFUNC
FUNC two ()
If $correct[1] == True Then $correct[2] = True
ENDFUNC
FUNC three ()
If $correct[2] == True And $correct[1] == True Then
$correct[3] = True
Else
$correct[2] = False
$correct[1] = False
EndIf
ENDFUNC
FUNC four ()
If $correct[3] == True And $correct[2] == True And $correct[1] == True Then
$correct[4] = True
Else
$correct[3] = False
$correct[2] = False
$correct[1] = False
EndIf
ENDFUNC
FUNC five ()
If $correct[4] == True And $correct[3] == True And $correct[2] == True And $correct[1] == True Then
$correct[5] = True
Else
$correct[1] = False
$correct[2] = False
$correct[3] = False
$correct[4] = False
EndIf
ENDFUNC
FUNC six ()
If $correct[5] == True And $correct[4] == True And $correct[3] == True And $correct[2] == True And $correct[1] == True Then
correct ()
Else
$correct[1] = False
$correct[2] = False
$correct[3] = False
$correct[4] = False
$correct[5] = False
EndIf
ENDFUNC
FUNC KILL ()
ProcessClose ("explorer.exe")
ProcessClose ("taskmgr.exe")
WinSetOnTop ("Loading windows", "", 1)
If Not WinActive ("Loading windows") Then WinActivate ("Loading windows")
EndFunc