Telnet i vb

Telnet bruger port 23 som standard..

Det ser heller ikke ud til du har de nødvendige argumenter med. Udfra det du har skrevet vil jeg tro du prøvet at forbinde til "mail.tele.dk" på port 25 (SMTP), isåfald skal din kode ændres lidt:

Private Sub Form_Load()
a.Connect "mail.tele.dk", 25 'Der forbindes til mail.tele.dk på port 25
End Sub

Private Sub a_DataArrival(ByVal bytesTotal As Long)
Dim data As String
a.GetData data
k.Text = k.text & vbcrlf & data
End Sub

Connect kommandoen skal vide præcist hvilket host og hvilken port den skal forbinde til, det er ikke meningen det skal foregå via SendData. SendData bruges til at sende data når forbindelsen er skabt. I tilfældes med mailserveren kunne du jo sende en "HELO" kommando:


Private Sub Command1_Click()
if a.state <> 0 then
a.SendData "HELO 127.0.0.1"
End If
End Sub