VB如何判断exe文件是否被打开?

你扫描一下进程列表，如果检索到你需要判断exe的进程，就是被打开或者运行中。反之，则没有。至于被其他程序占用，那就非常复杂了，可能这个exe被注入了某个系统进程中去了，你如果要分析这个，还要深度检索。

如下是检测串口是否存在,是否被占用的代码:

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事件来接收.

---