Hiho
Ich hab mal deine UDF ausprobiert.
Allgemein hat alles gut geklappt, als ich, geteste habe. Dann hatte ich den PC am nächsten Tag angemacht und es ging nicht. ich habe komische Antworten erhalten....
Dann hab ich ein anderes Programm benutzt, um das Gerät anzusprechen und dann wieder meins und es ging.
Hast du pauschal mal ne Ahnung wie das sein kann?
EDIT:
hab den Fehler gefunden. Lag am Stopbit.... hab 1.5 gehabt nicht 1 -.-
editiere dein ersten post einfach und setz auf gelöst 
ein Gui wird standartmäßig mit ESC beendet ich schau eben wie es ausgeschalten wird.
hat also nix mit Exitloop zu tun^^
eventuell hilft dir auch hotkeys
damit kannste mit der PauseTaste unterbrechen und weiter machen lassen und mit ESC kannste jetzt abbrechen
HotKeySet("{pause}", "pause")
HotKeySet("{ESC}", "ende")
Global $pause = False, $exit = False
;DeinScript
Case $Button1
$speed = GUICtrlRead($Input1)
$zahl = GUICtrlRead($Input2)
$answer1 = MsgBox(4,"Mausspiel","Wirklich starten?")
If $answer1 = 7 Then
MsgBox(0,"Mausspiel","Das Programm wird nun beendet")
Exit
EndIf
.
.
.
Func ende()
$exit = True
EndFunc
Func pause()
$pause = Not $pause
While $pause == True
Sleep(10)
WEnd
EndFunc
eventuell so
#include <array.au3>
[/autoit] [autoit][/autoit] [autoit]$sString = "Dies ist der Erste Teil des Strings" & @CRLF & "Dies ist die Kommentarzeile" & @CRLF & "Dies ist die Zwischenzeile" & @CRLF & "Dies ist die Kommentarzeile" & @CRLF & "Dies ist der Letzte Teil"
$sKommentarzeile = "Dies ist die Kommentarzeile" & @CRLF
$aString = StringSplit($sString, $sKommentarzeile, 1)
_ArrayDelete($aString, 2)
MsgBox(0,"",_ArrayToString($aString, "", 1))
kk funktioniert soweit...
muss es nur noch verbessern^^
aber wie kann ich alle Clients mit dem Server verbinden?
mit TCPAccept nen Array mit allen Sockets befüllen?
Huhu
Ich wollte mehrere PCs miteinander kommunizieren lassen.
Aber im Moment weis ich nicht wie ich das hinbekommen soll.
Bei TCP brauch ich ja nen Server und nen Client, aber wie kann ich alle Clients mit dem Server verbinden?
Erster Gedanke:
Aber das Problem ist, dass der Server demjenigen ansprechen muss der senden soll.
Muss ich jetzt jeden Client auch als Server definieren?
Oder gibs ne andere Variante?
also ich hatte das mal ne zeit lang gemacht mit Nero... weis nicht in wie fern das noch immer geeignet ist und ich weis leider auch nichtob es SWF dateien unterstützt.
aber damit war es recht einfach. Man wurde gut geführt.
Gibt aber bestimmt auch andere Programme
Wenn du es nur in eine bzw zwei neue dateien schreiben willst und die einzelnen Felder nicht brauchst, kannst es auch so machen:
#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]$file = FileRead("tempsource.txt")
$testarray = StringRegExp($file, '(.*intern)', 3)
_ArrayDisplay($testarray)
$testarray = StringRegExp($file, '(.*extern)', 3)
_ArrayDisplay($testarray)
Wenn das ganze nachher auf einer CD/DVD soll, warum machst du dann keine VideoDVD ? da kannste ganz einfach nen Menu erstellen.
Hier mal ohne 2D Array
#include <array.au3>
[/autoit] [autoit][/autoit] [autoit]$sFile = @ScriptDir & "\test.txt"
$sSeparator = " Clients Anzahl "
$sRead = FileRead($sFile)
[/autoit] [autoit][/autoit] [autoit]$aRead = StringRegExp($sRead, '.*;(.*);(.*);(.*);(.*);(Aktiv*);.*;(PC010.*);.*;.*;.*;.*;.*;.*;.*;.*;.*;.*;.*;.*;.*;.*', 3)
[/autoit] [autoit][/autoit] [autoit]Dim $aResult[1]
[/autoit] [autoit][/autoit] [autoit]For $i = 0 to UBound($aRead) - 1 Step 6
$iFound = _ArraySearch($aResult, $aRead[$i + 2], 0, 0, 0, 1)
If $iFound < 0 Then
_ArrayAdd($aResult, $aRead[$i + 2] & " " & $aRead[$i + 4] & $sSeparator)
$iFound = UBound($aResult)-1
EndIf
$iAnzahl = StringTrimLeft($aResult[$iFound],StringInStr($aResult[$iFound], $sSeparator) + 15)
$aResult[$iFound] = StringLeft($aResult[$iFound],StringInStr($aResult[$iFound], $sSeparator) + 15) & $iAnzahl+1
Next
$aResult[0] = UBound($aResult) - 1
_ArrayDisplay($aResult)
EDIT:
Hier mal mit Variablen um es besser zu Filtern:
man kann es natürlich noch weiter verbessern aber hier haste mal nen Ansatz
#include <array.au3>
[/autoit] [autoit][/autoit] [autoit]$sFile = @ScriptDir & "\test.txt"
$sSeparator = " Clients Anzahl "
;Ab hier sind die Filter zu setzen:
$sStatus = "Aktiv"
$sHost = "PC010"
$CI = ""
$CIID = ""
$Materialnr = ""
$Beschreibung = ""
$ServiceKlasse = ""
;Ende der Filter
$sRead = FileRead($sFile)
[/autoit] [autoit][/autoit] [autoit]$aRead = StringRegExp($sRead, $CI & '.*;('& $CIID &'.*);('& $Materialnr &'.*);('& $Beschreibung &'.*);('& $ServiceKlasse & '.*);('& $sStatus &');.*;('& $sHost &'.*);.*;.*;.*;.*;.*;.*;.*;.*;.*;.*;.*;.*;.*;.*', 3)
[/autoit] [autoit][/autoit] [autoit]Dim $aResult[1]
[/autoit] [autoit][/autoit] [autoit]For $i = 0 to UBound($aRead) - 1 Step 6
$iFound = _ArraySearch($aResult, $aRead[$i + 2], 0, 0, 0, 1)
If $iFound < 0 Then
_ArrayAdd($aResult, $aRead[$i + 2] & " " & $aRead[$i + 4] & $sSeparator)
$iFound = UBound($aResult)-1
EndIf
$iAnzahl = StringTrimLeft($aResult[$iFound],StringInStr($aResult[$iFound], $sSeparator) + 15)
$aResult[$iFound] = StringLeft($aResult[$iFound],StringInStr($aResult[$iFound], $sSeparator) + 15) & $iAnzahl+1
Next
$aResult[0] = UBound($aResult) - 1
_ArrayDisplay($aResult)
Also WinXP hat auch den rahmen
Der Rahmen liegt an den $SS_SUNKEN
wenn du die rausnimmst gibs keinen rahmen
EDIT:
ist es möglich die Position nach dem erstellen zu ändern? ohne es zu löschen und neu zu erstellen?
EDIT2:
Ah es geht ganz einfach mit
GUICtrlSetPos
je nachdem wie die taskleiste eingestellt ist.
kannst sie aber auch wie ich auf dein 2. Monitor ziehen dann stört die eh nich^^
Ich hab die einfach auf dem zweiten Monitor und da kann die dann auch dauerhaft eingeblendet werden weil da ja auch die uhr und das datum drin ist xD
also mein Script als ganzes vor deinem einfügen is nich gut^^ ich hab da ne Endlosschleife drin^^
du mussst nur die Funktion PAUSE und die beiden ersten Zeilen einfügen.
also
HotKeySet("{pause}", "PAUSE")
Global $pause = False
;.
;.
;.
;Dein Script
;.
;.
;.
Func PAUSE()
$pause = Not $pause
While $pause
Sleep(50)
WEnd
EndFunc
Die Funktion HotKeySet("{pause}", ...) kannst zum einen in der Hilfe nachlesen aber es ist im endeffekt so dass die Taste die als erster Parameter übergeben gedrückt wird, wird die Funktion die als 2. Parameter übergeben wird ausgeführt.
man kann das ganze auch in einem Hotkey zusammenführen
HotKeySet("{pause}", "PAUSE")
[/autoit] [autoit][/autoit] [autoit]Global $pause = False
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
Sleep(50)
WEnd
Func PAUSE()
$pause = Not $pause
While $pause
Sleep(50)
WEnd
EndFunc
hast ja recht
man kann es auch ohne Switch machen
Func _HoverKat()
; Nur wenn ein Control den Hoverstil hat dann ändere die Farbe auf normal
If $fLableHovered Then GUICtrlSetColor($fLableHovered,0x000000)
$aCursor = GUIGetCursorInfo($hGUI)
If Not IsArray($aCursor) Then Return
GUICtrlSetColor($aCursor[4],0x0000FF)
$fLableHovered = $aCursor[4]
endfunc
vllt kannst es auch selber mit WinMove() machen?^^ also stellst im Game Fenstermodus ein und dann schiebst das fenster nach ganz oben ein wenig aus dem bild raus und setzt die größe auf @DesktopWidth, @DesktopHeight
vllt geht das bei spielen. müsste man mal testen
Schau mal ob das Spiel ein Vollbildfenstermoduns unterstützt.
Bei WoW ist das der Fall. Wenn man diesen einschaltet, sieht es wie Vollbild aus aber es ist im Grunde ein Fenstermodus und du kannst auf deinem 2. Monitor weiter arbeiten.
So hab ich das gemacht bei WoW aber bei andern Games hab ich das leider auch noch nicht hinbekommen.
also das "_" in Autoit lässt dich eine Zeile in mehrere aufsplitten also is das hier shcon ok angewendet^^
aber der rest is mir auch schleierhaft^^
