Beiträge von BugFix

@AutoMit
DANKE, dass du so wohlwollend auf meine Bitte eingegangen bist!

Ich habe somit den Kanal gestrichen voll und bin nicht gewillt auch nur noch einen Jota Zeit auf dich zu verschwenden. Egal was man dir an Hinweisen auf den Weg gibt, du nimmst es nicht ernst.

Sollte ich in Zukunft keine Besserung in deinem Forenauftritt erkennen, werde ich mich mit dem Admin über deine Zukunft hier beraten.
Ich bin nicht gewillt, das Forum zu einer von dir initiierten Neverending-Diskussionsrunde verkommen zu lassen!

Und unterlasse BITTE jedweden Kommentar hierzu!

AutoMit: Sie das bitte auch als Antwort für deine Konversation an.

Ich denke, es ist notwendig hier nochmal einige fundamentale Dinge, die eigentlich selbstverständlich sein sollten, zu klären.

WAS ist ein Forum?
In einem Forum finden sich Interessierte zu einem bestimmten Thema (in unserem Fall AutoIt) zusammen um sich auszutauschen.

WIE ist die Struktur in einem Forum?
Eindeutig auf gar keinen Fall demokratisch, sondern hierarchisch. Irgendwann hat sich jemand entschlossen ein Forum zu gründen, hat Geld in die Hand genommen für Hardware und Hosting, viel Zeit investiert um die Forumssoftware den Bedürfnissen anzupassen. Das ist der Admin - der Godfather des Forums, die unumstößliche Autorität. Was er sagt, ist Gesetz.
Da ein Admin nicht ständig online sein kann, er aber auf Einhaltung der (von ihm zum Gesetz erklärten) Regeln achten muss, sind im Laufe der Zeit Moderatoren hinzugekommen. Diese haben eine gewisse Eigenständigkeit, werden aber nichts tun, was der Grundidee des Forums zuwider läuft.
Dann gibt es noch die PowerUser. Forenmitglieder die nicht nur durch eine Vielzahl von Antworten in Erscheinung treten, sondern in erster Linie durch sehr qualifizierte Hilfe.
Eines haben alle genannten gemeinsam: Sie opfern ihre Freizeit um anderen zu helfen.

Es ist ein Irrtum zu glauben, dass ein Anrecht auf Hilfe besteht. Es gibt überhaupt nichts, auf das man in einem Forum Anspruch hätte. Ausgenommen natürlich die Nettiquette - aber man kann durch ungeschicktes Auftreten auch den ruhigsten Charakter mal zum Entgleisen bringen (nehme mich da nicht aus).

Es gibt im Forum extra einen gepinnten Beitrag: Wie poste ich richtig.
Und mehrfach haben User in deinen Threads aufgelistet, was ein Hilfeersuchen beinhalten muss, damit man darauf eingeht.

Du siehst in jedem, der dir statt einer fertigen Lösung einen Link oder einen andersartigen Hinweis gibt, als "Gegner", der dir Böses will? Du solltest dringend deine Einstellung ändern. Und es ist nicht verwunderlich, dass vereinzelt die Antworten etwas pampig werden, wenn du nicht auf Lösungshinweise eingehst.

Fazit:
Dir will mit Sicherheit niemand was "Böses". Wie auch, wir kennen dich doch gar nicht als Mensch, du bist einfach ein User. Aber wenn du dich immer auf den Schlips getreten fühlst, ist das auch nicht förderlich.
Ich möchte dich auch bitten, keinesfalls sofort auf diesen Post zu antworten, sondern erst mal eine Nacht drüber zu schlafen und ernsthaft nachzudenken.

So - Es reicht!
@AutoMit: Warum gibt es ein deutsches Forum? - Weil unsere Muttersprache deutsch ist. Zum Kommunizieren ist die Verwendung selbiger ein ungeheuerer Vorteil.
Das ändert aber nichts daran, dass Programmiersprachen englisch sind und deshalb das Programmieren selbst auch über englisch abgewickelt wird.
Alles andere wurde schon mindestens einmal von jedem Threadteilnehmer dargelegt.

Eigentlich wollte ich diesen Thread schon nach deinem Startpost schließen. Deine Frage gehört zu 90% in ein Firefox-Forum. Das Aufrufen eines browsergebundenen Befehls per AutoIt ist nun nicht ernsthaft ein Grund diese Frage im AutoIt-Forum zu stellen.

[CLOSED]

