一个没有窗体的程序，怎样才能接收到结束进程的消息

VB > API
收藏 回复
[问题点数：100分，结帖人qbilbo]
更多帖子
私信 空间 博客
qbilbo
等级
本版专家分：6669
结帖率 100%
程序A是一个没有界面的程序，负责监视一个目录，对移进来的文件进行格式转换，并转发，程序B是一个管理程序，负责启动和停止A（有N个实例，启动时通过加启动参数的方式实现不同的功能）程序。由于A没有窗体，用什么方法才能接收到B发出的结束进程的消息，将做了一半的任务完成后再退出程序？
只看楼主 引用 举报 楼主 收起
展开阅读全文
更多帖子
私信 空间 博客
online
等级
本版专家分：108324
勋章
Blank
进士 2004年 总版技术专家分年内排行榜第七
Blank
微软MVP 2005年9月 荣获微软MVP称号
2008年10月 荣获微软MVP称号
2007年10月 荣获微软MVP称号
2006年10月 荣获微软MVP称号
2004年9月 荣获微软MVP称号
Blank
红花 2004年9月 VB大版内专家分月排行榜第一
2004年8月 VB大版内专家分月排行榜第一
2004年7月 VB大版内专家分月排行榜第一
2004年6月 VB大版内专家分月排行榜第一
2004年5月 VB大版内专家分月排行榜第一
Blank
黄花 2004年2月 VB大版内专家分月排行榜第二
b枚举进程，发现a后关闭
好像不太符合
只看TA 引用 举报 #1得分 50
更多帖子
私信 空间 博客
qbilbo
等级
本版专家分：6669
up
只看TA 引用 举报 #2得分 0
更多帖子
私信 空间 博客
qbilbo
等级
本版专家分：6669
to:online
不一定是杀进程，用dde,sentmessage也行，关键是怎么让A知道要退了。
只看TA 引用 举报 #3得分 0
更多帖子
私信 空间 博客
daviddivad
等级
本版专家分：11033
发送自定义消息
只看TA 引用 举报 #4得分 10
更多帖子
私信 空间 博客
daviddivad
等级
本版专家分：11033
模块：
Public Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function BroadcastSystemMessage Lib "user32" (ByVal dw As Long, pdw As Long, ByVal un As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Public Const MYMESS As String = "This is my message"
Public Const BSF_POSTMESSAGE = &H10
Public Const BSF_IGNORECURRENTTASK = &H2
Public Const BSF_NOHANG = &H8
Public Const BSM_APPLICATIONS = &H8
Public Const GWL_WNDPROC = (-4)

Public lMsgID As Long
Public lpreProc As Long

Public Function WindowProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If lMsgID = Msg Then
        '结束进程
        Call TerminateProcess(GetCurrentProcess, ByVal 0&)
        Exit Function
    Else
        WindowProc = CallWindowProc(lpreProc, hWnd, Msg, wParam, lParam)
    End If
End Function
只看TA 引用 举报 #5得分 0
更多帖子
私信 空间 博客
daviddivad
等级
本版专家分：11033
窗体：
Private Sub Form_Load()
    lMsgID = RegisterWindowMessage(MYMESS)
    lpreProc = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    SetWindowLong Me.hWnd, GWL_WNDPROC, lpreProc
End Sub
只看TA 引用 举报 #6得分 0
更多帖子
私信 空间 博客
daviddivad
等级
本版专家分：11033
结束时，B程序发送自定义的消息给所有的窗体，A程序接收到自会处理
    BroadcastSystemMessage BSF_NOHANG + BSF_POSTMESSAGE + BSF_IGNORECURRENTTASK, BSM_APPLICATIONS, lMsgID, 0&, 0&
只看TA 引用 举报 #7得分 0
更多帖子
私信 空间 博客
online
等级
本版专家分：108324
勋章
Blank
进士 2004年 总版技术专家分年内排行榜第七
Blank
微软MVP 2005年9月 荣获微软MVP称号
2008年10月 荣获微软MVP称号
2007年10月 荣获微软MVP称号
2006年10月 荣获微软MVP称号
2004年9月 荣获微软MVP称号
Blank
红花 2004年9月 VB大版内专家分月排行榜第一
2004年8月 VB大版内专家分月排行榜第一
2004年7月 VB大版内专家分月排行榜第一
2004年6月 VB大版内专家分月排行榜第一
2004年5月 VB大版内专家分月排行榜第一
Blank
黄花 2004年2月 VB大版内专家分月排行榜第二
可以先获得a程序对应的pid，然后由pid获得hwnd
发送wm_close消息，a接收到消息在处理

Option Explicit

Const SYNCHRONIZE = &H100000
Const INFINITE = &HFFFF
Const WAIT_OBJECT_0 = 0
Const WAIT_TIMEOUT = &H102

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_CLOSE = &H10


Private Sub Command1_Click()
Dim ShellX As String
Dim lPid As Long
Dim lHnd As Long
Dim lRet As Long
Dim VarX As String
ShellX = Shell(App.Path & "\工程2.exe", vbNormalFocus)
    
lPid = ShellX
    If lPid <> 0 Then
        lHnd = OpenProcess(SYNCHRONIZE, 0, lPid)
        If lHnd <> 0 Then
            SendMessage lHnd, WM_CLOSE, 0&, 0&
            CloseHandle (lHnd)
        End If
    End If
End Sub

用什么方法才能接收到B发出的结束进程的消息，将做了一半的任务完成后再退出程序？
如果直接关闭进程，a不会完成工作，直接退出
只看TA 引用 举报 #8得分 0
更多帖子
私信 空间 博客
daviddivad
等级
本版专家分：11033
Public Function WindowProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If lMsgID = Msg Then
        '结束进程
        '当然在这里你可以不结束进程，A运行到这里说明已经接收到的关闭的消息，接
        '下来要做些什么工作，你完全可以自己控制，甚至杀死B，呵呵
        Call TerminateProcess(GetCurrentProcess, ByVal 0&)
        Exit Function
    Else
        WindowProc = CallWindowProc(lpreProc, hWnd, Msg, wParam, lParam)
    End If
End Function
只看TA 引用 举报 #9得分 0
更多帖子
私信 空间 博客
qbilbo
等级
本版专家分：6669
感谢你们的回答。

不过你们的方法我都知道，现在的关键是A程序是个没有窗体的程序，我不知道该怎样拦截消息啊。总不见得为了收消息去弄个窗体吧。(如果有窗体也不用进入消息循环了，用sentmessage的活queryunload事件就行了，用DDE的话linkexecute事件就行了。）
只看TA 引用 举报 #10得分 0
1 2 3
收起
收藏 回复
qbilbo

等级：

关注 私信 TA的帖子
创建一个窗体程序

#include&lt;windows.h&gt; LRESULT CALLBACK WinProc(HWND hInst,UINT message,WPARAM wParam,LPARAM lParam);...wParam：一个32位的消息参数，其含义和数值根据消息的不同而不同；lParam：一个32位的消息...

C#学习笔记：Winform 窗体关闭后，进程没有结束

我用主窗体弹出一个子窗体，关闭子窗体的时候，退出整个程序； 我的做法是，用主窗体弹出子窗体的时候，将主窗体对象传入到子窗体中，如下所示： 主窗体中的代码： Form2 frm = new Form2(this); frm.Show(); ...

MFC窗体中打开第三方exe程序到指定区域（一）

流程如下： 1、CreateProcess创建外部EXE进程 2、获取指定区域的坐标 ...4、将外部程序移到指定区域 5、调用ShowWindow显示窗口 主程序如下： handle=StartProcess("D:\\program tool\\Secu...

Winform子窗体关闭程序的方法总结

Winform子窗体关闭程序的方法总结 在做Winform应用程序的时候，常常会用到子窗体关闭整个程序。 下面是我积累的一些方法： System.Environment.Exit(0)： 解释：强制该程序的主线程，不管有无子线程正在执行方法，...

一个简单的Windows程序及消息循环机制

刚开始学Windows程序设计不久，今天看到了 “窗口与消息” 这一章节，其中有一个非常经典的Windows小程序。虽然程序很小，但是该程序包括了几乎所有Windows程序都有的一些常规而繁琐的步骤，比如：窗口类的初始化与...

嵩天老师-Python语言程序设计-Python123配套练习测验题目汇总整理

Python语言中的缩进在程序中长度统一且强制使用，只要统一即可，不一定是4个空格（尽管这是惯例） IPO模型指：Input Process Output 字符串的正向递增和反向递减序号体系：正向是从左到右，0到n-1，反向是从右到左...

C#各种结束进程的方法详细介绍

Process.CloseMainWindow是GUI程序的最友好结束方式，从名字上就可以看出来它是通过结束主窗体，相当于用户点击窗体的关闭按钮或者按Alt + F4。它的本质就是向主窗体发送WM_CLOSE消息（Process.MainWindowsHan

Windows程序的窗口和消息 -- 一个Windows程序从生到死

注：以下内容为学习笔记，多数是从书本、资料中得来，只为加深印象，及日后参考。...1.一个完整的Windows程序 /*------------------------------------------------------------------------------

MFC窗体中打开第三方exe程序到指定区域（二）

参考文章：https://blog.csdn.net/bmjhappy/article/details/91844221 ... 需求：C++加载外部exe程序到窗口指定区域，并随窗口尺寸变化而变化 流程如下： 1、CreateProcess创建外部EXE进程...

结束主窗体

Process.CloseMainWindow是GUI程序的最友好结束方式，从名字上就可以看出来它是通过结束主窗体，相当于用户点击窗体的关闭按钮或者按Alt + F4。它的本质就是向主窗体发送WM_CLOSE消息（Process.MainWindowsHandle...

C#窗体程序，当窗口关闭后，进程无法关闭解决方法

最近在写一个C#的窗体程序，开了一个线程负责UDP通信的接收，当窗体关闭后，进程总是无法关闭。 解决方法： 在每个线程启动时，都把IsBackground设成True。 这样，在主线程关闭时，其他的线程就会自动关闭。 ...

编写一个java程序_鼠标在java窗口上的坐标_编写Java程序，创建一个窗体，并实现交互。在窗体内“单击鼠标...

请阅读以下说明和Socket程序，将应填入(n)处的字句写在对应栏内。网络应用的基本模型是客户机/服务器...服务器软件一般是指等待接收并处理客户机请求的应用程序，通常由系统执行，等待客户机请求，并且在接收到请求...

MFC窗体中打开第三方exe程序到指定区域

流程如下： 1、CreateProcess创建外部EXE...4、将外部程序移到指定区域 5、调用ShowWindow显示窗口 主程序如下： handle=StartProcess("D:\\program tool\\SecureCRTPortable\\App\\SecureCRT\\SecureCRT.exe","");

使用WIN32汇编语言实现一个基本windows窗体的过程分析

一个常规的windows窗体一般都是一些一样的构造。你假设想要更改一些个性化的设置，你能够在这个一般的模板伤添砖加瓦。构造自己比較喜欢的类型。下边就分析一下一般的windows窗体的一般模板。 一. 首先看一下...

windows程序消息机制(Winform界面更新有关)

windows程序消息机制(Winform界面更新有关) windows程序消息机制(Winform界面更新有关) 转自：http://www.cnblogs.com/blosaa/archive/2013/05/31/3109586.html 1. Windows程序消息机制 Windows GUI程序是基于...

利用SendMessage和FindWindow，给其他进程发消息

当某个程序要给另一个程序发消息时，可以利用下面2个函数。注意，必须知道另一个进程的主窗口名（顶级窗口，也就是程序运行时的title标题。） 问题描述：...

C#--主程序启动EXE插件,并使用SendMessage进行进程间通信

[DllImport("User32.dll", EntryPoint = "SendMessage")] private static extern int SendMessage(int hWnd, int Msg, int wParam, ref COPYDATASTRUCT lParam); [DllImport("User32.dll", EntryPoint = ...

将一个EXE程序嵌入MFC运行

原文：http://www.codeproject.com/Articles/18724/Hosting-exe-applications-into-a-dialog HANDLE hProcess; HWND apphWnd = NULL; int CALLBACK EnumWindowsProc(HWND hwnd, LPARAM lParam) { DWORD pID;... ...

一个程序关闭另外一个程序

using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Windows.Forms; using System.Xml; using System.Threading;...using System.Runtime.InteropServices

[转]MFC窗体中打开第三方exe程序到指定区域

2018年8月18日 转发至：...流程如下： 1、CreateProcess创建外部EXE进程2、获取指定区域的坐标 3、查找进程的主窗口 4、将外部程序移到指定区域 5、...

C#基础教程-c#实例教程，适合初学者

本章介绍C#语言的基础知识，希望具有C语言的读者能够基本掌握C#语言，并以此为基础，能够进一步学习用C#语言编写window应用程序和Web应用程序。当然仅靠一章的内容就完全掌握C#语言是不可能的，如需进一步学习C#语言...

C++ 用DEV-C++建一个Windows窗口程序带文本框和命令按钮

在Dev-C++ 5.11上创建并正常运行，操作系统32位、64位Win7均可。首先在文件菜单里新建项目，选择Windows Application，命名完成后得到程序框架。最后在代码中添加上控件和对应的事件即可。

Windows消息队列、线程消息队列，窗口消息的概念与关系

1.窗口Windows程序是由一系列的窗口构成的，每个窗口都有自己的窗口过程，窗口过程就是一个拥有有固定 Signature 的 C函数，具体格式如下：LRESULT CALLBACK WindowProc(HWND hwnd,UINT uMsg,WPARAM wParam,LPARAM ...

执行一个外部程序并等待他的结束

执行一个外部程序并等待他的结束 //下面的函数执行一个程序并且等他的结束。 //在外部程序结束运行之前，不能做任何操作！ //EXL:WinExecW('C:\Windows\NOtePad.exe', '', sw_show); Function WinExecW(CMD, WorkDir...

Python定义点击tkinter的右上角关闭按钮触发事件，再调用其它函数来结束进程等。

Python定义点击tkinter的右上角关闭按钮触发事件，再调用其它函数来结束进程等。 import tkinter import tkinter.messagebox import sys def JieShu(): tkinter.messagebox.showwarning(title='警告', message='...

vc++ 在程序中运行另一个程序的方法

在vc++ 程序中运行另一个程序的方法有三个： WinExec（），ShellExcute（）和CreateProcess（） 三个SDK函数:WinExec，ShellExecute，CreateProcess可以实现调用其他程序的要求，其中以WinExec最为简单，...

C/C++编写Windows窗口应用程序(Win32程序),非黑漆漆的控制台窗口

Windows应用程序是基于消息驱动的，任何线程只要注册窗口类都会有一个消息队列用于接收用户输入的消息和系统消息。 一、 窗口的创建流程 创建一个完整的窗口需要经过下面四个操作步骤： 设计一个窗口类(填写...

MFC窗口程序三个退出程序消息：WM_CLOSE、WM_DESTROY、WM_QUIT

MFC窗口程序三个退出程序消息：WM_CLOSE、WM_DESTROY、WM_QUIT 1、发送消息SendMessage、PostMessage PostMessage将消息放入消息队列后马上返回，而SendMessage直到窗口过程处理完消息后才返回 2...

WPF 主窗口关闭后，无法退出进程 解决

WPF主窗体关闭后，却依然无法退出进程 在win10下，任务管理器中显示后台进程中依然存在 ...后来发现原来在程序中实例化了一个Thread,这个Thread在循环接收Socket消息 将该Thread设置为isBackground=true 即可 ...

ASP.NET 开发课程 MVC5 入门篇

MVC全名是Model View Controller，是模型(model)－视图(view)－控制器(controller)的缩写，一种软件设计典范，用一种业务逻辑、数据、界面显示分离的方法组织代码，将业务逻辑聚集到一个部件里面，在改进和个性化定制界面及用户交互的同时，不需要重新编写业务逻辑。 主讲内容 第一讲 MVC5简介 第二讲 MVC 控制器 第三讲 视图 第四讲 模型 等课程 学会MVC5基本使用

相关热词 c#書籍推薦 c#打印pdf中的图片 c# 抽象函数的作用 mono打包c# c#网关技术选型 c#比java简单 c#线程和锁 c# 秒表计时器 c#数组怎么写 c#后台分类管理源码