原创文章，转载请注明转载字样和出处，谢谢！

为了验证上个在linux下写的socket的网络程序，使用vb2008写了一个简单的使用winsocket的小程序。由于之前对vb有过简单的经验。用起来也方便。但是在刚开始的添加winsocket控件却费了半天的时间，移植添加不了对控件的引用。一开始直接使用菜单里的项目-添加引用，在com中找到 Microsoft Winsock Control 6.0 但是前面也没有打钩的地方，点击确定后也工具箱中也没有任何反应，找不到相应的控件。后来直接在工具箱中，随便右击一项控件，选择 添加项，然后在调出来的对话框中找到winsocket控件打上勾就可以了，因为这里只为实现简单的测试，所以能用就可以。

在界面上添加一个按钮控件，一个文本框控件和一个winsock控件。分别命名为：

按钮：使用默认名称Button1

文本框：使用默认名称TextBox1 ，设置属性multiline 为true

winsock：使用 cli ，设置属性面板中的 远端(服务器)的ip地址，端口号，和使用的协议类型，这里为了连接服务器192。168.1.104:0x8888 ，所以ip为192.168.1.104，端口号为0x8888，协议类型为tcp。

实际运行时，文本框中会显示连接成功后接收到的服务器发送的信息。

代码如下：

1.  
   Public Class Form1
2.  
    
3.  
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
4.  
   cli.Connect() '单击按钮后进行连接服务器
5.  
   MsgBox("connect!")
6.  
    
7.  
   End Sub
8.  
    
9.  
   Private Sub cli_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles cli.DataArrival
10.  
    Dim rst As String = String.Empty '定义一个字符串变量，初值为空
11.  
     
12.  
    cli.GetData(rst) '接收数据，保存到rst
13.  
     
14.  
    TextBox1.Text += rst '将接收的数据显示到文本框中
15.  
    cli.Close() '关闭连接
16.  
    End Sub
17.  
     
18.  
    End Class

设计视图

运行状态：

文章出处：https://blog.csdn.net/iteye_6233/article/details/82399286