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