| 编程中国 | 业界新闻 | 技术文章 | 视频教程 | 下载频道 | 程序源码 | 个人空间 | 编程论坛
全能ASP/PHP/ASP.NET主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付学习型 ASP/PHP/ASP.NET 主机 30元/年
高端软件开发 = 年薪十万不是梦赛孚耐:软件保护加密专家身份认证令牌USB KEY 
共有 319 人关注过本帖
标题:VB为什么这么难?》
收藏  订阅  推荐  打印 
o___o___o
Rank: 1
等级:新手上路
帖子:19
积分:302
注册:2007-11-1
VB为什么这么难?》

下面全部勾选后 点击Command1 后 怎么才能 让 1.EXE 运行结束后 在运行2.exe 以次类推

请把 代码写全了 我是新手 写好了 给你加分

Private Sub Command1_Click()
If Check1.Value = 1 Then
Shell ("C:\1.exe") '路径
End If
If Check2.Value = 1 Then
Shell ("C:\2.exe") '路径
End If
If Check3.Value = 1 Then
Shell ("C:\3.exe") '路径
End If
If Check4.Value = 1 Then
Shell ("C:\4.exe") '路径
End If
If Check5.Value = 1 Then
Shell ("C:\5.exe") '路径
End If
If Check6.Value = 1 Then
Shell ("C:\6.exe") '路径
End If
If Check7.Value = 1 Then
Shell ("C:\7") '路径
End If
If Check8.Value = 1 Then
Shell ("C:\8") '路径
End If
End Sub
搜索更多相关主题的帖子: quot  Then  Shell  End  路径  
2008-5-26 08:16
xiaolaba3330
Rank: 2
来自:辽宁大连
等级:注册会员
帖子:145
积分:1730
注册:2007-10-19

o(∩_∩)o...不难,别着急,慢慢来~~~~~
2008-5-26 11:27
lzn3303768
Rank: 2
来自:土星
等级:注册会员
帖子:55
积分:698
注册:2008-5-24

在form_unload事件里面加shell命令
2008-5-26 12:53
hack214
Rank: 1
等级:新手上路
帖子:27
积分:398
注册:2008-4-8

开启一个进程后!判断该进程是否结束,若已经结束,再启动第二个进程。楼主应该了解一下vb进程遍历的知识。!!!!!
2008-5-26 20:38
multiple1902
Rank: 12Rank: 12Rank: 12
等级:版主
威望:40
帖子:4479
积分:45682
注册:2007-2-9

提供一段查询进程的代码,需要能够理解对象、Windows对象和简单的SELECT语句,当然也要了解VB的基本语法:)

原先是用于进行进程守护
程序代码:
Public Sub Protect()
'双进程保护模式
While 1 = 1
  Dim objWMIService, colprocesslist
   Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
   Set colprocesslist = objWMIService.ExecQuery("SELECT * FROM Win32_Process where name='" & App.EXEName & ".exe'")
   If colprocesslist.Count < 2 Then Shell AppPath & App.EXEName & ".exe"
   Sleep Config.ProtectPause '防止CPU占用过高
   DoEvents
Wend
End Sub
2008-5-26 20:54
关于我们 | 广告合作 | 编程中国 | 清除Cookies | Archiver | WAP | TOP

编程中国 版权所有,并保留所有权利。鲁ICP备08000592号
Powered by Discuz, Processed in 0.051442 second(s), 9 queries.
Copyright©2004-2008, BCCN.NET, All Rights Reserved