Beiträge von n00b-it

ah ok, dachte damit soll noch mehr gemacht werden.
Sobald ich zuhause bin werde ich mal was testen.
Melde mich dann noch mal

Bevor wir jetzt hier noch weiter suchen, was genau hast du denn dann vor?
Schritt 1: Du suchst einen bestimmtem Begriff
Schritt 2: ?
...
...
Ziel: ???

Ich würde einfach um zu testen mal hinter dein Local $sString = GUICtrlRead($idFile) ein ConsoleWrite($sString & @CRLF) machen und dann auch noch mal hinter Local $bString = StringToBinary($sString) um zu sehen ob da bei der Kovertierung eventuell was falsch läuft.

LG

@autoBert
Erstmal danke für die bearbeiteten Funktionen
In der Tat, du hast recht. Die Funktion WMIDateStringToDate() wurde mir in dem Tool angezeigt. Ich habe das dann einfach so übernommen.

Werde es aber mal überarbeiten damit man das Format frei wählen kann.

Bekommst du denn eine Fehlermeldung?
Ich hab die neuste AutoIt Version eingesetzt.

Das Script liest die Startzeit von Windows aus.

Hallo,
Schau dir mal die String Funktionen in der Hilfe an

LG

Gesendet von meinem HTC One_M8 mit Tapatalk

Zeig doch mal dein ganzes Script oder erstelle ein lauffähiges Beispiel!

Gesendet von meinem SM-G920F mit Tapatalk

https://www.autoitscript.com/wiki/Interrupt…unning_function

Schau dir die Beispiele mal an, vielleicht ist da was passendes bei.
Oder sag mal genau was du vorhast, eventuell gibt es eine andere Möglichkeit

Arbeite doch mit einer Globalen Variable, die du in jeder Funktion prüfst.
Wenn $irgendwas = 1 Mach weiter, wenn $Irgendwas = 0 Gehe wieder aus der Funktion

LG

Hab mal die Platten durchsucht. Ist es zufällig das was du möchtest?

MsgBox(262144, 'Debug line ~' & @ScriptLineNumber, 'Selection:' & @CRLF & '_GetLastStartTime()' & @CRLF & @CRLF & 'Return:' & @CRLF & WMIDateStringToDate(_GetLastStartTime())) ;### Debug MSGBOX


Func _GetLastStartTime()
	$objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")
	$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", 0x10 + 0x20)
	If IsObj($colItems) Then
		For $objItem In $colItems
			Return $objItem.LastBootUpTime
		Next
	EndIf
EndFunc   ;==>_GetLastStartTime


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

Ich glaub ich hab irgendwo auf der Platte ein Script dafür. Suche das morgen mal und gebe dann Rückmeldung

Gesendet von meinem SM-G920F mit Tapatalk

Da ich vor ein paar Tagen bzw. Wochen ziemliche Probleme mit der hauseigenen Synchronisierung meiner Lesezeichen in Google Chrome hatte, hab ich mir ein kurzes und simples Script erstellt.

Was das Script erledigt:

Das Script kopiert die Datei "Bookmarks" aus dem Ordner "%USERPROFILE%\AppData\Local\Google\Chrome\User Data\Default\" an einen in dem Script angegebenen Ort und benennt die Datei auch direkt um in "JAHR-MONAT-TAG-bookmarks"

Das Script:

#include <FileConstants.au3>
#include <MsgBoxConstants.au3>


_CopyChromeBookmarks()


