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

单独发布了一个openQQ客户端，进入客户端后直接显示内置窗口，其他全部隐藏。

1、参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=98523&skin=0

因为做了个独立的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 函数名

output.show(frm.name & "|" & frm.text)，得出QQ客户端的窗口名：frmMain

方法一：

 

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的时候绑定事件即可。