smtp сервер не отвечает

[Создатель]

В чем прикол? Сначала пишу вот такую весч:

Код: Выделить всё


    Dim output As NetworkStream
    Dim readStream As StreamReader
    Dim smtpServer As TcpClient

        smtpServer = New TcpClient
        smtpServer.Connect(TextBox3.Text, 25) (подключаюсь к себе)

        output = smtpServer.GetStream
        readStream = New StreamReader(smtpServer.GetStream)

        data = readStream.ReadLine
        TextBox2.Text &= vbCrLf & data


Все нормально, smtp выдает:
220 home-42d452ed88 Microsoft ESMTP MAIL Service, Version: 6.0.2600.2180 ready at Sun, 4 Sep 2005 21:55:56 +0700

Затем пишу:

Код: Выделить всё

        dataToSend = Encoding.ASCII.GetBytes("HELO wrox.com")
        output.Write(dataToSend, 0, dataToSend.Length)
        data = readStream.ReadLine
        TextBox2.Text &= vbCrLf & data


Молчание, smtp нифига не выдает...почему?

[gaidar]

Надо запрос к серверу завершать двумя символами \n\r\n\r, то бишь vbCrLf

[Создатель]

Ух ты как! Работает Спасибо

[_Мика_]

А у мну нету такого Encoding

[gaidar]

А у мну нету такого Encoding

Где нет?

[Создатель]

Imports System.Text

[_Мика_]

Imports System.Text

Спасибо!
У меня вопрос...А не проще использовать старый добрый Winsock? А то както много кода получается чтобы послать запрос серверу