Hast du irgendwo eine Übersicht für die Events?
Folgendes habe ich durch Ausprobieren gefunden, aber nichts auf MSDN.

Event: 0x00000001   RENAME_FILE
Event: 0x00000002   NEW_FILE
Event: 0x00000004   DELETE_FILE
Event: 0x00000008   NEW_FOLDER
Event: 0x00000010   DELETE_FOLDER
Event: 0x00000200   FREIGABE_FOLDER
Event: 0x00001000   Nach Freigabe (keine Pfadangabe)
Event: 0x00002000   CHANGE_FILE_OR_FOLDER
Event: 0x00008000   FOLDER_ICON_CHG (keine Pfadangabe)
Event: 0x00040000   FILE_ACCESS (keine Pfadangabe)
Event: 0x00020000   RENAME_FOLDER

Zitat von Oscar

aber muss es unbedingt WMI sein?

Nö, muss es nicht.
Erschien mir nur recht optimal, weil ich keinerlei extra Zugriffsrechte benötige.
Werde mal die WinAPI-Version testen.

Danke.

Schreibe die Datei mit 4 (oder mehr) Skripten gleichzeitig. Also jeweils ein Viertel der erforderlichen Zeichen in eine Datei und am Ende fügst du die Dateien zusammen.

Um die Dateien eines Ordner auf Veränderungen zu überwachen (Neu, Löschen, Verändern) habe ich unter Verwendung von WMI ein Skript erstellt. Es funktioniert auch tadellos.
Einziger Makel: Um es Beenden zu können benötige ich vorher zwingend ein Ereignis. Ursache ist die Methode .NextEvent(). Wird diese aufgerufen verweilt der Programmablauf dort bis zum Eintreten eines Events, welches im festgelegten Intervall dort abgefragt wird.
Hat jemand von euch eine Idee, wie ich aus der Falle heraus komme?
Aus dem Skript heraus kann ich keinerlei Aktion ausführen, da ich in der Methode bin.

HotKeySet('^!c', '_Close') ;  Ctrl+Alt+C


$iInterval = 2 ;  polling in sec
$sDrive    = "C:"
$sFolder   = "\\TEST\\"
$sComputer = "."


$objWMIService = ObjGet( _
	"winmgmts:{impersonationLevel=impersonate}!\\" & _
	$sComputer & "\root\cimv2" _
)


$sQuery = "Select * From __InstanceOperationEvent" & _
	" Within " & $iInterval & _
	" Where Targetinstance Isa 'CIM_DataFile'" & _
	" And TargetInstance.Drive='" & $sDrive & "'" & _
	" And TargetInstance.Path='" & $sFolder & "'"


$colEvents = $objWMIService.ExecNotificationQuery($sQuery)


MsgBox(0, 'Monitoring File Events', 'Close with "Ctrl+Alt+C".')


