AdlibRegister

VinceA

Hallo zusammen
Ich weiss jetzt nicht ob der Themen Titel passt....
Meine Funktion sollte in der Editbox lesen und bei der Zeile Game message: Match started! den Text ( zBsp.Welcome to the GiTM server )aus Input lesen
und zum Beispiel alle 1 min an den Server senden und bei der Zeile Game message: Match ended! enden aber sobald wieder Game message: Match started! erscheint,
sollte es wieder die Nachricht senden und so weiter.

[autoit]

AdlibRegister("Messages",10000)
Func Messages()
Local $readCon = GUICtrlRead($Edit1, "")
Local $aStarted = StringRegExp($readCon, "message:\s(Match\sstarted\!)", 0)
Local $aEnded = StringRegExp($readCon, "message:\s(Match\sended\!)", 0)
If $aStarted = True Then
$readInput = GUICtrlRead($Input3)
ControlSend("C:\Program Files (x86)\Ubisoft\Far Cry 2\bin\FC2ServerLauncher.exe", "", "", "say " & $readInput & @CRLF)
If $aEnded = True Then
AdlibUnRegister("Messages")
EndIf
EndIf
EndFunc ;==>Messages

[/autoit]

Aber leider stopt die Funktion nach AdlibUnRegister("Messages")

Hab auch andere Möglickeiten probiert hab im google gesucht und hier im Forum aber leider komme ich nicht vom fleck.
Leider bin ich mit meinen Autoit Kenntnisse am Ende.

Wie kann ich das lösen? Was für Möglichkeiten gibt es da?

**alpines**

Nebenbei: 1 Minute sind nicht 10000ms.
10.000ms / 1000 = 10s, dein Script fragt alle 10 Sekunden ab, 60000ms wären eine Minute.

Du musst das Script auch unterhalten damit es weiterläuft, so -könnte- es funktionieren:

[autoit]

AdlibRegister("Messages", 60000)

[/autoit][autoit][/autoit][autoit]

While 1
Sleep(100)
WEnd

[/autoit][autoit][/autoit][autoit]

Func Messages()
Local $readCon = GUICtrlRead($Edit1, "")
Local $aStarted = StringRegExp($readCon, "message:\s(Match\sstarted\!)", 0)
Local $aEnded = StringRegExp($readCon, "message:\s(Match\sended\!)", 0)
If $aStarted = True Then
$readInput = GUICtrlRead($Input3)
ControlSend("C:\Program Files (x86)\Ubisoft\Far Cry 2\bin\FC2ServerLauncher.exe", "", "", "say " & $readInput & @CRLF)
If $aEnded = True Then
AdlibUnRegister("Messages")
EndIf
EndIf
EndFunc ;==>Messages

[/autoit]

VinceA

Hallo alpines danke für deine schnelle Antwort.
Vor lauter Hirnen und Testen hab ich die Millisekunden nicht richtig berechnet.
Hab dein Tip ausprobiert...die Nachricht wird alle Minute an der Server gesendet und nach AdlibUnRegister wird sie nicht mehr gesendet.
Aber nun müsste die Nachricht wieder gesendet werden nach dem Game message: Match started! gelesen wurde aber leider kommt nichts.

Ich weiss nicht ob ich alles verständlich erklärt habe aber die Funktion ist nur ein Teil vom Script

Werde heute Abend mehr vom Script posten... muss mal ne runde schlafen.

**alpines**

Schlafen ist was für Anfänger.
Du brauchst übrigens das 0 Flag bei StringRegExp nicht, da es standardmäßig 0 ist, das gleiche ist bei GUICtrlRead der Fall, das "" kann weg.
Du brauchst auch nicht immer Local zu schreiben, so geht das auch

[autoit]

Local $sVariable
Local $sText
Local $sTitel

[/autoit][autoit][/autoit][autoit]

;so ist es besser

[/autoit][autoit][/autoit][autoit]

Local $sVariable, $sText, $sTitel ;hier werden alle drei Variablen als Local deklariert.

[/autoit][autoit][/autoit][autoit]

Local $sVariable, _
$sText, _
$sTitel

[/autoit][autoit][/autoit][autoit]

;hier werden ebenfalls alle 3 als Local deklariert.

[/autoit]

Desweiteren bin ich mir nicht mal sicher ob dein Script überhaupt funktioniert. ControlSend will doch nicht den Pfad sondern den Titel des Fensters? ControlSend.

