[VB6] Winsock e lettura messaggi da casella di posta

[marco.agelao]

Il listato è lo stesso di prima, con poche righe in più.

Private Sub Command1_Click()
wskClient.Connect host.Text, porta.Text
End Sub

Private Sub Command2_Click()
wskClient.Close
End Sub

Private Sub Invia_Click()
wskClient.SendData Testodainviare.Text
End Sub

Private Sub wskClient_DataArrival(ByVal bytesTotal As Long)
Dim a As String
wskClient.GetData a
txtReply = a & vbCrLf

End Sub