While True
ConsoleWrite('before .NextEvent()' & @CRLF)   ; Hier bleibt das Skript stehen und wartet auf NextEvent.
                                              ; Mein Hotkey zum Beenden kommt dadurch erst nach einem Event an.
                                              ; Somit brauche ich ein vorhergehendes Event um das Skript beenden zu können. :(
    $objEvent = $colEvents.NextEvent()
ConsoleWrite('after .NextEvent()' & @CRLF)
    $objTargetInst = $objEvent.TargetInstance
    Switch $objEvent.Path_.Class
		Case "__InstanceCreationEvent"
			ConsoleWrite(_Time() & "Created: " & $objTargetInst.Name & @CRLF)
        Case "__InstanceDeletionEvent"
			ConsoleWrite(_Time() & "Deleted: " & $objTargetInst.Name & @CRLF)
        Case "__InstanceModificationEvent"
			ConsoleWrite(_Time() & "Modified: " & $objTargetInst.Name & @CRLF)
	EndSwitch
WEnd




Func _Time()
	Return StringFormat('[%s:%s:%s.%s] ', @HOUR, @MIN, @SEC, @MSEC)
EndFunc


Func _Close()
	Exit
EndFunc

Mal noch als Tipp für mehr Übersicht beim Arbeiten mit SQLite ein Auszug aus einem Projekt, in dem ich SQLite eingesetzt habe. So kann man sich immer sofort einlesen:

Func _DB_Init()
	; Erstellen Tabellen:
	$sSQL = _
		"CREATE TABLE IF NOT EXISTS [kunden] (" & _
			"[kdnr]    INTEGER PRIMARY KEY AUTOINCREMENT," & _
			"[titel]   TEXT," & _
			"[firma]   TEXT," & _
			"[name]    TEXT NOT NULL," & _
			"[vorname] TEXT," & _
			"[strasse] TEXT," & _
			"[nr]      TEXT," & _
			"[plz]     TEXT," & _
			"[ort]     TEXT," & _
			"[telefon] TEXT," & _
			"[gebdat]  TEXT," & _
			"[re_strasse] TEXT," & _
			"[re_nr]      TEXT," & _
			"[re_plz]     TEXT," & _
			"[re_ort]     TEXT);" & _
		"CREATE TABLE IF NOT EXISTS [rechnungen] (" & _
			"[renr]         INTEGER PRIMARY KEY AUTOINCREMENT," & _
			"[kdnr]         INTEGER NOT NULL," & _
			"[datum]        TEXT NOT NULL," & _
			"[datum_an]     TEXT," & _
			"[datum_ab]     TEXT," & _
			"[zahlweise]    TEXT," & _   ; 'bar' oder 'überw.'
			"[netto_voll]   REAL," & _
			"[netto_erm]    REAL," & _
			"[ustsatz_voll] REAL," & _
			"[ustsatz_erm]  REAL);" & _
		"CREATE TABLE IF NOT EXISTS [positionen] (" & _
			"[posnr]       INTEGER PRIMARY KEY AUTOINCREMENT," & _
			"[renr]        INTEGER NOT NULL," & _
			"[anzahl]      INTEGER NOT NULL," & _
			"[artnr]       INTEGER NOT NULL," & _
			"[arttext]     TEXT NOT NULL," & _
			"[einzelnetto] REAL NOT NULL," & _
			"[usttyp]      TEXT NOT NULL);" & _   ; 'erm' oder 'voll'
		"CREATE TABLE IF NOT EXISTS [stammdaten] (" & _
			'[voll] REAL,' & _  ; == Steuersatz voll
			'[erm]  REAL,' & _  ; == Steuersatz ermäßigt
			'[firma] TEXT,' & _
			'[inhaber] TEXT,' & _
			'[strasse] TEXT,' & _
			'[nr] TEXT,' & _
			'[plz] TEXT,' & _
			'[ort] TEXT,' & _
			'[tel] TEXT,' & _
			'[fax] TEXT,' & _
			'[email] TEXT,' & _
			'[bank] TEXT,' & _
			'[bic] TEXT,' & _
			'[iban] TEXT,' & _
			'[ustid] TEXT);' & _
		"CREATE TABLE IF NOT EXISTS [artikel] (" & _
			'[artnr]   INTEGER NOT NULL,' & _
			'[arttext] TEXT NOT NULL,' & _
			'[netto]   REAL NOT NULL,' & _
			'[usttyp]  TEXT NOT NULL);'
	_SQLite_Exec($hSQL, $sSQL)
	_SQLErr()
	; == Tabellen KU & RE: Index auf Startwert setzen, wenn bei Stammdaten Startwert gesetzt und Tabelle noch nicht aktualisiert
	_SetSequences()


	; == USt-Sätze Ersteintrag
	If _CountRows('stammdaten') = 0 Then
		_SQLite_Exec($hSQL, "INSERT INTO stammdaten VALUES (19,7,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL);")
		_SQLErr()
	EndIf
EndFunc


Func _SetSequences()
	If _Table_GetSequence('kunden') = -1 Then
		If $iKDNR_Start > 0 Then
			_SQLite_Exec($hSQL, "INSERT INTO sqlite_sequence VALUES ('kunden', " & $iKDNR_Start-1 & ");")
			_SQLErr()
		EndIf
	EndIf
	If _Table_GetSequence('rechnungen') = -1 Then
		If $iRENR_Start > 0 Then
			_SQLite_Exec($hSQL, "INSERT INTO sqlite_sequence VALUES ('rechnungen', " & $iRENR_Start-1 & ");")
			_SQLErr()
		EndIf
	EndIf
EndFunc


Func _Table_GetSequence($_sTable)
	If Not _TableExists($_sTable) Then Return SetError(1,0,-2)
	Local $iRet = -1
	_SQLite_Query($hSQL, "SELECT seq FROM sqlite_sequence WHERE name = '" & $_sTable & "'", $hQuery)
	_SQLErr()
	While _SQLite_FetchData($hQuery, $aQuery) = $SQLITE_OK
		$iRet = $aQuery[0]
	WEnd
	_SQLite_QueryFinalize($hQuery)
	_SQLErr()
	Return $iRet
EndFunc


Func _TableExists($_sTable)
	Local $fRet = False
	_SQLite_Query($hSQL, "SELECT name FROM sqlite_master WHERE type='table'", $hQuery)
	_SQLErr()
	While _SQLite_FetchData($hQuery, $aQuery) = $SQLITE_OK
		If $aQuery[0] = $_sTable Then
			$fRet = True
			ExitLoop
		EndIf
	WEnd
	_SQLite_QueryFinalize($hQuery)
	_SQLErr()
	Return $fRet
EndFunc

Zitat

• Local $sSQLiteDatabase = FileWrite($sEncryptXDatabase,"")
• Local $a = _SQLite_Open($sSQLiteDatabase)

Welchen Wert hat jetzt $sSQLiteDatabase  ? RICHTIG: den Rückgabewert der Funktion Filewrite! Und der ist... - Problem erkannt?

Zitat von Fintan

eine IF.. Then.. Else Schleife.

Hier mal noch zwei flexiblere Funktionen zum Erstellen von 1D / 2D-Arrays:

;===================================================================================================
; Function Name....: _ar1D
; Description......: Erstellt ein 1D-Array mit bis zu 10 Elementen
; Parameter(s).....: $_1       Das erste Element
; ......optional...: $_2 .. 10 Die weiteren Elemente
; Return Value(s)..: 1D-Array mit den übergebenen Werten
;===================================================================================================
Func _ar1D($_1, $_2=Null, $_3=Null, $_4=Null, $_5=Null, $_6=Null, $_7=Null, $_8=Null, $_9=Null, $_10=Null)
	Local $j, $aOut[] = [$_1, $_2, $_3, $_4, $_5, $_6, $_7, $_8, $_9, $_10]
	For $i = 0 To 9
		If $aOut[$i] = Null Then ExitLoop
		$j = $i +1
	Next
	If $j < 10 Then ReDim $aOut[$j]
	Return $aOut
EndFunc


;===================================================================================================
; Function Name....: _ar2D
; Description......: Erstellt ein 2D-Array mit bis zu 10 Elementen
; Parameter(s).....: $_iUB2    UBound der 2.ten Dimension
; .................: $_sDelim  Trennzeichen zwischen den Werten eines Elements
; .................: $_1       Das erste Element
; ......optional...: $_2 .. 10 Die weiteren Elemente
; Note.............: Enthält ein Element mehr Werte, als in $_iUB2 angegeben, werden diese ignoriert
; Return Value(s)..: 2D-Array mit den übergebenen Werten
;===================================================================================================
Func _ar2D($_iUB2, $_sDelim, $_1, $_2=Null, $_3=Null, $_4=Null, $_5=Null, $_6=Null, $_7=Null, $_8=Null, $_9=Null, $_10=Null)
	Local $j, $aTmp[] = [$_1, $_2, $_3, $_4, $_5, $_6, $_7, $_8, $_9, $_10], $aOut[10][$_iUB2], $aSplit
	For $i = 0 To 9
		If $aTmp[$i] = Null Then ExitLoop
		$aSplit = StringSplit($aTmp[$i], $_sDelim, 1)
		For $k = 1 To ($aSplit[0] > $_iUB2 ? $_iUB2 : $aSplit[0])
			$aOut[$i][$k-1] = $aSplit[$k]
		Next
		$j = $i +1
	Next
	If $j < 10 Then ReDim $aOut[$j][$_iUB2]
	Return $aOut
EndFunc

Als ich den Thread-Titel gelesen habe Passwort über Script automatisch ändern, dachte ich das ist ein Fun-Post.

Sorry, aber wie kann man ernsthaft auf die Idee kommen PASSWÖRTER automatisch zu ändern?! Wer das tut, dem traue ich auch zu, während der Fahrt sein Auto zu putzen.
Ich denke alles sicherheitsrelevante hat @Bioshade bereits erwähnt.

Mal als Tipp zum Gestalten von Passwörtern. Weil sich gute Passwörter schlecht merken lassen, werden oft nur schwache genutzt. Dummerweise wird das von vielen Anbietern im Netz auch noch gefördert, weil diese keine Sonderzeichen im Pw zulassen!! Da bleibt dann nur ein schöner Mix aus Ziffern, Klein- u. Großbuchstaben.
Um sich auch starke Pw merken zu können kann man, wie die Gedächtnisakrobaten, mit einem Bilderpalast arbeiten oder sich ein ähnliches Gedankenmodell erstellen. Nur statt der Bilder ordnet man Sonderzeichen zu die man über die Assoziation bekannter Gegenstände dann in kleinen Geschichten mit Ziffern und Buchstaben erweitert zum Pw kombiniert. Auf diese Weise verwende ich z.B. 20-stellige Pw die wirklich kryptisch sind. Und diese Pw brauchst du nicht alle Nase lang ändern.

Zitat von Lottich

Alternativ geht das hier auch noch.

Nein, diese Variante würde zur Bedingung haben, dass eine Fensteranwendung ausgeführt wird.
Ich finde es irgendwie seltsam, dass trotz der ersten Antwort, die die einzig korrekte ist, noch munter weiter gepostet wird. Das irritiert den geneigten Leser dann doch.

Array erzeugen nur durch die Klammern ist nicht möglich.
Du musst diesen Weg wählen:

Local $aIn1['a','b']
Local $aIn2['c','d']
Local $aIn3['e','f']
Local $aIn4['g','h']


Local $a[][4] = [ _
[1,2,3,4], _
[1,2,3,4], _
[$aIn1,$aIn2,$aIn3,$aIn4]]

Wenn du mehrere dieser Einträge erstellen musst, ist es sinnvoll dazu eine Funktion zu verwenden:

Local $a[][4] = [ _
[1,2,3,4], _
[1,2,3,4], _
[_Array('a','b'),_Array('c','d'),_Array('e','f'),_Array('g','h')]]


Func _Array($_a, $_b)
	Local $a[] = [$_a, $_b]
	Return $a
EndFunc

Zitat von AutoIt Hilfe

To run DOS (console) commands, try
Run(@ComSpec &" /c " & 'commandName', "", @SW_HIDE) ; don't forget " " before "/c"

Lesen bildet

#include <WinAPI.au3>
If _WinAPI_GetSystemMetrics($SM_SWAPBUTTON) Then
	ConsoleWrite('Default: RIGHT' & @CRLF)
Else
	ConsoleWrite('Default: LEFT' & @CRLF)
EndIf

Eine andere Möglichkeit zum Verhindern des Kontextmenüs:
Windows-Message für Kontextmenüaufruf hooken und verwerfen wenn es für dein Ctrl ist.

Ich würde ganz klar die bereits angesprochene "Abholversion" favorisieren.
Die Logs werden lokal gespeichert.
Auf dem Server legst du einen administrativen Dienst an, der in Intervallen die Logs bei den Usern checkt. Gibts was Neues, wird das abgeholt und auf den Server übernommen.
Nach dem Muster sammle ich zum Bsp. als PDF gedruckte Dokumente bei meinen Usern ein und archiviere diese auf dem Server. So bleibt der User immer nur in seinem lokalen Space, Rechteprobleme gibt es nicht.

Ich bin nicht der GDIplus-Experte, kann mich aber erinnern, dass es da ein Problem gab - die Ursache ist mir leider entfallen. Aber warte bis die Auskenner sich hier melden.
Nur eines vorweg:
_GDIPlus_Startup() und _GDIPlus_Shutdown() haben in der Schleife nichts verloren.
Startup machst du beim Skriptstart und Shutdown legst du in eine Ende-Funktion, die du mit OnAutoItExitRegister festlegst.

Zitat von shakoon

das wenn ich nur 4 Zahlen eingebe, das er mir alle 5 Zahlen danach als 0 wiedergibt?

Ja, das ist recht simpel:

$Input = InputBox('Bla', 'Blub')
; sicherstellen, dass $Input 9 Stellen hat und fehlende Stellen mit 0 belegt werden
$Input = StringLeft($Input & '000000000', 9)

Aber die Array-Variante, wie von Micha_he gezeigt, ist eindeutig zu bevorzugen.
Solltest du auf jeden Fall 9 Schritte abarbeiten wollen, kombiniere beides.

Was hältst du von Telegram Messenger?
Beliebige Anzahl Endgeräte (egal ob PC oder mobiles Gerät) über einen Account nutzbar. Umfangreiche API.
Wesentlich grösser im Funktionsumfang als WhatsApp und dazu auch noch Ende-zu-Ende verschlüsselt.