Imports System.Net.Sockets, System.Net
 
Module Module1
    Dim mySock As Socket
    Dim myEnc As Text.Encoding = Text.Encoding.GetEncoding(1252)
    Sub Main()
        Dim myEP As IPEndPoint = New IPEndPoint(Dns.Resolve( _
          "cumz.de").AddressList(0), 27015)
        mySock = New Socket(myEP.AddressFamily, SocketType.Dgram, _
        ProtocolType.Udp)
        mySock.Connect(myEP)
        S("ÿÿÿÿ" & Chr(84) & "Source Engine Query")
        mySock.SetSocketOption(SocketOptionLevel.Socket, _
          SocketOptionName.ReceiveTimeout, 2000)
        Dim myContent As String = ""
 
'EMPFANGEN
        Dim myB(1024) As Byte
        Dim I As Int32 = mySock.Receive(myB, 1025, SocketFlags.None)
        myContent &= myEnc.GetString(myB, 0, I)
 
        mySock.Close()
        Console.WriteLine(myContent)
        Console.Read()
    End Sub
    Function S(ByVal mText As String) As Int32
        Dim myB() As Byte = myEnc.GetBytes(mText)
        Return mySock.Send(myB, mText.Length, SocketFlags.None)
    End Function
End Module

MfG.
Fabian Stern
-
info@smart-coding.com
http://www.smart-coding.com