vb Winsock控件接受byte数组-CSDN论坛

vb Winsock控件接受byte数组

VB > 控件

收藏回复

[问题点数：50分，结帖人wjzimu]

⋅VB 封装ActiveX DLL（winsock）可以被C#调用吗？ ⋅vb Winsock控件接受byte数组 ⋅VB 想发送8583报文用什么数据类型？ 更多帖子 关注私信空间博客 眯眯豆儿 等级 本版专家分：42 结帖率 100%: 用winsock1 发送数据，发送的是byte数组，接受的时候用byte数组来接收。出现的问题，成功将数据发送的出去，可是接受的时候却接收不到，错误提示 “连接由远程端重新设置”“由于超市或其他失败连接终止”

请教各位前辈。代码如下：

发送数据：
Private Sub BWZZ()
Winsock1.Connect
Timer2.Interval = 500
Timer2.Enabled = True
End sub

Private Sub Timer2_Timer()

If Winsock1.State = 7 Then
Winsock1.senddata a ' dim a(100) as byte
End If
If Winsock1.State = 9 Then
Timer1.Interval = 0
Timer1.Enabled = False
End If

End Sub

接受数据：

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim b() As Byte
ReDim b(bytesTotal - 1) As Byte
Winsock1.GetData b, vbByte, bytesTotal

End Sub

2011-01-09 16:30:28

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅因[不能正确结贴]被封杀.............好幽默哦，不结贴的小心了，不正确也不行。 ⋅高晓松前几天还骂药家鑫撞杀人，昨天就醉驾被抓了 ⋅mciSendString 播放 AVI 木有声音 更多帖子 关注私信空间博客 dbcontrols 等级 本版专家分：62697 勋章 银牌 2002年2月总版技术专家分月排行榜第二 2002年1月总版技术专家分月排行榜第二 红花 2011年5月 VB大版内专家分月排行榜第一 2011年4月 VB大版内专家分月排行榜第一 2011年3月 VB大版内专家分月排行榜第一 2011年2月 VB大版内专家分月排行榜第一 2011年1月 VB大版内专家分月排行榜第一 2010年12月 VB大版内专家分月排行榜第一 2010年11月 VB大版内专家分月排行榜第一 2002年2月 VB大版内专家分月排行榜第一 2002年1月 VB大版内专家分月排行榜第一 蓝花 2002年3月 VB大版内专家分月排行榜第三: 也许未必是你的错，是不是对方终止发送或防火墙问题

2011-01-09 17:11:22

点赞只看TA 引用举报 #1得分 50

⋅请教一个MSDN上查不到WM类消息? ⋅想出一种VB也能生成汇编的方法，有心者看能不能再发扬光大了 ⋅可用分发生溢出，散分 更多帖子 关注私信空间博客 homezj 等级 本版专家分：15567: 连接部分代码没贴出来？
什么也没收到，你又是怎么知道发出去了呢？

代码很独道，不敢说不对，但至少说是非常规。建议你看看MSDN中的相关示例。

另外，请使用常量名，没几个人能天天记得7与9代表什么，没可读性，自然没人愿意看。

2011-01-09 18:41:28

点赞只看TA 引用举报 #2得分 0

⋅【散分】旅游顺利归来 ⋅【散分】一不小心上月技术分竟得了个911 ⋅【散分】中秋国庆双节快乐 更多帖子 关注私信空间博客 孤独剑_LPZ 等级 本版专家分：33618 勋章 红花 2009年12月 VB大版内专家分月排行榜第一 黄花 2010年6月 VB大版内专家分月排行榜第二 蓝花 2010年5月 VB大版内专家分月排行榜第三 2009年11月 VB大版内专家分月排行榜第三: 代码不全,参考示例吧

2011-01-10 09:10:59

点赞只看TA 引用举报 #3得分 0

⋅VB 封装ActiveX DLL（winsock）可以被C#调用吗？ ⋅vb Winsock控件接受byte数组 ⋅VB 想发送8583报文用什么数据类型？ 更多帖子 关注私信空间博客 眯眯豆儿 等级 本版专家分：42: 我的代码：谢谢各位

Private Sub Form_Load()
DoEvents
   Me.Move 0, 0, Screen.Width, Screen.Height
Command1.Enabled = False
Command1.Visible = False
chay = ""

Timer1.Enabled = True
Timer1.Interval = 36900
Call BWZZ
End Sub

