1 Star 0 Fork 0

章鱼DS / PiZYDS-极杀-BestKiller

Create your Gitee Account
Explore and code with more than 5 million developers,Free private repositories !:)
Sign up
Clone or download
Module5.bas 689 Bytes
Copy Edit Web IDE Raw Blame History
章鱼DS authored 2017-04-07 18:58 . PiZYDS-极杀-BestKiller V3.1.0
Attribute VB_Name = "BestKilling"
Private Declare Sub Sleep Lib "KERNEL32" (ByVal dwMilliseconds As Long)
Public Sub bestkill()
Dim PathKill As String
Dim PathOpen As String
PrPid = GetPsPid(PrName)
'MsgBox PrPid
PathOpen = Chr(34) & PrPath & Chr(34)
'pathkill = App.Path & "ntsd -c q -p " & PrPid
If GetPsPid(PrName) = 0 Then
If Frm_Main.Check1.Value = 1 Then
If PrPath = "" Or PrPath = "?" Then
MsgBox ("򿪵ַδ֪" & PrPath)
Else
Shell PathOpen
End If
End If
Else
Do While GetPsPid(PrName) <> 0
'MsgBox pathkill
PrPid = GetPsPid(PrName)
PathKill = NtsdFile & "\ntsd -c q -p " & PrPid
Shell PathKill, vbHide
Sleep 500
Loop
End If
End Sub

Comment ( 0 )

Sign in for post a comment

Visual Basic
1
https://git.oschina.net/PillarsZhang/PiZYDS-BestKiller.git
git@git.oschina.net:PillarsZhang/PiZYDS-BestKiller.git
PillarsZhang
PiZYDS-BestKiller
PiZYDS-极杀-BestKiller
master

Search