vb exe返回值

[wing013]

有兄弟姐妹们做过exe运行后返回一个值的么？不要dll的那种
给个什么提示都好

[布衣散人]

可以借道，比如exe写入内存，或文件，或注册表，然后去取

[布衣散人]

也可以exe用api直接发到你的程序，或直接获取exe的数据

[我是一道光_]

[Quote=引用 2 楼 jjhhgg1111 的回复:]
也可以exe用api直接发到你的程序，或直接获取exe的数据
[/Quote]

可以.值得试试.

[jiashie]

蛋疼的功能
牛逼的回复

[贝隆]

可以考虑进程间通信，通常进程通信包含如下方法：

1、消息方式：SendMessage、PostMessage
最简单，速度快，得到窗口句柄就行，但传输的数据库很小（<32BYTE）。

2、共享内存方式
CreateFileMapping
OpenFileMapping
MapViewOfFile
用的时候注意互斥一下。速度快。

3、SOCKET方式。
最麻烦，但功能最强。可实现网络间的程序通讯。可以参考Socket控件



测试创建和打开文件映射的时候老是得到"句柄无效"的错误, 仔细看了MSDN以后才发觉是函数认识不透, 这里把相关的解释翻译出来

HANDLE CreateFileMapping(
HANDLE hFile, //物理文件句柄
LPSECURITY_ATTRIBUTES lpAttributes, //安全设置
DWORD flProtect, //保护设置
DWORD dwMaximumSizeHigh, //高位文件大小
DWORD dwMaximumSizeLow, //低位文件大小
LPCTSTR lpName //共享内存名称
);

1) 物理文件句柄
任何可以获得的物理文件句柄, 如果你需要创建一个物理文件无关的内存映射也无妨, 将它设置成为 0xFFFFFFFF(INVALID_HANDLE_VALUE)就可以了.

如果需要和物理文件关联, 要确保你的物理文件创建的时候的访问模式和"保护设置"匹配, 比如: 物理文件只读, 内存映射需要读写就会发生错误. 推荐你的物理文件使用独占方式创建.

如果使用 INVALID_HANDLE_VALUE, 也需要设置需要申请的内存空间的大小, 无论物理文件句柄参数是否有效, 这样 CreateFileMapping 就可以创建一个和物理文件大小无关的内存空间给你, 甚至超过实际文件大小, 如果你的物理文件有效, 而大小参数为0, 则返回给你的是一个和物理文件大小一样的内存空间地址范围. 返回给你的文件映射地址空间是可以通过复制, 集成或者命名得到, 初始内容为0.

2) 保护设置
就是安全设置, 不过一般设置NULL就可以了, 使用默认的安全配置. 在win2k下如果需要进行限制, 这是针对那些将内存文件映射共享给整个网络上面的应用进程使用是, 可以考虑进行限制.

3) 高位文件大小
弟兄们, 我想目前我们的机器都是32位的东东, 不可能得到超过32位进程所能寻址的私有32位地址空间, 一般还是设置0吧, 我没有也不想尝试将它设置超过0的情况.
4) 低位文件大小
这个还是可以进行设置的, 不过为了让其他共享用户知道你申请的文件映射的相关信息, 我使用的时候是在获得的地址空间头部添加一个结构化描述信息, 记录内存映射的大小, 名称等, 这样实际申请的空间就比输入的增加了一个头信息结构大小了, 我认为这样类似BSTR的方式应该是比较合理的.

5) 共享内存名称
这个就是我今天测试的时候碰壁的祸根, 因为为了对于内存进行互斥访问, 我设置了一个互斥句柄, 而名称我选择和命名共享内存同名, 之下就是因为他们使用共同的namespace导致了错误, 呵呵.

7) 调用CreateFileMapping的时候GetLastError的对应错误
ERROR_FILE_INVALID 如果企图创建一个零长度的文件映射, 应有此报
ERROR_INVALID_HANDLE 如果发现你的命名内存空间和现有的内存映射, 互斥量, 信号量, 临界区同名就麻烦了
ERROR_ALREADY_EXISTS 表示内存空间命名已经存在

8) 相关服务或者平台的命名保留
Terminal Services:
命名可以包含 "Global\" 或者 "Local\" 前缀在全局或者会话名空间初级文件映射. 其他部分可以包含任何除了(\)以外的字符, 可以参考 Kernel Object Name Spaces.

Windows 2000 or later:
如果 Terminal Services 没有运行 "Global\" 和 "Local\" 前缀的特殊含义就被忽略了
http://dxxdxx.com/Html/gs/47711055062.html

[threenewbee]

[Quote=引用 6 楼 lyserver 的回复:]
创建工程1，命名为ProgA，复制以下代码，编译成EXE后放到C:\下

VB code

Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
Sub Main()
MsgBox "结束"
ExitProcess (123)
End Sub


创建工程2，复制以下代……
[/Quote]
学习，顺便问问，
ExitProcess (123)
有没有副作用？

[无·法]

我觉得楼主应该是想要那种在cmd下输入ipconfig.exe就显示一堆信息那样的吧。不过那种是控制台程序，vb6做好像有点麻烦，vb.net还好。

[fzx4936]

[Quote=引用 6 楼 lyserver 的回复:]
创建工程1，命名为ProgA，复制以下代码，编译成EXE后放到C:\下

VB code

Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
Sub Main()
MsgBox "结束"
ExitProcess (123)
End Sub


创建工程2，复制以下代……
[/Quote]
这个代码是够牛的，可以用于多进程替代多线程操作上，收藏了。

[threenewbee]

SendMessage()

[threenewbee]

也可以用 Pipe

[lyserver]

创建工程1，命名为ProgA，复制以下代码，编译成EXE后放到C:\下

Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
Sub Main()
    MsgBox "结束"
    ExitProcess (123)
End Sub

创建工程2，复制以下代码，运行即可：

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const STILL_ALIVE = &H103

Sub Main()
    Dim pid As Long, hProcess As Long, nExitCode As Long
    
    '运行progA
    pid = Shell("c:\progA.exe", vbNormalFocus)
    '等progA结束
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)
    Do
        GetExitCodeProcess hProcess, nExitCode
        DoEvents
    Loop While nExitCode = STILL_ALIVE
    CloseHandle hProcess
    '显示progA进程返回值
    MsgBox nExitCode
End Sub

[gHhoulai]

代码是够牛的，不能理解

[东方之珠]

顶...