VB VB 高手过来看下啊~

我用VB编了一个游戏~~~
我想要改成可以连机的但是不知道该怎么搞~~~
有个朋友跟我说用 winsock 交换数据~~但是该怎么交换啊~~晕死我了~
谁能告诉我具体怎么搞啊~?~?
~`或告诉我到哪查资料也行~~
最好是有个源程序给我参考一下~~~
谢谢各位大哥大姐~~~
希望各位高手不要嫌麻烦~~

149 浏览 10 回复
  sub   服务   as   winsock   连接  

回复

    参考资料: 到这看看:<http://www.mf100.com/document/2002-9/120.shtml>

    小妃妆

    飞了

    周珍

    我VB不行`

    邹洁

    VB是web既网络

    范友

    可以看看这个,另外可以使用百度搜索一下,推荐"中国代码网",以下的内容大致差不多了.主要是看你如何设计传输的东西(的格式)和整体应用
    Microsoft的Windows Sockets API是Windows下的网络应用程序接口,为了适用于Windows下的消息机制和异步的I/O选择操作,Windows Sockets API在功能上扩充了将近20个函数,其中扩充的部分均冠以前缀WSA(Windows Sockets Asynchronous),如WSAStartup、WSAClean等,充分体现了Widnows的优越性。此外,Windows Sockets API有16位版和32位版两种,16位版是单进程的,32位版则提供了多线程下的安全保护。
    Microsoft Visual Basic提供了用于Windows Sockets编程的可用控件——Winsock控件。该控件为用户提供了访问TCP和UDP网络的极其方便的途径。并且适用于Microsoft Access、Visual Basic、Visual C++和Visual FoxPro等多种可视化环境。通过Winsock控件编制C/S程序,程序员无须了解TCP或低级Winsock APIs调用实现的细节,如用户无须考虑网络字节顺序与本机字接顺序便可直接进行数据的传送。用该控件实现网间进程通信极其方便。
    在TCP应用中,为了建立一个网络连接实例(Instance)的服务器端,只需设置本地服务端口号,然后服务器调用方法Listen进入阻塞状态,等待来自客户的连接请求。与此对应的客户端不但要将Winsock的属性RemoteHost置为服务器的名称(IP地址或网络代号),还应设置服务器所监听的相应服务的端口号(RemotePort),如FTP服务在21号端口,HTTP在81号端口等。然后调用方法Winsock.Connect向服务器发出请求。服务器接收到客户请求时,事件ConnectionRequest将被触发。如服务器愿意提供服务,则可调用Accept方法接受连接。
    一旦连接建立,两端均可使用SendData或GetData进行数据的发送或接收。事件DataArrival将在另一端数据准备就绪时被触发。
    UDP协议的实现与TCP不同的是,调用Sockets的两端无需建立连接便可进行数据的传输。因此,一个UDP应用可以同时担任服务器或客户的角色。
    以下程序代码为Visual Basic Windows Sockets编程的基本框架。
    '服务器方
    Private Sub Command1.Click()
    '设置本地服务端口号
    Winsock1.localport=2048
    '服务器进入监听状态
    Winsock1.listen
    End Sub
    Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    '收到客户连接请求
    '检查Socket状态
    If Winsock1.State <> sckClosed Then Winsock1.Close
    '接受客户请求
    Winsock1.Accept requestID
    End Sub
    Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    '对方数据已准备好
    '可用GetData()/SendData()接收/发送数据
    '处理客户数据
    ……
    End Sub
    Private Sub Form_Unload(Cancel As Integer)
    Winsock1.Close
    End Sub
    '客户方
    Private Sub Command1.Click()
    '设置服务器网络名
    Winsock1.RemoteHost=“193.168.1.40”
    '设置服务器相应服务端口号
    Winsock1.RemotePort=2048
    '向服务器发出连接请求
    Winsock1.Connect
    End Sub
    Private Sub Winsock1_Connect()
    '服务器响应连接
    '可以进行GetData()/SendData()进行数据传输
    ……
    End Sub
    Private Sub Form1.Unload()
    Winsock1.Close
    End Sub
    该段程序演示了用Visual Basic建立TCP连接的基本过程。因本文重在讲解Sockets编程,故文中未涉及VB自己封装的故障处理函数Winsock1.Erroe(),读者可自行编制。以上程序段可作为一般TCP应用的基本框架加以扩展使用。
    Microsoft Visual C++实现过程与前述的VB实现类同。具体实例可见Microsoft Visual C++ Samples中的chatsrv与chater程序。
    随着Internet的逐步兴起,Sockets编程必将成为流行的网络编程接口之一。也许您会发问:ISO的OSI模型又是何等地位呢?笔者的观点是:ISO的OSI模型必将成为网络应用的统一界面,Sockets接口的广泛应用则为OSI模型开拓了更广泛的应用前景!

    何芝

    这一次写的是如何用VB来写网路程式的方法,你可不要以为这是什么深奥的程式,其实只要一个Winsock 控制项就可以了,现在就来介绍一下Winsock 的用法:
    步骤一:首先要先把控制项给叫出来,你只要按下Ctrl+T后选取Winsock Control 5.0若是用VB6 的就选Winsock Control 6.0,这样就可以使用Winsock元件。
    步骤二:再来我们必须先确定程式是作Server端还是Client端的,要先设定一些属性:
    Server写法:winsock1.localPort = 5400 (数字可以随便设)
    winsock1.Listen (等待连线)
    Client写法:winsock1.RemoteHost = "对方IP"
    winsock1.RemoteProt = 5400 (必须要和Server端相同)
    winsock1.LocalProt = 0
    winsock1.Connect (连线)
    连线之前Client端要先知道Server端的IP,接著等到Server端等待连线时,Client端就可以呼叫Connect方法,双方连线成功后就可以传输资料。
    步骤三:当Client连线的时候Server端会引发ConnectionRequest事件,Server的程式要这样子写:
    Private Sub Winsock1_ConnectionRequest(ByVal requestID As long)
    winsock1.Close
    winsock1.Accept requestID
    End Sub
    步骤四:这样一来就可以传送资料了,传送和接受资料的方法如下:
    传送资料:mydata = "你好吗?"
    winsock1.sendData mydata
    这样就会把mydata给传到对方那里。
    接受资料:当有资料送到的时候会引发DataArrival事件。
    Privata Sub Winsock1_DtatArrival(ByVal bytesTotal As long)
    Dim mydata As String
    winsock1.GetData mydata 会把送到的资料给mydata
    End Sub
    Winsock 控制项就那么简单,只要会这些就可以写网路游戏了,相关的程式你可以参考网路五子棋(54K)http://www.mf100.com/list.asp?id=119。

    程心若

    详细可以看下面:
    http://tech.163.com/06/0407/14/2E46BB930009159S.html
    用VB5中WinSock控件编写网上聊天程序
    Sockets是在Unix系统上提出来的,一开始主要是用于本地通讯,但很快就应用到C/S体系上。MicroSoft公司在此基础上创建了WinSock控件,专门用于Windows接口,与Sockets完全兼容。Winsock控件对用户来说是不可见的,它提供了访问 TCP 和 UDP 网络服务的方便途径。Microsoft Access、Visual Basic、Visual C++ 或 Visual FoxPro 的开发人员都可使用它。为编写客户或服务器应用程序,不必了解 TCP 的细节或调用低级的 Winsock APIs。通过设置控件的属性并调用其方法就可轻易连接到一台远程机器上去,并且还可双向交换数据。下面就利用VB5中的WinSock控件编写一个网上聊天程序。
    一)网络通信协议的基础和选择
    1.1 TCP(数据传输协议)基础
    数据传输协议允许创建和维护与远程计算机的连接。连接两台计算机就可彼此进行数据传输。
    如果创建客户应用程序,就必须知道服务器计算机名或者 IP 地址(RemoteHost 属性),还要知道进行“侦听”的端口(RemotePort 属性),然后调用 Connect 方法。
    如果创建服务器应用程序,就应设置一个收听端口(LocalPort 属性)并调用 Listen 方法。当客户计算机需要连接时就会发生 ConnectionRequest 事件。为了完成连接,可调用 ConnectionRequest 事件内的 Accept 方法。
    建立连接后,任何一方计算机都可以收发数据。为了发送数据,可调用 SendData 方法。当接收数据时会发生 DataArrival 事件。调用 DataArrival 事件内的 GetData 方法就可获取数据。
    1.2 UDP(用户数据文报协议)基础
    用户数据文报协议 (UDP) 是一个无连接协议。跟 TCP 的操作不同,计算机并不建立连接。另外 UDP 应用程序可以是客户机,也可以是服务器。
    为了传输数据,首先要设置客户计算机的 LocalPort 属性。然后,服务器计算机只需将 RemoteHost 设置为客户计算机的 Internet 地址,并将 RemotePort 属性设置为跟客户计算机的 LocalPort 属性相同的端口,并调用 SendData 方法来着手发送信息。于是,客户计算机使用 DataArrival 事件内的 GetData 方法来获取已发送的信息。
    1.3 选择通讯协议
    在使用 WinSock 控件时,首先需要考虑使用什么协议。可以使用的协议包括 TCP 和 UDP。两种协议之间的重要区别在于它们的连接状态:
    TCP 协议是有连接的协议,可以将它同电话系统相比。在开始数据传输之前,用户必须先建立连接。
    UDP 协议是一种无连接协议,两台计算机之间的传输类似于传递邮件:消息从一台计算机发送到另一台计算机,但是两者之间没有明确的连接。另外,单次传输的最大数据量取决于具体的网络。
    到底选择哪一种协议通常是由需要创建的应用程序决定的。下面的几个问题将有助于选择适宜的协议:
    1. 在收发数据的时候,应用程序是否需要得到客户端或者服务器的确认信息?如果需要,使用 TCP 协议,在收发数据之前先建立明确的连接。
    2. 数据量是否特别大(例如图象与声音文件)?在连接建立之后,TCP 协议将维护连接并确保数据的完整性。不过,这种连接需要更多的计算资源,因而是比较“昂贵”的。
    3. 数据发送是间歇的,还是在一个会话内?例如,如果应用程序在某个任务完成的时候需要通知某个计算机,UDP 协议是更适宜的。UDP 协议适合发送少量的数据。
    通讯协议的选择是通过设置WinSock的Protocol属性来实现的。下面选择TCP通讯协议编写网上聊天程序,在此之前必须知道一个极其重要的参数---服务器端的IP地址或计算机名。
    二)确定计算机的名字
    1. 在计算机的桌面上,右键单击“网上邻居”。
    2. 选择“属性”。
    3. 单击“标识”选项卡。
    4. 在“计算机名称”框中可以找到计算机的名称。
    确定计算机的 IP地址
    1. 单击“任务条”上的“启动”。
    2. 选择“运行”。
    3. 若服务器端操作系统为win95则在“打开”中填入“winipcfg”,若服务器端操作系统为winnt则在“打开”中填入“ipconfig”。
    4. 按下“确定”键。
    上面找到的计算机名称或IP地址可以作为WinSock的RemoteHost 属性的值。
    三) winsock控件的State属性。
    state 属性的设置值是: 常 数
    值 描 述
    sckclosed 0 缺省的。关闭
    sckopen 1 打开
    scklistening 2 侦听
    sckconnectionpending 3 连接挂起
    sckresolvinghost 4 识别主机
    sckhostresolved 5 已识别主机
    sckconnecting 6 正在连接
    sckconnected 7 已连接
    sckclosing 8 同级人员正在关闭连接
    sckerror 9 错误
    下面主要要用到sckClosed.sckConnected两个State属性的值。
    四)网上聊天程序的编制
    4.1 程序中服务器端所起的作用。
    从图示中可以看到服务器端的两个winsock控件之间并不存在直接的通讯,同时sckServer1和sckClient2及sckServer2和sckClient1之间是不能直接通讯的。这也即是说若sckClient1向sckClient2发出信息,信息首先被sckServer1接受,sckServer1再将信息传给程序的信息处理部分,信息处理部分再将处理好的信息传给sckServer2,再由sckServer2传给sckClient2。反之亦然。那么服务器端的信息处理部分又进行什么工作呢?
    1. 对通讯的通道数作一些限制。
    2. 对使用后已关闭的通道,必须能够重新使用以节省资源。
    3. 必须对所传递的数据包信息作甑别,从而作出不同的处理。
    通过解开数据的包头就可区分不同的信息。
    网上聊天有两种方式:第一种,以广播方式;第二种,以点对点的方式。广播方式即所有客户都能收到某一客户发出的信息。点对点的方式即想说“悄悄话”的一对客户专门开辟了一间谈话的“小屋”,别的客户不能“听”到他们的谈话。在下面的程序中将看到如何利用数据的不同包头来区分用户是想以广播方式还是以点对点的方式进行谈话的(点对点方式数据的包头为“PT”,广播方式则无包头)。
    4.2 客户端的程序
    1. 在客户端创建一个新的工程将其命名为“ClientPrj”
    2. 将缺省窗体命名为 frmClient。
    3. 将窗体的标题改为“Client”。
    4. 在窗体中添加一个 WinSock 控件,并将其命名为 tcpClient。
    5. 在 frmClient 中添加一个ListBox 控件。将其命名为lstReceive。
    6. 在 frmClient 中添加一个 TextBox 控件。将其命名为 txtSend。
    7. 在窗体上放两个 CommandButton 控件,并将其命名为 cmdConnect和cmdSent。
    8. 将cmdConnect控件的标题改为 Connect, 将cmdSent控件的标题改为 Sent。
    9. 在窗体中添加如下的代码。
    Private Sub cmdConnect_Click()
    On Error GoTo ErrorPro
    sckClient.Connect
    Exit Sub
    ErrorPro:
    MsgBox "服务器未开或网络出错!"
    End
    End Sub
    Private Sub cmdSent_Click()
    sckClient.SendData txtSent.Text
    End Sub
    Private Sub Form_Load()
    ' RemoteComputerName为服务器端的计算机名或IP地址。
    sckClient.RemoteHost = "RemoteComputerName"
    sckClient.RemotePort = 1000
    End Sub
    Private Sub sckClient_Close()
    MsgBox "服务器通道已关闭!"
    End
    End Sub
    Private Sub sckClient_Connect()
    MsgBox "连接成功!"
    cmdConnect.Enabled = False
    End Sub
    Private Sub sckClient_DataArrival(ByVal bytesTotal As Long)
    Dim s As String
    sckClient.GetData s
    lstReceive.AddItem s
    End Sub
    Private Sub sckClient_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, _ ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    sckClient.Close
    cmdConnect.Enabled = True
    End Sub
    4.3 服务器端的程序
    1. 在服务器端创建一个新的工程将其命名为“ServerPrj”。
    2. 将缺省窗体命名为“frmServer”。
    3. 在窗体中添加一个ListBox控件,将其命名为“lstReceive”。
    4. 在窗体中添加三个WinSock控件,将其分别命名为“sckListen”,sckBusy和“sckServer”并将“sckServer”的“Index”属性设置为0。
    5. 在窗体中添加如下代码.。
    '最大通道数
    Private MaxChan As Integer
    Private Sub Form_Load()
    Dim i As Integer
    MaxChan = 10
    For i = 1 To MaxChan - 1
    Load sckServer(i)
    Next i
    sckListen.LocalPort = 1000
    sckListen.Listen
    End Sub
    Private Sub sckBusy_Close()
    sckBusy.Close
    End Sub
    Private Sub sckBusy_DataArrival(ByVal bytesTotal As Long)
    sckBusy.SendData "服务器忙,请稍后再连接!"
    DoEvents
    End Sub
    Private Sub sckListen_ConnectionRequest(ByVal requestID As Long)
    Dim i As Integer
    '决定由哪一Winsock接受请求
    For i = 0 To MaxChan - 1
    If sckServer(i).State = 0 Then
    Exit For
    End If
    Next i
    If sckServer(i).State = 0 Then
    sckServer(i).Accept requestID
    Exit Sub
    End If
    '如果所有Winsock都用完则由专门的“忙”Winsock接受请求,以免用户要求得不到响应
    sckBusy.Close
    sckBusy.Accept requestID
    End Sub
    Private Sub sckListen_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, _ ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    sckListen.Close
    sckListen.LocalPort = 1000
    sckListen.Listen
    End Sub
    Private Sub sckServer_Close(Index As Integer)
    sckServer(Index).Close
    End Sub
    Private Sub sckServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)
    Dim s As String
    Dim i As Integer
    sckServer(Index).GetData s
    If UCase(Left(Trim(s), 2)) = "PT" Then '判断是否为悄悄话,点对点方式
    If IsNumeric(Mid(Trim(s), 3, 1)) Then
    i = Mid(Trim(s), 3, 1)
    sckServer(i).SendData "Channel " & Index & " " & Right(Trim(s), Len(Trim(s)) - 3)
    DoEvents
    End If
    Else '广播方式
    For i = 0 To MaxChan - 1
    '利用winsock的State属性给所有连接在服务器上的客户发消息
    If sckServer(i).State = 7 Then
    sckServer(i).SendData "Channel " & Index & " " & Trim(s)
    DoEvents
    End If
    Next i
    End If
    lstReceive.AddItem "Channel " & Index & " " & Trim(s)
    End Sub
    Private Sub sckServer_Error(Index As Integer, ByVal Number As Integer, Description As String, _
    ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As _
    Long, CancelDisplay As Boolean)
    sckServer(Index).Close
    End Sub
    从程序中可以看到:第一,程序中限制了通道数(10路)。第二,通过判断WinSock控件的State属性是否为0(关闭状态),来重新使用已关闭的WinSock控件。第三,通过给WinSock控件传递的信息加上包头,来对信息进行不同的处理(程序中若信息前加上了“PT"(Private Talk)+"通道数”的包头,由此就知道客户想要同拥有此“通道数”的另一客户进行“悄悄话”,否则就以广播方式将信息发给所有客户)。
    五) 结束语
    WinSock控件不仅仅是用来编制网上聊天程序,而且可以用来编制各种网络游戏或网络通信程序。实际上WinSock控件是编制各种C/S程序的利器。在实际使用中通常是将WinSock控件封装在Activex DLL(进程内)、Activex EXE(进程外)部件的类中(类中引用)来使用的。通过区分所传信息前的不同的包头,用RaiseEvent命令引发不同 的事件,再对事件分别进行处理。这样不仅增加了程序的可调试性和安全性,而且更符合事件驱动编程方法的特点。

    沈壮

    可以看看这个,另外可以使用百度搜索一下,推荐"中国代码网",以下的内容大致差不多了.主要是看你如何设计传输的东西(的格式)和整体应用
    Microsoft的Windows Sockets API是Windows下的网络应用程序接口,为了适用于Windows下的消息机制和异步的I/O选择操作,Windows Sockets API在功能上扩充了将近20个函数,其中扩充的部分均冠以前缀WSA(Windows Sockets Asynchronous),如WSAStartup、WSAClean等,充分体现了Widnows的优越性。此外,Windows Sockets API有16位版和32位版两种,16位版是单进程的,32位版则提供了多线程下的安全保护。
    Microsoft Visual Basic提供了用于Windows Sockets编程的可用控件——Winsock控件。该控件为用户提供了访问TCP和UDP网络的极其方便的途径。并且适用于Microsoft Access、Visual Basic、Visual C++和Visual FoxPro等多种可视化环境。通过Winsock控件编制C/S程序,程序员无须了解TCP或低级Winsock APIs调用实现的细节,如用户无须考虑网络字节顺序与本机字接顺序便可直接进行数据的传送。用该控件实现网间进程通信极其方便。
    在TCP应用中,为了建立一个网络连接实例(Instance)的服务器端,只需设置本地服务端口号,然后服务器调用方法Listen进入阻塞状态,等待来自客户的连接请求。与此对应的客户端不但要将Winsock的属性RemoteHost置为服务器的名称(IP地址或网络代号),还应设置服务器所监听的相应服务的端口号(RemotePort),如FTP服务在21号端口,HTTP在81号端口等。然后调用方法Winsock.Connect向服务器发出请求。服务器接收到客户请求时,事件ConnectionRequest将被触发。如服务器愿意提供服务,则可调用Accept方法接受连接。
    一旦连接建立,两端均可使用SendData或GetData进行数据的发送或接收。事件DataArrival将在另一端数据准备就绪时被触发。
    UDP协议的实现与TCP不同的是,调用Sockets的两端无需建立连接便可进行数据的传输。因此,一个UDP应用可以同时担任服务器或客户的角色。
    以下程序代码为Visual Basic Windows Sockets编程的基本框架。
    '服务器方
    Private Sub Command1.Click()
    '设置本地服务端口号
    Winsock1.localport=2048
    '服务器进入监听状态
    Winsock1.listen
    End Sub
    Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    '收到客户连接请求
    '检查Socket状态
    If Winsock1.State <> sckClosed Then Winsock1.Close
    '接受客户请求
    Winsock1.Accept requestID
    End Sub
    Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    '对方数据已准备好
    '可用GetData()/SendData()接收/发送数据
    '处理客户数据
    ……
    End Sub
    Private Sub Form_Unload(Cancel As Integer)
    Winsock1.Close
    End Sub
    '客户方
    Private Sub Command1.Click()
    '设置服务器网络名
    Winsock1.RemoteHost=“193.168.1.40”
    '设置服务器相应服务端口号
    Winsock1.RemotePort=2048
    '向服务器发出连接请求
    Winsock1.Connect
    End Sub
    Private Sub Winsock1_Connect()
    '服务器响应连接
    '可以进行GetData()/SendData()进行数据传输
    ……
    End Sub
    Private Sub Form1.Unload()
    Winsock1.Close
    End Sub
    该段程序演示了用Visual Basic建立TCP连接的基本过程。因本文重在讲解Sockets编程,故文中未涉及VB自己封装的故障处理函数Winsock1.Erroe(),读者可自行编制。以上程序段可作为一般TCP应用的基本框架加以扩展使用。
    Microsoft Visual C++实现过程与前述的VB实现类同。具体实例可见Microsoft Visual C++ Samples中的chatsrv与chater程序。
    随着Internet的逐步兴起,Sockets编程必将成为流行的网络编程接口之一。也许您会发问:ISO的OSI模型又是何等地位呢?笔者的观点是:ISO的OSI模型必将成为网络应用的统一界面,Sockets接口的广泛应用则为OSI模型开拓了更广泛的应用前景!
    回答者:XnnYygn - 高级魔法师 六级 10-1 12:30
    这一次写的是如何用VB来写网路程式的方法,你可不要以为这是什么深奥的程式,其实只要一个Winsock 控制项就可以了,现在就来介绍一下Winsock 的用法:
    步骤一:首先要先把控制项给叫出来,你只要按下Ctrl+T后选取Winsock Control 5.0若是用VB6 的就选Winsock Control 6.0,这样就可以使用Winsock元件。
    步骤二:再来我们必须先确定程式是作Server端还是Client端的,要先设定一些属性:
    Server写法:winsock1.localPort = 5400 (数字可以随便设)
    winsock1.Listen (等待连线)
    Client写法:winsock1.RemoteHost = "对方IP"
    winsock1.RemoteProt = 5400 (必须要和Server端相同)
    winsock1.LocalProt = 0
    winsock1.Connect (连线)
    连线之前Client端要先知道Server端的IP,接著等到Server端等待连线时,Client端就可以呼叫Connect方法,双方连线成功后就可以传输资料。
    步骤三:当Client连线的时候Server端会引发ConnectionRequest事件,Server的程式要这样子写:
    Private Sub Winsock1_ConnectionRequest(ByVal requestID As long)
    winsock1.Close
    winsock1.Accept requestID
    End Sub
    步骤四:这样一来就可以传送资料了,传送和接受资料的方法如下:
    传送资料:mydata = "你好吗?"
    winsock1.sendData mydata
    这样就会把mydata给传到对方那里。
    接受资料:当有资料送到的时候会引发DataArrival事件。
    Privata Sub Winsock1_DtatArrival(ByVal bytesTotal As long)
    Dim mydata As String
    winsock1.GetData mydata 会把送到的资料给mydata
    End Sub
    Winsock 控制项就那么简单,只要会这些就可以写网路游戏了,相关的程式你可以参考网路五子棋(54K)http://www.mf100.com/list.asp?id=119。
    参考资料:到这看看:http://www.mf100.com/document/2002-9/120.shtml
    回答者:卡卡99 - 见习魔法师 三级 10-1 12:32
    详细可以看下面:
    http://tech.163.com/06/0407/14/2E46BB930009159S.html
    用VB5中WinSock控件编写网上聊天程序
    Sockets是在Unix系统上提出来的,一开始主要是用于本地通讯,但很快就应用到C/S体系上。MicroSoft公司在此基础上创建了WinSock控件,专门用于Windows接口,与Sockets完全兼容。Winsock控件对用户来说是不可见的,它提供了访问 TCP 和 UDP 网络服务的方便途径。Microsoft Access、Visual Basic、Visual C++ 或 Visual FoxPro 的开发人员都可使用它。为编写客户或服务器应用程序,不必了解 TCP 的细节或调用低级的 Winsock APIs。通过设置控件的属性并调用其方法就可轻易连接到一台远程机器上去,并且还可双向交换数据。下面就利用VB5中的WinSock控件编写一个网上聊天程序。
    一)网络通信协议的基础和选择
    1.1 TCP(数据传输协议)基础
    数据传输协议允许创建和维护与远程计算机的连接。连接两台计算机就可彼此进行数据传输。
    如果创建客户应用程序,就必须知道服务器计算机名或者 IP 地址(RemoteHost 属性),还要知道进行“侦听”的端口(RemotePort 属性),然后调用 Connect 方法。
    如果创建服务器应用程序,就应设置一个收听端口(LocalPort 属性)并调用 Listen 方法。当客户计算机需要连接时就会发生 ConnectionRequest 事件。为了完成连接,可调用 ConnectionRequest 事件内的 Accept 方法。
    建立连接后,任何一方计算机都可以收发数据。为了发送数据,可调用 SendData 方法。当接收数据时会发生 DataArrival 事件。调用 DataArrival 事件内的 GetData 方法就可获取数据。
    1.2 UDP(用户数据文报协议)基础
    用户数据文报协议 (UDP) 是一个无连接协议。跟 TCP 的操作不同,计算机并不建立连接。另外 UDP 应用程序可以是客户机,也可以是服务器。
    为了传输数据,首先要设置客户计算机的 LocalPort 属性。然后,服务器计算机只需将 RemoteHost 设置为客户计算机的 Internet 地址,并将 RemotePort 属性设置为跟客户计算机的 LocalPort 属性相同的端口,并调用 SendData 方法来着手发送信息。于是,客户计算机使用 DataArrival 事件内的 GetData 方法来获取已发送的信息。
    1.3 选择通讯协议
    在使用 WinSock 控件时,首先需要考虑使用什么协议。可以使用的协议包括 TCP 和 UDP。两种协议之间的重要区别在于它们的连接状态:
    TCP 协议是有连接的协议,可以将它同电话系统相比。在开始数据传输之前,用户必须先建立连接。
    UDP 协议是一种无连接协议,两台计算机之间的传输类似于传递邮件:消息从一台计算机发送到另一台计算机,但是两者之间没有明确的连接。另外,单次传输的最大数据量取决于具体的网络。
    到底选择哪一种协议通常是由需要创建的应用程序决定的。下面的几个问题将有助于选择适宜的协议:
    1. 在收发数据的时候,应用程序是否需要得到客户端或者服务器的确认信息?如果需要,使用 TCP 协议,在收发数据之前先建立明确的连接。
    2. 数据量是否特别大(例如图象与声音文件)?在连接建立之后,TCP 协议将维护连接并确保数据的完整性。不过,这种连接需要更多的计算资源,因而是比较“昂贵”的。
    3. 数据发送是间歇的,还是在一个会话内?例如,如果应用程序在某个任务完成的时候需要通知某个计算机,UDP 协议是更适宜的。UDP 协议适合发送少量的数据。
    通讯协议的选择是通过设置WinSock的Protocol属性来实现的。下面选择TCP通讯协议编写网上聊天程序,在此之前必须知道一个极其重要的参数---服务器端的IP地址或计算机名。
    二)确定计算机的名字
    1. 在计算机的桌面上,右键单击“网上邻居”。
    2. 选择“属性”。
    3. 单击“标识”选项卡。
    4. 在“计算机名称”框中可以找到计算机的名称。
    确定计算机的 IP地址
    1. 单击“任务条”上的“启动”。
    2. 选择“运行”。
    3. 若服务器端操作系统为win95则在“打开”中填入“winipcfg”,若服务器端操作系统为winnt则在“打开”中填入“ipconfig”。
    4. 按下“确定”键。
    上面找到的计算机名称或IP地址可以作为WinSock的RemoteHost 属性的值。
    三) winsock控件的State属性。
    state 属性的设置值是: 常 数
    值 描 述
    sckclosed 0 缺省的。关闭
    sckopen 1 打开
    scklistening 2 侦听
    sckconnectionpending 3 连接挂起
    sckresolvinghost 4 识别主机
    sckhostresolved 5 已识别主机
    sckconnecting 6 正在连接
    sckconnected 7 已连接
    sckclosing 8 同级人员正在关闭连接
    sckerror 9 错误
    下面主要要用到sckClosed.sckConnected两个State属性的值。
    四)网上聊天程序的编制
    4.1 程序中服务器端所起的作用。
    从图示中可以看到服务器端的两个winsock控件之间并不存在直接的通讯,同时sckServer1和sckClient2及sckServer2和sckClient1之间是不能直接通讯的。这也即是说若sckClient1向sckClient2发出信息,信息首先被sckServer1接受,sckServer1再将信息传给程序的信息处理部分,信息处理部分再将处理好的信息传给sckServer2,再由sckServer2传给sckClient2。反之亦然。那么服务器端的信息处理部分又进行什么工作呢?
    1. 对通讯的通道数作一些限制。
    2. 对使用后已关闭的通道,必须能够重新使用以节省资源。
    3. 必须对所传递的数据包信息作甑别,从而作出不同的处理。
    通过解开数据的包头就可区分不同的信息。
    网上聊天有两种方式:第一种,以广播方式;第二种,以点对点的方式。广播方式即所有客户都能收到某一客户发出的信息。点对点的方式即想说“悄悄话”的一对客户专门开辟了一间谈话的“小屋”,别的客户不能“听”到他们的谈话。在下面的程序中将看到如何利用数据的不同包头来区分用户是想以广播方式还是以点对点的方式进行谈话的(点对点方式数据的包头为“PT”,广播方式则无包头)。
    4.2 客户端的程序
    1. 在客户端创建一个新的工程将其命名为“ClientPrj”
    2. 将缺省窗体命名为 frmClient。
    3. 将窗体的标题改为“Client”。
    4. 在窗体中添加一个 WinSock 控件,并将其命名为 tcpClient。
    5. 在 frmClient 中添加一个ListBox 控件。将其命名为lstReceive。
    6. 在 frmClient 中添加一个 TextBox 控件。将其命名为 txtSend。
    7. 在窗体上放两个 CommandButton 控件,并将其命名为 cmdConnect和cmdSent。
    8. 将cmdConnect控件的标题改为 Connect, 将cmdSent控件的标题改为 Sent。
    9. 在窗体中添加如下的代码。
    Private Sub cmdConnect_Click()
    On Error GoTo ErrorPro
    sckClient.Connect
    Exit Sub
    ErrorPro:
    MsgBox "服务器未开或网络出错!"
    End
    End Sub
    Private Sub cmdSent_Click()
    sckClient.SendData txtSent.Text
    End Sub
    Private Sub Form_Load()
    ' RemoteComputerName为服务器端的计算机名或IP地址。
    sckClient.RemoteHost = "RemoteComputerName"
    sckClient.RemotePort = 1000
    End Sub
    Private Sub sckClient_Close()
    MsgBox "服务器通道已关闭!"
    End
    End Sub
    Private Sub sckClient_Connect()
    MsgBox "连接成功!"
    cmdConnect.Enabled = False
    End Sub
    Private Sub sckClient_DataArrival(ByVal bytesTotal As Long)
    Dim s As String
    sckClient.GetData s
    lstReceive.AddItem s
    End Sub
    Private Sub sckClient_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, _ ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    sckClient.Close
    cmdConnect.Enabled = True
    End Sub
    4.3 服务器端的程序
    1. 在服务器端创建一个新的工程将其命名为“ServerPrj”。
    2. 将缺省窗体命名为“frmServer”。
    3. 在窗体中添加一个ListBox控件,将其命名为“lstReceive”。
    4. 在窗体中添加三个WinSock控件,将其分别命名为“sckListen”,sckBusy和“sckServer”并将“sckServer”的“Index”属性设置为0。
    5. 在窗体中添加如下代码.。
    '最大通道数
    Private MaxChan As Integer
    Private Sub Form_Load()
    Dim i As Integer
    MaxChan = 10
    For i = 1 To MaxChan - 1
    Load sckServer(i)
    Next i
    sckListen.LocalPort = 1000
    sckListen.Listen
    End Sub
    Private Sub sckBusy_Close()
    sckBusy.Close
    End Sub
    Private Sub sckBusy_DataArrival(ByVal bytesTotal As Long)
    sckBusy.SendData "服务器忙,请稍后再连接!"
    DoEvents
    End Sub
    Private Sub sckListen_ConnectionRequest(ByVal requestID As Long)
    Dim i As Integer
    '决定由哪一Winsock接受请求
    For i = 0 To MaxChan - 1
    If sckServer(i).State = 0 Then
    Exit For
    End If
    Next i
    If sckServer(i).State = 0 Then
    sckServer(i).Accept requestID
    Exit Sub
    End If
    '如果所有Winsock都用完则由专门的“忙”Winsock接受请求,以免用户要求得不到响应
    sckBusy.Close
    sckBusy.Accept requestID
    End Sub
    Private Sub sckListen_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, _ ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    sckListen.Close
    sckListen.LocalPort = 1000
    sckListen.Listen
    End Sub
    Private Sub sckServer_Close(Index As Integer)
    sckServer(Index).Close
    End Sub
    Private Sub sckServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)
    Dim s As String
    Dim i As Integer
    sckServer(Index).GetData s
    If UCase(Left(Trim(s), 2)) = "PT" Then '判断是否为悄悄话,点对点方式
    If IsNumeric(Mid(Trim(s), 3, 1)) Then
    i = Mid(Trim(s), 3, 1)
    sckServer(i).SendData "Channel " & Index & " " & Right(Trim(s), Len(Trim(s)) - 3)
    DoEvents
    End If
    Else '广播方式
    For i = 0 To MaxChan - 1
    '利用winsock的State属性给所有连接在服务器上的客户发消息
    If sckServer(i).State = 7 Then
    sckServer(i).SendData "Channel " & Index & " " & Trim(s)
    DoEvents
    End If
    Next i
    End If
    lstReceive.AddItem "Channel " & Index & " " & Trim(s)
    End Sub
    Private Sub sckServer_Error(Index As Integer, ByVal Number As Integer, Description As String, _
    ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As _
    Long, CancelDisplay As Boolean)
    sckServer(Index).Close
    End Sub
    从程序中可以看到:第一,程序中限制了通道数(10路)。第二,通过判断WinSock控件的State属性是否为0(关闭状态),来重新使用已关闭的WinSock控件。第三,通过给WinSock控件传递的信息加上包头,来对信息进行不同的处理(程序中若信息前加上了“PT"(Private Talk)+"通道数”的包头,由此就知道客户想要同拥有此“通道数”的另一客户进行“悄悄话”,否则就以广播方式将信息发给所有客户)。
    五) 结束语
    WinSock控件不仅仅是用来编制网上聊天程序,而且可以用来编制各种网络游戏或网络通信程序。实际上WinSock控件是编制各种C/S程序的利器。在实际使用中通常是将WinSock控件封装在Activex DLL(进程内)、Activex EXE(进程外)部件的类中(类中引用)来使用的。通过区分所传信息前的不同的包头,用RaiseEvent命令引发不同 的事件,再对事件分别进行处理。这样不仅增加了程序的可调试性和安全性,而且更符合事件驱动编程方法的特点。
    回答者:yj_boy7 - 首席运营官 十二级 10-1 12:49

    胡宜姳

    可以看看这个,另外可以使用百度搜索一下,推荐"中国代码网",以下的内容大致差不多了.主要是看你如何设计传输的东西(的格式)和整体应用
    Microsoft的Windows Sockets API是Windows下的网络应用程序接口,为了适用于Windows下的消息机制和异步的I/O选择操作,Windows Sockets API在功能上扩充了将近20个函数,其中扩充的部分均冠以前缀WSA(Windows Sockets Asynchronous),如WSAStartup、WSAClean等,充分体现了Widnows的优越性。此外,Windows Sockets API有16位版和32位版两种,16位版是单进程的,32位版则提供了多线程下的安全保护。

    叶寒

    这个...DirectPlay考虑不? VB的.
    VB7 的演示不好用.我用的是VB.net的
    搜索a11s directplay vb
    http://a11s.cnblogs.com/category/39031.html?Show=All
    这个是我曾经的blog...

    钟之弘

