因为做了个独立的openqq客户端，想点击窗口“X”关闭QQ后，执行保存退出代码：Syscmd.Project.Exit(True)

在自定义QQ菜单是可以设置，但是要点一下才能看到菜单，再点击才能完全退出QQ。

 写一个计划任务监测窗口，如果不存在某某窗口，就执行关闭代码

For Each frm As System.Windows.Forms.Form In Application.OpenForms
    output.show(frm.name & "|" & frm.text)
Next

 或者，直接给openQQ窗口绑定closed事件也可以

https://msdn.microsoft.com/zh-cn/library/system.windows.forms.form.closed.aspx

qqclient.OpenChatWindow
dim frm as windows.forms.form = windows.forms.form.activeform
addhandler frm.closed, addressof 函数名

方法一：

Dim contain = False
For Each frm As System.Windows.Forms.Form In Application.OpenForms
    If frm.name = "frmTalker" Then
        contain = True
    End If
Next
If contain = False Then
    msgbox("关闭")
End If

方法二：

全局代码

Public Sub Form_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs)
msgbox("窗口关闭了")
End Sub

调用代码

QQClient.OpenChatWindow
Dim frm As windows.forms.form = Application.OpenForms("frmTalker")
If frm IsNot Nothing Then
    addhandler frm.closed, addressof Form_Click
End If

甜版主好！

我用第一种方法，退出时，会出现个询问窗口，如下图： 

此主题相关图片如下：gif.gif

计划任务代码是：

Dim contain = False   \'退出项目
For Each frm As System.Windows.Forms.Form In Application.OpenForms
    If frm.name = "frmTalker" Then
        contain = True
    End If
Next
If contain = False Then
    Syscmd.Project.Exit(True)
End If

第二种方法的调用代码，也放到计划任务里，退出没问题，但是会闪几次屏。能否改善一下，谢谢！

方法一：

Syscmd.Project.Exit(True)

改成

Syscmd.Project.Exit(False)

或者

DataTables.Save

Syscmd.Project.Exit(False)

方法二：

第二种方法，没必要放在计划管理那里。在打开openqq的时候绑定事件即可。