Foxtable(狐表)用户栏目专家坐堂 → [求助]关于OpenQQ用户表的问题


  共有306人关注过本帖树形打印复制链接

主题:[求助]关于OpenQQ用户表的问题

帅哥哟,离线,有人找我吗?
xy0739
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:86 积分:636 威望:0 精华:0 注册:2017/10/9 17:21:00
[求助]关于OpenQQ用户表的问题  发帖心情 Post By:2017/10/12 9:47:00 [只看该作者]

我的用户表用的是外部表,如果使用OpenQQ的可不可以直接使用用户表?

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


看帮助,是需要在OpenQQ服务端再建一个用户表,用来存储用户名,密码、部门和好友。。。

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

我想只用一个用户表,在登录系统的同时,自动登录OpenQQ客户端

请老师指点下

[此贴子已经被作者于2017/10/12 9:49:28编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:45656 积分:239679 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2017/10/12 9:51:00 [只看该作者]


 回到顶部
客人(110.74.*.*)
  3楼


  发帖心情 Post By:2017/10/12 11:16:00 [只看该作者]

服务端和客户端必须要做两个不同的项目吗?

 回到顶部
帅哥,在线噢!
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:47537 积分:238766 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/12 12:08:00 [只看该作者]

以下是引用客人(110.74.*.*)在2017/10/12 11:16:00的发言:
服务端和客户端必须要做两个不同的项目吗?

 

服务器端要单独做一个项目,当然,你可以直接拷贝原来的项目然后修改加上openQQ的功能。

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
xy0739
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:86 积分:636 威望:0 精华:0 注册:2017/10/9 17:21:00
回复:(有点甜)以下是引用客人(110.74.*.*)在2017/1...  发帖心情 Post By:2017/10/12 13:14:00 [只看该作者]

明白,

那么服务端,能不能启动后只显示这么一个窗口呢?

图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
xy0739
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:86 积分:636 威望:0 精华:0 注册:2017/10/9 17:21:00
  发帖心情 Post By:2017/10/12 14:31:00 [只看该作者]

我启动QQ客户端,提示错误。


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


以下是代码,我是写在AfterOpenProject 中

If QQClient.Ready Then
    MessageBox.show("QQClient已经启动,请先关闭","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
QQClient.ServerIP = "127.0.0.1"  '指定服务器IP地址
QQClient.ServerPort = "52177"  '指定服务器端口
If user.Type = UserTypeEnum.User Then '如果是普通用户
    QQClient.UserName =""
    QQClient.Password = ""
Else '如果是开发者或管理员
    Dim pwd As String
    If InputPassWord(pwd,"提示","请输入" & User.Name & "的密码:") Then
        QQClient.UserName = User.Name
        QQClient.Password = pwd
    Else
        Return
    End If
End If
If QQClient.Start() = True '如果登录成功
    Dim msg As String =  "恭喜,OpenQQ登录成功!"
    If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息
        msg = msg & QQClient.ServerMessage
    End If
    ConfigBar.Items("OpenQQ").SmallImage = GetImage("online.ico")
    popMessage(msg,"提示",PopiconEnum.Infomation,5)
Else '如果登录失败,显示服务器返回错误信息
    PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
End If

服务端是启动了的,我用的是开发者登录,有弹出输入密码的对话框,输入密码之后就弹出这个错误。

我用其他普通用户登录也是提示这个。

请帮看看我哪里错了。

我用的是外部表

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看


[此贴子已经被作者于2017/10/12 14:32:23编辑过]

 回到顶部
帅哥,在线噢!
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:47537 积分:238766 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/12 14:42:00 [只看该作者]

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=107462&authorid=0&page=0&star=3

 

如果还有问题,实例发上来测试。


 回到顶部
帅哥哟,离线,有人找我吗?
xy0739
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:86 积分:636 威望:0 精华:0 注册:2017/10/9 17:21:00
  发帖心情 Post By:2017/10/12 15:44:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:openqqtest.zip


老师,你帮看看,我用的示例文件

我在设置外部用户表时提示错误。

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20171012144330.png
图片点击可在新窗口打开查看


 回到顶部
帅哥,在线噢!
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:47537 积分:238766 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/12 16:27:00 [只看该作者]

用户表,参考

 

下载信息  [文件大小:10.1 KB  下载次数:9]
图片点击可在新窗口打开查看点击浏览该文件:用户.zip

 

http://www.foxtable.com/webhelp/scr/2723.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
xy0739
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:86 积分:636 威望:0 精华:0 注册:2017/10/9 17:21:00
回复:(有点甜)用户表,参考 下载...  发帖心情 Post By:2017/10/12 16:56:00 [只看该作者]

上个压缩包是我搞错了,请看这个,我按照帮助做的,但是还是提示未知错误,实在想不明白。。。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:openqqtest.zip



 回到顶部
总数 13 1 2 下一页