Пишет:
WSAEADDRINUSE (10048) Address already in use.
Ошибка возникает при ВТОРОМ запуске этого кода:
Код:
Winsock1.Close
On Error GoTo err
Winsock1.Protocol = sckTCPProtocol
Winsock1.RemoteHost = "pop.mail.ru"
Winsock1.RemotePort = 110
Winsock1.Connect
WaitFor ("+OK")
Winsock1.SendData "USER " & "nik" & vbCrLf
WaitFor ("+OK")
Winsock1.SendData "PASS " & "pass" & vbCrLf
WaitFor ("+OK")
Winsock1.SendData ("LIST" + vbCrLf)
answer = WaitReply
If Val(Left(answer, 1)) < 1 Then
Winsock1.SendData ("QUIT" + vbCrLf)
WaitFor ("+OK")
Winsock1.Close
recieveCMD = "exit"
Exit Function
End If
Winsock1.SendData "TOP 1 0" & vbCrLf
answer = WaitReply
...
err:
Winsock1.SendData ("QUIT" + vbCrLf)
WaitFor ("+OK")
Winsock1.Close
Помогите пожалуйста убрать баг!
Заранее спасибо,
Константин.