fix: 未调用 Exit 导致程序继续执行
This commit is contained in:
@@ -115,7 +115,12 @@ RetryCacheCheck:
|
||||
End If
|
||||
Thread.Sleep(500)
|
||||
Next
|
||||
If Not IsLocked Then DropToTopByLock(FileLockPath)
|
||||
If Not IsLocked Then
|
||||
DropToTopByLock(FileLockPath)
|
||||
DropToTopByLock(FileLockPath)
|
||||
Beep()
|
||||
Environment.Exit(ProcessReturnValues.Cancel)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
'设置 ToolTipService 默认值
|
||||
@@ -200,6 +205,7 @@ RetryCacheCheck:
|
||||
Dim Pid As Integer
|
||||
If Not Integer.TryParse(Encoding.UTF8.GetString(Content), Pid) Then Return
|
||||
ShowWindowToTop(Process.GetProcessById(Pid).MainWindowHandle)
|
||||
|
||||
End Sub
|
||||
|
||||
'结束
|
||||
|
||||
Reference in New Issue
Block a user