程序非法中止后,COM口怎么强行关闭。

2008-03-28 04:11:32 223 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Office安装失败根因诊断：四层冲突检测体系 Office安装失败本质是部署环境冲突，而非安装包或网络问题。其底层基于Click-to-Run（C2R）架构的多级预检机制，涵盖进程服务、注册表文件、许可证平台及网络策略四层防御。当安装器检测到WPS残留进程、COM对象劫持、SourcePath注册表异常或sppsvc服务故障等隐性冲突时，会主动中止安装以保障系统可信性。该机制解释了为何‘卸载WPS后Office打不开文档’或‘安装提示已存在其他版本’等典型现象频发。本文聚焦Windows原生命令构建可复现诊断流程，覆盖企业批量部署与个人用户高频故障场景阅读详情

程序非法关闭后，再次打开COM口时总是提示“端口已经打开”，有什么办法通过程序强行关闭。

...全文

DALL·E 3 正确使用指南：绕过GPT Image 2误导，实现高效图像生成 DALL·E 3 是 OpenAI 官方推出的先进文本到图像生成模型，其核心原理基于多模态理解与扩散架构协同优化，具备强语义对齐和高保真细节生成能力。作为当前主流AIGC图像工具，它不依赖本地安装，而是通过网页端、PWA或授权小程序等轻量方式接入，技术价值在于降低专业图像创作门槛、提升设计迭代效率。典型应用场景涵盖电商主图生成、营销素材批量产出、UI原型可视化及教育内容配图等。本文聚焦真实可用路径——避开‘GPT Image 2’等非官方命名陷阱，详解Chrome/Edge快捷方式、微信官方小程序、iOS 阅读详情

csuker

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

csuker 2008-03-30

打赏
举报

我补充一点，我的目的不是想解决程序不出错的问题。因为出错的程序我没有源码也没有其实办法避免。
现在是想找到办法在出问题后怎么解决，怎么释放资源。

csuker 2008-03-30

打赏
举报

要是我能优化代码就不问大家了。关键是其实程序造成的，我也没办法避免。所以才找这方面的方法。
请知道的大侠快告诉我吧。不知道解决办法的我谢谢大家顶贴了。

zdingyun 2008-03-30

打赏
举报

既然是程序非法关闭造成的,你应从导致程序非法关闭的原因查找,完善你的代码.

csuker 2008-03-30

打赏
举报

程序再执行时判断端口是开的,可是这根本没意思.因为这个端口相当于被挂死了,你不重起电脑这个端口就不能用了.

liang80318 2008-03-29

打赏
举报

换个思路啊,在非法关闭时,你的代码就执行不到了,所以可以换到程序启动时,执行到串口启动,判断一下状态就是了

csuker 2008-03-29

打赏
举报

以前说的这些我都知道.我是说在你不能控制的情况下打开端口的程序在未关闭端口的时候就退出了.这时怎么办?类似以上的方法我谢谢大家了,我已经知道了.

zdingyun 2008-03-29

打赏
举报

用下列代码可判断可用，出错或占用Com号:

Option Explicit

    Dim a As Integer

Private Sub Command1_Click()

    On Error GoTo uerror

    For a = 1 To 16

        MSComm1.CommPort = a

        MSComm1.PortOpen = True

        If MSComm1.PortOpen = True Then

            Print "可用Com号= "; a

            MSComm1.PortOpen = False

        Else

        End If

    Next

    Exit Sub

uerror:

    Print "出错或占用Com号= "; a

    Resume Next

End Sub

csuker 2008-03-28

打赏
举报

上面说的这些我是知道的.也加在程序前面了,不过我说的情况是当程序不正常关闭后才会出的情况.
判断端口是否打开时,Mscomm1.Portopen等于FLASE,
但运行到后面打开端口的时候还是提示"端口已经打开"

zdingyun 2008-03-28

打赏
举报



Private Sub Form_Load()

    On Error GoTo userr

    MSComm1.PortOpen = True

    'Print MSComm1.PortOpen

    Exit Sub

userr:

    If MSComm1.PortOpen = True Then

        MSComm1.PortOpen = False

    End If

    'Print MSComm1.PortOpen

    Resume

End Sub

sstlwg 2008-03-28

打赏
举报

好久没用VB,大概思路是这样

sstlwg 2008-03-28

打赏
举报

异常退出时
if Mscomm1.Portopen=true then mscomm1.portopen=false

sstlwg 2008-03-28

打赏
举报

if mscomm1.portopen=true then mscomm1.portopen=fasle.. . ^^

sstlwg 2008-03-28

打赏
举报

if com1.enabled=true then
com1.enabled=fasle

程序非法中止后,COM口怎么强行关闭。

相关推荐