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

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 传回来。


智能手机有隐私?Facebook可阅读Android用户的短信内容 苹果2014年Q1财报:iPhone、iPad 销量创纪录 3D打印:鞋垫也玩私人订制 与Google Glass抗衡,三星将推Galaxy Glass 进军移动?任天堂欲推iOS、Android版超级玛丽 回顾2013:云计算的夏天 微软最终加入OCP阵营,开源其云服务器设计 Docker:集装箱式“运输”在软件上的实现 《近匠》第09期:ShareSDK——专注社交分享工具 苹果车载iOS系统iOS in the Car界面被曝光 支撑过万亿音乐事件的数据分析系统 Facebook运维内幕曝光:一人管理2万台服务器 《近匠》第10期:友盟——开发服务平台化 LinkedIn耗资1.2亿收购数据驱动招聘服务公司Bright 谷歌推视频会议硬件产品Chromebox 基于Chrome OS 文件上传组件导致Apache DoS安全漏洞 EA,你是来拉仇恨的吗? Beep:前Google员工打造的流媒体音乐控制器 有利于开发App的5款天气预测API 七问微软新CEO,你准备好了吗? Hadoop虽然强大,但不是万能的 Flappy Bird:萌贱游戏日进斗金的烦恼 IT技术支持:索契冬奥会背后的无名英雄 简单10招,让你的云计算事业锦上添花 微软、谷歌及苹果从哪赚钱? 高大上!5.5寸屏幕的iPhone 6概念机来袭 苹果CEO Tim Cook:我们是一家快速发展的公司 2014年美国大学生数学建模竞赛翻译及建模思路 围观龙虎斗:谷歌GCE vs. 亚马逊AWS,要做9件事 未来编程趋势的12个猜想 命令行永存... IBM发布SmartCloud数据虚拟化服务 出现segmentation fault 错误时,怎样查看问题出在哪里? adsl 为何上不了网?(能 PING通,用MODEM拨号上网却正常)? 一个鸟问题,却怪得出奇,兄弟们进来看看................ 公司规章搞笑版 我的mm要报 涉外秘书,这个专业好不好呀?? 关于图象合并问题,求解,高分 在添加,删除,改变时,DBGrid表中的数据怎么同步更新? 等非典结束后……(爆笑) 喜欢上一个外语系的小女孩,请教该怎么办? 使用vbs如何在一个用逗号分割的大字符串中,删除指定的某个小字符串? 请教大家怎样编程实现两个不同局域网内的单机通信? 我想请教大家一个问题,有一个总公司,下面有好多的子公司,每个月,子公司要向总公司汇报数据,就是要上交一个表单,以前都是人为的向电 生僻字问题(开发一个需要用到好多生僻字 字库里面没有)我需要怎么办? 加快mdb数据库文件的访问速度 请问为什么ebook(webcopiler做的)重装系统后全部看不了?可以修复吗? 如何让SQL SERVER2000 存储过程中的错误信息在DELPHI应用程序中弹出MESSAGE框! 关于《com本质论》和《com技术内幕》中的聚合问题? 雨下得好大!!!!! 如何打开一个Excel编后,马上执行一段初始化的代码? 请问有关于缓存的问题 请教高手,关于Actionscript问题 各位:在哪能下DVDdivx格式,当然要免费的,谢谢 Image报错,急切 老外常用到的一个词 : Project ,在中文里我们该如何理解这个词? ■■■■■■■■马甲的最后20分!■■■■■■■■ 非常急地问一下:installshield的问题!100分!不够加!!! 重庆考区,全国计算机3级什么时候可以拿证书呢???? 一个jsp页面里面是不是不能同时有两个scope分别为application和session的Bean??? 给个简单的例子好吗?treeView----------asp.net------VB 我的facade session bean中老是lookup 其他的EJBs 不成功? 这两句什么意思啊? 结识ASP高手,将来会有项目介绍!:) exchange server 2000 能装在xp上吗? 怎样使自己的程序被安装的时候安装上自己制作的字体?? 求助:帮小妹找份工作 有高手在吗?帮帮忙! 一个在ASP中很简单的问题 很想很想很想散分 预报天气如“叫床” 湖南性感女主持惹争议 Websnap中TEnduserSessionAdapter组件的TadapterField问题~~~~~~~~~~~~~~~~~~~~~~~~~~ 急!!帮我看段代码! 为何对话框程序加入RichEdit控件后不能运行? 想知道word.application的朋友请进: InstallShield Express Custom Editon for Delphi那里有下载? 请问vb.net和vc#能不能创建数组控件??? 请问vb.net和vc#能不能创建数组控件 请问一下,vc 写的 dll,使用postmessage给出一个消息到窗口,在 vb 中应该怎么样响应? 我想开发一个数据中间层但不知哪用.net ATL MFC 开发好,能给个建议吗? 寻求cs CD-key 文件名(很有些困惑!) 高手近来拿分,请教一个算法问题,共开三帖,每帖一百分。 1 -2 百分之25 27 0.3 -100 3分之2 56 哪些是自然数 负整数 整数 单折有弯环又环!解数字是几? 初一成绩优秀,初二成绩还会继续好么?我们思品老师说,好多孩子初一时特别优秀,一到初二就不行了,初二时还像初一这样努力,成绩还会好么? 有关欺骗的名言,最好是经典的,急急急 水分子表示的意义多还是铁原子表示的意义多 工夫的近义词 假如你欺骗了今天,明天就会惩罚你 这是谁的名言?如题 正在考英语!求救!语法填空 功夫的近义词偶试卷上有这题 VFP题目S=1*2^1+2*2^2+3*2^3+4*^4+...+9*9^9 在三角形ABC中,角A=角B,D为AB上一点,DE⊥AC于点E,FD⊥AB于点D,探索角EDF与角C的关系,说明理由 求解VFP二级上机题(1) 设置GZB表的记录有效性(验证)规则:Zfbt的值必须为jbgz的10%(教授、副教授)或0(非教授或副教授)(该规则对表中已有数据不作验证);(2)修改JSB表中GL字段 初一期末数学24题分数如何分配24..(1)①.(直接回答)②.(分类讨论)(2).x=_____,y=____(填空)24.(1)①.(直接回答)②.(分类讨论)(2).x=_____,y=____(填空) 如图,AB=AC,FD垂直BC于D,DE垂直AB于E,若角AFD=145°,则角EDF=()°左边是E,右边是F 请用ELEPHANT(大象)中的八个字母组成十六个单词? 初一期末分数在哪查啊江苏淮安的 杭州一对一雅思,有一对一写作指导纠正吗 ELEPHANT这几个字母组成16个单词 初一期末算几门分数 在果树开花季节,如果遇到阴雨连绵的天气,常会造成果树减产.这是什么原因? 用elephant 中的字母组成十六个单词 小猴每天吃4根香蕉,小象每天吃的香蕉是小猴的8倍,小象每天吃几根? 写成功后不骄傲,失败后不气馁的诗句或名言 你能用大象中的八个字母组成多少个你所学过的单词 如图:AB‖FE,探索图中∠B,∠C,∠D,∠E,之间的关系,并说明理由 关于怎么要东西的英语作文 工夫的近义词是什么? You can walk down the street on your own foot和Don't give the panda to a banana哪一处错了?是找出一处错误. 英语作文说我的东西在什么在什么上 【南通】宽带-甲种四季行180元包100小时,这100小时是分在每个月,还是说100小时随便用在哪个月 轻()敏捷(成语) 人生旅途中,难免会困难重重,挺一挺走过去,前面定然会是一片明媚的天地,请问可以用陆游的哪两句诗描述 词语接龙 六个以上 拔地而起 一个人在自己的人生旅途中遇到什么挫折该怎么办? 人生旅途中难免会遇到种种困难,挺一挺走过去,前面定然会是一片明媚的天空,这种情形可用“_”诗句拜托 帮忙词语接龙 拔地而起—— 往后面接6个词语 铺什么盖什么的成语有什么 已知:如图CD是直线,E在直线CD上,∠1=130°,∠A=50°,是说明:AB∥CD _(:3」∠)_ 后缀ar是什么意思? 电源电压为12伏且不变,当滑片移到A处时,电流表示数为0.4安,移到b电流表示数为0.3安,求滑动变组器的阻 求黄金瞳无错别字的 就算有错别字也要让我读通吧~ 谁能帮我看看这道vfp题怎么做?设计文件名为myform的表单.表单标题为“部门人数统计”,表单有一个组合框,两个文本框,两个命令按钮.标题分别为“统计”和“退出”,运行表单时,组合框中有 电源电压不变,但电流表示数不断变小?帮忙分析一下出现这一现象的原因为嘛会增大 一小时的4分之5是几分钟? 如图角a等于角b.de垂直ac于点e.fd垂直ab于点d.求角edf与角c的关系并证明 岂知工夫不大,一幅 喜鹊登枝 便完成了.中 工夫 的近义词是()六下十二课语文《姥姥的剪纸》不过时间不大?好像不通哎! 拔地而起是不是描写山的词语? 一题口算:0.73+27/100 注意:27/100是一百分之27 等于什么呢? 电脑后面的网口上有两个灯分别起什么作用?一个是绿色的一个是橙色的,绿色的常亮,橙色的闪烁!两个灯分别代表着什么? (4a+3b+1)÷2-(2a+b-1)等于多少? 如图,∠A=∠B ∠C=a DE⊥AC于点E,FD⊥于点D,探索∠EDF于a的关系结论:理由: 形容毫不自私之类的成语 拔地而起算是描写景物的词语吗? 100分之27:8.1 英语语句判断Do you mind you ( open ) the window 这句话中 为什么用open,不用opening?不是mind+doing吗?请逐一回答 眨眼的近义词只要近义词就可以了~急···· 水分子是啥?答得满意就多给40分啊 lite怎么读,请把音标写出来,在用中文写出读法(同音) 初一时成绩很差, 沙特王室称将疏远美国 美国沙特关系或1亿美国人不工作 劳动力参与率创35巴基斯坦总理访美“提携”经济合作 签英国央行维持现行货币政策 看好经济走美知名私立大学拒受贫困学生 “因财施铁路总公司:火车退票找零不再四舍五入报告称朝鲜核试验场挖新坑道 短期内不南京大学两位院士候选人就论文是否造假北京今日将对“停车超3分钟须熄火”入慈溪夫妇8万元叫女儿代存 女儿身亡后18岁小姨子和姐夫好上了 以死要挟非慈溪两岁女童掉进大锅 全身严重烫伤送男子宁波路上擦肩而过时摸女孩胸 被行宁波出台国内首个网购争议处理办法非洲牛郎门谣言案落定 涉事网站被判侵俄印蒙三国总理同日访华非偶然 政治意同济大学开启中美共建全科医学系计划南京大学两位院士候选人就论文是否造假无业男子为供养情妇和私生子 诈骗父母各省区市通报违反八项规定典型 多涉违“中国西藏文化周”在德国柏林开幕 俞广西检验检疫:多重措施严防登革热经口云南国庆期间将有两次降雨天气过程 适广东首次按新规开庭审理罪犯减刑案件 2014“宁交会”开幕前一小时商家进安徽合肥宣布举办顶级机器人大赛 为世南京地铁公交晒“老赖” 不还钱不能坐河南翻船事故千余人搜救 8名失踪者仍郑洁“最后一次亚运会” 称四年后队友刘德华被问是否参加亲子节目 调侃:我警方发布“十一”黄金周安全提示:防盗国企江汉油建职工私刻公章被妻子实名举高清组图:武汉工商学院少数民族大学生广东惠州审理一宗涉嫌走私贩卖运输制造上海一正局级干部公款聚餐被处分并全额河北廊坊侯振国爱心团队救助贫困家庭1兰州公布17处危险路段及事故多发点遏制含特殊药品复方制剂滥用 福建14全国检察机关已建议有关部门收监执行812家企业29日登陆湖北“四板”我国水环境形势严峻 湖泊Ⅲ类以上水质两男子复制购物卡后低价卖原卡 再持复
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