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

接下来是后台服务器的制作。我用的是Microsoft Visual Studio .NET 2003。语言为VB。（图和相关文字不能放在一起-_- 大家麻烦点，上下对着看吧。）
首先建一个空项目，命名为server（图3）。在这个项目的“解决方案资源管理器”上右击项目，选择“添加(D)”-“添加新项(W)”，添加一个类，命名为server.vb（图4）。在server.vb里写上socket的代码。我是从微软件的网站上的例子上修改来的，也没什么可说的。
Imports System.Net
Imports System.Net.Sockets
Namespace ibaiy
    Public Class Server
        Private lisenSocket As Socket
        Private allRoles As New Hashtable 
Private rolesPosition As New Hashtable
’在这个例子中我不打算用数据库了，所以建一个hashtable来存在线用户的资料。如果要存入数据库，只需要加上登陆后验证用户名密码，读数据库资料，再存到这个hashtable里。用户做了操作时再把hashtable里的数据处理后再写入数据库就可以了。这里的操作不难，但比较麻烦，所以我偷下懒
        ’启动服务的主函数
        Public Sub startServer(ByVal port As Integer)
            lisenSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
            Dim ipen As IPHostEntry = Dns.Resolve(Dns.GetHostName)
            Dim endpoint = New IPEndPoint(ipen.AddressList(0).Any, port)
            lisenSocket.Bind(endpoint)
            lisenSocket.Listen(1000)
            lisenSocket.BeginAccept(AddressOf Me.Listen_Callback, lisenSocket)
        End Sub
        Public Sub Listen_Callback(ByVal result As IAsyncResult)
            Dim s As Socket = CType(result.AsyncState, Socket)
            Dim so2 As New StateObject
            so2.workSocket = s.EndAccept(result)
            so2.workSocket.BeginReceive(so2.buffer, 0, so2.buffer.Length, 0, AddressOf Me.Read_Callback, so2)
            s.BeginAccept(AddressOf Me.Listen_Callback, s)
        End Sub
        Public Sub Read_Callback(ByVal result As IAsyncResult)
            Dim so As StateObject = CType(result.AsyncState, StateObject)
            so.len = so.workSocket.EndReceive(result)
            opMsg(so)
            so.buffer.Clear(so.buffer, 0, so.buffer.Length)
            Try
                so.workSocket.BeginReceive(so.buffer, 0, so.buffer.Length, SocketFlags.None, AddressOf Me.Read_Callback, so)
            Catch
            End Try
        End Sub
’这个函数就是处理服务器收到客户端消息的处理函数，一会详细说明
        Public Sub opMsg(ByVal so As StateObject)
        End Sub
    End Class
End Namespace
在server项目里像添加server.vb一样再添加一个StateObject.vb。这是为每个联接的SOCKET一定的buffer，索性做了一个新的类。写以下代码：
本文转自：http://www.5uflash.com/flashjiaocheng/Flashyingyongkaifa/975.html