VB API程序关闭

widebright - 一派掌门 十二级 有点搞笑啊~向窗口发送，WM_CLOSE 消息，可以用findwindows那个api 难道我不是向窗口发送wm_close消息吗？难道获取窗口句柄非得用findwindows这个函数吗？

还有楼主~你的提问本身就有点问题~千千本身并没有关闭 提示 至少我的版本没有~不知道你是什么版的？你自己点关闭按钮 它还会d出提示窗口？

如果千千本身没有这个提示 。你完全可以自己虚拟一个窗口出来用MSGBOX

在结束之前d出窗口 判断用户点 确定还是取消 如果确定就 关闭。否就继续开着。

我这个代码完全没问题的~我测试过 拿腾讯tt这个浏览器~在选项里 退出时提示关闭确认 前打勾~

直接结束进程是不会有提示~但是用我代码结束会由提示~

Private Const WM_CLOSE = &H10

Private Const WM_QUIT = &H12

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 Declare Function WindowFromPointXY Lib "user32" Alias "WindowFromPoint" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

Private Declare Function GetCursorPos Lib "user32" (LpPoint As POINTAPI) As Long

Private Type POINTAPI

x As Long

y As Long

End Type

Dim ahwnd As Long

Dim xy As POINTAPI '(声明变量类型)

Private Sub Command1_Click()

PostMessage Text2, WM_CLOSE, 0, 0 '或 PostMessage Handle,WM_QUIT,0,0

End Sub

Private Sub Timer1_Timer()

GetCursorPos xy '(取得XY的座标)

ahwnd = WindowFromPointXY(xy.x, xy.y) '(取得当前鼠标坐标下窗口的句柄)

Text1 = ahwnd

End Sub

2个text 1个timer 1个按钮

鼠标移动到要关闭的窗体~text1显示句柄 在text2输入句柄 点按钮关闭

需求：

1.点击按钮主动退出微信小程序（后台也退出）

2.满足条件触发主动退出微信小程序事件（后台也退出）

方法1：----------按钮退出

方法2：---------函数退出

通过在函数内部调用微信提供的API实现退出小程序

可以使用system + taskkill来关闭进程。

例如：system("taskkill -f -im qq.exe")    //调用system函数，使用dos当中的taskkill命令关闭qq进程。

windows *** 作系统下system () 函数。

函数名： system功 能： 发出一个DOS命令用 法： int system(char *command)system函数已经被收录在标准c库stdlib.h中，可以直接调用。

在DOS中，taskkill是用来终止进程的。具体的命令规则如下：TASKKILL [/S system [/U username [/P [password]]]]{ [/FI filter] [/PID processid | /IM imagename] } [/F] [/T]描述：一个或多个任务或进程结束。 可以按进程 ID 或图像名结束进程。

---