Winsock 错误 40009 vb6

Question

 Winsock1.Connect "mail.website.com", 110

 Do Until received: DoEvents: Loop

 If sckError Then MsgBox "An error occured trying to connect to server": Exit Sub

 sendMsg "USER username"  ' Send UserName
 If sckError Then MsgBox "Error with username": Exit Sub

 sendMsg "PASS password"   ' Send Password
 If sckError Then MsgBox "Error with password": Exit Sub


' Get Number of Messages and total size in bytes
 sendMsg "STAT"
 x = InStr(Message$, " "): b = InStrRev(Message$, " ")
 messages = Val(Mid$(Message$, x + 1, b - x))
 Size = Val(Mid$(Message$, b + 1))
 If messages = "0" Then
 MsgBox "no new messages"
 GoTo l
 End If

 For a = 1 To messages
    Winsock1.Tag = "RETR"
    Open "C:\Windows\Temp\eMail-" & a & ".eml" For Binary Access Write As #1

    sendMsg "RETR " & a
    List1.AddItem "eMail-" & a & ".eml"
  Next

  Winsock1.Tag = ""

 Next
l:
Winsock.Close

---

当我第一次运行它时，它工作得很好，但是当我尝试第二次运行它而不关闭应用程序时，它给了我 40009 错误。我想我试图在连接之前发送数据。有没有办法查看winsock是否已连接？类似

如果winsock1.state = true 那么...

Answer 1

您没有列出所有代码，但我猜测变量received未重置，导致您直接进入sendMsg“USER username”尽早编码。在开始写入套接字之前，您必须让连接真正发生/完成。