VB 局域网传输工具(发送端)_vb实现局域网发送通知-优快云博客

这是一个使用VB编写的局域网文件传输工具的发送端程序，用户可以输入目标IP地址、端口号和选择要传输的文件。程序包括浏览文件、设置端口、发送文件和取消传输等功能，通过Winsock控件实现数据传输。当文件传输完成后，会显示传输完成的消息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form frmMain
   BorderStyle     =   1 'Fixed Single
   Caption         =   "程序之家局域网文件传输器发送端 V1.0"
   ClientHeight    =   3000
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   5565
   LinkTopic       =   "Form1"
   LockControls    =   -1 'True
   MaxButton       =   0   'False
   ScaleHeight     =   3000
   ScaleWidth      =   5565
   StartUpPosition =   1 '所有者中心
   Begin VB.CommandButton cmdCancel
      Cancel          =   -1 'True
      Caption         =   "退出(&C)"
      Height          =   315
      Left            =   4600
      TabIndex        =   5
      Top             =   895
      Width           =   855
   End
   Begin VB.TextBox textPort
      Height          =   270
      Left            =   3800
      TabIndex        =   1
      Text            =   "5300"
      Top             =   120
      Width           =   735
   End
   Begin SendFile.ProgressBar proBar
      Height          =   255
      Left            =   120
      TabIndex        =   8
      Top             =   925
      Width           =   4405
      _ExtentX        =   7779
      _ExtentY        =   450
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Value           =   0
   End
   Begin VB.ListBox lstMsg
      Height          =   1680
      Left            =   -10
      TabIndex        =   6
      Top             =   1320
      Width           =   5595
   End
   Begin SendFile.IPEditControl iPEdit
      Height          =   255
      Left            =   1320
      TabIndex        =   0
      Top             =   140
      Width           =   1645
      _extentx        =   2910
      _extenty        =   450
      backcolor       =   16777215
      font            =   "frmMain.frx":0000
   End
   Begin MSWinsockLib.Winsock wskSend
      Left            =   600
      Top             =   0
      _ExtentX        =   741
      _ExtentY        =&nb