If Dir("C:\表冷器计算.exe") <> "" Then '如果完全被释放 ShellExecute 0, vbNullString, "C:\表冷器计算.exe", vbNullString, vbNullString, vbNormalFocus '运行QQ.exe End If