Winsock..

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim buffer As String

Winsock1.GetData buffer

if buffer = \".version 1.0\" then
MsgBox prompt:=\"Klient bruger v.: 1.0\"
else
Text1 = Text1 + buffer
Text1.SelStart = Len(Text1.Text)
end if
end sub

først modtager den strengen, derefter tjekker den om besked er \".version 1.0\" og hvis det ikke er det smider den strengen ind i en textbox og \'spolerø ned til bunden (hvis der er mere text i boxen end der kan vises hiver den sig selv ned til bunden hvor det nyeste jo er)

hmmm...det er desværre ikke nok..den skal nærmest splitte strengen op i 2..så først læser den .version ..og så ved den..hey, her kommer der noget om versionen..og så modtager den værdien af versionen...

okay... her så :O) :

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim buffer As String
Dim Prefix As String
Dim Pos As Integer
Dim PostFix As String

Winsock1.GetData buffer

\'Finder forreste ord i dit tilfælde .version
Pos = InStr(1, buffer, \" \")
Prefix = Mid(buffer, 1, Pos - 1)
\'#############

\'finder hvad der kommer efter Prefixet
Pos = InStr(Pos, buffer, \" \")
PostFix = Mid(buffer, Pos + 1)
\'#############

Select Case Prefix

    Case \".version\"
      MsgBox prompt:=\"Klient bruger v.: \" + PostFix
     
    \'Case \".msg\"
      \'Text1.text = text1.text + Postfix + vbcrlf
      \'Text1.SelStart = Len(Text1.Text)

    \'Tilføj evt selv flere
     
End Select
End Sub

MUAHAHAHHAHAHAH!:.... fatter ikke en skid og er lykkelig :D

dygtig razer.. :-)

takker ;O)