双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

vb中如何调用.exe文件?

2007-05-04 04:52:29 1.5k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

myseek 墨衍会员 · AI 创作全网分发关注 + 加入社区

lammps建模（电解液）opls-aa力场的基本流程 lammps建模（电解液）opls-aa力场的基本流程阅读详情

vb中如何调用.exe文件?具体代码?谢谢

...全文

实战案例：用多智能体系统模拟房地产市场的架构设计房地产市场是典型的复杂自适应系统：买方纠结“要不要上车”、卖方盘算“挂多少钱能快速成交”、中介忙着“撮合两边赚佣金”、政府琢磨“怎么调政策稳房价”——每一个参与者的微小决策，最终都会汇聚成“房价暴涨”“成交冰点”这样的宏观现象。传统的计量经济学模型（比如线性回归）假设“所有人都是理性人”，但现实中没人能算清所有变量——你可能因为“同事买了学区房”就跟风，也可能因为“怕失业”而放弃买房。这时候，多智能体系统（MAS）阅读详情

myseek

资源 1,065 成员 6,492 内容

+ 关注 + 加入社区

切换为时间正序

aswq1314 2007-05-28

打赏
举报

linken0909 2007-05-27

打赏
举报

我试了还可以咯！

glowing_yu 2007-05-27

打赏
举报

学习

麦田之鹰 2007-05-22

打赏
举报

恩不错可以利用他扩展一下，我已经用它实现打开非exe文件。
直接使用系统的默认程序打开或者调用打开方式。
就和资源管理器一样了。
我有一个远程浏览服务器程序刚传到本站。
开启服务器后客户端就像资源管理器一样浏览操作服务器端的文件和文件夹

没有实现的是服务器的程序图标在客户端不能显示，下一步就增加程序图标。
删除功能暂时有写。

myseek 2007-05-13

打赏
举报

谢谢

GGL123 2007-05-11

打赏
举报

shell

犀山居士 2007-05-08

打赏
举报

有这么多人回答，我不用回答了，呵呵

cike_1111 2007-05-05

打赏
举报

Shell 函数

语法：
shell 路径，参数

路径可以直接给也可以是变量
参数1楼有
引用：
vbHide 0 窗口被隐藏，且焦点会移到隐式窗口。
VbNormalFocus 1 窗口具有焦点，且会还原到它原来的大小和位置。
VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。
VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。
VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。
VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。
*********************
使用shell打开某文件夹和直接打开文本文件(不是把其内容输入到程序中..)
-----------------------------
文件夹: 变量 = Shell("EXPLORER.EXE c:\vb", 1)

或者: Shell "EXPLORER.EXE c:\vb", 1

文本文件:变量=Shell("c:\windows\notepad.exe d:\dt.log", vbNormalFocus)

或者: shell "c:\windows\notepad.exe d:\dt.txt", 1

-------------------------------
前者调用系统的 explorer.exe 来打开某文件夹
后者调用系统的记事本程序来打开指定路径的文本文件

*******************
shell 打开网页

例 Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.hao123.com/", 1

双引号里前半部是浏览器的路径及名字,http等是要打开的网页网址.

yorkness 2007-05-04

打赏
举报

在前面加上：
Rarexe = App.Path & "\winrar.exe"
If Dir(Rarexe) = "" Then
MsgBox "在安装文件夹下无法找到rar文件，请确定后重试！", vbCritical + vbOKOnly
Exit Sub
End If

整个代码的意思是：将一个文件夹下的所有文件压缩成一个RAR文件

yorkness 2007-05-04

打赏
举报

Public Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Const PROCESS_QUERY_INFORMATION = &H400
Public Const STILL_ACTIVE = &H103
Public strWinDir As String
Public hProcess As Long

Source = File_Path & "\*.*"
Target = App.Path & "\" & Save_File_Path & ".rar"
On Error Resume Next
Kill Target
On Error GoTo 0

FileString = Rarexe & " a -ep " & """" & Target & """" & " """ & Source & """"

Result = Shell(FileString, vbHide)

hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Result)
Do
GetExitCodeProcess hProcess, lngExitCode
DoEvents
Loop While lngExitCode = STILL_ACTIVE

GoldFox 2007-05-04

打赏
举报

Shell 函数

执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。

语法

Shell(pathname[,windowstyle])

Shell 函数的语法含有下面这些命名参数：

部分描述
pathname 必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。
Windowstyle 可选参数。Variant (Integer)，表示在程序运行时窗口的样式。如果 windowstyle 省略，则程序是以具有焦点的最小化窗口来执行的。

windowstyle 命名参数有以下这些值：

常量值描述
vbHide 0 窗口被隐藏，且焦点会移到隐式窗口。
VbNormalFocus 1 窗口具有焦点，且会还原到它原来的大小和位置。
VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。
VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。
VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。
VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。

说明

如果 Shell 函数成功地执行了所要执行的文件，则它会返回程序的任务 ID。任务 ID 是一个唯一的数值，用来指明正在运行的程序。如果 Shell 函数不能打开命名的程序，则会产生错误。

注意缺省情况下，Shell 函数是以异步方式来执行其它程序的。也就是说，用 Shell 启动的程序可能还没有完成执行过程，就已经执行到 Shell 函数之后的语句。

✦双11狂欢大促✦

vb中如何调用.exe文件?

相关推荐

双11狂欢大促