VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > temp > VB.net教程 >
  • 基于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。

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

 

代码如下:

 


  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


相关教程