[原创]VB6.0串口控件mscomm32.ocx 破解版，支持大于16的串口号

gtrajtr · 发表于 2015-1-26 18:43:42

本帖最后由 gtrajtr 于 2015-1-26 18:46 编辑

在坛子里看到有坛友抱怨VB6的串口控件mscomm32.ocx 不支持大于16的端口号，有时候使用不方便。
自己就顺手把它破了这个限制，端口号最高支持到255，一般情况应该足够用了。

另外，有坛友说mscomm32在64位系统下用不了，我没有遇到过这种情况。
mscomm32肯定是支持64位系统的，有些老项目的上位机软件是VB写的，一直在64位系统都用得好好的。

用VB写了个简单的测试程序，在win7 64bit下测试通过，串口是用CH340从USB转出来的串口，TX、RX断接，点TX，能正常收发数据。

截图，微软原版本的mscomm32.ocx，打开串口17出错

破解版的mscomm32.ocx，正常打开串口17，正常收发数据

破解版的mscomm32.ocx，正常打开串口254，正常收发数据

xiaoyigechaos · 发表于 2015-1-26 18:55:13

碉堡了，收藏

zhuyihua001 · 发表于 2015-1-26 19:10:29

楼主怎么才来啊

我做过一个简单串口软件,
给客户后
客户的串口就超过16到达40(蓝牙串口的原因)

费了好大的劲,才强制改端口号到1号完成应用.

楼主好人.

yuyu87 · 发表于 2015-1-26 19:27:04

谢谢！有用

maguorong · 发表于 2015-1-26 19:35:50

很好，以后可以使用，谢谢！

unifax001 · 发表于 2015-1-26 20:27:44

这个牛b 马克思密达

Eric2013 · 发表于 2015-1-26 20:32:59

homay · 发表于 2015-1-26 20:46:15

利害，真不错，都是牛人

gtrajtr · 发表于 2015-1-26 20:57:42

zhuyihua001 发表于 2015-1-26 19:10
楼主怎么才来啊

这不刚看到几天前的帖子才知道这回事

我自己都是用VC API写串口程序的，没注意过VB的问题

其他工程师VB写的软件，我真没注意看过

powerlabor001 · 发表于 2015-1-26 21:01:32

vb 串口控件。

jlhgold · 发表于 2015-1-26 21:03:34

本帖最后由 jlhgold 于 2015-1-26 21:08 编辑

看了下好像是微软在库里做了0-16的限制把0x10改成0xFF 但是为啥你还修改了另一个地方修改变化了EF？这是干嘛的？是nop吗？

gtrajtr · 发表于 2015-1-26 21:07:47

jlhgold 发表于 2015-1-26 21:03
看了下好像是微软在库里做了0-16的限制把0x10改成0xEF 在吧之前的差填上

是的
0< portnum < 16

改16就行

jlhgold · 发表于 2015-1-26 21:09:21

gtrajtr 发表于 2015-1-26 21:07
是的
0< portnum < 16

我看到改了两个地方啊另一个修改是干嘛的？

gtrajtr · 发表于 2015-1-26 21:09:59

jlhgold 发表于 2015-1-26 21:03
看了下好像是微软在库里做了0-16的限制把0x10改成0xFF 但是为啥你还修改了另一个地方修改变化了EF？这是 ...

PE文件修改后最好重新计算checksum
不然有时系统会报错

sumissdan · 发表于 2015-1-27 03:26:13

mark.谢谢楼主。

zhao_pc0305 · 发表于 2015-1-27 06:33:19

楼主是高手，谢谢，备用

fuze2009 · 发表于 2015-1-27 06:45:45

下载试试，希望会用得着。谢谢楼主分享！

et009tw · 发表于 2015-1-27 08:14:13

下載備用,謝謝.

zxd0225 · 发表于 2015-1-27 09:14:10

以前在网上曾经下载过一个，只改动一个字节。

modbus · 发表于 2015-1-27 09:25:50

搞不懂微软以前为什么要做这个限制

zsenbao · 发表于 2015-1-27 09:32:37

不错，用得着。

changshs · 发表于 2015-1-27 10:12:18

非常好！楼主厉害！

way2888 · 发表于 2015-1-27 21:03:03

请教,这是用你的工程我只是增加COM6端口其余1点都没改,然后重新生成工程就这样了,我的是WIN7 64位的,用MSCOMM控件从来未正常过,用sscom33或saxcomm就一点问题也没有,不知这是什么问题呢?附上我修改过的工程,看在你的机上正常不?

if_else · 发表于 2015-1-27 22:33:54

