Beiträge von nwmbd

Danke Oscar,

das sieht doch mal richtig professionell aus.

Leider habe Ich weiterhin dasselbe Problem, es wird ja nun auch alles angezeigt.

Ich will quasi nur wenn dort Tor 3 in der Datei steht ein bestimmten Text, zB. "TOR UNBEDINGT WIEDER SCHLIESSEN!" stehen haben.

Dasselbe auch bei Tor 2, bei allem anderen soll er gar nichts machen.

Vielen Dank vorab.

Hallo,

die Datei legt niemand an, die ist schon da.
Sobald ein Ereignis stattfindet schreibt das Überwachungsprogramm (müsste ich nachsehen wie dies heisst) in die TXT die Einträge.
Da das Programm aber keine Möglichkeit hat irgendwas anzuzeigen möchte ich dies gern übernehmen.

Vielleicht noch einmal zum Verständnis:
PC A hat das Programm wo alles aufgezeichnet wird
PC A hat auch die Datei
PC A soll das Fenster angezeigt bekommen

Das ich dies bei mir "Überwachen" will ist nur Zusatz, für die Sache aber vollkommen unwichtig.

Hallo,

nochmal zum Ursprung

Wie kann Ich das Änderungsdatum und den neuen Eintrag überprüfen?

Ich würde gern eine MSGBOX auslösen wenn sich das Datum ändert und in der letzten Zeile *Öffnung Tor 3* steht, wie kann ich das realisieren, es kommt sonst bei jedem Eintrag das Fenster.

Vielen Dank vorab.

include <File.au3>
#include <WinAPI.au3>
While 1
$Original = FileGetTime("C:\Test\Test.txt", 0, 1)
$Ueberwachung = FileGetTime("C:\Test\Ueberwachung.txt", 0, 1)
$Text = 'Achtung neuer Eintrag' & @CRLF & _
	  'Unbedingt beheben!'
If $Original > $Ueberwachung Then
	MsgBox(48,"Achtung neuer Eintrag!", $Text)
	FileWrite("C:\Test\Ueberwachung.txt", "N")
 EndIf
    Sleep(30)
WEnd

Hallo,

ich bin absoluter Beginner.

Ich habe deine Code mal getestet, lustig ist, wenn ich dein Exit raushaue, und nach dem Starten auf das X oben rechts klicke, erkennt er die Laufwerke, füge ich das Exit wieder hinzu, geht nichts.

Irgendwie scheint er etwas nicht zu erkennen.

Hallo Alina,

vielen Dank. Sieht ähnlich aus wie meiner, deine funktioniert aber 1a.

Hat das etwas mit dem Sleep 30 zutun? Ich habe auf mein ersten Code ein Sleep von 600000 (10 Minuten) nicht das dies dann gar nicht geht?!

Vielen Dank vorab.

Hallo Alina,

ich habe mich doch für das Auslesen des Änderungsdatums entschieden, so funzt es.

EIgentlich wollte ich die Zeilen der Datei auslesen und nur wenn der neuste Eintrag ein bestimmten Wert (Öffnung Tor 3) enthält wollte ich die MSGBOX ausgeben.

Nun wird quasi bei jedem Eintrag die MSGBOX ausgegeben, nicht perfekt, aber es geht.

Nun ist mir aufgefallen das die exe ja auch einfach über den Taskmanager beendet werden kann.

Aufgrund dieser Tatsache habe ich mir ein ein neuen Code überlegt, ansich funktioniert alles, ich habe aber ein Problem.

Er prüft bei dem Beispiel ob die Datei da ist, wenn ja ist das Feld Rot, wenn nicht ist es Grün. Ich werde in dem Programm quasi eine Datei erstellen wenn das Programm geschlossen wird/ist.

Soweit sogut, irgendwie führt er das zwar aus, ändere ich den Dateinamen oder lösche die Datei stimmt es nicht mehr.

Ich gehe davon aus das er die IF Schleife nachdem die Datei da war und wieder weg ist beendet. Das if quasi nicht mehr gestartet wird, hier kann mir sicherlich sehr leicht geholfen werden

