基于VB2008的winsocket控件网络编程

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

 

为了验证上个在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。

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

代码如下：

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        cli.Connect()  '单击按钮后进行连接服务器
        MsgBox("connect!")

    End Sub

    Private Sub cli_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles cli.DataArrival
        Dim rst As String = String.Empty '定义一个字符串变量，初值为空

        cli.GetData(rst)    '接收数据，保存到rst

        TextBox1.Text += rst   '将接收的数据显示到文本框中
        cli.Close()           '关闭连接
    End Sub

End Class

截图：

设计视图

运行状态：