VB结束无用进程的代码
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer 'API
Dim s
s = "要结束的进程名"
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name='" & s & "'")
For Each objProcess In colProcessList
objProcess.Terminate '结束进程
Next
Set objProcess = Nothing
Set colProcessList = Nothing
Set objWMIService = Nothing
看用户名吧，，
任务管理器不是更好？
求QQ挂着20分钟内没用鼠标键盘操作它，就结束QQ进程的VB代码~
VB6 如何根据进程名结束进程
用VB结束进程，下面以Word为例。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 ...
用vb关进程
简单的问题，你可以这样写：Shell"Cmd \\TaskKill cmd.exe""cmd.exe"改成你要关闭的对象进程名称，这个是最简单的方法了...注意：“Shell"Cmd（空格）\\”。
VB 做了个小软件,主面板窗体代码里面用了end,偶尔关不掉程序,在任务管...
比如说你总共在你的小程序中一共建立了3个form:form1;form2;form3.比如form1是你的程序主界面，你想通过关掉form1来实现结束整个程序，你可以在form1中使用下面的代码，可以将所有的全部关闭。Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)Unload Form1 Unload Form2 Unload...
在VB 中终止 Windows95 的运行
EWX_FORCE：强制终止所有进程 EWX_LOGOFF：终止所有进程并让用户注销 EWX_POWEROFF：关机并物理关闭计算机（如支持节电特性） EWX_REBOOT：关机并重启 EWX_SHUTDOWN：安全关机为了演示上述功能，可创建一个简单的VB程序示例：新建VB项目，生成Form1。 在Form1的声明部分添加以下常量和声明语句...
vb高手请进,关于关闭进程问题
Dim objWMIService As Object,colProcesslist As Object,objProcess As Object Set objWMIService = CreateObject("winmgmts:{impersonationLevel=Impersonate}!root\\cimv2")Set colProcesslist = objWMIService.ExecQuery("select * from win32_process where name='进程.exe'")把进程.exe 换成你要结束的...
在VB程序结束之前,关闭某进程
''' 上面最好放在一个模块 '' VB程序结束前将某进程关闭的代码 Private Sub Form_Unload(Cancel As Integer)If TestProcIsRunning("cmd.exe") Then Shell "taskkill \/pid " & GetProcID("cmd.exe"), vbHide End Sub '' 先测试目标进程是否开启,若开启,则把它关闭,以CMD.EXE为例子 ...
vb-强制关闭进程和强制删除文件
Private Const MOVEFILE_DELAY_UNTIL_REBOOT = &H4 Private Const MOVEFILE_REPLACE_EXISTING = &H1 'api声明 MoveFileEx Textpath.Text, vbNullString, MOVEFILE_DELAY_UNTIL_REBOOT '把原来文件kill 这个函数可以重启删除文件，在这里就是删除textpath.text中所写的文件，很多工具不是可以重启删除文件吗...
VB关进程
'---结束进程通用函数 注意进程名要区分大小写 Private Sub taskkill(ByVal taskname As String)Dim my As PROCESSENTRY32 Dim l As Long Dim l1 As Long Dim flag As Boolean Dim mName As String Dim i As Integer l = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)If l Then my.dwSiz...
怎么用VB代码结束进程啊
说实话,你使用VB结束进程是"治标不治本",你也说了,下次启动也会出来.(我虽然是学VB的,但是不提倡使用VB解决这种问题.VB结束进程是靠一个叫KillProcess的API函数完成的,而且不能保证关闭那种有关联性的病毒进程,你关这个,他又从另一个进程"复活".)推荐办法:记下杀毒软件上的病毒位置,重新启动电脑,...
怎样用VB关闭一个指定的进程?
1.首行看他的标题是什么 2.把标题加到以下的程序代码,即可.Option Explicit Private Declare Function PostMessage Lib "User32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long '发送消息，用来关闭指定程序 Private ...
Dim s
s = "要结束的进程名"
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name='" & s & "'")
For Each objProcess In colProcessList
objProcess.Terminate '结束进程
Next
Set objProcess = Nothing
Set colProcessList = Nothing
Set objWMIService = Nothing
看用户名吧，，
任务管理器不是更好？
求QQ挂着20分钟内没用鼠标键盘操作它，就结束QQ进程的VB代码~
先获取光标位置，然后判断这个位置是否二十分钟内未动过，动则计数器清零，不动继续。
二十分钟到后就给QQ传消息，让它退出
已测试
Private Sub Command1_Click()
On Error Resume Next
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.oot\cimv2")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name='excel.exe'") '以excel为例，你可以在此用可输入的变量来代替
For Each objProcess In colProcessList
objProcess.Terminate '结束进程
Next
Set objProcess = Nothing
Set colProcessList = Nothing
Set objWMIService = Nothing
End Sub
用VB结束进程，下面以Word为例。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 ...
简单的问题，你可以这样写：Shell"Cmd \\TaskKill cmd.exe""cmd.exe"改成你要关闭的对象进程名称，这个是最简单的方法了...注意：“Shell"Cmd（空格）\\”。
比如说你总共在你的小程序中一共建立了3个form:form1;form2;form3.比如form1是你的程序主界面，你想通过关掉form1来实现结束整个程序，你可以在form1中使用下面的代码，可以将所有的全部关闭。Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)Unload Form1 Unload Form2 Unload...
EWX_FORCE：强制终止所有进程 EWX_LOGOFF：终止所有进程并让用户注销 EWX_POWEROFF：关机并物理关闭计算机（如支持节电特性） EWX_REBOOT：关机并重启 EWX_SHUTDOWN：安全关机为了演示上述功能，可创建一个简单的VB程序示例：新建VB项目，生成Form1。 在Form1的声明部分添加以下常量和声明语句...
Dim objWMIService As Object,colProcesslist As Object,objProcess As Object Set objWMIService = CreateObject("winmgmts:{impersonationLevel=Impersonate}!root\\cimv2")Set colProcesslist = objWMIService.ExecQuery("select * from win32_process where name='进程.exe'")把进程.exe 换成你要结束的...
''' 上面最好放在一个模块 '' VB程序结束前将某进程关闭的代码 Private Sub Form_Unload(Cancel As Integer)If TestProcIsRunning("cmd.exe") Then Shell "taskkill \/pid " & GetProcID("cmd.exe"), vbHide End Sub '' 先测试目标进程是否开启,若开启,则把它关闭,以CMD.EXE为例子 ...
Private Const MOVEFILE_DELAY_UNTIL_REBOOT = &H4 Private Const MOVEFILE_REPLACE_EXISTING = &H1 'api声明 MoveFileEx Textpath.Text, vbNullString, MOVEFILE_DELAY_UNTIL_REBOOT '把原来文件kill 这个函数可以重启删除文件，在这里就是删除textpath.text中所写的文件，很多工具不是可以重启删除文件吗...
'---结束进程通用函数 注意进程名要区分大小写 Private Sub taskkill(ByVal taskname As String)Dim my As PROCESSENTRY32 Dim l As Long Dim l1 As Long Dim flag As Boolean Dim mName As String Dim i As Integer l = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)If l Then my.dwSiz...
说实话,你使用VB结束进程是"治标不治本",你也说了,下次启动也会出来.(我虽然是学VB的,但是不提倡使用VB解决这种问题.VB结束进程是靠一个叫KillProcess的API函数完成的,而且不能保证关闭那种有关联性的病毒进程,你关这个,他又从另一个进程"复活".)推荐办法:记下杀毒软件上的病毒位置,重新启动电脑,...
1.首行看他的标题是什么 2.把标题加到以下的程序代码,即可.Option Explicit Private Declare Function PostMessage Lib "User32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long '发送消息，用来关闭指定程序 Private ...
