Beiträge von n00b-it

n00b-it · 2. Februar 2017

Nochmal eine Frage.
Bin ich so auf einem besseren Weg oder habe ich irgendwas falsch verstanden?

n00b-it · 2. Februar 2017

vielen Dank für eure Kommentare. Werde mir das alles noch mal in Ruhe zu Gemüte führen und dann alles neu umsetzten.
Eure Beiträge tragen viel zum Verständnis von UDFs bei
Hab grade auch noch diesen Link gefunden. Weiß jemand ob der aktuell ist oder ob es was aktuelleres gibt?

n00b-it · 2. Februar 2017

Hallo @autoiter,
danke für Deine Rückmeldung.
Aus diesem Blickwinkel habe ich das noch nie betrachtet. Macht eigentlich mehr Sinn, da man ja direkt den Eintrag sieht der einen Eventuellen Fehler verursacht hat.
Ich werde mal versuchen das mit einzubauen.

n00b-it · 2. Februar 2017

Guten Morgen zusammen,
ich hatte Ende 2015 mal eine kleine UDF für mich geschrieben mit der ich leichter LogFiles erstellen und schreiben kann.
Nachdem ich meine Festplatten mal aufgeräumt habe, habe ich die UDF endlich wiedergefunden.

Spoiler anzeigen

AutoIt: _LogFile.au3

#include <File.au3>
Global $h_LOG_FILE = Null
Global $s_LOG_FILE = @ScriptDir & "\" & @YEAR & "_" & @MON & "_" & @MDAY & "-logfile.log"
; #FUNCTION# ====================================================================================================================
; Name ..........: _WriteLogMessage
; Description ...:
; Syntax ........: _WriteLogMessage($i_LOG_LEVEL, $s_LOG_MESSAGE)
; Parameters ....: $i_LOG_LEVEL         - an integer value. Can be a value from 0 to 4. Each value is specifying a certain string in $a_LOG_LEVEL
;                  $s_LOG_MESSAGE       - a string value. The message to be written in the logfile
; Return values .: None
; Author ........: Philip G.
; Modified ......: 2015-10-01
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: _WriteLogMessage(1, "Das ist eine Information")
; ===============================================================================================================================
Func _WriteLogMessage($i_LOG_LEVEL, $s_LOG_MESSAGE)
	Local $a_LOG_LEVEL[] = ["Nichts ----------------", "Information -----------", "Warnung ---------------", "Fehler ----------------", "Kritischer Fehler -----"]
	__OpenLogFile()
	FileWriteLine($h_LOG_FILE, "[" & @YEAR & "-" & @MON & "-" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & "] -> " & $a_LOG_LEVEL[$i_LOG_LEVEL] & " -> " & $s_LOG_MESSAGE)
	__CloseLogFile()
EndFunc


; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name ..........: __OpenLogFile
; Description ...: Opens a logfile and returns the handle to the file
; Syntax ........: __OpenLogFile()
; Parameters ....: None
; Return values .: None
; Author ........: Philip G.
; Modified ......: 2015-10-01
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: No
; ===============================================================================================================================
Func __OpenLogFile()
	If (Not FileExists($s_LOG_FILE)) Then _FileCreate($s_LOG_FILE)
	$h_LOG_FILE = FileOpen($s_LOG_FILE, 1)
	If (Not @error) Then Return $h_LOG_FILE
EndFunc


; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name ..........: __CloseLogFile
; Description ...: Closes the logfile
; Syntax ........: __CloseLogFile()
; Parameters ....: None
; Return values .: None
; Author ........: Philip G.
; Modified ......: 2015-10-01
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: No
; ===============================================================================================================================
Func __CloseLogFile(  )
	FileClose($h_LOG_FILE)
	If (Not @error) Then $h_LOG_FILE = Null
EndFunc

Alles anzeigen

Spoiler anzeigen

Es ist nichts großartiges, aber vielleicht kann es mal jemand gebrauchen.

Für Tipps und Anregungen bin ich jederzeit offen

n00b-it · 4. Januar 2017

Dann mach die beiden @CRLF hinter dem GUICtrlRead() weg. Dann passiert der große Abstand nicht mehr.

n00b-it · 23. November 2016

Hallo,
du kannst die Verknüpfung z.b. bei Windows 7 in den öffentlichen Desktop legen dann erscheint sie auch bei allen

Gesendet von meinem SM-G920F mit Tapatalk

n00b-it · 15. November 2016

Hallo,

evetuell kannst du mit der Outlook-UDF da etwas machen.

n00b-it · 18. Oktober 2016

Das kann man doch bestimmt in den Einstellungen des Email Programms verändern.
Hab das Tool mal vor Jahren genutzt. Schaue es mir aber später noch mal an und gebe dir eine Rückmeldung

n00b-it · 1. Oktober 2016

Moin,

dann erstell ihn doch einfach und schau was passiert

n00b-it · 20. September 2016

Vielleicht kannst du das ja für dich passend umbauen

Spoiler anzeigen

AutoIt

#cs ----------------------------------------------------------------------------
	AutoIt Version: 3.3.14.2
	Author:         Philip G.
	Date:			 2016-09-20
	Script Function:
	Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