Func _CopyChromeBookmarks()


	; Pfad wo das Backup der Datei gespeichert werden soll
	Local $sBackupPath = "F:\Eigene Dokumente\ChromeBackup\"

	; Pfad zur Datei in der sich die Lesezeichen befinden
	Local $sFilePath = @LocalAppDataDir & "\Google\Chrome\User Data\Default\Bookmarks"


	; Prüfen ob Datei gefunden werden kann
	If Not FileExists($sFilePath) Then _Exit(True, @error, "Konnte die Datei nicht finden!", @ScriptLineNumber)


	; Neuen Dateiname definieren
	Local $sNewFileName = @YEAR & "-" & @MON & "-" & @MDAY & "-bookmarks"


	; Datei kopieren
	If Not FileCopy($sFilePath, $sBackupPath & $sNewFileName, $FC_OVERWRITE) Then _Exit(True, @error, "Das kopieren der Datei ist Fehlgeschlafen!", @ScriptLineNumber)
EndFunc


Func _Exit($bError, $iError, $sError, $iScriptLine, $iExtended = 0)
	If $bError = True Then
		MsgBox($MB_ICONERROR, "Error", "Es ist ein Fehler aufgetreten!" & @CRLF & "Fehlercode: " & $iError & @CRLF & "Beschreibung: " & $sError & @CRLF & "Zeilennummer: " & $iScriptLine)
	EndIf
	Exit
EndFunc

Eine weitere Funktion die ich noch einbauen möchte, ist die automatische Konvertierung in eine .html Datei. Aber das wird noch etwas dauern


Über Verbesserungsvorschläge und Anregungen zur Optimierung bin ich sehr dankbar

Versuche es doch mit den String-Funktionen

Gesendet von meinem SM-G920F mit Tapatalk

Edit:
Schnell mal das Gerät gewechselt.
So sollte es funktionieren

#Region    ;************ Includes ************
#Include <String.au3>
#Include <Array.au3>
#EndRegion ;************ Includes ************


$hFile = FileOpen("test.xml")
$aFileContent = FileReadToArray($hFile)


For $i = 0 To UBound($aFileContent) - 1
	$aStartDate = _StringBetween($aFileContent[$i], '<startDate>', '</startDate>')
	_ArrayDisplay($aStartDate)
Next


FileClose($hFile)

Dein Script läuft so nicht mal ohne Fehlermeldungen!
Vielleicht solltest du dir erst mal die Grundlagen anschauen.

Vielleicht so?

Func _FixMF()
;Do something special
EndFunc

Ein paar mehr Aussagen zu der Funktion wäre gut.
Was soll sie machen?

Sollte eigentlich kein Problem darstellen.
So sieht meine hosts-Datei aus (Win10 Pro x64)

# Copyright (c) 1993-2009 Microsoft Corp.
#
# This is a sample HOSTS file used by Microsoft TCP/IP for Windows.
#
# This file contains the mappings of IP addresses to host names. Each
# entry should be kept on an individual line. The IP address should
# be placed in the first column followed by the corresponding host name.
# The IP address and the host name should be separated by at least one
# space.
#
# Additionally, comments (such as these) may be inserted on individual
# lines or following the machine name denoted by a '#' symbol.
#
# For example:
#
#      102.54.94.97     rhino.acme.com          # source server
#       38.25.63.10     x.acme.com              # x client host


# localhost name resolution is handled within DNS itself.
#	127.0.0.1       localhost
#	::1             localhost

Ich denke das diese Datei bei einem "normalen" System eh so gut wie leer bleibt. Falls ich falsch liegt, bitte ich um Korrektur

Dann einfach stop mit delete ersetzen. Sollte eigentlich funktionieren

Gesendet von meinem SM-G920F mit Tapatalk

Spricht etwas dagegen es so zu machen?

#RequireAdmin
$iPID = ShellExecute(@ComSpec, "/c sc.exe stop AdobeARMservice")
If @error Then
	MsgBox(0, "ERROR!", "Fehler beim stoppen von AdobeARMservice" & @CRLF & "@error=" & @error)
EndIf

Ich hatte bis jetzt leider noch keine Zeit das zu testen.

Ich hab das SpeedPort W724V Typ B. Werde dein Script gleich mal testen und dann Rückmeldung geben ob es funktioniert oder nicht.