vb怎样结束指定进程

可以参考下面的两种参考方法旅岩升：

第一种：用cmd中的taskkill结束程序

shell ”cmd/c taskkill /f /im 你的进程名.exe“

第二种：（WIN7）以下的电脑可以使用，用ntsd结束程序枣亩

shell ”cmd/c ntsd -c q -pn 用户的进程名.exe“

扩展资料：

参考语句

For Each...Next 语句： 对于数组或集合中的每一个元素，重复一组语句。 

FormatDateTime 函数： 返回格式化为日期或时间的表达式。

FormatNumber 函数： 返回格式化为数的表达式。

Function 语句： 声明形成 Function 过程体的名称、参数拆老和代码。

GetObject 函数： 从文件返回对“自动”对象的访问。

参考资料来源：百度百科-Visual Basic

分类: 电脑/网络 >>程序设计 >凳兆裤>其他编程语言

问题描述:

我枣简想要编一个监控进程(比如iexplore.exe)这个进程，每秒钟检测一次，发现这个进程马上结束掉这个进程，请问各位，这个代码应该怎么编写。

解析:

这个问题可以这样的解决：vb6下编译通过的。

Private Const PROCESS_TERMINATE = &H1

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

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Timer1_Timer()

Dim hProcess As Long

hProcess = Shell("notepad.exe", vbNormalFocus) '取得id

Sleep (1000)

hProcess = OpenProcess(PROCESS_TERMINATE, 0&, hProcess) '取得句柄

TerminateProcess hProcess, 0&'结束进程

Timer1.Enabled = False

CloseHandle hProcess

End Sub

注意：timer1的interval的属性设置为1000，

：notepad.exe是随便写的，你可以改成你要的监控进程.

:所有的vb的api函数都在vb6的猜搭apiview工具之中可以得到！

PrivateSubCommand1_Click()'盯孝首先通过VB的菜单[工程]--[引用]，勾选：MicrosoftExcel11.0ObjectLibrary'其中11.0是岁困不一定的，要看你计算机安装的OFFICE版本而定DimxlsAppAsExcel.Application'声明对乎则念象变量SetxlsApp=Excel.Application'实例化对象xlsApp.Visible=False'使Excel隐藏不可见xlsApp.Workbooks.Open("C:\book1.xls")'打开EXCEL文件'这里开始就是你录制的VBA代码'我在这里举1个例子，主要是告诉你要明确 *** 作的是哪个表xlsApp.Application.ActiveWorkbook.Sheets("Sheet1").Range("A1").Value="您好！"'在指定表的单元格编辑文本xlsApp.ActiveWorkbook.Closesavechanges:=True'关闭活动工作簿同时保存对它的更改。xlsApp.Quit'关闭EXCELLSetxlsApp=Nothing'释放资源EndSub最后三步，很关键。

---