首页
社区
课程
招聘
[旧帖] [求助](求助)VB shell 怎么使用呀? 0.00雪花
发表于: 2008-9-12 18:26 5518

[旧帖] [求助](求助)VB shell 怎么使用呀? 0.00雪花

2008-9-12 18:26
5518
VB shell 怎么使用呀,就用shell怎么调用本身的根目录的exe,于D,E,F盘等,例子: D盘目录下的VB文件夹下的VB.EXE,软件做好后要在别人电脑上也能调用哦,不管是什么盘符,希望大侠指教!谢谢了先!能附加源码或工程就更好了!

[招生]科锐逆向工程师培训(2024年11月15日实地,远程教学同时开班, 第51期)

收藏
免费 0
支持
分享
最新回复 (2)
雪    币: 1355
活跃值: (339)
能力值: ( LV13,RANK:920 )
在线值:
发帖
回帖
粉丝
2
'NO1调用盘符下某程序
'NO2调用相同目录下某程序
'程序编写 爱琴海

Private Sub TiaoNo1(EXEName1 As String)
On Error GoTo Meiyoufaxian
'NAME为“1.exe”这样的形式
'调用根目录下的某个可执行程序
Dim Zhuangtai As Boolean
'定义标志位,如果检测到目标程序就置TRUE
Dim Lujiang As String
'定义路径
Dim Panfu As Long
Panfu = 67
'初始化盘符为C盘
Zhuangtai = False
'初始化状态
Do While Zhuangtai = False
If Panfu > 89 Then Exit Do
lujing = Chr(Panfu) & ":\" & EXEName1
If Dir(lujing) = "" Then
Panfu = Panfu + 1
Else
Zhuangtai = True
End If
Loop
MsgBox lujing, , "发现目标路径:"
If Zhuangtai = True Then Shell lujing, vbNormalFocus
'具体要隐藏执行还是正常执行你就自己改
Exit Sub
Meiyoufaxian:
If Err.Number = 52 Then
MsgBox "程序不存在", , "提示"
Else
MsgBox "程序无法调用,请检查", , "提示"
End If
End Sub

Private Sub TiaoNo2(EXEName2 As String)
'NAME2为“1.exe”这样的形式
'调用同级目录下的某个可执行程序
Dim Lujin2 As String
Lujin2 = App.Path & "\" & EXEName2
If Dir(Lujin2) <> "" Then
Shell Lujin2, vbNormalFocus
Else
MsgBox "程序不存在", , "提示"
End If
End Sub

Private Sub Command1_Click()
TiaoNo1 ("1.exe") '调用C或者D或者E等盘符下的某一个1.exe程序
End Sub

Private Sub Command2_Click()
TiaoNo2 ("2.exe") '调用同个目录下的2.exe
End Sub
上传的附件:
2008-9-13 14:29
0
雪    币: 299
活跃值: (85)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
3
不错,学习了,谢谢分享。
2021-6-23 20:41
0
游客
登录 | 注册 方可回帖
返回
//