相关信息

vb winsock问题

程序希望实现的功能是在客户端和服务器中下载和上传文件,我把服务器和客户端放在一个程序中,程序运行时可以传输.txt文件,但是.doc文件传输后打开都是乱码,.mp3文件传输完后不能播放,就是一下子就完了。检查了程序,不知道错在哪,各位大大帮帮忙啊,这是期末大实验,快要交了,急。。。。 我是用winsock来实现传输的。下面是部分代码: If Receivebyte < FileSize...

51 浏览 1 回复   文件   position   as   #1   程序  

的Visual C#2008 EE SP1 - LINQ到SQL - 数据连接到远程服务器?

<p>升级我的Visual C#2008 Express版本,以.NET3.5后,SP1,我已经无法创造新的LINQ to使用远程连接数据库的SQL类。我曾经是能够做到那么细。 P&gt; </p><p>我打开了一个项目(Windows窗体,类库,同样的行为),而无论是使用New - &gt; LINQ to SQL类的方法还是去直接将数据连接,...

58 浏览 1 回复   连接   数据   gt   sql   数据库  

QQ登陆失败 连接服务器超时

今天qq突然不能用了,把防火墙关了没有用,重新下了也没用,原来还好好的,怎么回事??? 急啊!!!!!!!!!!!!!!!!!! 下面附详细信息: 【登录过程】(缩减了一些) 尝试连接UDP登录服务器超时,转尝试连接下一组服务器 UDP登录服务器全部尝试连接失败,尝试下一种登录方式 尝试TCP方式登录,准备连接TCP服务器IP【tcpconn5.tencent.com】,端...

46 浏览 11 回复   服务器   服务   务器   登录   tcp  

emule 无法连接服务器

几个月都没有连接上,连接情况如下: 2006-3-22 16:03:17: 发现 0个已知的共享文件 2006-3-22 16:03:17: Creditfile已加载,0个客户已知 2006-3-22 16:03:17: 已加载0条IP过滤规则 2006-3-22 16:03:22: 在server.met中找到240个服务器 2006-3-22 16:03:22: 错误:4...

67 浏览 1 回复   服务器   服务   务器   连接   emule