串口被占用解决方法：
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：域名注册、网站空间、营销软件、网站建设、湘桥网站维护、网站推广。
1、回到电脑主界面，右键单击这台电脑--属性，如下图所示
2、点击设备管理器进入，如下图所示
3、设备管理器找到冲突的串口，如下图所示
4、右键单击串口，选择属性，如下图所示
5、属性面板点击端口选项卡，如下图所示
6、端口设置界面点击高级设置，如下图所示
7、高级设置界面，点击i串口编号后面的箭头，选择空余未运行的串口，如下图所示
8、闲置串口选定后，点击确定，如下图所示
9、出现提示，点击OK，如下图所示
10、冲突串口强行修改成功，如下图所示
调试软件可调试串口是有一定限制的。如COM1-COM4等等。
如果你已有设备已占用了，就会出现此提示。
可打开设备管理器-端口，查看已占用的有哪些。如有必要可在已占用端口上右键-属性-端口设置-高级-端口号上改变。
如下是检测串口是否存在,是否被占用的代码:
Option Explicit
Dim a As Integer
Private Sub Form_Load()
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputMode = comInputModeBinary '采用二进制传输
MSComm1.InBufferCount = 0 '清空接受缓冲区
MSComm1.OutBufferCount = 0 '清空传输缓冲区
MSComm1.RThreshold = 1 '产生MSComm事件
MSComm1.InBufferSize = 1024
Shape1.FillStyle = 0
OpenPortNum
End Sub
Private Sub OpenPortNum()
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
End If
Next
Exit Sub
uerror:
Print "出错或占用Com号= "; a
Resume Next
End Sub
如要探测某个COM口是否有数据输入则需在打开某个串口后,用OnComm事件来接收.
文件打开后使用完要及时关闭。
未关闭，这样再打开就显示处于被占用状态。
不会吧！可能有些东西需要你打开。
例如： dtE 等，还有是不是 需要厂家的 API 或 SDK 啊
参数等。
要不就是打开方式不一样，例如使用文件方式打开 。
电脑串口号是可以更改的。
方法如下（以win7为例)：
右键点击我的电脑，在弹出的菜单中选择“属性",在窗口中点击 设备管理器”
设备管理器中，展开”端口“项，找到需要更改的端口，并双击
在弹出的窗口中，点击”端口设置“标签页，选择其中的”高级“按钮
在新窗口中，找到”COM端口号“项，并点击右侧的下拉列表，并选择一个合适的端口号即可
将所有弹出的窗口依次点击”确定 “关闭。