Private Sub BWZZ()
Dim wyb As String
Dim u As Long
Dim u1 As Long
Dim u2 As Long
wyb = ""
Select Case Left(zhang, 4)
       Case "缴费"  '组织报文然后赋值给byte 数组
              chay = "004060" & "0000000000"
             Debug.Print chay
             ReDim a(7) As Byte


             u2 = 1
             For u1 = 0 To 7
                 a(u1) = "&H" & Mid(chay, u2, 2)
                 u2 = u2 + 2
             Next u1

       Case Else

            cs.Label2.Caption = "终端识别账户错误交易失败"
            cs.Show
            Timer1.Enabled = False
            Timer2.Enabled = False
            Me.Hide


End Select

Winsock1.Close

Winsock1.Protocol = sckTCPProtocol

Winsock1.RemoteHost = ip2
Winsock1.LocalPort = 0
Winsock1.RemotePort = dk2

Winsock1.Connect

Timer2.Interval = 500
Timer2.Enabled = True

End Sub

Private Sub timer1_Timer()
cs.Label2.Caption = "操作超时系统将返回主机界面"
cs.Show
Timer1.Enabled = False
Timer2.Enabled = False
Me.Hide
End Sub

Private Sub Timer2_Timer()
If Winsock1.State = 7 Then
'Winsock1.senddata chay
Winsock1.senddata a
End If
If Winsock1.State = 9 Then
Timer1.Interval = 0
Timer1.Enabled = False
End If

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim b() As Byte
ReDim b(bytesTotal - 1) As Byte
    Winsock1.GetData b, vbByte, bytesTotal

End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox Description
End Sub

2011-01-10 09:18:22

点赞只看TA 引用举报 #4得分 0

⋅这个语句有什么问题? ⋅她说对我没感觉 ⋅【声明】以后20分的帖子就不回复了 更多帖子 关注私信空间博客 king06 等级 本版专家分：24946 勋章 黄花 2011年4月 VB大版内专家分月排行榜第二 2010年1月 VB大版内专家分月排行榜第二 蓝花 2009年12月 VB大版内专家分月排行榜第三: 接收端都没侦听?

2011-01-10 10:35:37

点赞只看TA 引用举报 #5得分 0

⋅快过年了，好人一生平安。 ⋅关于VB的0、""(空字符串)、Null、Empty、与 Nothing 的区别，升三星散分。 ⋅[已处理] =========================c s d n为何反复要求登录=================== 更多帖子 关注私信空间博客 chinaboyzyq 等级 本版专家分：54077 勋章 红花 2010年7月 VB大版内专家分月排行榜第一 2010年6月 VB大版内专家分月排行榜第一 2010年5月 VB大版内专家分月排行榜第一 2010年4月 VB大版内专家分月排行榜第一 黄花 2011年12月 VB大版内专家分月排行榜第二 2011年9月 VB大版内专家分月排行榜第二 2011年8月 VB大版内专家分月排行榜第二 2010年8月 VB大版内专家分月排行榜第二 2009年9月 VB大版内专家分月排行榜第二 蓝花 2012年2月 VB大版内专家分月排行榜第三 2011年11月 VB大版内专家分月排行榜第三 2011年3月 VB大版内专家分月排行榜第三 2011年1月 VB大版内专家分月排行榜第三 2010年3月 VB大版内专家分月排行榜第三 2010年2月 VB大版内专家分月排行榜第三 2009年10月 VB大版内专家分月排行榜第三 2009年8月 VB大版内专家分月排行榜第三: 连接由远程端重新设置

多是由于UDP协议、使用同一IP且服务器端软件与客户端软件在同一机子上测试造成的，
分在不同的机子上测试可避免此类错误。

另外：非要在同一台机子上测试的话，可以在本地连接的tcp/ip协议的高级选项里再添加一个IP，
用不同的IP测试即可。

2011-01-10 16:34:22

点赞只看TA 引用举报 #6得分 0

⋅VB 封装ActiveX DLL（winsock）可以被C#调用吗？ ⋅vb Winsock控件接受byte数组 ⋅VB 想发送8583报文用什么数据类型？ 更多帖子 关注私信空间博客 眯眯豆儿 等级 本版专家分：42: 谢谢大家帮忙，问题解决了。是这样的，只要服务器方，下发完数据，在延迟5秒钟，然后在关闭连接，我就可以收到了。

同样的情况，如果服务器下发的string 不是ascii 码的话，不需要延迟我就可以用string收到。这是怎么回事呢？

2011-01-11 09:30:23

点赞只看TA 引用举报 #7得分 0

收起

收藏回复

眯眯豆儿

等级：

关注私信 TA的帖子

