怎样用vb写网络软件Word下载.docx

1、在设计阶段，单击工具窗口里的协议，选择sckTCPProtocol或sckUDPProtocol。你也可以在代码里配置协议，就像下面这样：Winsock1.Protocol=sckTCPProtocol确定你的计算机名要连接到远程的计算机，你必须知道它的IP地址或别名。IP地址是一串用句点分隔的3位数字。通常，计算机的别名更容易让人记住。按下面的步骤可以找到你的计算机名:在“任务栏”里单击“开始”在“设置”选项里单击“控制面板”；双击“网络”图标；单击“网络标识”在“计算机名”中显示的就是你的计算机名。一旦你找到你的计算名，它就可以作为远程主机的属性来用了。TCP连接入门当用TCP控件创建应用

2、程序的时候，必须首先明确你的程序是作为服务端还是客户端。创建服务端程序就意味着你的程序能够在指定的端口进行“监听”，而客户端则能够提出请求，服务端能够接受请求并实现连接。一旦连接建立起来，客户端和服务端就能够自由地进行通信。创建服务端程序下面是创建一个简单服务端程序的步骤：创建一个标准EXE工程；把默认窗体（Default form）的名字改为frmServer;把form的标题（caption）改为TCP Server；把Winsock控件拉到窗体中，并命名为tcpServer；在窗体中添加2个文本框，分别命名为txtSendData和txtOutput在窗体中加入下列代码；Private

3、Sub Form_Load（） Set the LocalPort property to an integer. Then invoke the Listen method.tcpServer.LocalPort = 1001tcpServer.Listen frmClient.Show Show the client form.End Sub Private Sub tcpServer_ConnectionRequest _（ByVal requestID As Long） Check if the controls State is closed. If not, close the c

4、onnection before accepting the new connection.If tcpServer.State sckClosed Then _tcpServer.Close Accept the request with the requestID parameter.tcpServer.Accept requestIDEnd SubPrivate Sub txtSendData_Change（） The TextBox control named txtSendData contains the data to be sent. Whenever the user typ

5、es into the textbox, the string is sent using the SendData method.tcpServer.SendData txtSendData.TextPrivate Sub tcpServer_DataArrival _（ByVal bytesTotal As Long） Declare a variable for the incoming data. Invoke the GetData method and set the Text property of a TextBox named txtOutput to the data.Di

6、m strData As StringtcpServer.GetData strDatatxtOutput.Text = strData上面就是创建一个简单的服务端应用程序的过程。然而，要完成整个过程，你还得创建一个客户端程序。创建TCP客户端程序在工程中添加一个新的窗体（form），并命名为frmClient；将窗体的标题（caption）改为TCP Client；添加一个Windsock控件到窗体中，命名为tcpCllient；添加2个文本框控件到frmClient窗体，分别命名为txtSend和txtOutput；添加一个按钮控件（CommandButton）到窗体，命名为cmdConn

7、ecti；将按钮控件标题（caption）改为Connect；在窗体中添加下面代码：注：确保将远程主机属性（RemoteHost property）改为你的计算机别名。 The name of the Winsock control is tcpClient. Note: to specify a remote host, you can use either the IP address （ex: 121.111.1.1） or the computers friendly name, as shown here.tcpClient.RemoteHost = RemoteComputerNa

8、metcpClient.RemotePort = 1001Private Sub cmdConnect_Click（） Invoke the Connect method to initiate a tcpClient.ConnecttcpClient.SendData txtSend.TextPrivate Sub tcpClient_DataArrival _tcpClient.GetData strData以上代码就能创建一个简单的客/服应用程序。要试着让两者建立连接，可以运行工程，单击Connect。在任意一个txtSendData文本框中输入文本，同样的文本信息就会出现在另一个窗体的

9、txtOutput文本框中出现。接受多个连接请求上面介绍的服务端程序智能接受一个连接请求。但是，通过创建一组控件，并使用同样的控件来接受多个连接请求也是可能的。在这种情况下，你不需要关闭连接，只要创建新的控件实例（通过配置它的索引属性），调用新的实例中的接受方法。下面的代码中，假定在一个叫sckServer的窗体中有一个Winsock控件，它的索引属性设置为0。这样这个控件就是控件数组的一部分。在声明段中，生命一个模块级变量intMax。在窗体的载入事件中，intMax被设置为0，数组中第一个控件的本地端口属性被设置为1001。监听方法在控件中被调用，它被作为“监听控件”。每个连接请求到来时，

