home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / multi-4a / incommin.bas < prev    next >
Encoding:
BASIC Source File  |  1999-08-25  |  413 b   |  17 lines
  1. Attribute VB_Name = "incomming_data"
  2. Option Compare Text 'lose cap sensitivity for this module
  3.  
  4. Sub decode_data(data As String, socket As Integer)
  5. 'a socket has sent some data to the server, write your code
  6. 'to translate the data here..
  7.  
  8. 'first update the idle information
  9. client(get_clientid(socket)).idle_since = f_time
  10.  
  11. 'now decode the data
  12.  
  13. 'if mid(data,1,3) = "SAY" then... etc etc
  14.  
  15.  
  16. End Sub
  17.