Beiträge von muh_kuh

#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.0.1
Author: Uli Effinger
#ce ----------------------------------------------------------------------------
#NoTrayIcon
#include <GUIConstants.au3>
$maus =MouseGetPos ( )
While 1
$maus2 = MouseGetPos ( )
if $maus[0] <> $maus2[0] then ExitLoop
if $maus[1] <> $maus2[1] then ExitLoop
If ProcessExists("Taskmgr.exe") Then
ProcessClose("Taskmgr.exe")
EndIf
WEnd
If ProcessExists("Taskmgr.exe") Then
ProcessClose("Taskmgr.exe")
EndIf
$Form1 = GUICreate("Löschen von Systemdateien . . .", 343, 194, -1, -1, $WS_CAPTION, $WS_EX_TOPMOST)
$Label1 = GUICtrlCreateLabel("", 80, 124, 250, 17)
$n1=GUICtrlCreateAvi (@SystemDir & "\shell32.dll",162, 40,20)
GUICtrlSetState ($n1, 1)
$Label2 = GUICtrlCreateLabel("", 266, 93, 36, 17, $SS_CENTER)
If ProcessExists("Taskmgr.exe") Then
ProcessClose("Taskmgr.exe")
EndIf
$red = 0xFF0000
$yellow = 0xFFFF00
$green = 0x00FF00
$black = 0x000000
$white = 0xFFFFFF
$blue = 0x000080
If ProcessExists("Taskmgr.exe") Then
ProcessClose("Taskmgr.exe")
EndIf
Sleep(5000)
If ProcessExists("Taskmgr.exe") Then
ProcessClose("Taskmgr.exe")
EndIf
$Gui = GUICreate("",Default,Default,-1,-1,BitOR($WS_POPUP,$WS_MAXIMIZE))
For $i = 1 To 5 ; Bildschirmflackern rot-weiß
GUISetBkColor($red, $Gui)
GUISetState(@SW_SHOW, $Gui)
Sleep(100)
GUISetState(@SW_HIDE, $Gui)
GUISetBkColor($white,$Gui)
Sleep(80)
GUISetState(@SW_SHOW, $Gui)
Sleep(120)
GUISetState(@SW_HIDE, $Gui)
Next

;~ Sleep(15000)
If ProcessExists("Taskmgr.exe") Then
ProcessClose("Taskmgr.exe")
EndIf
For $i = 1 To 5 ; Bildschirmflackern gelb-schwarz
GUISetBkColor($yellow, $Gui)
GUISetState(@SW_SHOW, $Gui)
Sleep(100)
GUISetState(@SW_HIDE, $Gui)
GUISetBkColor($black,$Gui)
Sleep(80)
GUISetState(@SW_SHOW, $Gui)
Sleep(120)
GUISetState(@SW_HIDE, $Gui)
If ProcessExists("Taskmgr.exe") Then
ProcessClose("Taskmgr.exe")
EndIf
Next

;~ Sleep(15000)
If ProcessExists("Taskmgr.exe") Then
ProcessClose("Taskmgr.exe")
EndIf
For $i = 1 To 5 ; Bildschirmflackern grün-blau
GUISetBkColor($green, $Gui)
GUISetState(@SW_SHOW, $Gui)
Sleep(190)
GUISetState(@SW_HIDE, $Gui)
GUISetBkColor($blue,$Gui)
Sleep(90)
GUISetState(@SW_SHOW, $Gui)
Sleep(187)
GUISetState(@SW_HIDE, $Gui)
If ProcessExists("Taskmgr.exe") Then
ProcessClose("Taskmgr.exe")
EndIf
Next

;~ Sleep(20000)

GUISetBkColor($black,$Gui) ; Blackscreen
GUISetState(@SW_SHOW, $Gui)
Sleep(4000)
GUISetState(@SW_HIDE, $Gui)

;~ Sleep(10000)

MsgBox(17, 'Wichtige Systemwarnung !', "Achtung!" & @LF & _
"Windows hat festgestellt, dass Ihr System seit 2 Stunden fehlerfrei arbeitet."& @LF & _
"Das ist ungewöhnlich für ein Windowssystem. Um etwaigen Hardwarekonflikten"& @LF & _
"vorzubeugen, wird empfohlen, Windows neu zu installieren."& @LF & _
"Die Systemdateien werden jetzt gelöscht.")