10、代码会测试看它的索引（Index）是否为0（监听控件的值），如果是0，监听控件中intMax值增1，并用这个值创建新的控件实例。新的控件实例被用来接受连接请求。Private intMax As LongintMax = 0sckServer（0）.LocalPort = 1001sckServer（0）.ListenPrivate Sub sckServer_ConnectionRequest _（Index As Integer, ByVal requestID As Long）If Index = 0 ThenintMax = intMax + 1Load sckServer（intMa

11、x）sckServer（intMax）.LocalPort = 0sckServer（intMax）.Accept requestIDLoad txtData（intMax）End IfUDP连接入门创建一个UDP应用程序比创建TCP程序更简单，因为UDP协议不需要一个确定的连接。在上面的TCP应用程序中，其中一个Winsock控件必须明确的被设置为“监听”，而另一个必须用连接方法发起连接。相反，UDP协议不需要明确的连接。要在2个控件之间传送数据，（连接的双方）必须完成三个步骤：确定远程主机属性为对方的计算机名；确定远程主机属性为第二个控件的本地端口属性；调用约定方法指定要被使用的本地端口。

12、（下面将详细讨论该方法）创建一个的UDP连接端将默认窗体命名为frmPeerA；在窗体中添加一个Winsock控件，命名为udpPeerA；在属性（Properties）页，单击协议（Protocol），改为UDPProtocol；添加2个文本框控件窗体中，分别命名为txtSend和txtOutput； The controls name is udpPeerAWith udpPeerA IMPORTANT: be sure to change the RemoteHost value to the name of your computer.RemoteHost= PeerB.RemoteP

13、ort = 1001 Port to connect to.Bind 1002 Bind to the local port.End WithfrmPeerB.Show Show the second form.Private Sub txtSend_Change（） Send text as soon as its typed.udpPeerA.SendData txtSend.TextPrivate Sub udpPeerA_DataArrival _udpPeerA.GetData strData创建第二个UDP连接端添加标准窗体到工程中；将窗体名改为frmPeerB；将窗体标题改为Pe

14、er B；在窗体中添加一个Windsock控件并命名为udpPeerB；在属性页中单击Protocol，改为UDPProtocol；添加2个文本框到窗体中，分别命名为txtSend和txtOutput；在窗体中添加下面代码:s name is udpPeerB.With udpPeerBPeerA.RemotePort = 1002 .Bind 1001 udpPeerB.SendData txtSend.TextPrivate Sub udpPeerB_DataArrival _udpPeerB.GetData strData关于约定方法上面代码中所涉及的，在创建UDP应用程序时必须调用约定

15、方法。这个约定的方法保留了控件用到的本地端口。例如，当你绑定控件到端口1001时，其他的应用程序都不能用该端口监听。当你希望阻止其他的应用程序使用某端口的时候，这个就很有用。这个约定方法也引起了争议。如果机器里有多个网络适配器，本地IP允许你指定用哪个适配器。如果你忽略了这个争议性问题，控件就会使用计算机控制面板设置中，在网络控制面板对话框里列出的第一个网络适配器。在使用UDP协议时，你可以自由的切换远程主机和远程端口属性，同时保留本地端口范围。但是在使用UDP协议时，你必须在改变远程主机和远程端口属性时关闭连接。共4页。-VB6.0开发网络应用的5个技巧Visual Basic 6.0（以下

16、简称VB 6）以其强大的功能为广大软件开发人员所喜爱，被用来开发各种应用程序。随着Internet的迅猛发展，VB 6在网络方面的应用开发也越来越多。本文介绍笔者在实际编程开发中总结的5个技巧，希望能为进行网络开发的朋友们提供一点参考。连通检测许多应用程序常常需要在程序中直接进行联网操作，以便进行一些必要的处理（如在线注册和在线帮助等），这就要求我们在程序中建立某些连接。很多软件在不知用户是否联网的情况下就启动浏览器查找网址，结果只能查出一错误网页，既浪费用户时间又没有任何效果。如果应用程序在查找网页之前能自动判断用户是否已经联网，就会节约许多时间，提高程序运行效率。下面是实现网络连通检测的V

