Про события пропустил. Всё.
Нефига. В моем тестовом проекте:
- Код: Выделить всё
Private Sub ws2_Connect()
MsgBox "Ok", vbInformation
End Sub
Должна срабатывать при соединении. Не срабатыват.
- Код: Выделить всё
Private Sub ws2_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
ws2.GetData strData
txtDataServak.Text = txtDataServak.Text & vbCrLf & strData
End Sub
При соединении с СМТП-сервером должен слать какие-то данные. Данные не приходят.
- Код: Выделить всё
Private Sub Timer_Timer()
Dim n As Byte
n = ws2.State
lbl.Caption = Left$(lbl.Caption, Len(lbl.Caption) - 1) & n
Select Case n
Case Is = 0
lbl2.Caption = "Порт закрыт"
Case Is = 1
lbl2.Caption = "Порт открыт"
Case Is = 2
lbl2.Caption = "Порт прослушивается"
Case Is = 3
lbl2.Caption = "Рассмотрение связи"
Case Is = 4
lbl2.Caption = "Разрешение хоста"
Case Is = 5
lbl2.Caption = "Хост разрешен"
Case Is = 6
lbl2.Caption = "Подключение к серверу"
Case Is = 7
lbl2.Caption = "Связь установлена"
Case Is = 8
lbl2.Caption = "Связь закрывается..."
Case Is = 9
lbl2.Caption = "Ошибка"
End Select
End Sub
Таймер перепроверяет состояние соединения с частотой в 200 Гц.
Установка соединения останавливается при статусе 6 ("Подключение к серверу"), а мне надо - 7("Связь установлена")
Я конечно далеко не профессионал в программинге, но и не прид-рок. Не знаю как Вам это доказать. Могу справку с больници взять

. Я реально не знаю почему нет соединения, а не голову Вам морочу.
Может быть кто-то выручит. Проверит мою прогу на своем соединении и мне ответит как прошел коннект, какое у него соединение.
Я грешу на баги в сети. Уже не знаю куда думать.
Зарание спасибо