VinceA

Das schlafen kann warten.

Bei mir funktioniert

[autoit]

ControlSend("C:\Program Files (x86)\Ubisoft\Far Cry 2\bin\FC2ServerLauncher.exe", "", "", "say " & $readInput & @CRLF)

[/autoit]

und

[autoit]

ControlSend("[CLASS:ConsoleWindowClass]", "", "", "say " & $readInput & @CRLF)

[/autoit]

Mein Script funktionert aber leider nicht so wie ich will

Das mit dem Local werde ich anpassen ,danke für den Tip

**alpines**

Schreibt er den Text rein aber sendet er ihn nicht ab? Dann ersetz das @CRLF was für einen Zeilenumbruch steht durch ein {ENTER} damit er den Text (sofern dieser per Enter gesendet werden kann) sendet.

VinceA

Der Text wird geschrieben ist auch im Spiel sichtbar und kommt jede Minute aber es sollte nicht mehr gesendet werden wenn das spiel beendet ist das wird ja mit

[autoit]

AdlibUnRegister("Messages")

[/autoit]

erreicht..nur sendet es nicht mehr wenn das Spiel beginnt.

Hier ist mein Script

Spoiler anzeigen

[autoit]

;GiTMFC2ServerTool.au3
#include <GuiEdit.au3>
#include <Constants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 835, 650)
$MenuItem1 = GUICtrlCreateMenu("Config")
$MenuItem2 = GUICtrlCreateMenuItem("MessagesConfig", $MenuItem1)
$Edit1 = GUICtrlCreateEdit("", 419, 215, 398, 387, BitOR($GUI_SS_DEFAULT_EDIT, $ES_READONLY))
GUICtrlSetColor(-1, 0xFFFF00)
GUICtrlSetBkColor(-1, 0x000000)
$Edit2 = GUICtrlCreateEdit("", 70, 215, 300, 200)
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
$Button1 = GUICtrlCreateButton("Start", 151, 60, 75, 25)
$Button2 = GUICtrlCreateButton("Execute", 650, 600, 75, 25)
$Button3 = GUICtrlCreateButton("ReStart", 70, 60, 75, 25)
$Stop = GUICtrlCreateButton("Stop", 230, 60, 75, 25)
$Message = GUICtrlCreateButton("Message", 25, 120, 75, 25)
$InputExecute = GUICtrlCreateInput("", 419, 600, 222, 21)
$Input2 = GUICtrlCreateInput("", 6, 170, 120, 30, -1, 0)
GUICtrlSetBkColor(-1, 0xefefef)
$Input3 = GUICtrlCreateInput("", 100, 120, 222, 21)
$Input4 = GUICtrlCreateInput("", 100, 95, 222, 21)
$Label1 = GUICtrlCreateLabel("Offline", 500, 150, 55, 25, BitOR($SS_CENTER, $SS_CENTERIMAGE, $SS_SUNKEN))
GUICtrlSetBkColor(-1, 0xff0000)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

$Timer = 30
Global $countdown = 0.5 ;45 minutes
Global $seconds = $countdown * 60

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
If WinActivate("[C:\Program Files (x86)\Ubisoft\Far Cry 2\bin\FC2ServerLauncher.exe", "") Then ExitLoop
ControlSend("C:\Program Files (x86)\Ubisoft\Far Cry 2\bin\FC2ServerLauncher.exe", "", "", "quit" & @CRLF)
Sleep(300)
Exit

[/autoit] [autoit][/autoit] [autoit]

