Vb关闭正在运行的指定程序
Vb关闭正在运行的指定程序，比如将打开的记事本、计算器、Photoshop等程序关闭，关闭的程序名写在代码里，有兴趣的朋友可扩展一下程序，让使用者自行输入需要关闭的程序，本程序的实现对新手来说也不是太难。
运行环境：Windows/VB6
相关标签：-
软件大小：1.93K
软件属性：共享版 | 简体中文
软件评级：
收录更新： |
相关链接：暂无演示
软件截图：
下载地址：
本类推荐下载
本类最新更新
最新网页特效在VB中如何激活一个以运行着的应用程序的窗口.并向这个应用程序发送键码.详情请进.......解决问题再送100!!!
[问题点数：100分，结帖人adistudio]
本版专家分：52
结帖率 100%
CSDN今日推荐
本版专家分：271
本版专家分：52
结帖率 100%
本版专家分：2660
本版专家分：166995
2005年1月 荣获微软MVP称号2004年1月 荣获微软MVP称号
2007年5月 VB大版内专家分月排行榜第一2007年4月 VB大版内专家分月排行榜第一2005年12月 VB大版内专家分月排行榜第一2004年2月 VB大版内专家分月排行榜第一2004年1月 VB大版内专家分月排行榜第一2003年11月 VB大版内专家分月排行榜第一2003年10月 VB大版内专家分月排行榜第一
2007年6月 VB大版内专家分月排行榜第二2006年3月 VB大版内专家分月排行榜第二2006年2月 VB大版内专家分月排行榜第二2006年1月 VB大版内专家分月排行榜第二2004年9月 VB大版内专家分月排行榜第二2004年8月 VB大版内专家分月排行榜第二2004年3月 VB大版内专家分月排行榜第二2003年12月 VB大版内专家分月排行榜第二2003年9月 VB大版内专家分月排行榜第二2003年7月 VB大版内专家分月排行榜第二2003年6月 VB大版内专家分月排行榜第二2003年5月 VB大版内专家分月排行榜第二
2005年11月 VB大版内专家分月排行榜第三2004年7月 VB大版内专家分月排行榜第三
本版专家分：166995
2005年1月 荣获微软MVP称号2004年1月 荣获微软MVP称号
2007年5月 VB大版内专家分月排行榜第一2007年4月 VB大版内专家分月排行榜第一2005年12月 VB大版内专家分月排行榜第一2004年2月 VB大版内专家分月排行榜第一2004年1月 VB大版内专家分月排行榜第一2003年11月 VB大版内专家分月排行榜第一2003年10月 VB大版内专家分月排行榜第一
2007年6月 VB大版内专家分月排行榜第二2006年3月 VB大版内专家分月排行榜第二2006年2月 VB大版内专家分月排行榜第二2006年1月 VB大版内专家分月排行榜第二2004年9月 VB大版内专家分月排行榜第二2004年8月 VB大版内专家分月排行榜第二2004年3月 VB大版内专家分月排行榜第二2003年12月 VB大版内专家分月排行榜第二2003年9月 VB大版内专家分月排行榜第二2003年7月 VB大版内专家分月排行榜第二2003年6月 VB大版内专家分月排行榜第二2003年5月 VB大版内专家分月排行榜第二
2005年11月 VB大版内专家分月排行榜第三2004年7月 VB大版内专家分月排行榜第三
本版专家分：52
结帖率 100%
本版专家分：52
结帖率 100%
本版专家分：39721
2007年9月 VB大版内专家分月排行榜第三
本版专家分：52
结帖率 100%
本版专家分：52
结帖率 100%
本版专家分：471
本版专家分：3225
本版专家分：6990
本版专家分：52
结帖率 100%
本版专家分：108326
2004年 总版技术专家分年内排行榜第七
2005年9月 荣获微软MVP称号2008年10月 荣获微软MVP称号2007年10月 荣获微软MVP称号2006年10月 荣获微软MVP称号2004年9月 荣获微软MVP称号
2004年9月 VB大版内专家分月排行榜第一2004年8月 VB大版内专家分月排行榜第一2004年7月 VB大版内专家分月排行榜第一2004年6月 VB大版内专家分月排行榜第一2004年5月 VB大版内专家分月排行榜第一
2004年2月 VB大版内专家分月排行榜第二
本版专家分：108326
2004年 总版技术专家分年内排行榜第七
2005年9月 荣获微软MVP称号2008年10月 荣获微软MVP称号2007年10月 荣获微软MVP称号2006年10月 荣获微软MVP称号2004年9月 荣获微软MVP称号
2004年9月 VB大版内专家分月排行榜第一2004年8月 VB大版内专家分月排行榜第一2004年7月 VB大版内专家分月排行榜第一2004年6月 VB大版内专家分月排行榜第一2004年5月 VB大版内专家分月排行榜第一
2004年2月 VB大版内专家分月排行榜第二
匿名用户不能发表回复！|
CSDN今日推荐怎样让VB程序只运行一个程序实例呢
[问题点数：20分，结帖人helloworldvc]
本版专家分：0
结帖率 100%
CSDN今日推荐
本版专家分：14304
2002年8月 VB大版内专家分月排行榜第二
2002年7月 VB大版内专家分月排行榜第三
本版专家分：14304
2002年8月 VB大版内专家分月排行榜第二
2002年7月 VB大版内专家分月排行榜第三
本版专家分：14304
2002年8月 VB大版内专家分月排行榜第二
2002年7月 VB大版内专家分月排行榜第三
匿名用户不能发表回复！|
CSDN今日推荐温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
LOFTER精选
网易考拉推荐
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
●适用于VB
●用法：传回值 = App.属性
--------------------------------------------------------------------------------
●得知程序的说明
字符串 = App.Comments
●得知程序的公司名称
字符串 = App.CompanyName
●得知程序的原始名称
字符串 = App.EXEName
●得知程序的文件描述
字符串 = App.FileDescription
●得知程序的说明文件名称
字符串 = App.HelpFile
●得知程序的版权
字符串 = App.LegalCopyright
●得知程序的商标
字符串 = App.LegalTrademarks
●得知程序的版本
字符串 = App.Major
字符串 = App.Minor
●得知程序的路径
字符串 = App.Path
●得知程序是否重覆执行。
If App.PrevInstance Then
MsgBox &程序不得重覆执行&, vbokonly '值为True时，程序重覆执行
MsgBox &程序第一次执行&, vbokonly
●得知程序的产品名称
字符串 = App.ProductName
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
灵活使用vb的app对象：
在visual basic 的编程实践中，app 是非常重要的全局对象。合理使用该对象开发程序可以大大节约开发时间，并且能实现用其他方法很难达到的目标。下面便是作者在用visual basic 开发应用程序时得到的一些技巧和体会。
一、避免重复运行同一个程序实例
app 对象的previnstance 属性返回一个逻辑值，该值指示是否已经有前一个应用程序实例在运行。有时我们开发的程序每次只想运行一个实例，当用户重复运行该程序时，能提醒用户该程序已经运行，并自动退出。要实现上述功能，只需在应用程序中添加一个模块，在该模块中加入启动过程sub main，将如下代码加到sub main 中即可。
if app.previnstance then
msg = & 系统正在运行，请在下面任务栏寻找系统的最小化图标。&
style = vbokonly + vbexclamation + vbdefaultbutton2
title = &警告!&
response = msgbox(msg, style, title)
exit sub &结束本次运行
二、在系统任务列表中隐藏应用程序
app 对象的t a s k v i s i b l e 属性返回或设置一个值（boolean 布尔表达式的值），用来确定应用程序是否出现在系统任务列表中。缺省值为true，表示应用程序出现在任务列表窗口中；若设置为false，则应用程序不出现在任务列表窗口中。利用该属性可以使应用程序的标题不出现在alt+ctrl+del 弹出的任务列表窗口中，从而避免应用程序被用户强行终止。
注意:应用程序启动并显示其界面后，taskvisible 属性就会被自动设置为默认值true。另外，可以通过设置title属性来改变应用程序在任务列表窗口显示的名称，否则将显示工程名。举个例子：在form上建立一个commandbutton控件command1，加入如下代码:
private sub form_load()
app.title = &这是一个演示如何隐藏应用程序的示例&
private sub command1_click()
if app.taskvisible then
app.taskvisible = false
app.taskvisible = true
运行该程序，并用alt+ctrl+del 弹出任务列表窗口观察，然后不断点击command1，看有何变化。
三、实现与具体路径无关的应用程序
开发程序时往往希望程序无论copy 到哪个目录下都能正常运行，也就是程序与具体的应用程序所在的路径无关。你可以这样做：在应用程序中添加一个模块，在该模块中加入启动过程sub main，将如下代码加到模块中。
public mypass as string &声明为全局变量
sub main()
mypath = app.path
.. &其余程序部分
在程序中凡是涉及到路径的地方，用mypath 代替绝对路径。例如:假设需要通过data 控件data1 来操作应用程序目录下的localdatabase 子目录下的user.mdb，user.mdb 包含有test 表。将如下代码加入该控件所在的form的load事件中，就可实现对user.mdb 的操作与绝对路径无关。
data1.databasename = mypath + &\localdatabase\user.mdb&
data1.recordsource = &select * from test&
data1.refresh
四、应用程序的版本管理
与应用程序版本有关的属性有：revision 属性、major属性、minor 属性。revision 属性返回工程的修订版本号，该属性在运行时是只读的；major 属性返回工程的主版本号，该属性在运行时是只读的；minor 属性返回工程的小版本号，该属性在运行时是只读的。要设置工程的有关版本，可以在设计时用位于&工程属性&对话框中的&生成&选项卡上相对应的框设置这些属性。
&修订版本号&反应的是对工程的修改信息，如果将&工程属性&对话框中的&生成&选项设置为&自动加&，则每当工程编译一次（编译为.exe 文件），revision 属性的值自动累加1。而major 属性、minor 属性才是我们通常提到的应用软件的版本。例如要设置软件的版本号为3.4，只需在工程设计时，将major 属性设置为3，minor 属性设置为4。软件运行时如果要显示版本号，可参考如下语句:msgbox &系统版本为：&+str(app.major) + &.& + trim(str(app.minor))运行该语句，将弹出一消息对话框显示&系统版本为:3.4&。
五、应用程序的日志操作
a p p 对象支持应用程序日志的操作，与此相关的有logmode 属性、l o g p a t h 属性、l o g e v e n t 方法和startlogging 方法。下面说说这些属性和方法的功能及日志操作的步骤。
1.首先用startlogging方法对某个操作的日志目标及日志模式进行设置。
语法格式:app.startlogging logtarget, logmodelogtarget 是一个字符串，用于指定一个用于记录日志的文件名。logmode 是一个整数值，它决定如何记入日志，一般将其置为vblogauto。另外，logpath 属性、logmode 属性在设计阶段不可用，且在运行阶段为只读，因此不能直接对这两个属性进行赋值，只能通过startlogging 方法改变。
2 . 用l o g e v e n t 方法把某个事件记入日志。在windowsnt 平台上，该方法会把内容写到nt 的event 日志中。在windows9x平台上，该方法会把内容写到logpath属性指定的文件中。按照缺省规定，如果不指定文件，事件将被写入vbevents.log 文件中。
语法格式:app.logevent logbuffer, eventtype
其中:logbuffer 是要写入到日志中的信息；eventtype是可选的，它指定了事件的类型。下面是eventtype 的设置值：
常量名常数值描述
vblogeventtypeerror 1 错误
vblogeventtypewarning 2 警告
vblogeventtypeinformation 4 信息
3 . 程序运行过程中如果需要了解日志文件路径及文件名、日志写入模式，你可以读取logmode 属性和logpath属性的值。下面是一个简单的程序示例:
app.startlogging app.path + &\mylog.log&, vblogauto
app.logevent &一切正常&, vblogeventtypeinformation
msgbox app.logpath
msgbox app.logmode
需要注意的是，对日志操作的方法和属性只有在程序被编译为exe 文件后才能发挥作用，在visual basic 调试环境下无效。
阅读(3048)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
loftPermalink:'',
id:'fks_',
blogTitle:'vb怎么防止一个程序运行多次？',
blogAbstract:'怎么防止一个程序运行多次？If App.PrevInstance Then&&&&&&&
MsgBox &该程序已经运行！&&&&&&&&
Unload Me&&&&&&&
End IfVB APP对象属性一览表+灵活使用VB的APP对象
●适用于VB
●用法：传回值 = App.属性
--------------------------------------------------------------------------------
●得知程序的说明
字符串 = App.Comments
●得知程序的公司名称 ',
blogTag:'',
blogUrl:'blog/static/',
isPublished:1,
istop:false,
modifyTime:0,
publishTime:2,
permalink:'blog/static/',
commentCount:2,
mainCommentCount:2,
recommendCount:0,
bsrk:-100,
publisherId:0,
recomBlogHome:false,
currentRecomBlog:false,
attachmentsFileIds:[],
groupInfo:{},
friendstatus:'none',
followstatus:'unFollow',
pubSucc:'',
visitorProvince:'',
visitorCity:'',
visitorNewUser:false,
postAddInfo:{},
mset:'000',
remindgoodnightblog:false,
isBlackVisitor:false,
isShowYodaoAd:false,
hostIntro:'',
selfRecomBlogCount:'0',
lofter_single:''
{list a as x}
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}