FLASH通过XMLSocket与VB后台通信网游教程[3]

我们要先想好客户端和服务器端有什么资料要通讯的，定好通讯的格式。我是这样设计的：通讯的资料我就不加密了，格式是01u=aa&xxxx 。前两位是代表了是做什么。u=aa是用户aa 做的操作。xxxx是操作的内容。
[1b]00 由服务器提供给客户端(简称S2C,下同)，返回当前在线的所有用户。如：00u=a&x=0&y=0&u=b&x=54&y=78[/1b]
[1b]01 C2S 用户登陆 如：01u=a
   S2C 告诉其他在线用户有新用户登陆 如：01u=a[/1b]
[1b]02 C2S 用户移动 如：02u=a&x=100&y=50
   S2C 告诉其他在线用户某个用户在移动 如：02u=a&x=100&y=50[/1b]
[1b]03 C2S 用户下线 如：03u=a
   S2C 告诉其他在线用户某个用户下线了 如：03u=a[/1b]
[1b]04 C2S 用户发言 如：04u=a&内容
   S2C 告诉其他在线用户某个用户的发言 如：04u=a&内容[/1b]
这里要说一下用户下线，用户下线是由用户在客户端点击“下线”完成，也可以是点击关闭FLASH的窗口完成。如果是点“下线”，那就由FLASH发送03过来就可以了。如果是点击关闭窗口的话，那只能由服务器端判断。当收到客户端发送的数据长度为零时，就可以判断客户端下线了。opMsg函数如下：
 ’处理收到的数据
        Public Sub opMsg(ByVal so As StateObject)
            Dim username As String
            Dim sendmsg As String
            Dim keys As IDictionaryEnumerator
            ’如果发送消息长度为0，断开客户端
            If so.len 
本文转自：http://www.5uflash.com/flashjiaocheng/Flashyingyongkaifa/976.html