17、B 6代码：Private Sub Form_Load（） If IsConnected = TRUE Then MsgBox （“您已经连通了Internet!”） End If If IsConnected = FALSE Then MsgBox （“您还没有连通 Internet!Option Explicit /*有关的API声明和定义*/ Public Declare Function RasEnumConnections Lib “RasApi32.dll” Alias “RasEnumConnectionsA” （lpRasCon As Any, lpcb As Long, lp

18、cConnections As Long） As Long Public Declare Function RasGetConnectStatus Lib “RasApi32.dll” Alias “RasGetConnectStatusA” （ByVal hRasCon As Long, lpStatus As Any） As Long /*常数和变量的设定*/ Public Const RAS95_MaxEntryName = 256 Public Const RAS95_MaxDeviceType = 16 Public Const RAS95_MaxDeviceName = 32 Pu

19、blic Type RASCONN95 dwSize As Long hRasCon As Long szEntryName（RAS95_MaxEntryName） As Byte szDeviceType（RAS95_MaxDeviceType） As Byte szDeviceName（RAS95_MaxDeviceName） As Byte End Type Public Type RASCONNSTATUS95 RasConnState As Long dwError As Long /*函数IsConnected返回连通的状态，如果为True则表示已连通*/ Public Funct

20、ion IsConnected（） As Boolean Dim TRasCon（255） As RASCONN95 Dim lg As Long Dim lpcon As Long Dim RetVal As Long Dim Tstatus As RASCONNSTATUS95 TRasCon（0）.dwSize = 412 lg = 256 * TRasCon（0）.dwSize RetVal = RasEnumConnections（TRasCon（0）, lg, lpcon） If RetVal 0 Then MsgBox “错误” Exit Function Tstatus.dwS

21、ize = 160 RetVal = RasGetConnectStatus（TRasCon（0） .hRasCon,Tstatus） If Tstatus.RasConnState = H2000 Then IsConnected = TRUE Else IsConnected = FALSE End Function 启动拨号网络中的连接 由于拨号网络不是一个可执行文件， 所以要启动拨号网络，需要借助 explorer.exe 。但若是要启动拨号网络中的某一个连接，则要借助rundll.exe 和 rnaui.dll两个文件。启动方法如下（假定此连接名称为163）：Shell “rundl

22、l rnaui.dll，RnaDial 163”，vbNormalFocus 上面假定了连接名称，但在实际编程中我们是不知道连接名称的。在窗体上放置一个命令按钮（cmdCallConnect），在其单击事件中进行连接处理。下面的代码介绍如何取得默认的连接名称并启动它：/*有关的API声明*/ Private Declare Function RegOpenKeyEx Lib “advapi32” Alias “RegOpenKeyExA” （ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal

23、samDesired As Long, phkResult As Long） As Long Private Declare Function RegQueryvalueEx Lib “advapi32” Alias “RegQueryvalueExA” （ByVal hKey As Long, ByVal lpvalueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal szData As String, ByRef lpcbData As Long） As Long Private Declare Fu

24、nction RegCloseKey Lib “advapi32”（ByVal hKey As Long） As Long /*常数的设定*/ Const HKEY_CURRENT_USER = H80000001 Const ERROR_SUCCESS = 0 在命令按钮（cmdCallConnect）中加入如下代码：Private Sub cmdCallConnect_Click（） /*启动默认拨号连接*/ Shell “rundll rnaui.dll,RnaDial” GetConnect, vbNormalFocus /*取得连接的函数（GetConnect）*/ Public Function GetConnect（） As String Dim hKey As Long Dim SubKey As String /*主键*/ hKey = HKEY_CURRENT_USER /*子键*/ SubKey = “RemoteAccess” /*取得默认连接名*/ GetConnect=GetRegvalue（hKey,SubKey, “Default”） /*取得注册的函数（GetRegvalue）*/ Public Func