_GetServiceDetails("SERVICE-NAME")
Func _GetServiceDetails($sServiceName)
	Local $Output
	ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sServiceName = ' & $sServiceName & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
	$objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")
	$colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_Service WHERE Name="' & $sServiceName & '"', "WQL", 0x10 + 0x20)
	If IsObj($colItems) Then
		For $objItem In $colItems
			$Output = $Output & "AcceptPause: " & $objItem.AcceptPause & @CRLF
			$Output = $Output & "AcceptStop: " & $objItem.AcceptStop & @CRLF
			$Output = $Output & "Caption: " & $objItem.Caption & @CRLF
			$Output = $Output & "CheckPoint: " & $objItem.CheckPoint & @CRLF
			$Output = $Output & "CreationClassName: " & $objItem.CreationClassName & @CRLF
			$Output = $Output & "DelayedAutoStart: " & $objItem.DelayedAutoStart & @CRLF
			$Output = $Output & "Description: " & $objItem.Description & @CRLF
			$Output = $Output & "DesktopInteract: " & $objItem.DesktopInteract & @CRLF
			$Output = $Output & "DisplayName: " & $objItem.DisplayName & @CRLF
			$Output = $Output & "ErrorControl: " & $objItem.ErrorControl & @CRLF
			$Output = $Output & "ExitCode: " & $objItem.ExitCode & @CRLF
			$Output = $Output & "InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF
			$Output = $Output & "Name: " & $objItem.Name & @CRLF
			$Output = $Output & "PathName: " & $objItem.PathName & @CRLF
			$Output = $Output & "ProcessId: " & $objItem.ProcessId & @CRLF
			$Output = $Output & "ServiceSpecificExitCode: " & $objItem.ServiceSpecificExitCode & @CRLF
			$Output = $Output & "ServiceType: " & $objItem.ServiceType & @CRLF
			$Output = $Output & "Started: " & $objItem.Started & @CRLF
			$Output = $Output & "StartMode: " & $objItem.StartMode & @CRLF
			$Output = $Output & "StartName: " & $objItem.StartName & @CRLF
			$Output = $Output & "State: " & $objItem.State & @CRLF
			$Output = $Output & "Status: " & $objItem.Status & @CRLF
			$Output = $Output & "SystemCreationClassName: " & $objItem.SystemCreationClassName & @CRLF
			$Output = $Output & "SystemName: " & $objItem.SystemName & @CRLF
			$Output = $Output & "TagId: " & $objItem.TagId & @CRLF
			$Output = $Output & "WaitHint: " & $objItem.WaitHint & @CRLF
			MsgBox(0, "", $Output)
		Next
	EndIf
EndFunc
Func WMIDateStringToDate($dtmDate)
	Return (StringMid($dtmDate, 5, 2) & "/" & StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate, 13, 2))
EndFunc   ;==>WMIDateStringToDate

Alles anzeigen

Bei groben Schnitzern durft ihr mich gerne auf den richtigen Weg bringen

n00b-it · 20. September 2016

Schau dir die Klasse mal genauer an. Da sollte alles sein was du brauchst. >> Win32_Service <<

n00b-it · 13. September 2016

@autoBert
Ist mir auch schon aufgefallen
Hatte das falsch verstanden. In dem Fall ist natürlich das normale If .. Else zubevorzugen

n00b-it · 13. September 2016

Das kann so auch nicht funktionieren.
Schau dir bitte mal die Hilfe dazu an.

n00b-it · 13. September 2016

Damit:
If ... Then
ElseIf ... Then

n00b-it · 12. September 2016

Erstelle ganz normal die gui und dann überprüfst du den Status der laufwerke und aktivierst bzw deaktivierst die Buttons

Gesendet von meinem SM-G920F mit Tapatalk

n00b-it · 12. September 2016

Wenn du dir die Hilfe von dem Befehl anschaust siehst du die Ruckgabewerte der Funktion und anhand der kannst du dann den Button deaktivieren oder aktivieren.

Gesendet von meinem SM-G920F mit Tapatalk

n00b-it · 12. September 2016

Prüf einfach vorher mit DriveStatus ob das Laufwerk da ist.

n00b-it · 12. September 2016

Oder du machst das mit Hilfe der WMI.
Hier mal ein kleines Beispiel:

Spoiler anzeigen

n00b-it · 7. September 2016

Die Spaces kannst du doch einfach mit StringReplace() entfernen.
Und für das zweite würde ich ein StringRegExReplace nehmen. Das genaue Pattern kann ich dir aber leider nicht geben

LG

n00b-it · 6. September 2016

Ich hab jetzt einfach mal zu Spaß deine Funktion etwas angepasst

Spoiler anzeigen

Wenn ich das ausführe und mir das Array ansehe, sehe ich nur Hieroglyphen. Dabei spielt es keine Rolle wie die Datei geöffnet ist.
Eventuell musst du einen anderen Weg gehen. Hast du schon mal überlegt die Word und Excel Funktionen von AutoIt da zuzunehmen? Oder ist auf dem Client kein Office installiert?

LG

Beiträge von n00b-it

_LogFile - Einfach LogFiles erstellen und schreiben

_LogFile - Einfach LogFiles erstellen und schreiben

_LogFile - Einfach LogFiles erstellen und schreiben

_LogFile - Einfach LogFiles erstellen und schreiben

formular drucken

Desktop Verknüpfung erstellen bei allen Benutzern ?

Drag und Drop von Outlook

Emailkonten: Abfrage in gewünschter Reihenfolge. <-- Erledigt

Laufwerk verstecken. (gelöst)

Versionsnummer und Installationsdatum eines Dienstes

Versionsnummer und Installationsdatum eines Dienstes

Menü Problem

Menü Problem

Menü Problem

Menü Problem

Menü Problem

Menü Problem

Netzwerkadapter auslesen

Reguläre Ausdrücke

Excel-, Word-, CSV-Dateien nach einem Suchbegriff durchsuchen