VB 网络学习笔记1

最新推荐文章于 2020-03-10 09:04:52 发布
最新推荐文章于 2020-03-10 09:04:52 发布
阅读量804 收藏
点赞数
分类专栏： VB 文章标签： vb 网络 subversion object command string
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/laotou99/article/details/7192968
版权

TCP

VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form frmServer 
   Caption         =   "frmServer"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox txtSendData 
      Height          =   1575
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   1
      Text            =   "Form1.frx":0000
      Top             =   1560
      Width           =   4575
   End
   Begin VB.TextBox txtoutput 
      Height          =   1455
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Text            =   "Form1.frx":0006
      Top             =   0
      Width           =   4575
   End
   Begin MSWinsockLib.Winsock Winsock1 
      Left            =   4320
      Top             =   1320
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
End
Attribute VB_Name = "frmServer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Load()
'
    Me.Winsock1.LocalPort = 1001
    Me.Winsock1.Listen
    frmClient.Show
End Sub

Private Sub txtSendData_Change()
'
    Me.Winsock1.SendData Me.txtSendData.Text
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'
    If Me.Winsock1.State <> sckClosed Then
        Me.Winsock1.Close
    End If
    Me.Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'
    Dim strData As String
    Me.Winsock1.GetData strData
    Me.txtoutput.Text = strData
End Sub




VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form frmClient 
   Caption         =   "frmClient"
   ClientHeight    =   3660
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3660
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   375
      Left            =   3240
      TabIndex        =   2
      Top             =   3240
      Width           =   1215
   End
   Begin VB.TextBox txtSendData 
      Height          =   1455
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   1
      Text            =   "frmClient.frx":0000
      Top             =   1680
      Width           =   4575
   End
   Begin VB.TextBox txtOutput 
      Height          =   1575
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Text            =   "frmClient.frx":0006
      Top             =   0
      Width           =   4575
   End
   Begin MSWinsockLib.Winsock Winsock1 
      Left            =   0
      Top             =   3240
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
End
Attribute VB_Name = "frmClient"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
'
    Me.Winsock1.Connect
End Sub

Private Sub Form_Load()
'
    Me.Winsock1.RemoteHost = Me.Winsock1.LocalHostName
    Me.Winsock1.RemotePort = 1001
End Sub

Private Sub txtSendData_Change()
'
    Me.Winsock1.SendData Me.txtSendData.Text
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'
    Dim strData As String
    Me.Winsock1.GetData strData
    Me.txtOutput.Text = strData
End Sub


UDP

VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form FrmA 
   Caption         =   "FrmA"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox txtsend 
      Height          =   1455
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   1
      Text            =   "FrmA.frx":0000
      Top             =   1560
      Width           =   4575
   End
   Begin VB.TextBox txtouput 
      Height          =   1455
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Text            =   "FrmA.frx":0006
      Top             =   0
      Width           =   4575
   End
   Begin MSWinsockLib.Winsock Winsock1 
      Left            =   4200
      Top             =   2760
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
      Protocol        =   1
   End
End
Attribute VB_Name = "FrmA"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
'
    With Me.Winsock1
        .RemoteHost = "PC2011021716zzc."
        .RemotePort = 1001
        .Bind 1002
    End With
    FrmB.Show
End Sub

Private Sub txtSend_Change()
'
    Me.Winsock1.SendData Me.txtSend.Text
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'
    Dim strData As String
    Me.Winsock1.GetData strData
    Me.txtouput.Text = strData
End Sub



VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form FrmB 
   Caption         =   "FrmB"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin MSWinsockLib.Winsock Winsock1 
      Left            =   4320
      Top             =   2760
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
      Protocol        =   1
   End
   Begin VB.TextBox txtSend 
      Height          =   1335
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   1
      Text            =   "FrmB.frx":0000
      Top             =   1800
      Width           =   4575
   End
   Begin VB.TextBox txtOutput 
      Height          =   1695
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Text            =   "FrmB.frx":0006
      Top             =   0
      Width           =   4575
   End
End
Attribute VB_Name = "FrmB"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
'
    With Me.Winsock1
        .RemoteHost = "PC2011021716zzc."
        .RemotePort = 1002
        .Bind 1001
    End With
End Sub

Private Sub txtSend_Change()
'
    Me.Winsock1.SendData Me.txtSend.Text
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'
    Dim strData As String
    Me.Winsock1.GetData strData
    Me.txtOutput.Text = strData
End Sub




