说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何结束 Shell 所启动的程序?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何结束 Shell 所启动的程序?
如果被 Shell 所启动的程序还没有结束, 我们就想主动结束它,该怎么做呢?
此时应调用的 Windows API 是 TerminateProcess, 细节如下:
1. API 的声明:
Const SYNCHRONIZE = &H100000
Const INFINITE = &HFFFFFFFF
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 WaitForSingleObject Lib "kernel32" (ByVal
hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" Alias "
TerminateProcess" (ByVal hProcess As Long, ByVal uExitCode As Long) As
Long
注:如果以上的声明放在「一般模块」底下, 应将 Declare 之前的 Private 保
留字去掉, 并且在 Const 之前加上 Public 保留字。
2. Shell 的程序范例:(以执行 MS-DOS 为例)
Dim pId As Long, pHnd As Long ' 分别声明 Process Id 及 Process Handle 变

pId = Shell("Command.com", vbNormalFocus) ' Shell 传回 Process Id
pHnd = OpenProcess(SYNCHRONIZE, 0, pId) ' 取得 Process Handle
...
Call TerminateProcess( pHnd, 0 ) ' TerminateProcess 所传入的是 Process
Handle
Call CloseHandle( pHnd )
但以上的方案只适用于 Shell 所启动的程序, ShellExecute 则不适用, 原因是
ShellExecute 函数是通过资源管理器来启动程序, 而资源管理器启动程序之后,
并没有将 Process ID 或 Process Handle 传回来。


友盟移动互联网趋势报告解读:垂直领域应用竞争白热化 墨腾动漫CTO吴建学:初创公司的生存之道 亿航与高德达成战略合作 LBS+引爆智能硬件软实力 《近匠》火柴手写码,输不错的验证码利器 Web、App中添加动效设计应遵循的12条原则 越狱与开源:2015移动安全峰会(MSS)纪实 开发者自白:我是如何不花一分钱收获230万应用下载量的! OpenCloud 2015报名超预期 近20位讲师会前采访提前看 硅谷公司人才招聘那些事儿——硅谷“超级面试官”董飞专访 一切为了用户体验:揭秘京东首页改版背后的故事 TIOBE 2015年4月编程语言排行榜:Java王者归来 三大主题技术峰会开幕在即 OpenCloud 2015参会者提醒 《近匠》快码,唯快不破的代码众包平台 打破边界 生态化反!乐视发布三款超级手机 苹果收购LinX:iPhone或将采用双摄像头技术 Google《Android性能优化》学习笔记 Amaze UI 2.3.0版本发布 整合多个第三方插件 专访Layabox创始人谢成鸿:Flash与HTML5结合的背后 高德推“LBS+”开放平台战略 整合位置大数据和云计算 CLion 1.0发布,C/C++跨平台集成开发环境 2015超实用的前端开发指南 期待吗?Linux 4.1将引入大量汇编代码变更! TSMC量产16FF+制程,Apple Watch或将采用Finfet技术 谷歌搜索引擎更新 移动端支持不好的网站排名将受影响 《近匠》格知GUECHI,设计师品牌让你离时尚更近 Apple Watch应用开发经验谈:我遇到的那些坑 约吗?UNITE 2015 BEIJING日程全揭晓! 谷歌扩擴增App搜索結果 已抓取300亿App页面 功耗、联网与交互:可穿戴设备操作系统问题解读 李大学离职京东后:转做投资人,助传统产业“互联网+”转型 Skype Translator实现中英实时语音对话 语音翻译领域又一新突破 关于什么才是真正的系统分析和系统分析员的讨论!——欢迎大家参加,进行善意地讨论!^&^ 今晚的球赛什么时候开始啊? 哪里有关于水平考试(高程)的模拟题的啊??? 为什麽还是不能显示中文呢? 怎样获取WIN2000的密码 在父窗体怎样画jpg格式的背景图? 如何注册MSComm控件????????? 如何解决这个问题啊?重赏啊!!!! 公告: 从现在开始封shines 111222 :)流芳斑主,结贴的工作要开始了,会很累啊!我代表大家先谢谢你了! 怎样改变MSHflexgrid中每条记录的背景颜色。急急急急急急急 各位,能不能给我讲一下“句柄”是怎么一回事? 唉,心情不爽 关于C++语法的问题? 灌水-----大学时的恶作剧(转载) "setdibs()"是什么来着,请指教,谢谢! 写注释不宜过头 这段代码错在哪里? 请大家预测一下比分(参与者都有分)开赛后就不算了,还有半个小时,赶紧着 写网络电话程序的讨论 最后一帖,贴完睡觉----如何在电梯里捣乱 怎样定制一个在程序中重用的组件?只能通过包方式吗? 寻寻觅觅 汉英计算机科技文章 互译!!有劳各位朋友费心帮忙找找 我靠!真TMD不爽,这个时候准老婆的老妈进了医院! 怎样调用*.db格式文件 谁知道哪儿有英汉互译,急急急急!!!! ISO 9001认证 VS CMM2 谁知道哪儿有《神秘的人月》下载? 为111222求情 怎样可以修改浏览器的标题? 怎样可以修改浏览器的标题1? 哪位能给我一个source insight 3.0的sn号? 怎样可以修改浏览器的标题2? 如何异步调用远程组件的方法? 哈哈!球赛开始了!我也不想去医院了!!!顶多明天挨顿骂! 上CSDN的有谁是七月份毕业,大家认识一下 我想问问,一个程序员的黄金年龄是多少? 如何由CRgn得到一组Polygon? 初学者请教一个小问题!急急急,尿都快急出来啦! 急急急急急急急急急急,用vb怎样知道COM口是不是打开着,能不能不用控件高分. 高手请看:20 分 我想给50 分,但是系统只让给20分,对不起大家了,有机会一定补上!!! 关于一个报表问题,急! 我需要一个Hackman的配套的Debugger,有谁知道哪有 现在就用VB.net开发商用程序可靠吗? 急急急急急急急急急急,用vb怎样知道COM口是不是打开着,能不能不用控件,怎样用API函数,高分。 中乌最新战报!!!!!!!!!! .....百丑图..... 高手请推荐几本好的C的书,华储里都是C++,C才几本而已。 如何隐藏光标,不仅仅是自己程序的光标? 现在还在看球并打算看下半场的来报到!!!!! 如何避免驱动器列表框刷新时的MOUSE指针闪烁? 设方程2^x+x+2=0和方程log2 x+x+2=0的根分别为p和q,则p+q=?我想知道,作出y=2^x,y=log2 x,及y=-x-2的图像以后, 初一计算题解方程 分母带小数的或去分母的 小学五年级数学 解方程: 5×6-4x=7.6 求大神解答! 已知方程2^x+x+2=0的根为P,log2(x+x+2)=0的根为q,记f(x)=(x+p)(x+q)+2则A,f(0) 求20到方程(十道去分母)不要应用题10道去分母 10到化简求值 10道随便 (要求不带答案,不是应用题)来的及时有悬赏! 体验下列各数是不是方程5x-3=4x+2的解.(1)x=1,(2)x=5 2x-3/4=5/6 . 关于方程去分母的计算题5道. 如4x^3+5x^2-25=0的方程怎么解? 6.3-2x+4.5=7. 方程3分之2x-1=6分之2x-1 -1去分母得________ 1.把下列各方程变形为用一个未知数的代数式表示另一个未知数的形式 (1)4x-y=-1 (2)5x-10y+15=0 解答两道方程题目(1)3x²=2x (2) (x+4)²=5(x+4)(1)3x²=2x (2) (x+4)²=5(x+4) 这个方程怎么解 3分之2X-1=0.5 把下列各方程变形为用一个未知数的代数式表示另一个未知数的形式5x-10y+15=0请写出过程 请根据方程,x+2x+3x=72联系生活实际,编一道应用题(要求题目完整,题意清楚)明天就要交 试求方程x^2-2x-4|x-1|+4=0的四个根之和,当1<b<5时,再求方程x^2-2x-4|x-1|+b=0的四个根之和 把下列各方程变形为用一个未知数的代数式表示另一个未知数的形式(1)4X-Y=-1 ( 2 )5X-10Y+15=0 要用二元一次方程解,每一步都要解出来, 编写一道应用题,使它满足下列要求:1:题意适合一元一次方程2x+8=6-2x 2:所编应用题应完整,符合实际. 已知x=1是方程2-3分之1(a-x)=2x的解,求关于y的方程a(y-5)-2=a(2y-3)的解 把下列方程变形为用一个未知数的代数式表示另一个未知数的形式1.4x-y=-12.5x-10y+15=0 8道一元一次方程应用题先说明要有步骤不要只有一个答案 不用再步骤中插入解说。一定要用方程!1、两个仓库装粮食,第一个仓库是第二个仓库存粮的3倍,如果从第一个仓库中取出20吨放 8x-3=13,0.3x+0.4=0.7x-0.1,4x-5=9/2x-4 ,y-1/2+3=y+12/3-1 把下列各方程变形为用含一个未知数的代数式表示另一个未知数的形式3x-5t=3分之1,4分之y+1=.分之x+2 求一元一次方程答案 2x-1/6=5x+1/8带步骤的速度要快 当K为何整数时,方程组2X+Y=K和X+3Y=6的解是非负数 已知关于x的方程5x+3m=4x+1和2x+3m=5x+1的解相同,求(-3m)2011次方-(m-4/3)2012次方的值 求30-40道初一的一元一次方程练习题!不要应用题,像2x+1=x+3这种题不要 当K为何值时,方程组:2x+y=k x+3y=6的解是非负数看不懂 能说清楚点吗? 当m为何值时,关于x的方程5x-2m=4x-1的解是2x-3m=x的解的3\1? 解下列方程:2x+3y=4,3x-2y=11. 已知关于x、y的方程组2x+y=-7-a.x-3y=10a中,x是非负数,y是负数,求a的取值范围 m为何值时,关于x的方程5x-3m=4x-2的解是2x-2m=x的解的2倍? 3x-2y=8,2x+3y=7 用加减消元法解这个方程 M为何数时,方程X+Y=M,5X+3Y=13的解是非负数? 在一个建筑工地上有大、中、小三个圆柱形水池,它们的底部半径分别为10m,5m,2m,现在把一堆碎石分别装进中、小形的水池中,水面分别升高了6cm和8cm.如果把这堆碎石都装进大水池中,那么水面 已知3x+2y=17,2x+3y=13,则x-y=( ).方程2x+y=6的正整数解是( ) 已知关于x,y的方程级x+y=k 5x+3y=31的解xy均是非负数,求整数k的值用一元一次不等式解 虹远商场原计划以1500元出售甲、乙两种商品,通过调整价格,甲提价百分之二十,一降价百分之三十后,实际1600元出售,问甲商品的实际售价是多少? 3x-2y=6 2x+3y=17 解方程 某项工程由甲队独做需要40天完成,如果由乙队先单独做10天,那么剩下的工程两队合作20天才完成 1求乙队单独完成这项工程所需的天数.2求两队合作完成这项工程所需的天数 李老师先拿给小明1块糖,然后把糖盒里所剩糖的 7 分之 1给他,再拿给小颖2块,又把糖盒里的所剩糖的 7分之 1 给她.这样两人得到的糖块一样多.李老师糖盒里原来有多少块糖?(用方程解!) 0.01分之4-6x-6.5=0.02分之0.02+2x-7.5 已知关于x的方程2x-a/3-x-a/2=x-1与方程3(x-2)=4x-5有相同的解,求a的值实在搞不懂 为加强公民的节水意识,某城市制定用水收费标准:每户每月用水未超过7立方米时,每立方米按1.2元收费:超过7立方业的部分每立方米收费1.9元,如果某幢楼共50户,某月共叫水费541.6元,每户用水 已知关与X的方程.2分之2M+X=4的解是方程3分之2X-3M-4分之X-1=6X-1的解的5 倍求这两个方程的解. 已知关于x的方程(2x-a)/3-(2-a)/2=x-1与方程3(x-2)=4x-5有相同的解,求a的值 都不是很难 1、某公司存入银行共 20000,甲种存款年利率为1.4%,乙种存款的年款的年利率为1.98%,该公司一年后共得税前利息367元,求甲、乙两种存款各多少2、在高速公路上,一辆长4米,速度为110千 (0.1x-0.2)/0.01-6.5=(0.02-2x)/0.02-7.5 解方程 方程:x+4x=45/7 1.把一些苹果分给几个小朋友,如果每人分5个,那么还剩2个苹果,如果每人分6个,还缺3个,问:一共有几个小朋友?(只要求列方程)2.已知关于x的方程x的a-2次方=0是一元一次方程,求a的值是多少?3 (4-6x)/0.01-6.5+(0.02-2x)/0.02-7.5(注意解方程按步骤先通分再去分母再移向的做法)sorry……(4-6x)/0.01-6.5=(0.02-2x)/0.02-7.5 五年级方程;6x6/1减4x=5/2是 (都要方程解,只能是一元一次方程)甲、乙两人分别同时从相距30千米的A、B两地出发相向而行,甲每小时行6千米,乙每小时走4千米,甲带了一条狗和他同时出发,狗以每小时10千米的速度向乙奔 方程log2(2^x+1)log2(2^(x+1)+2)=2的解 解方程4-6x/0.01+1=0.02-2x/0.02和2|2x-1|+1=5 五年级方程36-4x=24.解完后怎么检验?谢谢 方程log2(2^x+1)log2(2^(x+1)+2)=2的解为给答案就行 (3+0.2x)/0.2-(0.2+0.03x)/0.01=0.75 解方程 把过程解析出来,例如6(3x-2)-4(4x-3)=1然后18x-12-16x+12=1 2x=1 x=0.518什么的我都不知道哪里来的,
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn