以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  openqq的内置聊天窗口能否用代码关闭  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85586)
--  作者：kao_go
--  发布时间：2016/5/29 10:39:00
--  openqq的内置聊天窗口能否用代码关闭
openqq的内置聊天窗口能否用代码关闭，在属性里面只看到打开内置聊天窗口的代码
--  作者：大红袍
--  发布时间：2016/5/29 23:08:00
--  

 用这个神器吧。

 

http://www.foxtable.com/help/topics/2713.htm

 
--  作者：kao_go
--  发布时间：2016/5/30 11:34:00
--  
\'如果OPENQQ已经打开则关闭,如果关闭则打开
If QQClient.Ready Then
    If ShowAppWindow("OpenQQ",5) = False Then   \'如果关闭失败,说明窗口被关闭,则打开,关闭成功则关闭
        MessageBox.Show("111")
        QQClient.OpenChatWindow
    End If
Else
    MessageBox.Show("QQClient未登陆成功!不能打开内置聊天窗口", "警告", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If

红色那一段，不管我关闭内置聊天窗口还是最小化，一直都在执行，窗口有被关闭成功，可是又被打开？
[此贴子已经被作者于2016/5/30 11:38:09编辑过]
--  作者：大红袍
--  发布时间：2016/5/30 11:43:00
--  

 一直在执行？你弄了计时器了么？

 

 ShowAppWindow("OpenQQ",5) 如果是关闭的话，不会返回true的，你可以这样写

 

ShowAppWindow("OpenQQ 2016",5)

msgbox(ShowAppWindow("OpenQQ 2016",1))

--  作者：kao_go
--  发布时间：2016/5/30 13:21:00
--  
已解决，谢谢大红袍老师图片点击可在新窗口打开查看
\'如果OPENQQ已经打开则关闭,如果关闭则打开
If QQClient.Ready Then
    If ShowAppWindow("OpenQQ",1) = False Then   \'如果打开失败,说明窗口被关闭,则打开,打开成功则关闭
        QQClient.OpenChatWindow
    Else
        ShowAppWindow("OpenQQ",5)
    End If
Else
    MessageBox.Show("QQClient未登陆成功!不能打开内置聊天窗口", "警告", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If