Installation xastir aus den Sourcen
Imports System.IO Imports System.Text Module Module1 Sub Main() Dim oClient As System.Net.Sockets.TcpClient = New System.Net.Sockets.TcpClient() Dim asByte() As Byte Dim lLen As Integer Dim sMsg As StringBuilder 'asByte = System.Text.ASCIIEncoding.ASCII.GetBytes("user DO0XXX pass *** vers t1 1.2 UDP 54321" & vbCrLf) asByte = System.Text.ASCIIEncoding.ASCII.GetBytes("user DO0XXX-1 pass *****" & vbCrLf) oClient.Connect("first.aprs.net", 23) oClient.GetStream().Write(asByte, 0, asByte.Length) Do ReDim asByte(128) lLen = oClient.GetStream().Read(asByte, 0, asByte.Length) sMsg = New StringBuilder sMsg.AppendFormat("{0}", Encoding.ASCII.GetString(asByte)) Console.WriteLine(sMsg.ToString) Exit Do Loop While oClient.Available asByte = System.Text.ASCIIEncoding.ASCII.GetBytes("DO9MBS-1>APX200,TCPIP*,qAC,CORE-2:=5202.73N/01022.08E>http://do9mbs.de ***DOK H21 ***" & vbCrLf) oClient.GetStream().Write(asByte, 0, asByte.Length) sMsg = New StringBuilder Do ReDim asByte(128) lLen = oClient.GetStream().Read(asByte, 0, asByte.Length) sMsg.AppendFormat("{0}", Encoding.ASCII.GetString(asByte, 0, lLen)) Loop While oClient.Available Console.WriteLine(sMsg.ToString) 'Console.ReadLine() oClient.Close() End Sub End Module