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

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

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

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

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

甜版主好！

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

 

此主题相关图片如下：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

 

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