vb 如何禁止关掉窗口

第一种办法：切断所有可能关闭程序的途径，

例如：禁用任务管理器，在任务管理器中隐藏进程，隐藏窗口的标题栏（就是隐藏关闭按钮）。当然360这种伟大的让人无可奈何的软件可能就隐藏不了了。

第二种办法：在关闭的同时再打开这个程序。

Shell

AppPath

&

"\程序名exe"

不会的话你再问吧

软糖来回答罗：通过SystemDiagnostics命名空间下的Process类来关闭程序的进程

        Dim 进程集合 = ProcessGetProcessesByName("进程名称")

        For Each 进程 In 进程集合

            进程Kill()

            '进程Close() '或者使用关闭

        Next

也可以先获取所有进程，再来判断这些进程的名称ProcessName

 Dim 获取本地所有进程 = ProcessGetProcesses()

        For Each 进程 In 获取本地所有进程

            If 进程ProcessName = "explorerexe" Then 进程Kill()

        Next

用你结束任务管理器的taskkill命令就可以关了。打开运行对话框或者命令提示符（CMD），输入下面的命令。

taskkill

/im

testexe

/f

1、首先，在打开的VB编程软件中，写上一个程序框架。

2、然后就可以在这里输入各种语句，根据自己需要可以多输几句。

3、然后找到自己输入的两个语句块的中间部分。

4、接着在中间的部分中，输入语句 Exit sub。

5、最后输入完成后，就可以点击页面上方的运行选项按钮，去运行测试了。

Private Type PROCESSENTRY32

dwSize As Long

cntUsage As Long

th32ProcessID As Long

th32DefaultHeapID As Long

th32ModuleID As Long

cntThreads As Long

th32ParentProcessID As Long

pcPriClassBase As Long

dwFlags As Long

szExeFile As String 1024

End Type

Private Type MODULEENTRY32

dwSize As Long

th32ModuleID As Long

th32ProcessID As Long

GlblcntUsage As Long

ProccntUsage As Long

modBaseAddr As Byte

modBaseSize As Long

hModule As Long

szModule As String 256

szExePath As String 1024

End Type

Private Const TH32CS_SNAPHEAPLIST = &H1

Private Const TH32CS_SNAPPROCESS = &H2

Private Const TH32CS_SNAPTHREAD = &H4

Private Const TH32CS_SNAPMODULE = &H8

Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long

Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long

Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject 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 TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Sub KillExe(EXEName As String)

Dim my As PROCESSENTRY32

Dim hProcessHandle As Long

Dim success As Long

Dim l As Long

l = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)

If l Then

mydwSize = 1060

If (Process32First(l, my)) Then

Do

If UCase$(Right$(Left$(myszExeFile, InStr(1, myszExeFile, Chr$(0)) - 1), Len(EXEName))) = UCase$(EXEName) Then

hProcessHandle = OpenProcess(&H1F0FFF, True, myth32ProcessID)

If hProcessHandle <> 0 Then success = TerminateProcess(hProcessHandle, ByVal 0&)

If success = 1 Then CloseHandle (hProcessHandle)

End If

Loop Until (Process32Next(l, my) < 1)

End If

CloseHandle l

End If

End Sub

Sub Command1_Click()

Dim s As String

s = AppPath

If Right$(s, 1) <> "\" Then s = s & "\"

s = s & "工程2exe"

KillExe s

End Sub

以上就是关于vb 如何禁止关掉窗口全部的内容，包括:vb 如何禁止关掉窗口、怎样才能用VB.NET的代码来关闭一个在运行的程序、VB这个程序怎么关闭等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！