Achja und wenn ich oben das X drücke schließt sich das Programm nicht, hier habe ich sicher Zeilen gelöscht was ich nicht hätte machen dürfen

Könnte man dies auch irgendwie eleganter lösen, ich finde durch das ganze Datei erstellen und löschen etc sehe ich glaube irgendwann nicht mehr durch welche Datei für was zuständig ist.

Vielen Dank vorab.

Nachfolgend der Code.

#cs ----------------------------------------------------------------------------


 AutoIt Version: 3.3.14.2
 Author:         myName


 Script Function:
	Template AutoIt script.


#ce ----------------------------------------------------------------------------


; Script Start - Add your code below here
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Status", 615, 437, 192, 124)
$Label1 = GUICtrlCreateLabel("Programm geöffnet", 16, 112, 128, 26)
GUICtrlSetFont(-1, 14, 400, 0, "Arial")
$Button1 = GUICtrlCreateButton("An", 403, 104, 89, 33)
GUICtrlSetBkColor(-1, 0x00FF00)
GUICtrlSetState($Button1,$GUI_HIDE)
$Button2 = GUICtrlCreateButton("Aus", 403, 104, 89, 33)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetState($Button2,$GUI_HIDE)
$Label4 = GUICtrlCreateLabel("Statusüberwachung", 120, 0, 350, 49)
GUICtrlSetFont(-1, 30, 400, 0, "Arial")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
If FileExists ("C:\Test\Test.txt") then
                     GUICtrlSetState($Button2,$GUI_SHOW)
                 Else
                    GUICtrlSetState($Button1,$GUI_SHOW)
				 EndIf
				 Sleep(3000)


WEnd

Danke an alle, habe es gelöst.

Finde zwar das dies sicherlich noch viel besser geht, aber es funktioniert zumindest erstmal.

Er schreit nun aber bei jedem neuen Eintrag, aber er schreit

Ich muss auch noch die Datei irgendwann mal löschen, die wird ja unnötig zugemüllt.

#include <File.au3>
#include <WinAPI.au3>
While 1
$Original = FileGetTime("C:\Test\Test.txt", 0, 1)
$Ueberwachung = FileGetTime("C:\Test\Ueberwachung.txt", 0, 1)
$Text = 'Achtung neuer Eintrag' & @CRLF & _
	  'Unbedingt beheben!'
If $Original > $Ueberwachung Then
	MsgBox(48,"Achtung neuer Eintrag!", $Text)
	FileWrite("C:\Test\Ueberwachung.txt", "Neu")
 EndIf
    Sleep(600000)
WEnd

Hallo,

es gibt ein Programm was in die Datei C:\Info.txt Daten ablegt.

In dieser Datei gibt es zB ein Eintrag "07.09.2016 21:03 Tor 3 geöffnet"

Ziel ist es das die Datei Info.txt alle 5 Minuten auf neue Einträge geprüft wird, gibt es einen neuen Eintrag, so soll eine MSGBOX "Achtung neuer Eintrag" o.ä. erscheinen.

Perfekt wäre natürlich, dass nur auf bestimmte Einträge eine MSGBOX erscheint.

Die Datei sowie das Programm was die Einträge erzeugt sind alle auf dem selben PC.

Das Problem ist, dass oft vergessen wird das die Tore wieder geschlossen werden.

Ich möchte über diesen Weg die Person daran erinnern.

Vielen Dank vorab.

Danke Lottich.

Habe das mal so gut es mir möglich ist probiert.

Die Testneu beschreibt er wie er soll.

Irgendwie muss er ja wissen wenn die Datei sich verändert, ich habe in Testalt.ini einfach die Zahl der Größe eingetragen, passiert aber nichts.

Vielen Dank vorab.