mscomm32.ocx 在我的win7 64位,收不到数据,百度上说是在64位下控件注册有问题.

gtrajtr · 发表于 2015-1-28 10:03:06

本帖最后由 gtrajtr 于 2015-1-28 10:05 编辑

way2888 发表于 2015-1-27 21:03
请教,这是用你的工程我只是增加COM6端口其余1点都没改,然后重新生成工程就这样了,我的是WIN7 64位的,用MSCO ...

你的工程，我一打开就报错了。

可能是你VB安装的问题，或者是VB版本有问题。

注意到你重新保存的工程，引用控件的目录都错了，连接到64位的目录里面去，所以肯定是出错的。
VB6只有32位版本，是调用不了64位的动态库的。

在x64的Windows下，
\WINDOWS\system32 目录下的文件是64位的
\Windows\SysWOW64 目录下的文件才是32位的

出错的：

Type=Exe
Form=Form1.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation
Object={648A5603-2C6E-101B-82B6-000000000014}#1.1#0; MSCOMM32.OCX

复制代码

我原本正常的：

Type=Exe
Form=Form1.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation
Object={648A5603-2C6E-101B-82B6-000000000014}#1.1#0; MSCOMM32.OCX

复制代码

MSCOMM32.OCX控件必须放在SysWOW64目录下
你可以试一下先反注册 MSCOMM32.OCX，删掉它，
重新复制一下好的 MSCOMM32.OCX到SysWOW64目录下，再重新注册一下看看

右键以管理员方式打开命令控制台

regsvr32 /u mscomm32.ocx
regsvr32 mscomm32.ocx

复制代码

再不行，删掉重装VB吧，一定要装MSDN原版的，安装完，必须打SP6补丁

gtrajtr · 发表于 2015-1-28 10:05:02

if_else 发表于 2015-1-27 22:33
mscomm32.ocx 在我的win7 64位,收不到数据,百度上说是在64位下控件注册有问题.

肯定是没有正确安装

我用64位的windows都快10年了，从来没遇过这种问题

way2888 · 发表于 2015-1-28 20:33:33

gtrajtr 发表于 2015-1-28 10:03
你的工程，我一打开就报错了。

可能是你VB安装的问题，或者是VB版本有问题。

你好,是这样的,不单单是MSCOMM控件,VB自带的很多控件都会出现注册问题,VB也装了不少次了,还是一样的结果,网上有人说先装VB再装OFFICE就可以,我都试过了,依然没有用,后来只能用WIN7的XP模式来打开VB工程了,你看到的我上传的是用XP模式的,所以控件路径是SYSTEM32是对的,
还有,就是在你的工程添加COM6生成的EXE在XP模式下是正常能通信的,WIN7模式发送也时可以的,只是一接收数据就出错或是没反应了,所以证明控件肯定注册成功了,原本怀疑是驱动程序问题的,但是SCOMM和SAXCOMM都能用,那驱动是应该没问题了,我现在真不知道是什么问题了,
以前用WIN7的32位也是完全没问题的,VB都是直接装在WIN7系统上的,根本不需要XP模式的,希望能指点如何让WIN7的64位系统安装正常可用的VB软件,不想在XP模式里折腾了,麻烦得很啊.

gtrajtr · 发表于 2015-1-28 22:04:32

way2888 发表于 2015-1-28 20:33
你好,是这样的,不单单是MSCOMM控件,VB自带的很多控件都会出现注册问题,VB也装了不少次了,还是一样的结果, ...

VB、OFFICE的安装顺序没有关系的
我都是先装OFFICE，再装VB的

关键是windows和VB一安要是MSDN原版的，肯定不出问题
千万不要用那些网上的精简、合成的版本，多多少少都有问题

还有，安装时尽量不要开杀毒软件，特别是国内那些所谓“助手”，控件注册会给拦截的
安装时记得右键以管理员方式运行安装程序

你可以在虚拟机上全新装64位的win7尝试一下，成功了再在主机上弄

我真没试过安装失败有问题的

sunday640 · 发表于 2015-1-28 22:11:34

谢谢分享。。

huangqi412 · 发表于 2015-1-28 22:39:53

这是还是实用

zhoust · 发表于 2015-1-28 23:16:47

不错，支持一下！

721zjr · 发表于 2015-1-29 00:21:06

这个好，谢谢楼主！！！

guanglv2008 · 发表于 2015-1-29 01:55:45

好东西谢谢分享

wujh · 发表于 2015-1-29 02:08:07

先下了再说

小溪 · 发表于 2015-1-29 07:17:32

