用 VB 来写网路程序
作者:parno 日期:2006-07-22
用VB来写网路程式，你可不要以为这是什么深奥的程式，其实只要一个Winsock 控制项就可以了，现在就来介绍一下Winsock 的用法：
步骤一：首先要先把控制项给叫出来，你只要按下Ctrl+T後选取Winsock Control 5.0若是用VB6 的就选Winsock Control 6.0，这样就可以使用Winsock元件。
步骤二：再来我们必须先确定程式是作Server端还是Client端的，要先设定一些属性：
Server写法：
Client写法：
连线之前Client端要先知道Server端的IP，接著等到Server端等待连线时，Client端就可以呼叫Connect方法，双方连线成功後就可以传输资料。
步骤三：当Client连线的时候Server端会引发ConnectionRequest事件，Server的程式要这样子写：
步骤四：这样一来就可以传送资料了，传送和接受资料的方法如下：
传送资料：
这样就会把mydata给传到对方那里。
接受资料：当有资料送到的时候会引发DataArrival事件。
Winsock 控制项就那么简单，只要会这些就可以写网路程式。
步骤一：首先要先把控制项给叫出来，你只要按下Ctrl+T後选取Winsock Control 5.0若是用VB6 的就选Winsock Control 6.0，这样就可以使用Winsock元件。
步骤二：再来我们必须先确定程式是作Server端还是Client端的，要先设定一些属性：
Server写法：
复制内容到剪贴板
程序代码
程序代码winsock1.localPort = 5400 '数字可以随便设
winsock1.Listen '等待连线
winsock1.Listen '等待连线
Client写法：
复制内容到剪贴板 程序代码
程序代码winsock1.RemoteHost = "对方IP"
winsock1.RemoteProt = 5400 '必须要和Server端相同
winsock1.LocalProt = 0
winsock1.Connect '连线
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
winsock1.Close
winsock1.Accept requestID
End Sub
步骤四：这样一来就可以传送资料了，传送和接受资料的方法如下：
传送资料：
复制内容到剪贴板 程序代码
程序代码mydata = "你好吗?"
winsock1.sendData mydata
winsock1.sendData mydata
这样就会把mydata给传到对方那里。
接受资料：当有资料送到的时候会引发DataArrival事件。
复制内容到剪贴板 程序代码
程序代码Privata Sub Winsock1_DtatArrival(ByVal bytesTotal As long)
Dim mydata As String
winsock1.GetData mydata '会把送到的资料给mydata
End Sub
Dim mydata As String
winsock1.GetData mydata '会把送到的资料给mydata
End Sub
Winsock 控制项就那么简单，只要会这些就可以写网路程式。
[本日志由 parno 于 2007-03-25 10:01 PM 编辑]
上一篇: 用类来编写数据库程序
下一篇: 真正删除数据库的记录 
文章来自: 
引用通告: 查看所有引用 | 我要引用此文章
Tags: VisualBasic WinSock 
相关日志:
评论: 0 | 引用: 0 | 查看次数: 6241
