Winsock Control

Hi,

I'm using Visual Basic 5 to create a simple TCP/IP client.  I have add a Winsock control to the main form of the application and can make a telnet connect to a remote host.

What i'm trying to achieve is when a menu option is selected a a sting of characters will be transmitted to the host and a response waited for.  Depending on the menu option different characters are transmitted. The response will be output in a dialog box.

i have tried the following (Query is the menu option)

Private Sub Query_Click()
dim received as String

Winsock1.SendData ">>P001"
received = ""
while received = ""
     Winsock1.PeekData received
wend
` we have some data
` so lets display it
End Sub

What seems to happen is that Winsock1.SendData completes OK. But data is not transmitted to the remote host. As the remote host does not send anything back till it receives an input. we get into a loop.  I have noticed that Winsock1.SendData only physically transmits the data when Query_Click() functions exits.  If  this is how it works how can I have a function which is called by a click of a menu option which sends data waits for a response displays the result then sends some more etc etc.

Robert
Robert888Asked:
Who is Participating?
 
lmeijerConnect With a Mentor Commented:
Robert,

Place a doevents statement! Otherwise you don't let events
happen to fill the data.

while received = "" 
  Winsock1.PeekData received
  DoEvents
wend
 
0
 
bitzCommented:
I need to know one thing.  What Winsock Control are you using?  (Did you download the Internet Control Pack from MicroSoft?).  If  you say the filename, I'll know what one your using.  Thanks,
                        -bitz(program@mindless.com)
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.