[VB.NET]Winsock控件广域网编程

分类：VB作者：编程之家用户
  1. Winsock控件
  4. Winsock控件对用户来说是不可见的，它提供了访问TCP和UDP网络服务的方便途径。MicrosoftAccess、VisualBasic、VisualC++或VisualFoxPro的开发人员都可使用它。为编写客户或服务器应用程序，不必了解TCP的细节或调用低级的WinsockAPIs。通过设置控件的属性并调用其方法就可轻易连接到一台远程机器上去，并且还可双向交换数据。
  6. TCP基础
  8. 数据传输协议允许创建和维护与远程计算机的连接。连接两台计算机就可彼此进行数据传输。
  10. 如果创建客户应用程序，就必须知道服务器计算机名或者IP地址（RemoteHost属性），还要知道进行“侦听”的端口（RemotePort属性），然后调用Connect方法。
  12. 如果创建服务器应用程序，就应设置一个收听端口（LocalPort属性）并调用Listen方法。当客户计算机需要连接时就会发生ConnectionRequest事件。为了完成连接，可调用ConnectionRequest事件内的Accept方法。
  14. 建立连接后，任何一方计算机都可以收发数据。为了发送数据，可调用SendData方法。当接收数据时会发生DataArrival事件。调用DataArrival事件内的GetData方法就可获取数据。
  16. UDP基础
  18. 用户数据文报协议(UDP)是一个无连接协议。跟TCP的操作不同，计算机并不建立连接。另外UDP应用程序可以是客户机，也可以是服务器。
  20. 为了传输数据，首先要设置客户计算机的LocalPort属性。然后，服务器计算机只需将RemoteHost设置为客户计算机的Internet地址，并将RemotePort属性设置为跟客户计算机的LocalPort属性相同的端口，并调用SendData方法来着手发送信息。于是，客户计算机使用DataArrival事件内的GetData方法来获取已发送的信息。
  22. 使用Winsock控件
  24. 利用WinSock控件可以与远程计算机建立连接，并通过用户数据文报协议(UDP)或者传输控制协议(TCP)进行数据交换。这两种协议都可以用来创建客户与服务器应用程序。与Timer控件类似，WinSock控件在运行时是不可见的。
  26. 可能的用途
  27. 创建收集用户信息的客户端应用程序，并将收集的信息发送到某中央服务器。
  30. 创建一个服务器应用程序，作为多个用户的数据的汇入点。
  33. 创建“聊天”应用程序。
  34. 选择通讯协议
  35. 在使用WinSock控件时，首先需要考虑使用什么协议。可以使用的协议包括TCP和UDP。两种协议之间的重要区别在于它们的连接状态：
  37. TCP协议控件是基于连接的协议，可以将它同电话系统相比。在开始数据传输之前，用户必须先建立连接。
  40. UDP协议是一种无连接协议，两台计算机之间的传输类似于传递邮件：消息从一台计算机发送到另一台计算机，但是两者之间没有明确的连接。另外，单次传输的最大数据量取决于具体的网络。
  41. 到底选择哪一种协议通常是由需要创建的应用程序决定的。下面的几个问题将有助于选择适宜的协议：
  43. 在收发数据的时候，应用程序是否需要得到客户端或者服务器的确认信息？如果需要，使用TCP协议，在收发数据之前先建立明确的连接。
  46. 数据量是否特别大（例如图象与声音文件）？在连接建立之后，TCP协议将维护连接并确保数据的完整性。不过，这种连接需要更多的计算资源，因而是比较“昂贵”的。
  49. 数据发送是间歇的，还是在一个会话内？例如，如果应用程序在某个任务完成的时候需要通知某个计算机，UDP协议是更适宜的。UDP协议适合发送少量的数据。
  50. 协议的设置
  51. 在设计时，可以按如下方式设置应用程序使用的协议：在“属性”窗口中单击“协议”，然后选择sckTCPProtocol或者sckUDPProtocol。也可以使用程序代码来设置Protocol属性，如下所示：
  53. Winsock1.Protocol=sckTCPProtocol
  55. 确定计算机的名称
  56. 在与远程计算机相连接的时候，需要知道它的IP地址或者它的“好听的名字”。IP地址是一串数字，每三个数字为一组，中间用点隔开（形如xxx.xxx.xxx.xxx）。通常，最易记住的是计算机的“好听的名字”。
  58. 要确定计算机的名字，请按照以下步骤执行：
  60. 在计算机的“任务栏”上，单击“启动”。
  63. 在“设置”项中，单击“控制面板”。
  66. 双击“网络”图标。
  69. 单击“标识”选项卡。
  72. 在“计算机名称”框中可以找到计算机的名称。
  73. 上面找到的计算机名称可以作为RemoteHost属性的值。
  75. TCP连接初步
  76. 如果应用程序要使用TCP协议，那么首先必须决定应用程序是服务器还是客户端。如果要创建一个服务器端，那么应用程序需要“监听”指定的端口。当客户端提出连接请求时，服务器端能够接受请求并建立连接。在连接建立之后，客户端与服务器端可以自由地互相通讯。
  78. 下列步骤创建一个非常简单的服务器：
  80. 要创建一个TCP服务器，请按照以下步骤执行：
  82. 创建新的StandardEXE工程。
  85. 将缺省窗体的名称改为frmServer。
  88. 将窗体的标题改为“TCP服务器”。
  91. 在窗体中放入一个Winsock控件，并将它的名字改为tcpServer。
  94. 在窗体上添加两个TextBox控件。将第一个命名为txtSendData，第二个为txtOutput。
  97. 为窗体添加如下的代码。
  98. PrivateSubForm_Load()
  99. '将LocalPort属性设置为一个整数。
  100. '然后调用Listen方法。
  101. tcpServer.LocalPort=1001
  102. tcpServer.Listen
  103. frmClient.Show'显示客户端的窗体。
  104. EndSub
  106. PrivateSubtcpServer_ConnectionRequest_
  107. (ByValrequestIDAsLong)
  108. '检查控件的State属性是否为关闭的。
  109. '如果不是，
  110. '在接受新的连接之前先关闭此连接。
  111. IftcpServer.State<>sckClosedThen_
  112. tcpServer.Close
  113. '接受具有requestID参数的
  114. '连接。
  115. tcpServer.AcceptrequestID
  116. EndSub
  118. PrivateSubtxtSendData_Change()
  119. '名为txtSendData的TextBox控件中
  120. '包含了要发送的数据。当用户往文本框中
  121. '键入数据时，使用SendData方法
  122. '发送输入的字符串。
  123. tcpServer.SendDatatxtSendData.Text
  124. EndSub
  126. PrivateSubtcpServer_DataArrival_
  127. (ByValbytesTotalAsLong)
  128. '为进入的数据声明一个变量。
  129. '调用GetData方法，并将数据赋予名为txtOutput
  130. '的TextBox的Text属性。
  131. DimstrDataAsString
  132. tcpServer.GetDatastrData
  133. txtOutput.Text=strData
  134. EndSub
  136. 上面的步骤创建了一个简单的服务器应用程序。为了使它能够工作，还必须为它创建一个客户端的应用程序。
  138. 要创建TCP客户端，请按照以下步骤执行：
  140. 在工程中添加一个新的窗体，将其命名为frmClient。
  143. 将窗体的标题改为“TCPClient”。
  146. 在窗体中添加一个Winsock控件，并将其命名为tcpClient。
  149. 在frmClient中添加两个TextBox控件。将第一个命名为txtSend，第二个为txtOutput。
  152. 在窗体上放一个CommandButton控件，并将其命名为cmdConnect。
  155. 将CommandButton控件的标题改为Connect。
  158. 在窗体中添加如下的代码。
  159. 重点必须将RemoteHost属性值修改为您的计算机的名字。
  161. PrivateSubForm_Load()
  162. 'Winsock控件的名字为tcpClient。
  163. '注意：要指定远程主机，可以使用
  164. 'IP地址（例如："121.111.1.1"），也可以使用
  165. '计算机的“好听的名字”如下所示。
  166. tcpClient.RemoteHost="RemoteComputerName"
  167. tcpClient.RemotePort=1001
  168. EndSub
  170. PrivateSubcmdConnect_Click()
  171. '调用Connect方法，初始化连接。
  172. tcpClient.Connect
  173. EndSub
  175. PrivateSubtxtSendData_Change()
  176. tcpClient.SendDatatxtSend.Text
  177. EndSub
  179. PrivateSubtcpClient_DataArrival_
  180. (ByValbytesTotalAsLong)
  181. DimstrDataAsString
  182. tcpClient.GetDatastrData
  183. txtOutput.Text=strData
  184. EndSub
  186. 上面的代码创建了一个简单的客户/服务器模式的应用程序。我们可以将两者都运行起来：运行工程，然后单击“连接”。在两个窗体之一的txtSendData文本框中键入文本，可以看到同样的文字将出现在另一个窗体的txtOutput文本框中。
  188. 接受多个连接请求
  189. 上面设计的基本服务器只能接受一个连接请求。通过创建控件数组，使用一个控件也可以同时接受多个连接请求。利用这种方法，不需要关闭连接，而只需创建新的控件实例（通过设置其索引属性），然后在新的实例上调用Accept方法。
  191. 下面的代码假定名为sckServer的窗体上有一个Winsock控件，它的Index属性被设置为0；因此控件是控件数组的一部分。在声明部分，声明了一个模块级的变量intMax。在窗体的Load事件中，intMax被设置为0，数组中第一个控件的LocalPort属性被设置为1001。然后调用控件的Listen方法，使之成为“监听”控件。在连接请求到达时，代码将检测Index是否为0（“监听”控件的值）。如果为0，监听控件将增加intMax的值，并使用该号码来创建新的控件实例。然后，使用新的控件实例接受连接请求。
  193. PrivateintMaxAsLong
  195. PrivateSubForm_Load()
  196. intMax=0
  197. sckServer(0).LocalPort=1001
  198. sckServer(0).Listen
  199. EndSub
  201. PrivateSubsckServer_ConnectionRequest_
  202. (IndexAsInteger,ByValrequestIDAsLong)
  203. IfIndex=0Then
  204. intMax=intMax+1
  205. LoadsckServer(intMax)
  206. sckServer(intMax).LocalPort=0
  207. sckServer(intMax).AcceptrequestID
  208. LoadtxtData(intMax)
  209. EndIf
  210. EndSub
  212. UDP初步
  213. 创建UDP应用程序比创建TCP应用程序还要简单，因为UDP协议不需要显式的连接。在上面的TCP应用程序中，一个Winsock控件必须显式地进行“监听”，另一个必须使用Connect方法初始化连接。
  215. UDP协议不需要显式的连接。要在两个控件中间发送数据，需要完成以下的三步（在连接的双方）：
  217. 将RemoteHost属性设置为另一台计算机的名称。
  220. 将RemotePort属性设置为第二个控件的LocalPort属性。
  223. 调用Bind方法，指定使用的LocalPort。（下面将详细地讨论该方法。）
  224. 因为两台计算机的地位可以看成“平等的”，这种应用程序也被称为点到点的。为了具体说明这个问题，下面将创建一个“聊天”应用程序，两个人可以通过它进行实时的交谈。
  226. 要创建一个UDP伙伴，请按照以下步骤执行：
  228. 创建一个新的StandardEXE工程。
  231. 将缺省的窗体的名称修改为frmPeerA。
  234. 将窗体的标题修改为“PeerA”。
  237. 在窗体中放入一个Winsock控件，并将其命名为udpPeerA。
  240. 在“属性”页上，单击“协议”并将协议修改为UDPProtocol。
  243. 在窗体中添加两个TextBox控件。将第一个命名为txtSend，第二个命名为txtOutput。
  246. 为窗体增加如下的代码。
  247. PrivateSubForm_Load()
  248. '控件的名字为udpPeerA
  249. WithudpPeerA
  250. '重点:必须将RemoteHost的值
  251. '修改为计算机的名字。
  252. .RemoteHost="PeerB"
  253. .RemotePort=1001'连接的端口号。
  254. .Bind1002'绑定到本地的端口。
  255. EndWith
  256. frmPeerB.Show'显示第二个窗体。
  257. EndSub
  259. PrivateSubtxtSend_Change()
  260. '在键入文本时，立即将其发送出去。
  261. udpPeerA.SendDatatxtSend.Text
  262. EndSub
  264. PrivateSubudpPeerA_DataArrival_
  265. (ByValbytesTotalAsLong)
  266. DimstrDataAsString
  267. udpPeerA.GetDatastrData
  268. txtOutput.Text=strData
  269. EndSub
  271. 要创建第二个UDP伙伴，请按照以下步骤执行：
  273. 在工程中添加一个标准窗体。
  276. 将窗体的名字修改为frmPeerB。
  279. 将窗体的标题修改为“PeerB”。
  282. 在窗体中放入一个Winsock控件，并将其命名为udpPeerB。
  285. 在“属性”页上，单击“协议”并将协议修改为“UDPProtocol”。
  288. 在窗体上添加两个TextBox控件。将第一个命名为txtSend，第二个命名为txtOutput。
  291. 在窗体中添加如下的代码。
  292. PrivateSubForm_Load()
  293. '控件的名字为udpPeerB。
  294. WithudpPeerB
  295. '重点:必须将RemoteHost的值改为
  296. '计算机的名字。
  297. .RemoteHost="PeerA"
  298. .RemotePort=1002'要连接的端口。
  299. .Bind1001'绑定到本地的端口上。
  300. EndWith
  301. EndSub
  303. PrivateSubtxtSend_Change()
  304. '在键入后立即发送文本。
  305. udpPeerB.SendDatatxtSend.Text
  306. EndSub
  308. PrivateSubudpPeerB_DataArrival_
  309. (ByValbytesTotalAsLong)
  310. DimstrDataAsString
  311. udpPeerB.GetDatastrData
  312. txtOutput.Text=strData
  313. EndSub
  315. 如果要试用上面的例子，按F5键运行工程，然后在两个窗体的txtSendTextBox中分别键入一些文本。键入的文字将出现在另一个窗体的txtOutputTextBox中。
  317. 关于Bind方法
  318. 在上面的代码中，在创建UDP应用程序时调用了Bind方法，这是必须的。Bind方法的作用是为控件“保留”一个本地端口。例如，如果将控件绑定到1001号端口，那么其它应用程序将不能使用该端口进行“监听”。该方法阻止其它应用程序使用同样的端口。
  320. Bind方法的第二个参数是任选的。如果计算机上存在多个网络适配器，可以用LocalIP参数来指定使用哪一个适配器。如果忽略该参数，控件使用的将是计算机上“控制面板”设置中“网络”控制面板对话框中列出的第一个适配器。
  322. 在使用UDP协议的时候，可以任意地改变RemoteHost和RemotePort属性，同时始终保持绑定在同一个LocalPort上。TCP协议与此不同，在改变RemoteHost和RemotePort属性之前，必须先关闭连接。

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。