#include <File.au3>
#include <WinAPI.au3>
Global $iSize = FileGetSize("C:\Test\Test.txt") ; Gibt dir die Grösse der Datei in Bytes an.
FileWrite("C:\Test\Testneu.ini", $iSize) ;Speicherung der Daten in einer Datei
FileRead("C:\Test\Testneu.ini") ;Lesen der Datei
FileRead("C:\Test\Testalt.ini") ;Lesen der Datei
If "Testneu.ini" <> "Testalt.ini" Then MsgBox(0,"", "Datei wurde geändert.")

Wie genau kann ich das Änderungsdatum / Änderungen der Dateigröße prüfen?!

Muss ja permanent der Istzustand abgefragt werden, er muss ja irgendwie an die alten Information kommen.

Vielen Dank vorab.

Mir fällt der Weg nicht ein.

Hallo zusammen,

ich suche eine Möglichkeit eine bestimmte Datei auf Veränderung zu Prüfen.

Ob nun einer veränderte Größe / Datum / Eintragung ... ist im Endeffekt egal.

Ich habe hierzu ein Code gefunden der aber ab einer bestimmten Größe ein Ereignis auslöst.

Ich möchte wenn Person X / Programm Y etwas in eine Datei schreibt, dass PC Z eine MSGBOX erhält.

Vielen Dank vorab.

#include <File.au3>


$aFiles = _FileListToArray(@ScriptDir & "\Verzeichnis", "*", 1)


For $i = 1 To $aFiles[0]
    If FileGetSize(@ScriptDir & "\Verzeichnis\" $aFiles[$i]) > 1024 Then FileDelete(@ScriptDir & "\Verzeichnis\" & $aFiles[$i])
Next

Hallo,

das wäre mal etwas.

Leider sind alle Links down.

Gibt es andere Möglichkeiten an solch ein Buch zu kommen?

MFG

Hallo,

scheinbar bin ich zu doof.

Wenn ich dies anpasse, passiert leider nichts.

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode",1)
Global $width=800,$height=600
Global $HinweisTableGui=0,$MainGui=0
$MainGui = GUICreate("Hilfe",$width,$height)
GUICtrlCreateButton("Hinweistabelle", 32, 24, 161, 81)
GUICtrlSetOnEvent(-1,"_HinweisTable")
GUICtrlCreateButton("Angebote", 209, 22, 161, 81)
GUICtrlSetOnEvent(-1,"")
GUISetOnEvent($GUI_EVENT_CLOSE,"_main_close")
GUISetState(@SW_SHOW)
While sleep(10)
WEnd
Func _HinweisTable()
	if $HinweisTableGui=0 then
		$HinweisTableGui = GUICreate("Hinweistabelle", 400,400,-1,-1,-1,-1,$MainGui)
		guictrlsetstate($GUI_HIDE,"_HinweisTable")
		GUISetOnEvent($GUI_EVENT_CLOSE,"_HinweisTable_close")
		GUICtrlCreateButton("Press", 32, 24, 161, 81)
		GUICtrlSetOnEvent(-1,"")
		GUISetState(@SW_SHOW)
	else
		WinActivate($HinweisTableGui)
	endif
EndFunc
Func _HinweisTable_close()
	GUIDelete($HinweisTableGui)
	$HinweisTableGui=0
EndFunc
Func _main_close()
	exit
EndFunc

Hallo,

das klappt ja perfekt

Besteht auch die Möglichkeit alles in einem Fenster mit zurück button zu benutzen?

MFG

Hallo zusammen,

ich bin neu bei Autoit, ich möchte gern wenn ich ein Button klicke, dass Ich ein neues Fenster erhalte.

In diesem Fenster sollen Hinweise (Text) und weitere Buttons sein.

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Hilfe", 615, 437, 192, 124)
$Hinweistabelle = GUICtrlCreateButton("Hinweistabelle", 32, 24, 161, 81)
$Angebote = GUICtrlCreateButton("Angebote", 209, 22, 161, 81)
GUISetState(@SW_SHOW)
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#EndRegion ### END Koda GUI section ###


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit


		Case $Hinweistabelle


		Case $Angebote
	EndSwitch
WEnd

Vielen Dank an alle vorab