Winsock DataArrival event just triggers once

[chintan_1671]

When i send a command to a terminal, there are chances that more than more reply are sent.
Winsock_DataArrival Triggers just once when first reply is sent. Its is not triggering when second reply is sent by the terminal.
I telnet to the terminal and can see multiple replies coming through.

With sockP

If .State <> sckClosed Then
.Close
End If

.Protocol = sckTCPProtocol
.Connect sIPAddress, sIPPort

Do
DoEvents
Loop Until .State = sckConnected Or .State = sckClosed

sockP.SendData sText

Private Sub sockP_DataArrival(ByVal bytesTotal As Long)

Dim rData As String
rData = ""

sockP.GetData rData, vbString
txtReplies.text = rData
DoEvents

End Sub

DataArrival is event is just being triggered once. I dont know what am i doing wrong.
Ex: If i send ATE0 .. i get back just ATE0 and not OK which is followed.

I am not much familiar with winsock in vb6 and i cant upgrade to .net at this point.

Please advise.

Thanks

[dglienna]

Why not use remote desktop? Or the command-line equivalent to connect to a modem

[chintan_1671]

I think it can create problem with Windows Vista and Windows 7.
Also this should make sure that telnet service is installed on every machine using this.

[dglienna]

Found it! VIsta & Windows 7

Microsoft Windows [Version 6.1.7601]
Copyright (c) 2009 Microsoft Corporation. All rights reserved.

C:\Windows\System32>rasdial /?
USAGE:
rasdial entryname [username [password|*]] [/DOMAIN:domain]
[/PHONEhonenumber] [/CALLBACK:callbacknumber]
[/PHONEBOOKhonebookfile] [/PREFIXSUFFIX]

rasdial [entryname] /DISCONNECT

rasdial

For Online Privacy Information please refer to
'http://go.microsoft.com/fwlink/?LinkId=104288'

[chintan_1671]

Ok problem is solved.
I was just missing new line character while sending commands.

Thanks

[DataMiser]

Glad you go it fixed, I was about to suggest something to that effect. I have been using the Winsock control in a commmerical program I created for over 10 years now and never had an issue with it.