Code:
Private Function Connect() As NetworkStream
Dim sender As TcpClient = New TcpClient(POPServer, whatport)
Dim outbytes() As Byte
Dim getbuffer() As Byte
Dim input As String
Dim ns As NetworkStream
Try
ns = sender.GetStream()
Dim sr As StreamReader = New StreamReader(ns)
Console.WriteLine(sr.ReadLine())
input = "USER " + user + vbCrLf
outbytes = System.Text.Encoding.ASCII.GetBytes(input)
If ns.CanWrite Then
ns.Write(outbytes, 0, outbytes.Length)
Console.WriteLine(sr.ReadLine())
End If
input = "PASS " + pwd + vbCrLf
'input = "PASS " + pwd + "\r\n"
outbytes = System.Text.Encoding.ASCII.GetBytes(input.ToCharArray())
ns.Write(outbytes, 0, outbytes.Length)
'Console.WriteLine(sr.ReadLine())
Return ns
Catch ioe As InvalidOperationException
Console.WriteLine("Could not connect to mail server")
Return ns
End Try
End Function
U primerima sa neta nije bas ovako, ali sam nasao celu dokumentaciju POP3 protokola i ovako bi trebalo da bude. Medjutim program se blokira na pokusaju konekcije putem USER/PASS ?