以文本方式查看主题

-  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=78268)
--  作者：zhchling
--  发布时间：2015/12/5 19:01:00
--  切换用户，无法自动换用户名登录OPENQQ
在窗口使用Syscmd.Project.SwitchUser()切换用户，发现还是原来的用户在openqq，  无法自动换到新用户名登录OPENQQ


怎样解决这个问题？



我尝试以下方式，但也遇到了问题。

可以在Syscmd.Project.SwitchUser()后面跟随
退出qq，
登录qq
但退出qq没那么快，登录qq来不及登录上去，命令就结束了。

还有一种情况，就是切换用户窗口打开后，没有切换，又关闭了。


另外一个问题：
If  QQClient.Ready Then
    QQClient.OpenChatWindow()
End Ifjing

可以打开聊天窗口， 但是如果聊天窗口已经打开，被压在别的窗口下面，怎么能让聊天窗口到顶层来？
[此贴子已经被作者于2015/12/5 19:32:34编辑过]
--  作者：zhchling
--  发布时间：2015/12/6 8:46:00
--  
切换用户同时登录qq是这么解决的,  先退出QQ,   切换用户, 再登录QQ


\'   窗口内的退出QQ按钮自动按下
Dim btnexitqq  As WinForm.Button = e.Form.Controls("exitqq")
btnexitqq.PerformClick()

Syscmd.Project.SwitchUser()



\'窗口内的打开设备按钮自动按下
Dim btnloginqq  As WinForm.Button = e.Form.Controls("loginqq")
btnloginqq.PerformClick()
e.Form.Controls("btnChat").Enabled = True






还剩下  另外一个问题：
If  QQClient.Ready Then
    QQClient.OpenChatWindow()
End Ifjing

可以打开聊天窗口， 但是如果聊天窗口已经打开，被压在别的窗口下面，怎么能让聊天窗口到顶层来？
[此贴子已经被作者于2015/12/6 8:46:10编辑过]