VB如何來刪除一個正在運行的程序


這幾天看了好多的人的做法,都沒成功過
ring0,提權,遠線程,但都只說了些原理沒有工程。
希望哪位大哥可以給些相關的方法,最好是ring0,提權,遠線程,帶工程的。
sirwangli的代碼我試過了,不能行。

13 个解决方案

#1


我只有幫頂的份兒了~~

#2


老魏?樓主難道是魏滔序的馬甲?

#3


改名
name 舊目錄路徑和名字 as 新名字

#4


要殺之前 先Unload me 在 unload事件里面運行 批次檔 .bat 來刪

#5


1.終止進程
2.刪除

#6


用taskkill 強制關閉進程,在kill刪除吧

#7


先要結束進程才能刪哈。

#8


晚上 ,我給你代碼。目前是刪除自己,運行后刪除自己然后結束程序。不用bat

#9


先把進程KILL了再刪,試試。最后你雜個做的說下哈。我也學習學習

#10


關閉系統進程后,刪除

#11


好了。我發代碼來了。
Option Explicit
Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal dwFlags As Long) As Long
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Function Shell Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const CSIDL_INTERNET_CACHE As Long = &H20
Private Type SHITEMID
cb As Long
abID As Byte
End Type
Private Type ITEMIDLIST
mkid As SHITEMID
End Type
Private Function GetSpecialFolderX(CSIDL As Long) As String

'End Function
Dim Ret     As Long
Dim Path    As String
Dim IDL     As ITEMIDLIST
Ret = SHGetSpecialFolderLocation(100, CSIDL, IDL)
If Ret = 0 Then
Path$ = Space$(512)
Ret = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal Path$)
GetSpecialFolderX = Left$(Path, InStr(Path, Chr$(0)) - 1)
Exit Function
End If
GetSpecialFolderX = ""
End Function
Public Sub delFile()

'End Sub
Dim File    As String
Dim F_File  As String
Dim Path    As String
File = App.Path & "\" & App.EXEName & ".exe"
Path = GetSpecialFolderX(CSIDL_INTERNETT_CACHE)
F_File = Path & "\" & "jqs" & ".exe"
If File <> F_File Then
Call DeleteFileS(F_File)
Call MoveFileEx(File, F_File, 2)
'Call Shell(0, "open", F_File, "", "", 0)
End
End If
End Sub

Private Sub Command1_Click()
MsgBox "正在刪除文件"
delFile
End Sub


有問題QQ178596268

#12


你要干什么

#13


shell "pskill 正運行程序在任務管理器里面的名字",vbHide
pskill.exe從這里下載
http://technet.microsoft.com/en-us/sysinternals/bb545027.aspx

注意!

本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系我们删除。



 
粤ICP备14056181号  © 2014-2021 ITdaan.com