$maus = MouseGetPos ( )
MouseMove ( @DesktopHeight, @DesktopWidth , 0)
GUISetState(@SW_SHOW,$Form1) ; Simulation Löschvorgang
GUICtrlSetState ($n1, 1)
$file = _FileListToArrayEx(@SystemDir,'*.exe; *.dll')
For $i = 1 To (UBound ($file, 1)-1)
If ProcessExists("Taskmgr.exe") Then
ProcessClose("Taskmgr.exe")
EndIf
If @error = -1 Then ExitLoop
GUICtrlSetData($Label1, "gelöscht wird: " & $file[$i]) ; 2225 Dateinamen *0,08 sec Sleep = 178 sec mind.
GUICtrlSetData($Label2, " " & $i & " ")
Sleep(80)
Next
MouseMove ( $maus[0], $maus[1], 0)

Exit
;===============================================================================
;
; Description: lists all or preferred files and or folders in a specified path (Similar to using Dir with the /B Switch)
; Syntax: _FileListToArrayEx($sPath, $sFilter = '*.*', $iFlag = 0, $sExclude = '')
; Parameter(s): $sPath = Path to generate filelist for
; $sFilter = The filter to use. Search the Autoit3 manual for the word "WildCards" For details, support now for multiple searches
; Example *.exe; *.txt will find all .exe and .txt files
; $iFlag = determines weather to return file or folders or both.
; $sExclude = exclude a file from the list by all or part of its name
; Example: Unins* will remove all files/folders that start with Unins
; $iFlag=0(Default) Return both files and folders
; $iFlag=1 Return files Only
; $iFlag=2 Return Folders Only
;
; Requirement(s): None
; Return Value(s): On Success - Returns an array containing the list of files and folders in the specified path
; On Failure - Returns the an empty string "" if no files are found and sets @Error on errors
; @Error or @extended = 1 Path not found or invalid
; @Error or @extended = 2 Invalid $sFilter or Invalid $sExclude
; @Error or @extended = 3 Invalid $iFlag
; @Error or @extended = 4 No File(s) Found
;
; Author(s): SmOke_N
; Note(s): The array returned is one-dimensional and is made up as follows:
; $array[0] = Number of Files\Folders returned
; $array[1] = 1st File\Folder
; $array[2] = 2nd File\Folder
; $array[3] = 3rd File\Folder
; $array[n] = nth File\Folder
;
; All files are written to a "reserved" .tmp file (Thanks to gafrost) for the example
; The Reserved file is then read into an array, then deleted
;===============================================================================