谢谢，收下以备后用

way2888 · 发表于 2015-1-29 08:09:47

gtrajtr 发表于 2015-1-28 22:04
VB、OFFICE的安装顺序没有关系的
我都是先装OFFICE，再装VB的

可否共享一下你现在在用的win7和VB软件的下载连接

woshigeshuai · 发表于 2015-1-29 08:22:56

谢谢分享，下载试一试

dushanwu522 · 发表于 2015-1-29 08:51:02

好东西，一直在用VB，谢了！

EMC菜鸟 · 发表于 2015-1-29 08:51:58

楼上的各位兄弟还在用 VB ？？？

xf331785508 · 发表于 2015-1-29 09:05:11

楼主，授之于鱼，不如授之于渔，教教怎么修改ocx文件吧。比较好奇，我自己用UE打开搜了下port number，只搜到了错误字符串。难道楼主用了VB的指针VarPtr 来定位的？？

gtrajtr · 发表于 2015-1-29 09:49:47

way2888 发表于 2015-1-29 08:09
可否共享一下你现在在用的win7和VB软件的下载连接

很久以前下载的，连接找不到了

我把文件名、HASH值给出来，你搜一下，对比一下HASH，就知道是不是一样的版本
台机用的是这个版本是OK的，以前用MSDN的零售版本也是没问题的
LENOVO_W7P1_PR_64_SC_RDVD.iso
CRC32: BF468969
MD5: C59EEDCDA1260A187F6D128CD5E701A3
SHA-1: F74BD4FBB281418DBF6D1D947D7A1DCEC3F30712

VB是这个：
en_vb6_ent_cd1.iso
CRC32: ABFA221F
MD5: D2158F8C0C0C65AAEF923096D5514A65
SHA-1: E3F52932A71F0C1B5A1CDCF3B60277723E9CB4D8

gtrajtr · 发表于 2015-1-29 09:50:51

EMC菜鸟发表于 2015-1-29 08:51
楼上的各位兄弟还在用 VB ？？？

怀旧，偶尔用一下

codefish · 发表于 2015-1-29 09:52:19

我早年也用过msomm32.ocx，支持一下！

gtrajtr · 发表于 2015-1-29 09:54:38

xf331785508 发表于 2015-1-29 09:05
楼主，授之于鱼，不如授之于渔，教教怎么修改ocx文件吧。比较好奇，我自己用UE打开搜了下port number，只 ...

随便找一个PE的反汇编的工具，反汇编一下，然后就练眼神与耐心了，找与16比较的地方，没什么特别的，纯苦力活

llww30402048 · 发表于 2015-1-29 10:28:32

本帖最后由 llww30402048 于 2015-1-29 10:29 编辑

楼主回车换行符不能输入发送不了哎
能把 16进制发送字符串发送等方式做上去吗？
接收显示方式最好也有

gtrajtr · 发表于 2015-1-29 10:32:24

llww30402048 发表于 2015-1-29 10:28
楼主回车换行符不能输入也不能发送哎
能弄个 16进制发送字符串发送等方式吗？
显示方式也可以选着 ...

我这个测试程序只是简单为了测试一下端口号，没弄这些功能
再写下去，就弄成串口助手了

你网上搜一下，应该有类似的源码的

llww30402048 · 发表于 2015-1-29 11:33:44

gtrajtr 发表于 2015-1-29 10:32
我这个测试程序只是简单为了测试一下端口号，没弄这些功能
再写下去，就弄成串口助手了

嗯谢谢楼主

markdif · 发表于 2015-1-29 11:57:57

不错不错，涨姿势了。。。

modbus · 发表于 2015-1-29 13:19:36

我也一直在用VB，一些简单的桌面程序，干嘛要用微软现在那么臃肿的.NET，咱又不是专业的软件开发人员，靠WINDOWS软件开发吃饭的，主要精力还是用在单片机方面。一直都不喜欢太臃肿的东西。

gtrajtr · 发表于 2015-1-29 13:33:17

modbus 发表于 2015-1-29 13:19
我也一直在用VB，一些简单的桌面程序，干嘛要用微软现在那么臃肿的.NET，咱又不是专业的软件开发人员，靠WI ...

的确，有时候就几条文本的指令，用VB很省事。

现在还好，基本都用win7，.NET库都自带了
以前全XP的时候，一个几KB用.NET的程序，还要安装个2XM的.NET运行库，才坑爹

不过做通讯协议，我还是喜欢VC，指针太好用了

e_agoodman · 发表于 2016-3-25 08:53:14

太牛掰了，刚好可以用上

