怎样用vb写网络软件Word下载.docx
《怎样用vb写网络软件Word下载.docx》由会员分享，可在线阅读，更多相关《怎样用vb写网络软件Word下载.docx（18页珍藏版）》请在冰豆网上搜索。
在设计阶段，单击工具窗口里的协议，选择sckTCPProtocol或sckUDPProtocol。
你也可以在代码里配置协议，就像下面这样：
Winsock1.Protocol=sckTCPProtocol
确定你的计算机名
要连接到远程的计算机，你必须知道它的IP地址或别名。
IP地址是一串用句点分隔的3位数字。
通常，计算机的别名更容易让人记住。
按下面的步骤可以找到你的计算机名:
在“任务栏”里单击“开始”
在“设置”选项里单击“控制面板”；
双击“网络”图标；
单击“网络标识”
在“计算机名”中显示的就是你的计算机名。
一旦你找到你的计算名，它就可以作为远程主机的属性来用了。
TCP连接入门
当用TCP控件创建应用程序的时候，必须首先明确你的程序是作为服务端还是客户端。
创建服务端程序就意味着你的程序能够在指定的端口进行“监听”，而客户端则能够提出请求，服务端能够接受请求并实现连接。
一旦连接建立起来，客户端和服务端就能够自由地进行通信。
创建服务端程序
下面是创建一个简单服务端程序的步骤：
创建一个标准EXE工程；
把默认窗体（Defaultform）的名字改为frmServer;
把form的标题（caption）改为TCPServer；
把Winsock控件拉到窗体中，并命名为tcpServer；
在窗体中添加2个文本框，分别命名为txtSendData和txtOutput‘
在窗体中加入下列代码；
PrivateSubForm_Load（）
'
SettheLocalPortpropertytoaninteger.
TheninvoketheListenmethod.
tcpServer.LocalPort=1001
tcpServer.Listen
frmClient.Show'
Showtheclientform.
EndSub
PrivateSubtcpServer_ConnectionRequest_
（ByValrequestIDAsLong）
Checkifthecontrol'
sStateisclosed.Ifnot,
closetheconnectionbeforeacceptingthenew
connection.
IftcpServer.State<
>
sckClosedThen_
tcpServer.Close
AccepttherequestwiththerequestID
parameter.
tcpServer.AcceptrequestID
EndSub
PrivateSubtxtSendData_Change（）
TheTextBoxcontrolnamedtxtSendData
containsthedatatobesent.Whenevertheuser
typesintothetextbox,thestringissent
usingtheSendDatamethod.
tcpServer.SendDatatxtSendData.Text
PrivateSubtcpServer_DataArrival_
（ByValbytesTotalAsLong）
Declareavariablefortheincomingdata.
InvoketheGetDatamethodandsettheText
propertyofaTextBoxnamedtxtOutputto
thedata.
DimstrDataAsString
tcpServer.GetDatastrData
txtOutput.Text=strData
上面就是创建一个简单的服务端应用程序的过程。
然而，要完成整个过程，你还得创建一个客户端程序。
创建TCP客户端程序
在工程中添加一个新的窗体（form），并命名为frmClient；
将窗体的标题（caption）改为TCPClient；
添加一个Windsock控件到窗体中，命名为tcpCllient；
添加2个文本框控件到frmClient窗体，分别命名为txtSend和txtOutput；
添加一个按钮控件（CommandButton）到窗体，命名为cmdConnecti；
将按钮控件标题（caption）改为Connect；
在窗体中添加下面代码：
注：
确保将远程主机属性（RemoteHostproperty）改为你的计算机别名。
ThenameoftheWinsockcontrolistcpClient.
Note:
tospecifyaremotehost,youcanuse
eithertheIPaddress（ex:
"
121.111.1.1"
）or
thecomputer'
s"
friendly"
name,asshownhere.
tcpClient.RemoteHost="
RemoteComputerName"
tcpClient.RemotePort=1001
PrivateSubcmdConnect_Click（）
InvoketheConnectmethodtoinitiatea
tcpClient.Connect
tcpClient.SendDatatxtSend.Text
PrivateSubtcpClient_DataArrival_
tcpClient.GetDatastrData
以上代码就能创建一个简单的客/服应用程序。
要试着让两者建立连接，可以运行工程，单击Connect。
在任意一个txtSendData文本框中输入文本，同样的文本信息就会出现在另一个窗体的txtOutput文本框中出现。
接受多个连接请求
上面介绍的服务端程序智能接受一个连接请求。
但是，通过创建一组控件，并使用同样的控件来接受多个连接请求也是可能的。
在这种情况下，你不需要关闭连接，只要创建新的控件实例（通过配置它的索引属性），调用新的实例中的接受方法。
下面的代码中，假定在一个叫sckServer的窗体中有一个Winsock控件，它的索引属性设置为0。
这样这个控件就是控件数组的一部分。
在声明段中，生命一个模块级变量intMax。
在窗体的载入事件中，intMax被设置为0，数组中第一个控件的本地端口属性被设置为1001。
监听方法在控件中被调用，它被作为“监听控件”。
每个连接请求到来时，代码会测试看它的索引（Index）是否为0（监听控件的值），如果是0，监听控件中intMax值增1，并用这个值创建新的控件实例。
新的控件实例被用来接受连接请求。
PrivateintMaxAsLong
intMax=0
sckServer（0）.LocalPort=1001
sckServer（0）.Listen
PrivateSubsckServer_ConnectionRequest_
（IndexAsInteger,ByValrequestIDAsLong）
IfIndex=0Then
intMax=intMax+1
LoadsckServer（intMax）
sckServer（intMax）.LocalPort=0
sckServer（intMax）.AcceptrequestID
LoadtxtData（intMax）
EndIf
UDP连接入门
创建一个UDP应用程序比创建TCP程序更简单，因为UDP协议不需要一个确定的连接。
在上面的TCP应用程序中，其中一个Winsock控件必须明确的被设置为“监听”，而另一个必须用连接方法发起连接。
相反，UDP协议不需要明确的连接。
要在2个控件之间传送数据，（连接的双方）必须完成三个步骤：
确定远程主机属性为对方的计算机名；
确定远程主机属性为第二个控件的本地端口属性；
调用约定方法指定要被使用的本地端口。
（下面将详细讨论该方法）
创建一个的UDP连接端
将默认窗体命名为frmPeerA；
在窗体中添加一个Winsock控件，命名为udpPeerA；
在属性（Properties）页，单击协议（Protocol），改为UDPProtocol；
添加2个文本框控件窗体中，分别命名为txtSend和txtOutput；
Thecontrol'
snameisudpPeerA
WithudpPeerA
IMPORTANT:
besuretochangetheRemoteHost
valuetothenameofyourcomputer.
.RemoteHost="
PeerB"
.RemotePort=1001'
Porttoconnectto.
.Bind1002'
Bindtothelocalport.
EndWith
frmPeerB.Show'
Showthesecondform.
PrivateSubtxtSend_Change（）
Sendtextassoonasit'
styped.
udpPeerA.SendDatatxtSend.Text
PrivateSubudpPeerA_DataArrival_
udpPeerA.GetDatastrData
创建第二个UDP连接端
添加标准窗体到工程中；
将窗体名改为frmPeerB；
将窗体标题改为PeerB；
在窗体中添加一个Windsock控件并命名为udpPeerB；
在属性页中单击Protocol，改为UDPProtocol；
添加2个文本框到窗体中，分别命名为txtSend和txtOutput；
在窗体中添加下面代码:
snameisudpPeerB.
WithudpPeerB
PeerA"
.RemotePort=1002'
.Bind1001'
udpPeerB.SendDatatxtSend.Text
PrivateSubudpPeerB_DataArrival_
udpPeerB.GetDatastrData
关于约定方法
上面代码中所涉及的，在创建UDP应用程序时必须调用约定方法。
这个约定的方法保留了控件用到的本地端口。
例如，当你绑定控件到端口1001时，其他的应用程序都不能用该端口监听。
当你希望阻止其他的应用程序使用某端口的时候，这个就很有用。
这个约定方法也引起了争议。
如果机器里有多个网络适配器，本地IP允许你指定用哪个适配器。
如果你忽略了这个争议性问题，控件就会使用计算机控制面板设置中，在网络控制面板对话框里列出的第一个网络适配器。
在使用UDP协议时，你可以自由的切换远程主机和远程端口属性，同时保留本地端口范围。
但是在使用UDP协议时，你必须在改变远程主机和远程端口属性时关闭连接。
共4页。
--------------------------------------------------------------------------------
VB6.0开发网络应用的5个技巧
VisualBasic6.0（以下简称VB6）以其强大的功能为广大软件开发人员所喜爱，被用来开发各种应用程序。
随着Internet的迅猛发展，VB6在网络方面的应用开发也越来越多。
本文介绍笔者在实际编程开发中总结的5个技巧，希望能为进行网络开发的朋友们提供一点参考。
连通检测
许多应用程序常常需要在程序中直接进行联网操作，以便进行一些必要的处理（如在线注册和在线帮助等），这就要求我们在程序中建立某些连接。
很多软件在不知用户是否联网的情况下就启动浏览器查找网址，结果只能查出一错误网页，既浪费用户时间又没有任何效果。
如果应用程序在查找网页之前能自动判断用户是否已经联网，就会节约许多时间，提高程序运行效率。
下面是实现网络连通检测的VB6代码：
PrivateSubForm_Load（）
IfIsConnected=TRUEThen
MsgBox（“您已经连通了Internet!
”）
EndIf
IfIsConnected=FALSEThen
MsgBox（“您还没有连通Internet!
OptionExplicit
/*有关的API声明和定义*/
PublicDeclareFunctionRasEnumConnectionsLib“RasApi32.dll”Alias“RasEnumConnectionsA”（lpRasConAsAny,lpcbAsLong,lpcConnectionsAsLong）AsLong
PublicDeclareFunctionRasGetConnectStatusLib“RasApi32.dll”Alias“RasGetConnectStatusA”（ByValhRasConAsLong,lpStatusAsAny）AsLong
/*常数和变量的设定*/
PublicConstRAS95_MaxEntryName=256
PublicConstRAS95_MaxDeviceType=16
PublicConstRAS95_MaxDeviceName=32
PublicTypeRASCONN95
dwSizeAsLong
hRasConAsLong
szEntryName（RAS95_MaxEntryName）AsByte
szDeviceType（RAS95_MaxDeviceType）AsByte
szDeviceName（RAS95_MaxDeviceName）AsByte
EndType
PublicTypeRASCONNSTATUS95
RasConnStateAsLong
dwErrorAsLong
/*函数IsConnected返回连通的状态，如果为True则表示已连通*/
PublicFunctionIsConnected（）AsBoolean
DimTRasCon（255）AsRASCONN95
DimlgAsLong
DimlpconAsLong
DimRetValAsLong
DimTstatusAsRASCONNSTATUS95
TRasCon（0）.dwSize=412
lg=256*TRasCon（0）.dwSize
RetVal=RasEnumConnections（TRasCon（0）,lg,lpcon）
IfRetVal<
0Then
MsgBox“错误”
ExitFunction
Tstatus.dwSize=160
RetVal=RasGetConnectStatus（TRasCon（0）
.hRasCon,Tstatus）
IfTstatus.RasConnState=＆H2000Then
IsConnected=TRUE
Else
IsConnected=FALSE
EndFunction
启动拨号网络中的连接
由于拨号网络不是一个可执行文件，所以要启动拨号网络，需要借助explorer.exe。
但若是要启动拨号网络中的某一个连接，则要借助rundll.exe和rnaui.dll两个文件。
启动方法如下（假定此连接名称为163）：
Shell“rundllrnaui.dll，RnaDial163”，vbNormalFocus
上面假定了连接名称，但在实际编程中我们是不知道连接名称的。
在窗体上放置一个命令按钮（cmdCallConnect），在其单击事件中进行连接处理。
下面的代码介绍如何取得默认的连接名称并启动它：
/*有关的API声明*/
PrivateDeclareFunctionRegOpenKeyExLib“advapi32”Alias“RegOpenKeyExA”（ByValhKeyAsLong,ByVallpSubKeyAsString,ByValulOptionsAsLong,ByValsamDesiredAsLong,phkResultAsLong）AsLong
PrivateDeclareFunctionRegQueryvalueExLib“advapi32”Alias“RegQueryvalueExA”（ByValhKeyAsLong,ByVallpvalueNameAsString,ByVallpReservedAsLong,ByReflpTypeAsLong,ByValszDataAsString,ByReflpcbDataAsLong）AsLong
PrivateDeclareFunctionRegCloseKeyLib“advapi32”（ByValhKeyAsLong）AsLong
/*常数的设定*/
ConstHKEY_CURRENT_USER=＆H80000001
ConstERROR_SUCCESS=0
在命令按钮（cmdCallConnect）中加入如下代码：
PrivateSubcmdCallConnect_Click（）
/*启动默认拨号连接*/
Shell“rundllrnaui.dll,RnaDial”＋ GetConnect,vbNormalFocus
/*取得连接的函数（GetConnect）*/
PublicFunctionGetConnect（）AsString
DimhKeyAsLong
DimSubKeyAsString
/*主键*/
hKey=HKEY_CURRENT_USER
/*子键*/
SubKey=“RemoteAccess”
/*取得默认连接名*/
GetConnect=GetRegvalue（hKey,SubKey,“Default”）
/*取得注册的函数（GetRegvalue）*/
PublicFunc
升级会员 