VB6 通过winsock控件数组实现客户端和服务器多对一通信: VB6 通过winsock控件数组实现客户端和服务器多对一通信注意：本文转载自http://blog.csdn.net/geohuskyer/article/details/6261062说明：我是在最近开发一个考试系统过程中搜索到上面文章的，它提供的思想非常实用。...

VB6 WinSock控件及WinSockAPI: WinSock简介 Socket（套接字）最初是由加利福尼亚大学Berkeley（伯克利）分校为UNIX操作系统开发的网络通信接口，随着UNIX的广泛使用，Socket成为当前最流行的网络通信应用程序接口之一。20世纪90年代初，由...

VB中采用TCP协议用winsock控件发送和接收自定义结构体数据: 最近老师给安排了个任务，利用vb中winsock控件发送和接收数据。发送端我有public的自定义结构体:Option ExplicitType TestStoreTypeDefine1 DataT As Single ' 时间 Data(7) As Single ' 数据End Type

VB6 Socket编程: VB Socket编程(Winsock控件创建TCP/IP客户机/服务器程序) UDP协议用Bind TCP协议用Listen 用bind方法可以有两个参数，一个是绑定本地ip，另一个是绑定本地端口，而winsock用udp协议则是必须绑定ip和端口 ...

VB中使用WinSock控件传送文件: 传送文件对于网络编程来说是基本的功能，比如远程控制软件。在编制一个软件时，我从网上下了很多传文件的... 首先，在VB中要传送字符串，你可以这样写：Dim strData As StringstrData = "Test"Winsock1.SendData strDa

