incomming_data.bas

来自「Winsock的多客户服务器源代码,比较好的WINSOCK应用示例!」· BAS 代码 · 共 17 行

Attribute VB_Name = "incomming_data"
Option Compare Text 'lose cap sensitivity for this module

Sub decode_data(data As String, socket As Integer)
'a socket has sent some data to the server, write your code
'to translate the data here..

'first update the idle information
client(get_clientid(socket)).idle_since = f_time

'now decode the data

'if mid(data,1,3) = "SAY" then... etc etc


End Sub