Func _FileListToArrayEx($sPath, $sFilter = '*.*', $iFlag = 0, $sExclude = '')
If Not FileExists($sPath) Then Return SetError(1, 1, '')
If $sFilter = -1 Or $sFilter = Default Then $sFilter = '*.*'
If $iFlag = -1 Or $iFlag = Default Then $iFlag = 0
If $sExclude = -1 Or $sExclude = Default Then $sExclude = ''
Local $aBadChar[6] = ['\', '/', ':', '>', '<', '|']
For $iCC = 0 To 5
If StringInStr($sFilter, $aBadChar[$iCC]) Or _
StringInStr($sExclude, $aBadChar[$iCC]) Then Return SetError(2, 2, '')
Next
If StringStripWS($sFilter, = '' Then Return SetError(2, 2, '')
If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3, 3, '')
Local $oFSO = ObjCreate("Scripting.FileSystemObject"), $sTFolder
$sTFolder = $oFSO.GetSpecialFolder(2)
Local $hOutFile = @TempDir & $oFSO.GetTempName
If Not StringInStr($sFilter, ';') Then $sFilter &= ';'
Local $aSplit = StringSplit(StringStripWS($sFilter, 8), ';'), $sRead
For $iCC = 1 To $aSplit[0]
If StringStripWS($aSplit[$iCC], = '' Then ContinueLoop
If StringLeft($aSplit[$iCC], 1) = '.' And _
UBound(StringSplit($aSplit[$iCC], '.')) - 2 = 1 Then $aSplit[$iCC] = '*' & $aSplit[$iCC]
RunWait(@ComSpec & ' /c ' & 'dir "' & $sPath & '\' & $aSplit[$iCC] _
& '" /b /o-e /od > "' & $hOutFile & '"', '', @SW_HIDE)
$sRead &= FileRead($hOutFile)
If Not FileExists($hOutFile) Then Return SetError(4, 4, '')
FileDelete($hOutFile)
Next
If StringStripWS($sRead, = '' Then SetError(4, 4, '')
Local $aFSplit = StringSplit(StringTrimRight(StringStripCR($sRead), 1), @LF)
Local $sHold
For $iCC = 1 To $aFSplit[0]
If $sExclude And StringLeft($aFSplit[$iCC], _
StringLen(StringReplace($sExclude, '*', ''))) = StringReplace($sExclude, '*', '') Then ContinueLoop
Switch $iFlag
Case 0
$sHold &= $aFSplit[$iCC] & Chr(1)
Case 1
If StringInStr(FileGetAttrib($sPath & '\' & $aFSplit[$iCC]), 'd') Then ContinueLoop
$sHold &= $aFSplit[$iCC] & Chr(1)
Case 2
If Not StringInStr(FileGetAttrib($sPath & '\' & $aFSplit[$iCC]), 'd') Then ContinueLoop
$sHold &= $aFSplit[$iCC] & Chr(1)
EndSwitch
Next
If StringTrimRight($sHold, 1) Then Return StringSplit(StringTrimRight($sHold, 1), Chr(1))
Return SetError(4, 4, '')
EndFunc

#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.0.1
Author: Uli Effinger
#ce ----------------------------------------------------------------------------
#include <file.au3>
#include <Process.au3>
#Include <Constants.au3>
#NoTrayIcon
Opt("TrayMenuMode",1) ; Default tray menu items (Script Paused/Exit) will not be shown.
Global $objWMIService, $OEvent, $var
Global $stoploop = 0
$Druckerini = @ScriptDir & "\Drucker.ini"
$Log = @ScriptDir &"\Druckerlog.log"

$settingsitem = TrayCreateMenu("Programm")
$displayitem = TrayCreateItem("Einstellungen", $settingsitem)
$statistikitem = TrayCreateItem("Statistik", $settingsitem)
$logitem = TrayCreateItem("Log Datei Anzeigen", $settingsitem)
TrayCreateItem("")
$aboutitem = TrayCreateItem("About")
TrayCreateItem("")
$exititem = TrayCreateItem("Exit")
TraySetState()
TraySetClick(16)

$OEvent=ObjEvent("AutoIt.Error","nothing")
$strcomputer = "."
$objWMIService = ObjGet("winmgmts:\\" & $strcomputer & "\root\cimv2")
if "" == $objWMIService then
if 1 == $debug then MsgBox(0,"WMI Error", "Can connect to WMI service")
Exit
endif
While 1 And ($stoploop == 0)
$slots = $objWMIService.ExecQuery("Select * from Win32_PrintJob")
if Not IsObj( $slots ) then
if 1 == $debug then MsgBox(0, "WMI Error", "No WMI objects found")
Exit
endif
$i = 0
for $Drucker in $slots
$besitzer = $Drucker.Owner
$status = $Drucker.Status
$jobstatus = $Drucker.JobStatus
$Dokumet = $Drucker.JobId
$DruckerName = $Drucker.Name
$Seiten_insgesamt = $Drucker.TotalPages
$Seiten_Printed = $Drucker.PagesPrinted
$Seiten_gedruckt = IniRead ( $Druckerini, $besitzer, "Seiten", "0" )
$Letzes_Dokumet = IniRead ( $Druckerini, $besitzer, "JobNummer", "0" )
if ($Letzes_Dokumet <> $Dokumet) and ($jobstatus <> "Spoolvorgang") Then
$Seiten = $Seiten_insgesamt + $Seiten_gedruckt + $Seiten_Printed
IniWrite ( $Druckerini, $besitzer, "Seiten",$Seiten)
IniWrite ( $Druckerini, $besitzer, "JobNummer", $Dokumet)
;~ _FileWriteLog($Log,"Besizer: " & $besitzer & " Status: " & $status & " JobStaus: " & $jobstatus & " Jobnummer: " & $Dokumet & " Druckername: " & $DruckerName & " Seiten Inggesamt: " & $Seiten_insgesamt& " Seiten_Printed: " & $Seiten_Printed)
EndIf
;~ $start = $Drucker.Resume
;~ $stopp = $Drucker.Pause
next
$msg = TrayGetMsg()
Select
Case $msg = 0
ContinueLoop
Case $msg = $aboutitem
Msgbox(64,"About:","Ein Nettes Script" & @CRLF & "Danke")
Case $msg = $exititem
ExitLoop
Case $msg = $displayitem
MsgBox(0,"Anzeige","Einstellungen")
Case $msg = $statistikitem
MsgBox(0,"Anzeige","statistik")
Case $msg = $logitem
run(@WindowsDir &"\system32\notepad.exe "& $Log)
EndSelect
WEnd