Lieber Besucher, herzlich willkommen bei: AutoIt.de - Das deutsche AutoIt-Forum. Falls dies dein erster Besuch auf dieser Seite ist, lies bitte die Hilfe durch. Dort wird dir die Bedienung dieser Seite näher erläutert. Darüber hinaus solltest du dich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutze das Registrierungsformular, um dich zu registrieren oder informiere dich ausführlich über den Registrierungsvorgang. Falls du dich bereits zu einem früheren Zeitpunkt registriert hast, kannst du dich hier anmelden.
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »klavier22« (3. März 2012, 15:45)
Benutzerinformationen überspringen
Registrierungsdatum: 30. August 2008
Wohnort: Frankfurt am Main
Beruf: Pinselquäler und AvD
Zitat von »Sokrates«
"Wer weiß, dass er nichts weiß, weiß mehr als der, der nicht weiß, dass er nichts weiß."
Zitat von »Werner Krauß«
Der Witz ist das Erdgeschoss des Humors, die Satire der Erste Stock, die Ironie der Zweite, der Sarkasmus das Mansardenstübchen.
Spoiler
![]()
AutoIt-Quellcode
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 Func _LoadPlayers() ; Loads the list of all players playing on the server into the listview $LVPlayers and puts the information in the array $Players $received = _send(_GUICtrlIpAddress_Get($IIP), GUICtrlRead($IPort), GUICtrlRead($IPassword), "sv players", 1) If @error = 1 Then MsgBox(4096, "Rcon Passwort falsch", "Der Server antwortete, dass das Rcon Passwort falsch sei.") Return 0 ElseIf @error = "2" Then MsgBox(4096, "Server antwortete nicht", "Der Server antwortete nicht.") Return 0 EndIf $VPlayers = StringSplit($received, @CRLF) If $VPlayers[0] >= "2" Then $i = $VPlayers[0] - 1 Global $Players[$i][7]; Nummer, Name, Build, ID, OP, IP, BOT For $i = 1 To $VPlayers[0] - 1 Local $temp = "" If StringRegExp($VPlayers[$i], "OP \d*\,", 0) Then Local $temp = StringRegExp($VPlayers[$i], "(\d+) \((\d+?)\)] \* OP (\d+)\, (.*) \(b(\d+)\)", 2) ;bei OP, liefert 6 Elemente $Players[$i - 1][0] = $temp[1] $Players[$i - 1][1] = $temp[4] $Players[$i - 1][2] = $temp[5] $Players[$i - 1][3] = $temp[2] $Players[$i - 1][4] = $temp[3] ElseIf StringRegExp($VPlayers[$i], "\d+ \] \* ", 0) Then Local $temp = StringRegExp($VPlayers[$i], "(\d+) \] \* (.*) \(b(\d+)\)", 2) ;Ohne ID, liefert 4 Elemente $Players[$i - 1][0] = $temp[1] $Players[$i - 1][1] = $temp[2] $Players[$i - 1][2] = $temp[3] ElseIf StringRegExp($VPlayers[$i], "\d+ \(bot\)\]", 0) Then Local $temp = StringRegExp($VPlayers[$i], "(\d+) \(bot\)\] \* (.*) \(b(\d+)\)", 2) ;Falls Bot, liefert Nummer + Name $Players[$i - 1][0] = $temp[1] $Players[$i - 1][1] = "(BOT) " & $temp[2] $Players[$i - 1][2] = 0 $Players[$i - 1][6] = True Else Local $temp = StringRegExp($VPlayers[$i], "(\d+) \((\d+)\)\] \* (.*?) \(b(\d*)\)", 2) ;mit ID, liefert 5 Elemente $Players[$i - 1][0] = $temp[1] $Players[$i - 1][1] = $temp[3] $Players[$i - 1][2] = $temp[4] $Players[$i - 1][3] = $temp[2] EndIf Next $PlayerIPs = _send(_GUICtrlIpAddress_Get($IIP), GUICtrlRead($IPort), GUICtrlRead($IPassword), "sv listuserip", 1) $PlayerIPs = StringRegExp($PlayerIPs, "\[(\d+\.\d+\.\d+\.\d+)\:\d*\]", 3) For $i = 0 To UBound($PlayerIPs) - 1 Step 2 If Not $Players[$i / 2][6] Then $Players[$i / 2][5] = $PlayerIPs[$i] Else $Players[$i / 2][5] = _GUICtrlIpAddress_Get($IIP) EndIf Next _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($LVPlayers)) _GUICtrlListView_AddArray($LVPlayers, $Players) Else Dim $Players[1][5] $Players[0][0] = "" $Players[0][1] = "" $Players[0][2] = "" $Players[0][3] = "" $Players[0][4] = "" _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($LVPlayers)) EndIf _ConWrite($EConsole, _GUICtrlListView_GetItemCount(GUICtrlGetHandle($LVPlayers)) & " Spieler wurden geladen.") EndFunc ;==>_LoadPlayers
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »klavier22« (3. März 2012, 16:23)

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »klavier22« (3. März 2012, 22:35)
