您的位置: 首页 > 软件教程 > VB.NET教程专题 > VB.net2008创建发送与接收端程序

VB.net2008创建发送与接收端程序

8.3分
出处:中国IT实验室 时间:2011-06-29

您可能感兴趣的话题: VB.NET  

核心提示:本篇文章的主要开发环境是Visual Studio 2008,Visual Studio系列产品一直以来都提供了强大的控件功能

  本篇文章的主要开发环境是Visual Studio 2008,Visual Studio系列产品一直以来都提供了强大的控件功能,然而我们利用这些控件可以编写出功能强大的应用程序。本文主要利用微软的最新.net开发工具为大家展示一个发送与接收端程序的开发过程,让大家对Socket更加熟悉,很适合.net开发工具的初学者,具有一定的实用价值。 
  打开 Visual Studio 2008在文件 (File) 菜单上,单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中,单击 Windows 应用程序(Windows Application)。单击确定 (OK) 如图1。
  

VB.net2008创建发送与接收端程序(图一)

  我们需要创建两个窗体,一个是发送端(Form1窗体),另外一个是接收端(Form2窗体)
  详细操作步骤如下:
  选择Form1窗体,在Form1窗体中添加如下控件:
  Label1、Label2、Label3、 Button1控件、OpenFileDialog1控件
  控件属性设置如下:  
  Label1 属性Text 已经发送的文件长度:
  Label2 属性Text 为空
  Label3 属性Text 字节数
  Button1 属性Text 发送文件  
  最终界面效果如下:
  

VB.net2008创建发送与接收端程序(图二)

  选择Form2窗体,在Form2窗体中添加如下控件:
  Label1、Label2、TextBox1 、Button1控件、OpenFileDialog1控件、SaveFileDialog1控件
  控件属性设置如下:
  Label1 属性Text 已接收的文件:
  Label2 属性Text 为空
  TextBox1 属性Multiline
  属性ScrollBars True
  Both
  Button1 属性Text 接收文件并保存
  最终界面效果如下:
  
  

VB.net2008创建发送与接收端程序(图三)

  好了界面工作已经完成了,接下来我们需要输入代码了
  选择Form1窗体,进入代码编辑器中
  首先我们需要进行声明:
  Imports System.Net.Sockets
  Imports System.Net
  Imports System.IO  
  Public Class Form1
  Inherits System.Windows.Forms.Form  
  进入Button1_Click事件中
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim mysocket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
  '声明socket
  Dim myipendponit As New IPEndPoint(IPAddress.Parse("127.0.0.1"), 8888) '建立一个终结点
  OpenFileDialog1.Filter = "文本文件(.txt) *.txt"
  OpenFileDialog1.InitialDirectory = "c:\"
  If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
  Dim fs As New IO.FileStream(OpenFileDialog1.FileName, _
  IO.FileMode.OpenOrCreate, IO.FileAccess.Read) '你所要传输的文件
  Dim ssize(fs.Length - 1) As Byte
  Dim br As New BinaryReader(fs) '处理要传输的文件
  br.Read(ssize, 0, ssize.Length - 1)
  
  mysocket.Connect(myipendponit) '连接到远程计算机
  mysocket.Send(ssize) '发送文件
  Label2.Text = fs.Length()
  fs.Close()
  mysocket.Shutdown(Net.Sockets.SocketShutdown.Send)
  '关闭已发送连接
  mysocket.Close() '关闭本机socket
  End If
  End Sub  
  进入Form1_Load事件中
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Dim window2 As New Form2()
  window2.Show()
  End Sub  
  选择Form2窗体,进入代码编辑器中


  首先我们需要进行声明:  
  Imports System.Net.Sockets
  Imports System.Net
  Imports System.IO
  Public Class Form2
  Inherits System.Windows.Forms.Form
  Dim receivesocket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)  
  进入Form2_Load事件中
  Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Dim hostipendpoint As New IPEndPoint(IPAddress.Parse("127.0.0.1"), 8888)
  receivesocket.Bind(hostipendpoint)
  '建立远程计算机的的socket
  receivesocket.Listen(2) '监听socket
  End Sub

  进入Button1_Click事件中

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  SaveFileDialog1.Filter = "文本文件(.txt) *.txt"

  SaveFileDialog1.FileName = "接收的文件.txt"

  SaveFileDialog1.InitialDirectory = "c:Mytext"  

  If SaveFileDialog1.ShowDialog() = DialogResult.OK Then

  Dim fs As New IO.FileStream(SaveFileDialog1.FileName, _

  IO.FileMode.OpenOrCreate)

  '接收数据并将其保存到一个新的文件

  Dim rebyte(229888) As Byte

  Dim myhostsocket As Socket = receivesocket.Accept()

  '发送端计算机建立连接

  Dim wr As New BinaryWriter(fs) '流写

  myhostsocket.Receive(rebyte)

  wr.Write(rebyte, 0, rebyte.Length - 1)

  fs.Close()

  myhostsocket.Shutdown(SocketShutdown.Receive)

  myhostsocket.Close()

  Label2.Text = SaveFileDialog1.FileName

  

  '读取已保存的文件

  Dim Readw As StreamReader

  Readw = File.OpenText(SaveFileDialog1.FileName)  

  ' 设置指针到开始位置

  Readw.BaseStream.Seek(0, SeekOrigin.Begin)

  Readw.BaseStream.Position = 0

  While (Readw.Peek() > -1)

  TextBox1.Text += Readw.ReadLine() & vbCrLf

  End While

  Readw.Close()  

  End If

  End Sub  

  好了代码输入完毕,接下来我们来运行程序测试一下

  程序启动后会弹出Form1窗体(发送端)和Form2窗体(接收端),我们选择Form1窗体(发送端)点击发送按钮,随意选择一个文本文件即可,看一看效果,如图4

VB.net2008创建发送与接收端程序(图四)

  接下来我们需要选择Form2窗体(接收端)点击接收文本并保存按钮图5
  

VB.net2008创建发送与接收端程序(图五)

  
  这个窗体是利用了TCP协议进行了数据的通信,在传输时必须设置同时打开发送与接收端窗体才能进行数据的传输。如图6
  
  

VB.net2008创建发送与接收端程序(图六)

  通过以上的测试,程序运行成功,我们主要利用了Socket以及TCP文件传输的技术进行了数据的发送与接收,希望此程序实例能够给大家带来帮助。

网友评论
精品软件课程
更多 >
C++是一种静态数据类型检查的,支持多重编程... [详细]
Java,是由Sun Microsystem... [详细]
C语言是一种面向过程的计算机程序设计语言。多... [详细]
Visual Basic是一种由微软公司开发... [详细]
Oracle Database,又名Orac... [详细]
Visual C++微软公司的C++开发工具... [详细]