Проверил свойства Mswinsock.ocx, через Total Comander подключился к FTP - сервак работает. Опять запустил форму, добавил побольше Debug'ов - все равно шишь!
Какой-то бред, у самого два дня назад такой код работал, а сейчас, в новой, пустой, написанной с нуля, базе не работает (проверял на другом компе, стал старые версии Mswinsk.ocx)
Весь код:
- Код: Выделить всё
Option Compare Database
Option Explicit
Private Sub Winsock4_Connect()
Debug.Print "Winsock4_Connect"
End Sub
Private Sub Winsock4_SendComplete()
Debug.Print "Winsock4_SendComplete"
End Sub
Private Sub Winsock4_DataArrival(ByVal bytesTotal As Long)
Dim sData As String
Winsock4.GetData sData, vbString
Debug.Print sData
End Sub
Private Sub Кнопка1_Click()
Dim sSendData As String
Dim FromHost As String, sUser As String, sPass As String
FromHost = "111.111.111.111"
sUser = ...
sPass = ...
Winsock4.Close
Winsock4.Protocol = sckTCPProtocol
Winsock4.RemotePort = 21 ' порт FTP
Winsock4.RemoteHost = FromHost ' адрес FTP-сервера
Winsock4.Connect
End Sub
Private Sub Кнопка2_Click()
Dim sSendData As String
Dim sUser As String
sUser = "user_puper" ' пример соотв.
Do Until Winsock4.State = 7
DoEvents
Loop
sSendData = "USER " & sUser & vbCrLf
Winsock4.SendData sSendData
End Sub
Private Sub Кнопка3_Click()
Winsock4.Close
End Sub
Отчет Debuga:
Winsock4_Connect
220 Serv-U FTP Server v3.0 for WinSock ready...
Winsock4_SendComplete
Ответ от сервера на команду USER так и не пришло.
Код уже упростил по максимому. Не знаю что еще можно поменять или проверить.
Посоветуйте что-нибудь, как вернуть счастливое мгновение работы winsock'a . Может там с бубном вокруг компа походить надо или еще что .... Заранее благодарен за любой совет (кроме суицида), потому как мое воображение уже признало свое поражение.
