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模型开拓了更广泛的应用前景!
利用Winsock控件实现局域网通信 对于局域网用户中的编程爱好者来说,如果能自己编一个局域网通信程序,那么这一切将是多么美妙!可是,如果要从头开始完全由自己来编写一段用于通信的程序,必须对相关的网络协议及其他的一些较底层的技术有较深入的了解,这可不是一件容易的事。而现在有了Winsock控件,一切就不同了,它已经替你封装了所有烦琐的技术细节,并提供了访问TCP和UDP网络服务的方便途径。你只需通过设置控件的属性并调用其方法就可轻易连接到一台远程计算机中,并且还可以双向交换数据,而这一切都不需你了解TCP的细节或调用低级的Winsock APIs。 Winsock控件可以供Microsoft Acess、Visual Basic,Visual C++或Visual Foxpro的开发人员使用。本文以Visual Basic 6企业版为开发环境来向大家介绍一下Winsock控件的初步应用。 Winsock控件可以使用两种协议:TCP协议和UDP协议,下面来分别介绍。 TCP协议即数据传输协议,它允许创建和维护与远程计算机的连接,使其彼此可以进行数据传输。利用TCP协议通讯必须分别建立客户应用程序和服务器应用程序。 在创建客户应用程序时,必须知道服务器计算机名或其IP地址(存于RemoteHost属性)、及服务器计算机进行侦听的端口(存于RemotePort属性),然后调用Connect方法。 创建服务器应用程序时,就应相应设置一个侦听端口(LocalPort属性)并调用listen方法。当客户机需要连接时(connect),就会发生ConnectionRequest事件。为了完成连接,你可以在ConnectionRequest事件中调用Accept方法。建立连接后,任何一方计算机都可以发送、接收对方数据。如果你要发送数据,需调用SendData方法。当接收到数据时,会发生DataArrival事件,调用DataArrival事件中的GetData方法就可以获得对方传送的数据。 说了这么多,大家可能还是不太了解,让我用程序来详细说明。 如果只有两台计算机,那十分容易。假设甲机为客户机,乙机为服务器,且其IP为192.192.192.1,接收端口为1200(任意选一个未被使用的端口即可)。首先在甲机客户端程序中加入一个Winsock控件,起名为sckconnect,并设置其属性:RemoteHost=“192.192.192.1”,(即甲机IP地址), RemotePort=1200(即甲机侦听端口);再在乙机服务器程序中假如一个名为sckserver(0)的Winsock控件,其LocalPort=1200, 在乙机服务器程序中Form_Load()加入 sckserver(0).bind sckserver(0).LocalPort '与本地端口绑定 sckserver(0).listern ' 侦听 如果要传输数据,两机必须先建立连接。建立连接的程序如下: 甲机客户机要先请求连接 sckconnect.connect sckconnect.RemoteHost, sckconnect.RemotePort 此句执行时会触发服务器程序中的ConnectRequest事件,在此过程中决定是否建立连接,其代码如下: Private sub sckserver_connectionrequest(index as Integer,Byval requestid as long) if sckserver.count=1 then load sckserver(1) sckserver(1).accept requestId end if end sub 连接建立好以后,甲机或乙机都可以应用SendData方法来传送数据。例如,如果是甲机要传送一个叫string的字符串,只需在代码中加入: sckconnect.SendData string 甲机传送数据后,会触发乙机的DataArrival事件,在其过程中用GetData方法可以收到传送的数据: Private sub sckserver_DataArrival(Index as integer,Byval BytesTotal as long) dim sdata as string sckserver(1).GetData sdata,vbstring end sub 最后别忘了在关闭程序前要先关闭Winsock控件 privat sub form_unload(cancel as integer) if sckconnect.state <>sckclosed then sckconnect.close end if end sub这只是最简单的情况,如果有多台计算机,那就稍微复杂一些,客户端程序可以不做改动,而服务器端程序需要略做改动: Private sub sckserver_connectrequest(Index as Integer,Byval requestid as long) dim sip as string dim I as integer sip=sckserver(0).RemoteHostIP '获得登录者的IP地址 I=1 Do while I<=sckserver.ubound '检查是否已经有该地址的记录 If sckserver(I).RemoteHostIP=sip then '如有,不必加载新的控件 Sckserver(I).Accept requestid Exit sub End if I=I+1 Loop Load sckserver(I) '否则,加载新的控件 Scksrver(I).accept requestID End sub 注意到:以上的信息交谈实际上都发生在客户机与服务器之间,如果要做成聊天室那样,每个人的话都可以被别人“听到”,那就要在服务器端的DataArrival事件中,把接收到的客户机传来的数据,转发给所有客户机即可。 其循环转发信息的代码如下: For I=1 to sckserver.count if sckserver(I).state<>sckclosed then sckserver(I).SendData sdata end if next I怎么样,这样我们就作好了自己的通信软件!
不过,不知大家注意到没有,上述程序都需要有一台计算机做为服务器,但如果我们的局域网中没有哪台计算机是可以常开的,也就是说,如果服务器端程序没有运行的话,其他客户端程序也没有办法通信。而这种情况却可能是经常出现的!至少,我所用的局域网那就是这样的。难道这样我们就无法享受局域网通信的乐趣了吗? 不要急,记得吗,我们的Winsock控件还有另一个主角:UDP协议。 UDP协议也称为用户数据报文协议,是一个无连接协议。何谓无连接协议?就是说利用此协议连接时,不必象TCP协议那样:需要服务器端侦听,客户机端请求连接,服务器端建立连接后双方才能通信。另外,UDP应用程序可以是客户机,也可以是服务器程序,而不必向TCP应用程序那样必须分别建立客户机程序和服务器程序。 下面,来简述一下UDP协议通信的过程:UDP协议中,为了在甲乙两机中传输数据,必须先分别设置两机的LocalPort属性;再将甲机的RemoteHost属性设置为乙机的IP地址,RemotePort属性设置为乙机的LocalPort属性值,此时甲机调用SendData方法就可以传送数据了,乙机同样使用DataArrival事件中的GetData方法来获取甲机发送给乙机的信息。如想乙机向甲机传送数据,只需仿照上面的过程设置即可。 用UDP协议来传输信息较TCP协议来说简单的多,它无须侦听(LISTEN),也无须请求连接(CONNECT),就象我们平时发信一样,只要写好地址及收信人姓名并发送出去即可。我们可以借此来编写一个局域网中的信息传送程序,下面来简单介绍以下程序中想实现的功能及其基本思想: 首先,我们一定想让程序的图标显示在system tray中而不显示在任务栏中吧!这要是自己编程实现可不是太容易,幸好VB光盘中在common\tools\vb\unsupport\systemTray 中有一个现成的程序,我们只要把它编译成systray.ocx 控件,然后在编写自己的程序时添加此控件即可。其使用方法十分简单,它已经定义好了鼠标单击、双击等事件,你只需编写相应的鼠标事件即可,这里不再多说。 程序的关键是:UDP协议在通讯时要知道对方的IP和Port,这要如何实现呢?最简单的方法是建立一个配置文件,里面放置了局域网上每台计算机的名字、IP和Port,在程序初始化时读出所有信息,在程序中只要知道向谁通信,读出其对应的IP和Port即可。 我们知道了每台计算机的IP和Port,但我们怎样才能知道其它计算机是否在线呢,否则发出信息别人收不到怎么办?我们可以把此程序放在启动菜单中,让其一开机就自动启动,并最小化,放于窗口右下角的system tray中。在程序刚开始运行时,它会自动向它从配置文件中所知道的所有IP发一条信息:“我来了!”,如果有计算机在线,它会自动返回一条信息:“欢迎!”,如此则两机通信成功,它们会分别把对方的名字加入到自己的可通信人名单中去;如果有计算机关机,程序在退出之前会自动向所有人告别:“再见!”,接收到此信息的计算机会自动把发送信息的计算机的名称从自己的可通信人名单中去除。这样,如果某人不在线,你将无法发送信息给它;如果除了你以外,其他人都没有开机,那你的可发送人名单中将没有任何人。而其它人只要一上线,会自动去你那里“登记”,其他人只要一离线,会自动去你那里“告别”,你可以据此知道他人是否正在使用计算机,你甚至可以以此程序来统计他人的每天上机时间,不错吧! 好了,一个局域网通信的程序的基本模型已经有了,并不复杂吧!大家赶快动手吧,来享受用自己的程序来聊天的乐趣! 不过,要想编写一个出色的程序,不光是要有良好的创意与功能,更重要的是程序的兼容性与容错性。本例中,对错误处理没有做详细的解释,关于这一点,大家可以在Winsock控件的error事件及其帮助中找到满意的答案。 另外,还可以从以下几方面来考虑功能的扩充:如传送图形、声音等多媒体信息、局域网互传文件(主动传送)、历史通话记录、系统日志、个人上机时间统计等等,而所有的这一切仅仅取决于你的想象力与你的聪明才智!下面,笔者以传送文件为例来讲一讲其功能实现的代码。 你可以把本地的文件(图形、声音等可以先存成临时文件)以二进制文件的方式来打开它,将其内容全部读入一个byte类型的数组中,本地机代码如下: dim myfile () as byte dim position as long open "filename" for binary as #1 position=0 do while not eof(1) position=positon+1 redim preserve myfile (1 to position) get #1,,myfile(position) loop close #1 再向远程机传送这个字节数组 sckserver.SendData myfile 远程机收到这个数组之后,再以二进制文件的方式打开一个新目标文件,将数组内容写入这个新打开的文件,如果是bmp图片就将其放入picture图片框中,如果是wav文件,就播放。这样,局域网中的两个人就可以通过语言、图片、文字来交流了。 远程机代码如下: Private sub sckconnect_DataArrival(byval bytestotal as long) dim receivefile(1 to bytestotal)as byte sckconnect.GetData receivefile,vbarray+vbbyte '告诉Winsock控件收到的是字节数组类型的数据 open "c:\temp\文件名" for binary as #1 for I=1 to bytestotal put #1,,remotearray(I) next I clost #1 end sub
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模型开拓了更广泛的应用前景!
对于局域网用户中的编程爱好者来说,如果能自己编一个局域网通信程序,那么这一切将是多么美妙!可是,如果要从头开始完全由自己来编写一段用于通信的程序,必须对相关的网络协议及其他的一些较底层的技术有较深入的了解,这可不是一件容易的事。而现在有了Winsock控件,一切就不同了,它已经替你封装了所有烦琐的技术细节,并提供了访问TCP和UDP网络服务的方便途径。你只需通过设置控件的属性并调用其方法就可轻易连接到一台远程计算机中,并且还可以双向交换数据,而这一切都不需你了解TCP的细节或调用低级的Winsock APIs。
Winsock控件可以供Microsoft Acess、Visual Basic,Visual C++或Visual Foxpro的开发人员使用。本文以Visual Basic 6企业版为开发环境来向大家介绍一下Winsock控件的初步应用。
Winsock控件可以使用两种协议:TCP协议和UDP协议,下面来分别介绍。
TCP协议即数据传输协议,它允许创建和维护与远程计算机的连接,使其彼此可以进行数据传输。利用TCP协议通讯必须分别建立客户应用程序和服务器应用程序。
在创建客户应用程序时,必须知道服务器计算机名或其IP地址(存于RemoteHost属性)、及服务器计算机进行侦听的端口(存于RemotePort属性),然后调用Connect方法。
创建服务器应用程序时,就应相应设置一个侦听端口(LocalPort属性)并调用listen方法。当客户机需要连接时(connect),就会发生ConnectionRequest事件。为了完成连接,你可以在ConnectionRequest事件中调用Accept方法。建立连接后,任何一方计算机都可以发送、接收对方数据。如果你要发送数据,需调用SendData方法。当接收到数据时,会发生DataArrival事件,调用DataArrival事件中的GetData方法就可以获得对方传送的数据。
说了这么多,大家可能还是不太了解,让我用程序来详细说明。
如果只有两台计算机,那十分容易。假设甲机为客户机,乙机为服务器,且其IP为192.192.192.1,接收端口为1200(任意选一个未被使用的端口即可)。首先在甲机客户端程序中加入一个Winsock控件,起名为sckconnect,并设置其属性:RemoteHost=“192.192.192.1”,(即甲机IP地址), RemotePort=1200(即甲机侦听端口);再在乙机服务器程序中假如一个名为sckserver(0)的Winsock控件,其LocalPort=1200,
在乙机服务器程序中Form_Load()加入
sckserver(0).bind sckserver(0).LocalPort '与本地端口绑定
sckserver(0).listern ' 侦听
如果要传输数据,两机必须先建立连接。建立连接的程序如下:
甲机客户机要先请求连接
sckconnect.connect sckconnect.RemoteHost, sckconnect.RemotePort
此句执行时会触发服务器程序中的ConnectRequest事件,在此过程中决定是否建立连接,其代码如下:
Private sub sckserver_connectionrequest(index as Integer,Byval requestid as long)
if sckserver.count=1 then
load sckserver(1)
sckserver(1).accept requestId
end if
end sub
连接建立好以后,甲机或乙机都可以应用SendData方法来传送数据。例如,如果是甲机要传送一个叫string的字符串,只需在代码中加入:
sckconnect.SendData string
甲机传送数据后,会触发乙机的DataArrival事件,在其过程中用GetData方法可以收到传送的数据:
Private sub sckserver_DataArrival(Index as integer,Byval BytesTotal as long)
dim sdata as string
sckserver(1).GetData sdata,vbstring
end sub
最后别忘了在关闭程序前要先关闭Winsock控件
privat sub form_unload(cancel as integer)
if sckconnect.state <>sckclosed then
sckconnect.close
end if
end sub这只是最简单的情况,如果有多台计算机,那就稍微复杂一些,客户端程序可以不做改动,而服务器端程序需要略做改动:
Private sub sckserver_connectrequest(Index as Integer,Byval requestid as long)
dim sip as string
dim I as integer
sip=sckserver(0).RemoteHostIP '获得登录者的IP地址
I=1
Do while I<=sckserver.ubound '检查是否已经有该地址的记录
If sckserver(I).RemoteHostIP=sip then '如有,不必加载新的控件
Sckserver(I).Accept requestid
Exit sub
End if
I=I+1
Loop
Load sckserver(I) '否则,加载新的控件
Scksrver(I).accept requestID
End sub
注意到:以上的信息交谈实际上都发生在客户机与服务器之间,如果要做成聊天室那样,每个人的话都可以被别人“听到”,那就要在服务器端的DataArrival事件中,把接收到的客户机传来的数据,转发给所有客户机即可。
其循环转发信息的代码如下:
For I=1 to sckserver.count
if sckserver(I).state<>sckclosed then
sckserver(I).SendData sdata
end if
next I怎么样,这样我们就作好了自己的通信软件!
不要急,记得吗,我们的Winsock控件还有另一个主角:UDP协议。
UDP协议也称为用户数据报文协议,是一个无连接协议。何谓无连接协议?就是说利用此协议连接时,不必象TCP协议那样:需要服务器端侦听,客户机端请求连接,服务器端建立连接后双方才能通信。另外,UDP应用程序可以是客户机,也可以是服务器程序,而不必向TCP应用程序那样必须分别建立客户机程序和服务器程序。
下面,来简述一下UDP协议通信的过程:UDP协议中,为了在甲乙两机中传输数据,必须先分别设置两机的LocalPort属性;再将甲机的RemoteHost属性设置为乙机的IP地址,RemotePort属性设置为乙机的LocalPort属性值,此时甲机调用SendData方法就可以传送数据了,乙机同样使用DataArrival事件中的GetData方法来获取甲机发送给乙机的信息。如想乙机向甲机传送数据,只需仿照上面的过程设置即可。
用UDP协议来传输信息较TCP协议来说简单的多,它无须侦听(LISTEN),也无须请求连接(CONNECT),就象我们平时发信一样,只要写好地址及收信人姓名并发送出去即可。我们可以借此来编写一个局域网中的信息传送程序,下面来简单介绍以下程序中想实现的功能及其基本思想:
首先,我们一定想让程序的图标显示在system tray中而不显示在任务栏中吧!这要是自己编程实现可不是太容易,幸好VB光盘中在common\tools\vb\unsupport\systemTray 中有一个现成的程序,我们只要把它编译成systray.ocx 控件,然后在编写自己的程序时添加此控件即可。其使用方法十分简单,它已经定义好了鼠标单击、双击等事件,你只需编写相应的鼠标事件即可,这里不再多说。
程序的关键是:UDP协议在通讯时要知道对方的IP和Port,这要如何实现呢?最简单的方法是建立一个配置文件,里面放置了局域网上每台计算机的名字、IP和Port,在程序初始化时读出所有信息,在程序中只要知道向谁通信,读出其对应的IP和Port即可。
我们知道了每台计算机的IP和Port,但我们怎样才能知道其它计算机是否在线呢,否则发出信息别人收不到怎么办?我们可以把此程序放在启动菜单中,让其一开机就自动启动,并最小化,放于窗口右下角的system tray中。在程序刚开始运行时,它会自动向它从配置文件中所知道的所有IP发一条信息:“我来了!”,如果有计算机在线,它会自动返回一条信息:“欢迎!”,如此则两机通信成功,它们会分别把对方的名字加入到自己的可通信人名单中去;如果有计算机关机,程序在退出之前会自动向所有人告别:“再见!”,接收到此信息的计算机会自动把发送信息的计算机的名称从自己的可通信人名单中去除。这样,如果某人不在线,你将无法发送信息给它;如果除了你以外,其他人都没有开机,那你的可发送人名单中将没有任何人。而其它人只要一上线,会自动去你那里“登记”,其他人只要一离线,会自动去你那里“告别”,你可以据此知道他人是否正在使用计算机,你甚至可以以此程序来统计他人的每天上机时间,不错吧!
好了,一个局域网通信的程序的基本模型已经有了,并不复杂吧!大家赶快动手吧,来享受用自己的程序来聊天的乐趣!
不过,要想编写一个出色的程序,不光是要有良好的创意与功能,更重要的是程序的兼容性与容错性。本例中,对错误处理没有做详细的解释,关于这一点,大家可以在Winsock控件的error事件及其帮助中找到满意的答案。
另外,还可以从以下几方面来考虑功能的扩充:如传送图形、声音等多媒体信息、局域网互传文件(主动传送)、历史通话记录、系统日志、个人上机时间统计等等,而所有的这一切仅仅取决于你的想象力与你的聪明才智!下面,笔者以传送文件为例来讲一讲其功能实现的代码。
你可以把本地的文件(图形、声音等可以先存成临时文件)以二进制文件的方式来打开它,将其内容全部读入一个byte类型的数组中,本地机代码如下:
dim myfile () as byte
dim position as long
open "filename" for binary as #1
position=0
do while not eof(1)
position=positon+1
redim preserve myfile (1 to position)
get #1,,myfile(position)
loop
close #1
再向远程机传送这个字节数组
sckserver.SendData myfile
远程机收到这个数组之后,再以二进制文件的方式打开一个新目标文件,将数组内容写入这个新打开的文件,如果是bmp图片就将其放入picture图片框中,如果是wav文件,就播放。这样,局域网中的两个人就可以通过语言、图片、文字来交流了。
远程机代码如下:
Private sub sckconnect_DataArrival(byval bytestotal as long)
dim receivefile(1 to bytestotal)as byte
sckconnect.GetData receivefile,vbarray+vbbyte
'告诉Winsock控件收到的是字节数组类型的数据
open "c:\temp\文件名" for binary as #1
for I=1 to bytestotal
put #1,,remotearray(I)
next I
clost #1
end sub
太全了http://expert.csdn.net/Expert/topic/1354/1354117.xml?temp=.1731836http://expert.csdn.net/Expert/topic/1355/1355217.xml?temp=.945614http://expert.csdn.net/Expert/topic/1360/1360793.xml?temp=.151333http://expert.csdn.net/Expert/topic/1366/1366635.xml?temp=.276211这些是我以前问的一些问题
不知道对楼主有用没有
摘要
随着Internet的蓬勃发展,网络界面的交流使我们能够即时收到各地所发生的各项
信息。我们在使用各种Browser浏览各网点时,只要Server能提供Chat(闲聊)的服
务项目,我们就可以通过Browser所提供的Chat程序与网络上的其他使用者即时对谈
及交流心得。本篇文章通过Visual Basic 5.0所提供的WInSock control,设计一个
Chat应用程序。我们通过Client及Server之间的文件传输,可以了解Chat程序的工
作原理。 WinSock control简介 WinSock是windows系统提供的一种网络文件传输协议。以往我们使用WinSock设计程
序时,必须调用系统提供的API来完成;但是在Visual Basic中调用API,因涉及参
数传递类型,用起来并不方便。Visual Basic 5.0 提供WinSock control简化我们
的设计流程。它可以利用User Datagram Protocol(UDP)或Transmission Control
Protocol(TCP),来设计网络的Client-Server 程序。 TCP是一种Connection base的Protocol,在文件传输时会先行建立Link,通过Link
可确保文件传输的正确性;UDP则是一种Connectionless的Protocol,它在传输文件
时不会确保传输端的文件能够正确无误的传送到接收端,所以当我们使用UDP
protocol时,我们通常要自己作接收确认的工作。 UDP protocol看起来好像比较没效率,其实不然!UDP protocol有一个好处:当文
件很小,或我们要做网络boardcast (广播)时,会比较有效率。 所以了!当我
们利用WinSock设计程序时,首先要依自己的需要,决定使用那一种protocol。本文
将分别教您使用TCP及UDP Protocol来设计Chat程序。 以TCP设计Chat程序 Step 1:找出Domain name及IP address 在“我的电脑”中选择“控制面板”。Double click“网络”选项,选择“标识”
,您将会发觉您的计算机名称、工作组名等信息。将它记录起来,我们稍后会用
到。 Step 2:设计TCP Server程序 在File选项中选New Project建立一个新的工程,在屏幕上会看到许多选项,如
ActiveX Document.EXE、ActiveX Document.DLL、ActiveX.EXE、ActiveXControl
等,选Standard.EXE。 接着在Project下选择Property属性选项,在General选项下将ProjectName改为
TCP-Server,并将Form名称及Caption更改为Server。在屏幕的Form上加入一个
WinSock control,取名为Tcps;加入两个TextBox control(Outtext、Intext),并
在两个TextBox前加入两个label,分别将caption改为Outtext、Intext。
〈TextBox〉 Name ------------------------------------------------ Outtext(输出文件) Intext(输入文件) 〈Label〉 Caption ---------------------------------------------------- Outtext(输出文件) Intext(输入文件) 在Form_Load()中加入以下程序代码,这个动作是设置好我们Local的传输端口,并
到接收的状态: Tcps.protocol=0-scktcp protocol Tcps.LocalPort = 1002 Tcps.Listen 双击Tcps,在Tcps_ConnectionRequest(ByVal requestID As Long) 中加入以下程
序代码,这表示winsock接受了连接请求: Tcps.Accept requestID 双击Outtext到Outtext_change(),加入以下程序代码,当Outtext内容改变后,文
件就会自动送出: Tcps.SendData Outtext.text 在Tcps_DataArrival(ByVal bytesTotal As Long)中加入以下程序代码,这是用来
把所接收的文件显示在Intext这个TextBox中。 Dim S As StrIng Tcps.GetData S InText.Text = S 这样我们就完成了Server端的设计。 Step 3:设计TCP Client程序 在File选项中选择New Project建立一个新的工程,在屏幕上看到许多选项,如
ActiveX Document.EXE、ActiveX Document.DLL、ActiveX.EXE、ActiveX Control
等。选Standard.EXE。接着在 Project下,选择Property属性选项,在General选项
下,将Project Name改为TCP-Client,并将FORM名称及Caption更改为Client。
置成 0-scktcp protocol,加入两个TextBox control(Outtext、Intext),并在两
个TextBox前加入两个Label,分别将其Caption改为Outtext、Intext。接着放入一
个Button(button1)并将Caption 改为Connect。 (TextBox) Name ----------------------------------------------------- Outtext(输出文件) Intext(输入文件) (Label) Caption -------------------------------------------------------- Outtext(输出文件) Intext(输入文件) 〈Button〉 Name Caption -------------------------------------------------------- Button1(执行建立session命令) Connect 在Form_Load()中加入以下程序代码,这个动作是设置好我们Remote所要连接的传输
端口及其网络名称。我们要连接的计算机网络名称为DAVID: Tcpc.RemoteHost ="David" Tcpc.RemotePort=1002 双击Outtext到Outtext_change()加入以下程序代码,当Outtext内容改变后,文件
会自动送出: Tcpc.SendData Outtext.text 在Tcpc_DataArrival(ByVal bytesTotal As Long)中加入以下程序代码,这是用来
把所接收的文件显示在Intext这个TextBox 中。 Dim S As StrIng Tcpc.GetData S InText.Text = S 这样就完成了Client端的设计。 Step 4:测试TCP Chat程序 分别执行Server及Client程序,这时在Client的屏幕上显示In及Out TextBox及一个
Connect Button;在Server屏幕上显示In及Out TextBox。 我们按Client程序Connect button建立连接,连接建立成功后,我们可尝试在
Client的Outbox 中输入一些字符串:Hello nice to meet you!我们将在Server端
的Inbox看到这些字串。 接着我们在Server的Outbox也输入一些字符串:Nice to
meet you, too! 我们将在Client 端的Inbox看到这些字符串。结果证明我们成功
了! 用UDP设计Chat程序 Step 1:设计第一个UDP(UDP1)程序 在File选项中选择New Project建立一个新的工程,屏幕上会看到许多选项,如
ActiveX Document.EXE、ActiveX Document.DLL、ActiveX.EXE、ActiveX Control
等,这时选Standard.EXE。接着在Project下选择Property属性选项,在General选
项下将Project Name改为UDP1,将protocol property设置成0-udptcp protocol,
并将Form名称及Caption更改为UDP1。 在屏幕的Form上加入一个WinSock control,取名为UDP1;加入两个TextBox
control ( Outtext、Intext),并于两个TextBox
-------------------------------------------------------------------------------- Transfer interrupted!
3">Label control,分别
将Caption改为 Outtext、 Intext。 (TextBox) Name ----------------------------------------------------- Outtext(输出文件) Intext(输入文件) (Label) Caption ------------------------------------------------------- Outtext(输出文件) Intext(输入文件) 在Form_Load()中加入以下程序代码,这个动作是设置好我们要连接的远端输入端口
为 1001,并将输入端口设为1002。 UDP1.RemoteHost = "DAVID" UDP1.RemotePort = 1001 UDP1.BInd 1002 双击Outtext到Outtext_change(),加入以下程序代码,当Outtext 内容改变,文件
会自动送出: UDP1.SendData Outtext.text 在UDP1_DataArrival(ByVal bytesTotal As Long)中加入以下程序代码,这是用来
把所接收的文件显示在Intext这个TextBox 中。 Dim S As String UDP1.GetData S InText.Text = S 这样我们就完成了UDP1的设计。
ActiveX Document.EXE、 ActiveX Document.DLL、ActiveX.EXE、ActiveX Control
等,这时要选Standard.EXE。接着在 Project下,选择Property属性选项,在
General选项下,将Project Name改为UDP2,将protocol property设置成0-udptcp
protocol,并将Form名称及Caption更改为UDP2 。 在屏幕的Form上加入一个WinSock control取名为UDP2 ,加入两个TextBox
control ( Outtext、Intext),并在两个TextBox control前加入两个Label
control,分别将Caption改为Outtext、Intext。 (TextBox) Name ----------------------------------------------------- Outtext(输出文件) Intext(输入文件) (Label) Caption -------------------------------------------------------- Outtext(输出文件) Intext(输入文件) 在Form_Load()中加入以下程序代码,这个动作是设置好我们要连接的远端输入端
口,设置为1002,并将输入端口设置为1001。 UDP2.RemoteHost = "MARY" UDP2.RemotePort = 1002 UDP2.Bind 1001 双击Outtext到Outtext_change()加入以下程序代码,当Outtext内容改变,文件就
会自动送出: UDP2.SendData Outtext.text 在UDP2_DataArrival(ByVal bytesTotal As Long) 中加入以下程序代码,这是用来
把所接收的文件显示在Intext这个TextBox 中。 Dim S As StrIng UDP2.GetData S InText.Text = S 这样我们就完成了UDP2的设计。 Step 3:测试UDP Chat程序 分别执行UDP1及UDP2程序。这时UDP1的屏幕上显示In及Out TextBox;UDP2屏幕也显
示In及Out两个TextBox。我们在UDP1的Outbox中输入一些字符串 I want talk to
Mary,我们将在UDP2端的Inbox看到这些字符串。接着我们在UDP2的Outbox也输入一
些字符串This is Mary speaking!,我们将在UDP1端的Inbox看到这些字串。结果证
明我们成功了
先能访问就行呀 比如聊天 必须 是tcp\ip 协议呀 我没有udp协议
希望你门能帮我呀 ?详细一点谢谢了??
运行演示图:http://bbs.2ccc.com/uploads/huangtao/运行效果图.jpg
下载地址:http://bbs.2ccc.com/uploads/huangtao/smartmail1.0.rar
源码 放送