Problemer med UDP pakker og lykke
Hejsa jeg har en kode stump her som giver mig problemer med at modtage en pakke, eller skulle jeg sige 2 for jeg tror at den pakke som jeg vil modtage fylder for 2 pakker....men jeg ville gerne vide hvordan jeg får denne kode til at stoppe hvis min responsestring er tom og hvis der er mere end en pakke at den forsætter med at læse den.
jeg er ret meget i vildrede lige nu.
men her er koden :
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)
RulesOnServer = Asc(ResponseString.Chars(0)) : DelString(ResponseString)
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)))
DelString(ResponseString, MyRules.Name.Length + 1)
DelString(slashpos)
slashpos = ResponseString.Substring(0, ResponseString.IndexOf(Chr(0)))
MyRules.Value = ResponseString.Substring(0, ResponseString.IndexOf(Chr(0)))
DelString(ResponseString, MyRules.Value.Length + 1)
DelString(slashpos)
If MyRules.Name = Chr(0) Then
Else
If MyRules.Value = Chr(0) Then
Else
Rules.Add(MyRules)
End If
End If
Next
End While
End Select
End Sub
