Flash 5与VB 6的TCP实时通信法

　　Flash的xmlsocket对象/VB的winsock控件，可做C/S通信，最小实例是：

　　Flash第1帧，action是： http://www.it55.com/

　　function got (xml) {
s=xml.toString()； //接收0结尾的xml文本
trace(s)；　　　　　　　　　　　 //显示
sock.send(s.toLowerCase())；　　 //转成小写，发送
　　}

　　sock = new xmlsocket()；
　　sock.onxml=got； 　　　　　　　　　　　　//server数据到达句柄

vd;k;l www.it55.com rdfg

　　sock.connect("localhost"，1201)； 　　　　//连接本机1201端口
　　s = new string()；

www.it55.com

　　VB的winsock控件sock，localport为1201，用户击1次窗体，就发1次大写字母，随后收client相应小写字母：

Option Explicit

免费资源www.it55.com

　　Dim xml(0 To 1) As Byte '许存结尾0
　　　　Dim s As String '全局量 45398 www.it55.com it55学习IT知识，享受IT生活 4dfkjn

　　　　Private Sub Form_Load()
　　　　Show
　　　　xml(0) = 65 '字母A
　　　　xml(1) = 0 '0结尾
　　　　sock.Listen '侦听
　　End Sub

IT资讯之家 www.it55.com

　　Private Sub sock_ConnectionRequest(ByVal ID As Long) '响应Client的连接
　　　　sock.Close
　　　　sock.Accept ID
　　End Sub IT资讯之家 www.it55.com

　　Private Sub Form_Click() '响应窗体的单击
　　　　sock.SendData xml '发送
　　　　xml(0) = xml(0) + 1
　　　　If xml(0) = 68 Then xml(0) = 65 '循环ABC
　　End Sub http://www.it55.com/

　　Private Sub sock_DataArrival(ByVal b As Long)
　　Dim s As String '局部量
　　　　sock.GetData s '接收
　　　　Me.Caption = s '显示
　　End Sub http://www.it55.com/

（阅读次数：）