Case $Button1
AdlibRegister("CountDown", 1000)
GUICtrlSetState($Button1, $GUI_DISABLE)
$fc2 = Run("C:\Program Files (x86)\Ubisoft\Far Cry 2\bin\FC2ServerLauncher.exe", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
AdlibRegister("Start")
ServerOnline()
AdlibRegister("Messages", 60000)
AdlibRegister("Chat")

[/autoit] [autoit][/autoit] [autoit]

Case $Button2
$read1 = GUICtrlRead($InputExecute)
;~ WinActivate("[Class:ConsoleWindowClass]")
;~ WinWaitActive("[Class:ConsoleWindowClass]")
;~ Send($read1 & "{Enter}")
ControlSend("C:\Program Files (x86)\Ubisoft\Far Cry 2\bin\FC2ServerLauncher.exe", "", "", $read1 & @CRLF)

[/autoit] [autoit][/autoit] [autoit]

Case $Button3
AdlibRegister("CountDown", 1000)
ControlSend("C:\Program Files (x86)\Ubisoft\Far Cry 2\bin\FC2ServerLauncher.exe", "", "", "quit" & @CRLF)
Sleep(300)
_GUICtrlEdit_SetText($Edit1, "")
$fc2 = Run("C:\Program Files (x86)\Ubisoft\Far Cry 2\bin\FC2ServerLauncher.exe", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
AdlibRegister("Start")
$Label1 = GUICtrlSetBkColor(-1, 0xff0000) & GUICtrlSetData(-1, "Offline")
ServerOnline()

[/autoit] [autoit][/autoit] [autoit]

Case $Stop
ControlSend("C:\Program Files (x86)\Ubisoft\Far Cry 2\bin\FC2ServerLauncher.exe", "", "", "quit" & @CRLF)
Sleep(700)
_GUICtrlEdit_SetText($Edit1, "")
GUICtrlSetState($Button1, $GUI_ENABLE)
$Label1 = GUICtrlSetBkColor(-1, 0xff0000) & GUICtrlSetData(-1, "Offline")
GUICtrlSetData($Input2, "")
AdlibUnRegister("Start")
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func Start()
$line = StdoutRead($fc2)
If @error Then Exit
If $line <> "" Then
GUICtrlSetData($Edit1, $line, 1)
EndIf
$line = StderrRead($fc2)
If @error Then Exit

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>Start

[/autoit] [autoit][/autoit] [autoit]

Func ServerOnline()

[/autoit] [autoit][/autoit] [autoit]

While 1
$read2 = GUICtrlRead($Edit1, "")
$aResult = StringRegExp($read2, "(Game message: Entering lobby!)", 0)
If $aResult = True Then
GUICtrlSetData(-1, $Label1, "Online" & GUICtrlSetBkColor(-1, 0x00CC00))
ExitLoop
EndIf
WEnd
EndFunc ;==>ServerOnline
Func Chat()
Local $readCon, $aALL, $all

$readCon = GUICtrlRead($Edit1, "")
$aALL = StringRegExp($readCon, "\:\s(.*$All$.*)", 3)
;~ _ArrayDisplay($cResult)
For $i = 0 To UBound($aALL) - 1
$all &= $aALL[$i] & @CRLF
Next
GUICtrlSetData($Edit2, $all & @CRLF)

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>Chat
Func CountDown()

[/autoit] [autoit][/autoit] [autoit]

Local Static $sTimer = $Timer
$sTimer -= 1
GUICtrlSetData($Input2, "Start Timeout: " & $sTimer & " sec")
If _GUICtrlEdit_GetLine($Edit1, "320") = "320 - Game message: Entering lobby!" Then
$EndTimer = True
$sTimer = $Timer
AdlibUnRegister("CountDown")
Else
If $sTimer < 1 Then
;~ WinClose("C:\Program Files (x86)\Ubisoft\Far Cry 2\bin\FC2ServerLauncher.exe", "")
AdlibUnRegister("CountDown")
$EndTimer = True
$sTimer = $Timer
EndIf
;~ EndIf
EndIf
EndFunc ;==>CountDown
Func Messages()
Local $readCon, $aStarted, $aEnded, $readInput

[/autoit] [autoit][/autoit] [autoit]

$readCon = GUICtrlRead($Edit1, "")
$aStarted = StringRegExp($readCon, "message:\s(Match\sstarted\!)")
$aEnded = StringRegExp($readCon, "message:\s(Match\sended\!)")
If $aStarted = True Then
$readInput = GUICtrlRead($Input3)
ControlSend("C:\Program Files (x86)\Ubisoft\Far Cry 2\bin\FC2ServerLauncher.exe", "", "", "say " & $readInput & @CRLF)
If $aEnded = True Then
AdlibUnRegister("Messages")
EndIf
EndIf
EndFunc ;==>Messages

[/autoit]

Es geht erst mal nur um die Funktion Messages()

**alpines**

Dann trifft dieses $aEnded nicht zu wenn der das immer weiter macht, setz doch mal eine MsgBox unter AdlibUnRegister und schau nach ob die angezeigt wird.

VinceA

Die Funktion funktioniert ..wird alles angezeigt.
Ich habe mich vielleicht total falsch ausgedrückt...das problem vielleicht nicht verständlich erklärt.

Die Funktion liesst aus dem Edit1 und wennn die Zeile ...Match started!.... kommt, wird der Text aus dem input gelesen und an den Game-Server gesendet.
Die Nachricht wird nun alle 1 Minute gesendet.
Wenn dann im Edit1 die Zeile ..Match ended!.... gelesen wird soll die Nachricht nicht mehr gesendet werden.

Damit die Nachricht nicht mehr gesendet wird habe ich es mit ...AdlibUnRegister("Messages")...gelöst.
Aber somit ist ja auch die Funktion beendet und somit kann auch keine Nachricht mehr gesendet werden.

[autoit]

Func Messages()
Local $readCon, $aStarted, $aEnded, $readInput

[/autoit][autoit][/autoit][autoit]

$readCon = GUICtrlRead($Edit1, "")
$aStarted = StringRegExp($readCon, "message:\s(Match\sstarted\!)")
$aEnded = StringRegExp($readCon, "message:\s(Match\sended\!)")
If $aStarted = True Then
$readInput = GUICtrlRead($Input3)
ControlSend("C:\Program Files (x86)\Ubisoft\Far Cry 2\bin\FC2ServerLauncher.exe", "", "", "say " & $readInput & @CRLF)
If $aEnded = True Then
AdlibUnRegister("Messages")
EndIf
EndIf
EndFunc ;==>Messages

[/autoit]

Nun meine Frage ist, wie kann ich das lösen, wie kann ich es machen damit die Funktion die Arbeit wieder aufnimmt?

Also so sollte es funktionieren:
Wenn Ein Match beginnt,wird eine ServerNachricht an den Server gesendet wie zum Beispiel No Hacks,Cheats Insults oder Hacker = Ban For Ever.
Ein Match dauert je nach Einstellung ca 20min.
Am Ende des Matches wird die Nachricht nicht mehr gesendet soll quasi pausieren bis der nächste Match beginnt also wird die nachricht weiter gesendet
bis zum nächsten Matchende.

**alpines**

Dann achte mal lieber drauf, dass wenn du ein Game Started verarbeitest, es aus dem Log auch löscht, bzw. den Index verrechnest.
Weil es im Log noch drinne steht wird er natürlich es wieder senden, aber sollte eigentlich abbrechen.

dfgherH

Zitat von VinceA

Die Funktion funktioniert ..wird alles angezeigt.
Ich habe mich vielleicht total falsch ausgedrückt...das problem vielleicht nicht verständlich erklärt.

Die Funktion liesst aus dem Edit1 und wennn die Zeile ...Match started!.... kommt, wird der Text aus dem input gelesen und an den Game-Server gesendet.
Die Nachricht wird nun alle 1 Minute gesendet.
Wenn dann im Edit1 die Zeile ..Match ended!.... gelesen wird soll die Nachricht nicht mehr gesendet werden.

Damit die Nachricht nicht mehr gesendet wird habe ich es mit ...AdlibUnRegister("Messages")...gelöst.
Aber somit ist ja auch die Funktion beendet und somit kann auch keine Nachricht mehr gesendet werden.
[autoit]
Func Messages()
Local $readCon, $aStarted, $aEnded, $readInput
[/autoit] [autoit][/autoit] [autoit]
$readCon = GUICtrlRead($Edit1, "")
$aStarted = StringRegExp($readCon, "message:\s(Match\sstarted\!)")
$aEnded = StringRegExp($readCon, "message:\s(Match\sended\!)")
If $aStarted = True Then
$readInput = GUICtrlRead($Input3)
ControlSend("C:\Program Files (x86)\Ubisoft\Far Cry 2\bin\FC2ServerLauncher.exe", "", "", "say " & $readInput & @CRLF)
If $aEnded = True Then
AdlibUnRegister("Messages")
EndIf
EndIf
EndFunc ;==>Messages
[/autoit]

Nun meine Frage ist, wie kann ich das lösen, wie kann ich es machen damit die Funktion die Arbeit wieder aufnimmt?

Also so sollte es funktionieren:
Wenn Ein Match beginnt,wird eine ServerNachricht an den Server gesendet wie zum Beispiel No Hacks,Cheats Insults oder Hacker = Ban For Ever.
Ein Match dauert je nach Einstellung ca 20min.
Am Ende des Matches wird die Nachricht nicht mehr gesendet soll quasi pausieren bis der nächste Match beginnt also wird die nachricht weiter gesendet
bis zum nächsten Matchende.

Alles anzeigen

VinceA

@dfgherH ....damit hilfst du mir nicht.

Zitat von alpines

Dann achte mal lieber drauf, dass wenn du ein Game Started verarbeitest, es aus dem Log auch löscht, bzw. den Index verrechnest.
Weil es im Log noch drinne steht wird er natürlich es wieder senden, aber sollte eigentlich abbrechen.

Hab das mit dem Log getestet...

[autoit]

Func Messages()
Local $readCon, $aStarted, $aEnded, $readInput

[/autoit][autoit][/autoit][autoit]

$readCon = GUICtrlRead($Edit1, "")
$aStarted = StringRegExp($readCon, "message:\s(Match\sstarted\!)")
$aEnded = StringRegExp($readCon, "message:\s(Match\sended\!)")
If $aStarted = True Then
$readInput = GUICtrlRead($Input3)
ControlSend("C:\Program Files (x86)\Ubisoft\Far Cry 2\bin\FC2ServerLauncher.exe", "", "", "say " & $readInput & @CRLF)
If $aEnded = True Then
;~ AdlibUnRegister("Messages")
_GUICtrlEdit_SetText($Edit1, "")
Return AdlibRegister("Messages",60000)
EndIf
EndIf
EndFunc ;==>Messages

[/autoit]

Den Inhalt des Editbox zu löschen ist natürlich keine Lösung für mich. Aber so funktioniert es tip top.
Also muss ich eine andere Methode finden, zum Beispiel immer nur die Letzte Zeile des Editbox zu lesen oder andere wege...

**alpines**

Du liest es ein und trimmst alles vor dem letzten @CRLF und das was du als neuen String kriegst RegExpst du dann.

VinceA

Kannst du mir das mit dem Trimmen näher erklären? Hab da noch keine Erfahrung.

dfgherH

einfach trimmen! das ist easy!

**alpines**

[autoit]

$sText = GUICtrlRead($Edit1)

[/autoit][autoit][/autoit][autoit]

MsgBox(64, "Text", StringTrimLeft($sText, StringInStr($sText, @CRLF, 1, -1)))

[/autoit]

VinceA

Zitat von alpines

[autoit]
$sText = GUICtrlRead($Edit1)
[/autoit] [autoit][/autoit] [autoit]
MsgBox(64, "Text", StringTrimLeft($sText, StringInStr($sText, @CRLF, 1, -1)))
[/autoit]

Leider funktioniert es nicht, MsgBox ist leer zeigt nichts an aber wenn ich anstatt -1 die 1 nehme zeigt es den Text an.
Der Text wird genau so angezeigt wie es in der Editbox geschrieben ist.

Hier ein Beispiel des Textes aus der Editbox.

Spoiler anzeigen

311 - ID : 0x9DFAA5E4E14911DD
312 - IP : XX.XX.99.107:9003
313 - Creator info : Anonymous (0x24F0130C63AC9332)
314 - Private ID : 0
315 - Is arbitrated : false
316 - Max public slots : 17
317 - Max private slots : 0
318 - Type : E_SESSION_TYPE_ONLINE
319 - --------------------------------------------
320 - Game message: Entering lobby!
321 - SLOTS - Non-host, no private slots available, will try to use public slot
322 - SLOTS - Non-host, no private slots available, will use public slot
323 - SessionManager accepting new connection at XX.XX.99.107:9001
324 - SLOTS - Non-host, no private slots available, will try to use public slot
325 - SLOTS - Non-host, no private slots available, will use public slot
326 - SessionManager : before : using public slot for new connection with user: dc9ee9355c18bdcf (current public open slot: 16)
327 - SessionManager : after : using public slot for new connection (current public open slot: 15)
328 - Client joined (Peterli, 0xDC9EE9355C18BDCF, 192.168.1.2:0, PeerId: 1, Seq: 1, Data size : 4) - Session ID: 0x9DFAA5E4E14911DD
329 - Game message: Peterli connected to the server.
330 - Game message: Leaving lobby!
331 - Game message: Pre-round started!
332 - Game message: Pre-round ended!
333 - Game message: Team Deathmatch
334 - Game message: Match started!
335 - Game message: Peterli committed suicide.
336 - Vote system: Peterli wants to end match.
337 - Vote system: Vote Results: Positive
338 - Game message: Match ended!
339 - MESSAGE BOX: Retrieving personal statisticsâ€¦
340 - Game message: Entering lobby!
341 - Client left (Peterli, 0xDC9EE9355C18BDCF, 192.168.1.2:0, PeerId: 1, Seq: 1, Data size : 4) - Session ID: 0x9DFAA5E4E14911DD
342 - Game message: Peterli disconnected from the server.
343 - Deleted game connection towards client for 192.168.1.2:0, reason ()

**alpines**

Die -1 ist dazu da den letzten @CRLF zu nehmen, du kannst es anhand eines anderen Beispiels testen, bei mir funktionierts zumindest.
Der Text muss natürlich am Ende jeder Zeile ein @CRLF haben und kein @CR / @LF.

Spoiler anzeigen

[autoit]

$sText = "311 - ID : 0x9DFAA5E4E14911DD" & @CRLF & _
"312 - IP : XX.XX.99.107:9003" & @CRLF & _
"313 - Creator info : Anonymous (0x24F0130C63AC9332)" & @CRLF & _
"314 - Private ID : 0" & @CRLF & _
"315 - Is arbitrated : false" & @CRLF & _
"316 - Max public slots : 17" & @CRLF & _
"317 - Max private slots : 0" & @CRLF & _
"318 - Type : E_SESSION_TYPE_ONLINE" & @CRLF & _
"319 - --------------------------------------------" & @CRLF & _
"320 - Game message: Entering lobby!" & @CRLF & _
"321 - SLOTS - Non-host, no private slots available, will try to use public slot" & @CRLF & _
"322 - SLOTS - Non-host, no private slots available, will use public slot" & @CRLF & _
"323 - SessionManager accepting new connection at XX.XX.99.107:9001" & @CRLF & _
"324 - SLOTS - Non-host, no private slots available, will try to use public slot" & @CRLF & _
"325 - SLOTS - Non-host, no private slots available, will use public slot" & @CRLF & _
"326 - SessionManager : before : using public slot for new connection with user: dc9ee9355c18bdcf (current public open slot: 16)" & @CRLF & _
"327 - SessionManager : after : using public slot for new connection (current public open slot: 15)" & @CRLF & _
"328 - Client joined (Peterli, 0xDC9EE9355C18BDCF, 192.168.1.2:0, PeerId: 1, Seq: 1, Data size : 4) - Session ID: 0x9DFAA5E4E14911DD" & @CRLF & _
"329 - Game message: Peterli connected to the server." & @CRLF & _
"330 - Game message: Leaving lobby!" & @CRLF & _
"331 - Game message: Pre-round started!" & @CRLF & _
"332 - Game message: Pre-round ended!" & @CRLF & _
"333 - Game message: Team Deathmatch" & @CRLF & _
"334 - Game message: Match started!" & @CRLF & _
"335 - Game message: Peterli committed suicide." & @CRLF & _
"336 - Vote system: Peterli wants to end match." & @CRLF & _
"337 - Vote system: Vote Results: Positive" & @CRLF & _
"338 - Game message: Match ended!" & @CRLF & _
"339 - MESSAGE BOX: Retrieving personal statistics" & @CRLF & _
"340 - Game message: Entering lobby!" & @CRLF & _
"341 - Client left (Peterli, 0xDC9EE9355C18BDCF, 192.168.1.2:0, PeerId: 1, Seq: 1, Data size : 4) - Session ID: 0x9DFAA5E4E14911DD" & @CRLF & _
"342 - Game message: Peterli disconnected from the server." & @CRLF & _
"343 - Deleted game connection towards client for 192.168.1.2:0, reason ()"

[/autoit] [autoit][/autoit] [autoit]

MsgBox(64, "Text", StringTrimLeft($sText, StringInStr($sText, @CRLF, 1, -1)))

[/autoit]

VinceA

ok ich glaube jetzt verstehe ich es.

Wenn ich den Text mit @CRLF in die Editbox einfüge funktioniert es so aber leider nützt mir das nichts da mein Text in der Editbox kein @CRLF hat so wie es aussieht.

Vielleicht sollte ich es als Text Datei speichern und dann so auslesen.

**alpines**

Du schreibst doch Zeile für Zeile rein, dann setz wenn du eine Zeile drinne hast einfach ein @CRLF und dann die nächste Zeile.
Du sicherst vorher den alten Eintrag und vergleichst ihn mit dem neuen, wenn es ungleich ist dann nimmst du den neuen Eintrag als alten Eintrag und vergleichst wieder, und bei jedem Unterschied immmer davor ein @CRLF rein.