真正的VB木马，不用WINSOCK控件: 这篇文章不是我写的,我也正在研究,里面很多代码都有错误,希望高手把代码调试完了发给我,谢了`~~~(奉劝各位学VB的朋友,不要以为用WINSOCK控件连接的两个窗口就是木马,VB木马真正的核心还是API)一、开篇废话一箩筐VB写...

在Excel中使用WinSock控件远程通信: 在Excel中使用WinSock控件远程通信这是我在实际使用时想要达到的一个目的。感谢万能的网络。但也损害了我用心去研究而获得最终成功的快感! 贵州大学计算机软件与理论研究所　李　元　本文讨论在Excel 电子表格...

在vb 中用api函数代替winsock控件建立网络连接: 给出示例代码如下：sendemail.frmVERSION 5.00Begin VB.Form Form1 Caption = "Form1" ClientHeight = 5250 ClientLeft = 60 ClientTop = 345 ClientWidth = 5865 Link

VB的Winsock控件GetData方法获取汉字乱码解决方法: C#发送的socket消息带汉字时，使用Byte类型发送。...Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim bb(1 To bytesTotal) As Byte Dim DD As String Winsock1.GetData bb() DD = StrConv...

如何在vb 中用api函数代替winsock控件建立网络连接？: <script type="text/javascript"

VB winsock介绍: Winsock是Mcrosoft windows提供的网络编程接口,它供了基于TCP/IP协议接口实现方法.通过网络进行的数据通信,需要用地址来表示网络中的主机.TCP/IP协议使用IP地址来作为主机的标识.实现的连接方式是通过IP地址来识别...

VB的WINSOCK属性: Winsock 控件对用户来说是不可见的，它提供了访问 TCP 和 UDP 网络服务的方便途径。Microsoft Access、Visual Basic、Visual C++ 或 Visual FoxPro 的开发人员都可使用它。为编写客户或服务器应用程序，不必了解 TCP...

谈谈"WinSock控件及WinSockAPI: WinSock简介 Socket（套接字）最初是由加利福尼亚大学Berkeley（伯克利）分校为UNIX操作系统开发的网络通信接口，随着UNIX的广泛使用，Socket成为当前最流行的网络通信应用程序接口之一。20世纪90年代初，由Sun ...

WinSock控件及WinSockAPI: WinSock简介 Socket（套接字）最初是由加利福尼亚大学Berkeley（伯克利）分校为UNIX操作系统开发的网络通信接口，随着UNIX的广泛使用，Socket成为当前最流行的网络通信应用程序接口之一。20世纪90年代初，由...

VB通过以太网接口使用winsock的永宏PLC上位机通讯系统设计: (1) 开头字符(STX):ASCI I码之开始字符STX，接收方以此判知传输数据之开头; (2) 从站号码:为两位数之16进制数值，在永宏PLC通讯系统中之网络架构采用主从系统在整个网络系统中只有一个主系统，但可以有254个从系统...

利用Winsock控件实现局域网通信，VB写的提供一个思路和方法: 对于局域网用户中的编程爱好者来说，如果...而现在有了Winsock控件，一切就不同了，它已经替你封装了所有烦琐的技术细节，并提供了访问TCP和UDP网络服务的方便途径。你只需通过设置控件的属性并调用其方法就可轻易连...

VB中使用WinSock控件传送文件: 传送文件对于网络编程来说是基本的功能，比如远程控制软件。在编制一个软件时，我从网上下了很多传文件的... 首先，在VB中要传送字符串，你可以这样写：Dim strData As StringstrData = "Test"Winsock1.SendData strDa

vbRichClient控件cTCPClient使用例程 (让vb的winsock.ocx滚蛋): 为什么用这个插件，vb自带的插件winsock 这么有用的插件居然不是微软自带的插件，最要命的是直接注册ocx控件 win7 win10上可能因为序列号无法注册，那么vb下如何开发ip客户端,变得很麻烦，尝试过APi方法的，但是...

敏捷开发V1.0.pptx: 敏捷开发PPT 敏捷开发以用户的需求进化为核心，采用迭代、循序渐进的方法进行软件开发。在敏捷开发中，软件项目在构建初期被切分成多个子项目，各个子项目的成果都经过测试，具备可视、可集成和可运行使用的特征。换言之，就是把一个大项目分为多个相互联系，但也可独立运行的小项目，并分别完成，在此过程中软件一直处于可使用状态。

基于Java的WebSocket的聊天室: HTML5中定义了WebSocket规范，该规范使得能够实现在浏览器端和服务器端通过WebSocket协议进行双向通信，运用Java语言和Tomcat的WebSocket实现作为服务端，实现一个聊天室的搭建。运用Java语言和Tomcat的WebSocket实现作为服务端，快速实现一个聊天室的搭建。

Notepad++ 7.9.1: notepad++是一个免费的、开放源码的文本和源代码编辑器。notepad++是用c++编程语言编写的，它以减少不必要的功能和简化过程而自豪，从而创建了一个轻便高效的文本记事本程序。实际上，这意味着高速和易访问的、用户友好的界面。 notepad++已经存在了将近20年，没有任何迹象表明它的受欢迎程度会下降。记事本绝对证明了你不需要投资在昂贵的软件来编写代码从舒适的自己的家。自己尝试一下，你就会明白为什么Notepad能坚持这么久。

微信dat文件解析工具.zip: 使用java编写的，可以将电脑端微信的dat加密文件转换为png、jpg等图片资源，方便直接查看微信聊天记录文件。

简历模板大全: 个人简历大全，满足各行业需求，可以根据自己实际情况任意进行修改。

个人简历模板: 优质简历模板，目前最前全的模板收藏，需要换工作的小伙伴们可以试试

微信小程序源码-合集6.rar: 微信小程序源码，包含：图片展示、外卖点餐、小工具类、小游戏类、演绎博览、新闻资讯、医疗保健、艺术生活等源码。

C#高性能大容量SOCKET并发完成端口例子（有C#客户端）完整实例源码: 例子主要包括SocketAsyncEventArgs通讯封装、服务端实现日志查看、SCOKET列表、上传、下载、远程文件流、吞吐量协议，用于测试SocketAsyncEventArgs的性能和压力，最大连接数支持65535个长连接，最高命令交互速度达到250MB/S（使用的是127.0.0.1的方式，相当于千兆网卡1Gb=125MB/S两倍的吞吐量）。服务端用C#编写，并使用log4net作为日志模块；同时支持65536个连接，网络吞吐量可以达到400M。

2020简历模板合集.rar: 2020简历模板合集

数据结构—成绩单生成器: 该程序用于生成成绩单，需要用户输入各科成绩，程序将自动生成成绩单（总分、平均分、排名）

从零基础开始用Python处理Excel数据.pdf: 首先学习Python的基础知识，然后使用Python来控制Excel，做数据处理。 Excel使用者、Python爱好者、数据处理人员、办公人员等第1章 python基础 1.1 什么是python？ 1.2 为什么要学习用Python处理Excel表格？ 1.3 手把手教你安装python程序 1.3.1 下载python 1.3.2 安装python 1.3.3 验证是否安装成功 1.4 安装Python集成开发工具PyCharm 1.4.1 下载 1.4.2 安装 1.5 Python的输入与输出

jdk1.8 64位官方正式版 jdk-8u91-windows: jdk1.8 64位官方正式版 jdk-8u91-windows

相关热词 c# 系统托盘图标 c#结构体定义 c# 根据网络定位 c# 清除html标签 c# uwp最小化 c#和java的区别 64位转换 c# 十进制 c# 点击保存草稿的实现 c# 如何切换图片 c# 界面隐藏部分

vb Winsock控件 接受byte数组

vb Winsock控件接受byte数组