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