01. juni 2004 - 20:03Der er
4 kommentarer og 1 løsning
Server Rules Query. BIG time problem
Heysa Jeg har et lille problem med min kode når, jeg når til sidste variabel, er den tom også kommer den med en fejl.. jeg ved ikke lige hvordan jeg skal rette det, så den ikke laver den fejl, som den gør. for den siger at værdien må ikke være mindre end 'nul' så Hjææææælp...
Private Sub PhaseRules(ByVal ServerResponse As String) Dim ResponseString As String = ServerResponse Dim RulesOnServer As Integer ' Used for the player loop (Max players) Dim RulesLoop As Integer Dim Packetid As Integer Rules = New ArrayList ' Clear the playerlist Select Case _GameType Case enumGame.Halflife ' Start of player phasing ' Remove the useless start of the packet DelString(ResponseString, 8)
Packetid = Asc(ResponseString.Chars(0)) : DelString(ResponseString) RulesOnServer = Asc(ResponseString.Chars(0)) : DelString(ResponseString) ' Loop through the Rules For RulesLoop = 1 To RulesOnServer ' Create Rules object Dim MyRules As New classServerRules MyRules.Name = ResponseString.Substring(0, ResponseString.IndexOf(Chr(0))) : DelString(ResponseString, MyRules.Name.Length + 1) ' Add Rules to the arraylist Rules.Add(MyRules) Next End Select
Hos Computerworld it-jobbank er vi stolte af at fortsætte det gode partnerskab med folkene bag IT-DAY – efter vores mening Danmarks bedste karrieremesse for unge og erfarne it-kandidater.
Hvad tænker du på med at tjekke før den er sat til noget? Det virker ganske fint i min variabel tjek, men det er bare det sidste med at få den til at stoppe med at komme med den dumme fejl der : mindste værdien kan ikke være mindre end nul.
Den kunne også skrives sådanne : MyRules.Name = ResponseString.Substring(0, ResponseString.IndexOf(Chr(0)))
Ups Der var en fejl i den kode jeg pastede.. kom til at slette en linie eller 2 formeget.
Private Sub PhaseRules(ByVal ServerResponse As String) Dim ResponseString As String = ServerResponse Dim bckstring As String = ServerResponse Dim RulesOnServer As Integer Dim RulesLoop As Integer Dim Cycle As Boolean Dim slashpos As String Rules = New ArrayList Select Case _GameType Case enumGame.Halflife Cycle = True DelString(ResponseString, 8)
While ResponseString <> Chr(0) For RulesLoop = 1 To RulesOnServer
Dim MyRules As New classServerRules slashpos = ResponseString.Substring(0, ResponseString.IndexOf(Chr(0))) MyRules.Name = ResponseString.Substring(0, ResponseString.IndexOf(Chr(0)))
Oki nu er jeg selv kommet så langt så jeg kan se at det nok er fordi at counter strike servere idag indeholde flere cvars regler end tidligere, og derfor sender 2 pakker med info.. men er der virkelig INGEN der selv har udviklet et server Query program. ???
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
