主题：[求助]怎样关闭openQQ内置窗口就全部退出程序

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

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

方法一：

Syscmd.Project.Exit(True)

改成

Syscmd.Project.Exit(False)

或者

DataTables.Save

Syscmd.Project.Exit(False)

方法二：

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