vb 禁止結(jié)束進程本程序進程

專門針對任務管理器。

創(chuàng)新互聯(lián)建站是一家專業(yè)提供洪江管理區(qū)企業(yè)網(wǎng)站建設,專注與做網(wǎng)站、成都網(wǎng)站建設、H5網(wǎng)站設計、小程序制作等業(yè)務。10年已為洪江管理區(qū)眾多企業(yè)、政府機構等服務。創(chuàng)新互聯(lián)專業(yè)網(wǎng)站建設公司優(yōu)惠進行中。

思路：將kernel32的TerminateProcess的首字節(jié)改為HC3，使TerminateProcess失效。

Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long

Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long

Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long '

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long

Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long

Private Const TH32CS_SNAPPROCESS = H2

Private Const TH32CS_SNAPheaplist = H1

Private Const TH32CS_SNAPthread = H4

Private Const TH32CS_SNAPmodule = H8

Private Const TH32CS_SNAPall = TH32CS_SNAPPROCESS + TH32CS_SNAPheaplist + TH32CS_SNAPthread + TH32CS_SNAPmodule

Private Const MAX_PATH As Integer = 260

Private Const PROCESS_ALL_ACCESS = H100000 + HF0000 + HFFF

Private Type PROCESSENTRY32

dwSize As Long

cntUseage As Long

th32ProcessID As Long

th32DefaultHeapID As Long

th32ModuleID As Long

cntThreads As Long

th32ParentProcessID As Long

pcPriClassBase As Long

swFlags As Long

szExeFile As String * 1024

End Type

Private Sub AntiKill()

On Error Resume Next

Dim MySnapHandle As Long

Dim hProcess As Long

Dim ProcessInfo As PROCESSENTRY32

Dim Addr As Long, hMod As Long

Dim ASM(0) As Byte

Dim sProcess As String

ASM(0) = HC3 'retn

hMod = GetModuleHandle("kernel32")

Addr = GetProcAddress(hMod, "TerminateProcess")

'Debug.Print Hex(Addr)

MySnapHandle = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0)

ProcessInfo.dwSize = Len(ProcessInfo)

If ProcessFirst(MySnapHandle, ProcessInfo) 0 Then

Do

sProcess = Left(LCase(ProcessInfo.szExeFile), InStr(ProcessInfo.szExeFile, ".") + 3)

If sProcess = "taskmgr.exe" Then

hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, ProcessInfo.th32ProcessID)

'Debug.Print hProcess

WriteProcessMemory hProcess, ByVal Addr, ByVal VarPtr(ASM(0)), 1, 0

'Debug.Print Err.LastDllError

CloseHandle hProcess

End If

Loop While ProcessNext(MySnapHandle, ProcessInfo) 0

End If

CloseHandle MySnapHandle

Err.Clear

End Sub

vb.net 如何防止程序重復運行？

現(xiàn)在多是在form_load里驗證的,你打開第二次也只是暫時的,后面讓他關閉就行了.

form_load之前windows form就已經(jīng)生成... 把你程序讀入內(nèi)存就算這個程序已經(jīng)被打開開始執(zhí)行了...不管你放那里都是會打開第二次的...

要讓他結(jié)束直接用Application.Exit()就行了.

vb.net中 進程無法訪問文件“\Storage Card\test.txt”，原因是另一個進程正在使用該文件。

判斷有以下幾種可能:

1.你用其他程序打開或正在修改test.txt.

2.你在程序該步驟之前的過程中,訪問(讀寫)過該文件:

如果是這種情況,有兩種解決辦法:

1.修改訪問該文件創(chuàng)建對象的申明:

一般來說是

Dim fs As New FileStream("x:\x\x.txt", FileMode.OpenOrCreate, FileAccess.Read, FileShare.ReadWrite)

重點是最后一個參數(shù), FileShare.ReadWrite, 這個參數(shù)代表創(chuàng)建這個對象使用文件的同時,允許其他程序讀/寫該文件. 這樣聲明就不會產(chǎn)生共享沖突.

2.在之前過程的最后,CLOSE/DISPOSE掉訪問文件的對象.

對象名=NOTHING,或者 對象名.CLOSE/DISPOSE,都OK.

vb.net寫的軟件，運行后關閉所有的窗口后，發(fā)現(xiàn)在任務管理器的進程里還在運行，這是怎么回事

你確定沒有用hide把窗口關閉。。。如果有用請關閉。。。

如果沒有，你可以試用kill來關閉窗口看看。

分享題目：vb.net進程保護 windows進程保護
文章起源：http://chinadenli.net/article22/dodcccc.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站制作、網(wǎng)站策劃、網(wǎng)站建設、域名注冊、關鍵詞優(yōu)化、網(wǎng)站維護

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)