Winsock not listening

[abdul_zu]

Hi,

I have below code which have no error. but after clicking the button it winsock closed automatically and i will not able to connect on winsock via telnet.

Private Sub Command2_Click()
 Dim tcpMailSocket As Object
 Set tcpMailSocket = CreateObject("MSWinsock.Winsock")
    If tcpMailSocket.State <> 2 Then
    tcpMailSocket.Protocol = sckTCPProtocol
    tcpMailSocket.Listen
    End If
    Text1.Text = tcpMailSocket.LocalPort
End Sub

Could you please point how to keep listening Winsock using CreateObjet?
Same code when i use Winsock.ocx component it works well.

BR

[danecook21]

Why not just use the ocx control? Or the Winsock API? CreateObject is usually used in scripting.

[LaVolpe]

Part of your problem is that you are declaring tcpMailSocket object inside your click routine. When the click routine exits, the tcpMailSocket object goes out of scope and VB releases it, at which time the tcpMailSocket object is obviously closing first.

Suggest either what danecook recommended or declare your tcpMailSocket object at top of your form so it is available to the entire form. If done that way, you will have to call CreateObject once at some point before using it and you should close it and set it to Nothing at some point before your app unloads.

To better understand declarations and their scope, suggest looking at this FAQ topic and others. The VB FAQ main page is linked in my signature below.

[coolcurrent4u]

have you checked here