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

[csuker]

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

[sstlwg]

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

[sstlwg]

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

[sstlwg]

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

[sstlwg]

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

[zdingyun]

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

[csuker]

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

[zdingyun]

用下列代码可判断可用，出错或占用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]

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

[liang80318]

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

[csuker]

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

[zdingyun]

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

[csuker]

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

[csuker]

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