jie5313 · 发表于 2016-3-25 13:30:02

太好了。。。。

Eastnorth · 发表于 2016-3-25 13:40:00

多谢楼主，好用！

magicoctoier1 · 发表于 2016-4-16 11:02:39

用的时候参考

jaky80000 · 发表于 2017-6-17 08:37:17

正是需要的，下来看看是否可行，谢谢！

lsbxm · 发表于 2017-6-17 10:19:57

坚决收藏一下

mon51 · 发表于 2017-6-17 11:17:02

PC机串口的操做使用mscomm32.ocx 控件，会带来很多问题。在WIN7-64,win8.1,win10下，几乎无法运行，用API直接调用WIN的底层库，兼容性，程序代码可读性非常好：
打开COM1
HANDLE hCom = CreateFile(TEXT("COM1"), GENERIC_READ|GENERIC_WRITE, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
if( hCom==INVALID_HANDLE_VALUE ) return false;

设置波特率、奇偶校验、停止位等等
DCB CommDCB;
GetCommState( hCom, &CommDCB );
CommDCB.BaudRate = BaudRate;
CommDCB.Parity = EVENPARITY;
CommDCB.StopBits = ONESTOPBIT;
CommDCB.ByteSize = 8;
CommDCB.fBinary = 1;
CommDCB.fParity = 1;
CommDCB.fOutxCtsFlow = 0;
CommDCB.fOutxDsrFlow = 0;
CommDCB.fDtrControl = 0;
CommDCB.fDsrSensitivity = 0;
CommDCB.fTXContinueOnXoff = 0;
CommDCB.fOutX = 0;
CommDCB.fInX = 0;
CommDCB.fErrorChar = 0;
CommDCB.fNull = 0;
CommDCB.fRtsControl = RTS_CONTROL_TOGGLE;
CommDCB.fAbortOnError = 0;
SetCommState( hCom, &CommDCB );

设置缓冲大小
SetupComm( hCom, 100, 100 );

设置超时时间
COMMTIMEOUTS CommTimeouts;
GetCommTimeouts( hCom, &CommTimeouts );
CommTimeouts.ReadIntervalTimeout = MAXDWORD;
CommTimeouts.ReadTotalTimeoutMultiplier = 0;
CommTimeouts.ReadTotalTimeoutConstant = 0;
SetCommTimeouts( hCom, &CommTimeouts );

/////////////// 这期间就是对COM进行读写了 ///////////////
COMSTAT ComStat; ClearCommError(hCom,&Errors,&ComStat); 后 ComStat.cbInQue 保存着一个数值，指明还有多少字节已经获得但没有用ReadFile取走。
读用 ReadFile，写用 WriteFile。
/////////////////////////////////////////////////////////

关闭COM
CloseHandle( hCom );

mon51 · 发表于 2017-6-17 11:18:45

上传一个C代码的程序，是2005用过的。

gmyu · 发表于 2017-6-17 12:45:20

mon51 发表于 2017-6-17 11:17
PC机串口的操做使用mscomm32.ocx 控件，会带来很多问题。在WIN7-64,win8.1,win10下，几乎无法运行，用API直 ...

你有调用api的VB程序么？好久没搞，发现以前国外的一个程序在office2010 win7 64下面不能用了。前段时间想搞个串口示波器，因为觉得excel2010的图表功能够炫了。

https://www.amobbs.com/thread-5558300-1-1.html

mon51 · 发表于 2017-6-17 13:03:18

本帖最后由 mon51 于 2017-6-17 13:04 编辑

gmyu 发表于 2017-6-17 12:45
你有调用api的VB程序么？好久没搞，发现以前国外的一个程序在office2010 win7 64下面不能用了。前段时间 ...

'****************************************************************************************************************************************
Public Declare Function OpenComm Lib "User" (ByVal IpComName As String, ByVal wInQueue As Integer, ByVal wOutQueue As Integer) As Integer

Public Declare Function SetCommState Lib "User" (IpDCB As DCB) As Integer

Public Declare Function ReadComm Lib "User" (ByVal nCid As Integer, ByVal IpBuf As String, ByVal nSize As Integer) As Integer

Public Declare Function WriteComm Lib "User" (ByVal nCid As Integer, ByVal IpBuf As String, ByVal nSize As Integer) As Integer

Public Declare Function Closecomm Lib "User" (ByVal nCid As Integer) As Integer

Public Declare Function BuildCommDCB Lib "User" (ByVal IpDef As String, IpDCB As DCB) As Integer

Public Declare Function GetCommError Lib "User" (ByVal nCid As Integer, IpStat As COMSTAT) As Integer
'****************************************************************************************************************************************

Type DCB

Id As String

BaudRate As Integer

ByteSize As String

Parity As String

StopBits As String

RlsTimeout As Integer

CtsTimeout As Integer

DsrTimeout As Integer

Bits1 As String

Bits2 As String

XonChar As String

XoffChar As String

XonLim As Integer

XoffLim As Integer

PeChar As String

EofChar As String

EvtChar As String

TxDelay As Integer

End Type

Type COMSTAT

Bits As String

cbInQue As Integer

cbOutQue As Integer

End Type

'*************************************************************************************

Public IpDCB As DCB

Public nCid As Integer

VB用得少，这个是从来软件中COPY出来得头文件。可以用。

mon51 · 发表于 2017-6-17 13:11:41

'*************************************************************************************
'初始化串口返回=-1 无效！
Public Function Init_Comm(com_id As String) As Integer
nCid = OpenComm(com_id, 512, 512) '′打开COM2 设置接收,发送缓冲区为512 字节

If nCid < 0 Then
      Init_Comm = -1 '′处理错误
Else
      Init_Comm = cCid
End If

End Function
'*********************************************************************************
Public Function Build_Comm(com_Info As String) As Integer
Dim comset As String
Dim err As Integer

err = 0
comset = com_Info + "  ,n ,8 ,1" '"COM2 :9600 ,n ,8 ,1"
If (BuildCommDCB(comset, LpDCB)) Then err = -1 ' 无法创建

LpDCB.Id = Chr(nCid)

If (SetCommState(LpDCB)) Then err = -2 ' 无法创建′设置串口状态
Build_Comm = err

End Function
'**************************************************************************
'发送数据
Public Function Send_Data_Out_Comm(p As String, cnt As Integer) As Integer

Dim nsend As Integer, x As Integer

Dim Lpstate As COMSTAT '通信状态块

x = GetCommError(nCid, Lpstate)  '′读取当前串口错误或状态

If Lpstate.cbOutQue < 512 Then  '′送缓冲区有空间否?

      nsend = WriteComm(nCid, p, cnt) '′发送inbuff

      If nsend <= 0 Then nsend = -nsend  ' '′忽略错误

End If

Send_Data_Out_Comm = cnt
End Function
'**************************************************************************
'读取数据
Public Function Read_Data_Out_Comm(p() As String) As Integer

Dim nsend As Integer, x As Integer

Dim Lpstate As COMSTAT '通信状态块



x = GetCommError(nCid, Lpstate)  '′读取当前串口错误或状态

If Lpstate.cbInQue < 512 Then  '′缓冲区有空间否?

      nsend = ReadComm(nCid, p, cnt) '′发送inbuff

      If nsend <= 0 Then nsend = -nsend  ' '′忽略错误

End If

Read_Data_Out_Comm = Lpstate.cbInQue
End Function

'***********************************************************************************
'关闭串口，释放资源
Public Function Close_Comm()
Dim Nclose As Integer

Nclose = Closecomm(nCid)

nCid = 0

End Function

gmyu · 发表于 2017-6-17 14:38:00

mon51 发表于 2017-6-17 13:11
'*************************************************************************************
'初始化串口返 ...

感谢！我试试，这个是以字符串的形式输入输出，习惯了C的数组和指针，不知道做字节传送的时候改动有多大。

最笨的企鹅 · 发表于 2017-6-17 15:30:18

非常不错啊！

shijy1977 · 发表于 2017-9-4 16:20:57

我现在也用vb6和vb.net，一直用moxa的pcommlite组件，很好用（单串口，多串口操作都可以）
附件有VB例程和pcommlite 1.6安装包

tiger_wu · 发表于 2018-4-7 15:12:02

真是万能的坛啊！谢谢楼主及楼上几位的分享！

eliterxzgxu · 发表于 2018-4-7 15:58:32

感谢楼主分享

hyper320 · 发表于 2018-4-7 20:25:40

正有需要,感谢楼主分享

way2888 · 发表于 2018-6-20 05:43:26

mon51 发表于 2017-6-17 13:11
'*************************************************************************************
'初始化串口返 ...

你好，能否提供一个可用的vb api 串口例程，上面你贴的好像编译不通过

重楼2 · 发表于 2024-5-4 21:15:20

感谢楼主分享!

[原创]VB6.0串口控件mscomm32.ocx 破解版，支持大于16的串口号

本帖子中包含更多资源

阿莫论坛20周年了！感谢大家的支持与爱护！！

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源