Teamspeak 3 UDF

*g* weiß nicht. irgendwas um es zu benutzen
ich weiß im Moment nicht wie ich das Script benutze...

Zitat von chip

Ich denke bei dir ist das Problem, dass du generell nicht weißt wie man eine UDF verwendet.

Ja das ist mehr als möglich
Ich glaube ich stelle mir da was andere drunter vor als es ist

Danke, ich hatte eben auch mal nach gegooglet...
ich hatte mir was anderes vorgestellt.

trotzdem schöne arbeit aber für nicht brauchbar

Hi Chip und co,
ich habe gerade einen Fehler in deiner _ts3channellist Funktion gefunden. Das Problem liegt wohl an einer feststeckenden Fehlernachricht, bzw. bestätigungsnachricht, in diesem Fall eine error id=0 msg=ok Meldung. Ich habe die Funktion mal umgeschrieben, da ich die UDF momentan brauche. Diese Funktion ist sicher nicht das Optimum, da, falls Errors auftreten, diese sicherlich nicht korrekt zurückgegeben werden. Falls du dir die Arbeit machen würdest, wäre eine Pufferfunktion, die den TCPBuffer von sämmtlichen Error-Meldungen usw leert, nicht schlecht. Damit würden solche Fehler entfallen. Hier aber meine umgewandelte Funktion.
[autoit]Func _TS3channellist($TS3topic = False, $TS3flags = False, $TS3voice = False, $TS3limits = False)
$send = "channellist"
If $TS3topic = True Then
$send = $send & " -topic"
EndIf
If $TS3flags = True Then
$send = $send & " -flags"
EndIf
If $TS3voice = True Then
$send = $send & " -voice"
EndIf
If $TS3limits = True Then
$send = $send & " -limits"
EndIf
TCPSend($TS3connection, $send & Chr(10))
While 1
$recv = TCPRecv($TS3connection, 2048)
$recv = StringReplace($recv, @LF, @CRLF)
$recv = StringReplace($recv, @CRLF & @CR, @CRLF)
If StringInStr($recv, "cid") Then
$recv = StringReplace($recv, "error id=0 msg=ok", "")
Return $recv
ElseIf StringInStr($recv, "error") Then
;von Timtam hinzugefügt
$error = _stringbetween($recv, "id=", " msg")
switch $error[0]
case "0"
continueloop
case else
return seterror(1, 0, _ts3errors($recv))
endswitch
;und hier endet der schnipsel
EndIf
WEnd
endfunc
/autoit]

Hi Chip:D
Mit deiner UDF hast du einen Alten Dinosaurier geweckt...
Habe WE mal 2000 Zeilen Code zusammengeschustert da Autoit mal wieder eine nette alternative zu C#,PHP und Java ist..

Hab einen kleinen Chat/Admin/Youtube/Google/Wikipediabot gebaut der eigentlich ganz gut läuft.. nur irgendwann scheint keiner deiner Funktionen meh zu reagieren...
ich schätze mal das irgendwo zwischen _TS3servernotifyregister und TCPRecv ein Timeout hängt, und wenn der TS die verbindung irgendwann schließt...

Vom ablauf her:
Ich registriere mit TS3servernotifyregister die Events und daraufhin läuft mein ganzes Programm in der Whileschleife um ein Wait(10), dein TCPRecv($TS3connection, 2048) und die damit verbundenen parserfunktionen.. Irgendwann (so habe ich durch logging herausgefunden) stoppt die schleife nach einem $hi=_TS3hostinfo() ... Ich kriege nicht mal einen Fehler... Du solltest dir While(1) abgewöhnen und es bei einem for 1000 belassen

Egal wer das Script noch benutzt...
Das ist ja wohl kein sauberer Code:

TCPSend($TS3connection, "instanceinfo" & Chr(10))
While 1
$recv = TCPRecv($TS3connection, 2048)
$recv = StringReplace($recv, @LF, @CRLF)
$recv = StringReplace($recv, @CRLF & @CR, @CRLF)
If StringInStr($recv, "serverinstance") Then
$recv = StringReplace($recv, "error id=0 msg=ok", "")
Return $recv
EndIf
WEnd

Nicht nur die Sache mit der While 1.. du lässt der Schleife keinen anderen ausweg als das das Packet "serverinstance" enthält... stell dir mal vor da geht mal ein Paket verloren.. Dein Server versagt einmal, oder TS3 updated die antwort von instanceinfo ... na dann aber viel vergnügen