laotou99
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
专栏目录
VB网络操作学习笔记
laotou99的专栏
12-10 1606
VERSION 5.00 Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" Begin VB.Form Form1 Caption = "Form1" ClientHeight = 3225 ClientLeft = 60 Client
vb2012学习笔记，都是在网上搜到然后集合到一起的
03-11
### VB.NET 学习笔记：控件操作与多线程应用 #### 一、控件操作：设置字体和前景色 在 Visual Basic .NET (简称 VB.NET) 中，经常需要改变用户界面元素（如 `TextBox`）的外观，例如字体样式、大小或颜色等。下面...
关于VB命名的一些经验总结
lyserver的专栏
10-13 2456
关于VB程序设计中的命名，对于初学者来说，是一件比较头疼的事，就算一些VB老手，也偶尔会为如何命名而烦恼，目前流行的命名法多种多样，如匈牙利命名法、骆驼命名法、Pascal命名法以及GNU C常用的下划线命名法等，各种命名法都各有利弊，如何更好地扬长避短，将各种命名法的优点纳入己用，进而形成一个团队的命名风格，对于项目协作开发来说，无疑会起到一些事半功倍的效果。为此，我将数年VB编程中
VB 进程间通讯
weixin_30294295的博客
07-21 131
对于进程间的通讯有N多种方法,常见的有DDE,还有内存文件映射,管道,自定义消息,甚至WINSOCK等等很多种方法本文就内存文件映射来说下进程间的通讯. 建立程序A代码如下 VERSION 5.00 Begin VB.Form Form1 Caption = "Form1" ClientHeight = 3090 ClientLe...
关于'`global namespace''的问题
frozenjackxp的专栏
05-19 3356
我按照>这本书敲了一个头文件封装了一些dib的函数以下是dibapi.h的内容:#ifdef _INC_DIBAPI#define _INC_DIBAPIDECLARE_HANDLE(HDIB);#define PALVERSION 0x300#define IS_WIN30_DIB(lpbi) ((*(LPDWORD)(lpbi)))==sizeof(BITMAPINFOHE
OpenCASCADE学习笔记分解1
08-03
OpenCASCADE学习笔记分解1 OpenCASCADE是一个开源的三维造型软件内核系统，它主要用于构建三维造型软件的基础。在工业设计、艺术设计、装修设计以及仿真实验等领域，三维造型软件扮演着至关重要的角色，比如PRO/E、...
我的vb学习笔记和经验
04-29
根据提供的文件信息，我们可以总结和提炼出以下几个与Visual Basic (VB) 编程相关的知识点： ### 1. 文件名批量修改脚本 该脚本提供了一个功能，可以在指定路径下批量修改文件名。 #### 代码解析 ```vb Sub ...
vb程序设计笔记vb程序设计笔记.doc
06-14
【VB程序设计笔记】 ...通过深入学习和实践VB程序设计，你可以创建复杂的Windows应用程序，实现数据处理、图形用户界面、网络通信等功能。记住，实践是掌握VB的关键，不断编写和调试代码，你会逐渐精通这门语言。
MAPGIS67二次开发学习笔记共4页.pdf.zip
最新发布
10-30
标题"MAPGIS67二次开发学习笔记共4页.pdf.zip"指出这是一个关于MAPGIS6.7版本的二次开发的学习资料，它包含4页的笔记，并且这些内容被压缩在了一个名为"MAPGIS67二次开发学习笔记共4页.pdf.zip"的文件中。...
Global Namespace (全域命名空间)
TL的专栏
02-02 4250
 Global Namespace (全域命名空间)概述 业务挑战 用户面临的主要挑战 管理员面临的主要挑战 解决方案 益处和实施 实施全局命名空间 主要业务应用 Bro
VB 批量重命名文件
weixin_30237281的博客
01-11 581
VERSION 5.00 Begin VB.Form Form1 BorderStyle = 3 'Fixed Dialog Caption = "Rename use VB QQ 1009374598" ClientHeight = 3630 ClientLeft = 45 ClientTo...
使用VB开发来电显示管理程序
gdclx的专栏
08-18 1169
适合对象：记得来电显示管理器 开发环境：Visual Basic 下载范例：JDDemo1.zip 原始文件：http://www.kosen.com.cn/news/showatc.asp?id=101源程序：VERSION 5.00 Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX" Obj
VB默认属性、动态数组、Range对象的默认属性的一点不成熟的想法
weixin_30485291的博客
12-08 469
1、默认属性 VB6.0有默认属性的特性。当没有给对象指定具体的属性时，"默认属性"是VB6.0将使用的属性。在某些情形下，省略常用属性名，使代码更为精简。 因为CommandButton的默认属性是Value，所以下面两句代码是等价的： 1 Sub Test() 2 Debug.Print UserForm1.CommandButton1 '输出F...
VBA窗体和控件初接触（2）：
奔跑的犀牛先生
03-10 5125
我学到现在才发现控件分类不是我开始以为的 表单控件 传统表单控件 ActiveX控件（activeX并不能直接用到窗体，和窗体的事件也略有不同，比如getfoucs,窗体里是enter等） 窗体 窗体控件 代码设置优先级更高，尽量少用属性栏，而是用代码设置， 很多属性，既可以在属性栏设置，也可以 除非一些属性，代码几乎不会用到 或者一些麻烦的属性，比如pictur...
SQL Server学习笔记：数据库基础知识和编程接口详解
本文将对SQL Server进行详细的学习笔记总结，旨在帮助初学数据库的人快速理解和掌握SQL Server的基本操作和特性。 首先，SQL Server提供了多种基本的数据库操作命令，包括创建表、删除表、修改表结构、查询数据、...
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值