相关推荐

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 -------------------------------- 数字类型的格式化 --------------------------------     固定格式参数：     General Number 普通数字，如可以用来去掉千位分隔号     format$("100,1
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTime 竟然结果和系统设置的区域语言的日期和时间格式相关。意思是尽管你用诸如 Format(Now, "MM/dd/yyyy")，如果系统的设置格式区域语言的日期和时间格式分隔符是"-",那他还会显示为 MM-dd-yyyy     只有拼凑： <%response.write
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的解决方案直接添加本ApplicationEvents.vb 到工程即可 ‘添加后还需要一个From用来显示错误。如果到这步还不会则需要先打好基础啦 ‘======================================================== ‘以下事件
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，看来我以前没有认真去找这个方法呀。 https://blog.csdn.net/chzjxgd/article/details/6176325 金蝶K3 BOS的插件官方是用VB6编写的，如果  能用.Net下的语言工具开发BOS插件是一件很愉快的事情，其中缘由不言而喻，而本文则是个人首创，实现在了用V
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m As Range, tmpStr As String, s As String Dim x As Integer, y As Integer, subStr As String If MsgBox("确定要分列处理吗？请确定分列的数据会覆盖它后面的单元格！", _
VB文件 hash 查看器
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) 2 Dim path As String, hash As String 3 For Each fil
VB.NET MYSQL DataGridView 增删改查INSERT,SELECT,UPDATE,DELETE
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS Dim conString As String = "Server=localhost;Database=net2;Uid=root;Pwd=123456;" Dim con As New MySqlConnection
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Dim Sql As String Dim Cnn As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim S As String   S = "Provider=OraOLEDB.Oracl
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class Form1 Dim A(254) As String    Function ping(ByVal IP As Integer) As String Dim IPAddress As String IPAddress = "10.0.
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5494084 Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Pr
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时候所有的验证信息都存放在一个数组里 Dim CheckUserInfo() As String ={UserBirthday, SecEmail, UserMob, UserSex, RealNameFirst, RealName, CheckCardID, CheckCardType, Contactemail
VB如何连接SQL Server数据库
在VB6.0中，数据访问接口有三种： 1、ActiveX数据对象（ADO） 2、远程数据对象（RDO） 3、数据访问对象（DAO） 1.使用ADO（ActiveX Data Objec，ActiveX数据对象）连接SQL Server 1）使用ADO控件连接 使用ADO控件的ConnectionString属性就可以连接SQL Server，该属性包含一个由分号分隔的argument=value语
Visual Basic 6.0VB6.0详细安装过程
注：大家如果没有VB6.0的安装文件，可自行百度一下下载，一般文件大小在200M左右的均为完整版的软件，可以使用。   特别提示：安装此软件的时候最好退出360杀毒软件（包括360安全卫士，电脑管家等，如果电脑上有这些软件的话），因为现如今的360杀毒软件直接会对VB6.0软件误报，这样的话就可能会在安装过程中被误报阻止而导致安装失败，或者是安装后缺乏很多必须的组件（其它的杀毒软件或安全卫士之类的
使用VB6读取数据库资源并发送邮件原创
Private Sub Form_Load() Call conndb End Sub Private Function conndb() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim strCn, sql As String Dim db_host As String Dim db_user As String
POS VB
  PPSM06S70:  Add  moddate  EDITSPRINTJOB:  MAX(TO_CHAR(ETRN.MODDATE, ‘yyyy/mm/dd/HH24:MI AM‘)) ACTUAL_SHIPDATE   4.Test Scenario (1) ：Query SQL Test DN:8016578337 SELECT CTRN.TKCTID TRUCK_ID,        
vb.net 水晶報表CrystalReport 動態設定資料庫來源
  沒有出現CrystalReportViewer時,須安裝CRforVS_13_0. 新增1個數據集,新增1個數據表,添加二列,列名要和資料庫名一樣. 修改目標Framework 修改app.config, <startup >改成<startup useLegacyV2RuntimeActivationPolicy ="true">  CrystalReport1.rpt增加數據庫專家 在表單
VB.net 与线程
Imports System.Threading Imports System Public Class Form1 Dim th1, th2 As Thread Public Sub Method1() Dim i As Integer For i = 1 To 100 If Me.Label1.BackColor =
vb.net Process32First和Module32First
Friend Const PROCESS_ALL_ACCESS = &H1F0FFF = 2035711 Friend Const PROCESS_VM_READ = &H10 Friend Const PROCESS_VM_WRITE = &H20 Friend Const PAGE_READONLY = &H2 Friend Const PAGE_READWRITE = &H4 Friend
vb.net 分割byte数组的方法SplitBytes
以下代码随手写的 并没有大量测试 效率也有待提升 如果需要C#的请自行转换 Function SplitBytes(Data As Byte(), Delimiter As Byte()) As List(Of Byte()) Dim i = 0 Dim List As New List(Of Byte()) Dim bytes As New
VB.NET连接SQL_Server实例
Imports System.Data.SqlClient Public Class Form1 REM Public conn1 As SqlConnection = New SqlConnection("server=.; Integrated Security=False;Initial Catalog= mydatabase1; User ID= sa;password")
pythonJavaScriptjavaHTMLPHPreactjsC#AndroidCSSNode.jssqlrpython-3.xMysqLjQueryc++pandasFlutterangularIOSdjangolinuxswifttypescript路由器JSON路由器设置无线路由器h3c华三华三路由器设置华三路由器电脑软件教程arraysdocker软件图文教程Cvue.jslaravelspring-boot