切换用户，无法自动换用户名登录OPENQQ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 切换用户，无法自动换用户名登录OPENQQ

共有2340人关注过本帖树形打印复制链接主题：切换用户，无法自动换用户名登录OPENQQ

zhchling

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：397 积分：4008 威望：0 精华：0 注册：2012/2/9 20:09:00

切换用户，无法自动换用户名登录OPENQQ 发帖心情

Post By：2015/12/5 19:01:00 [显示全部帖子]

在窗口使用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

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：397 积分：4008 威望：0 精华：0 注册：2012/2/9 20:09:00

Post By：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编辑过]

主题：切换用户，无法自动换用户名登录OPENQQ