Foxtable(狐表)用户栏目专家坐堂 → OpenQQ问题


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

主题:OpenQQ问题

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


加好友 发短信
等级:幼狐 帖子:180 积分:1186 威望:0 精华:0 注册:2019/3/31 11:25:00
OpenQQ问题  发帖心情 Post By:2019/8/16 11:25:00 [只看该作者]

老师好! 我的OpenQQ有问题:

1. 点击配置处OpenQQ黑白图标,不弹出登录窗口,显示错误(见附件图片)


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

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

2. 从窗口设计应用路径登录IP后,OPenQQ可以正常使用,但配置栏图标又只能看到一小点(见附件图片)

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




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


加好友 发短信
等级:超级版主 帖子:39367 积分:200169 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/8/16 11:32:00 [只看该作者]

参考:http://www.foxtable.com/webhelp/topics/3012.htm

具体写了什么代码,贴出来看看

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


加好友 发短信
等级:幼狐 帖子:180 积分:1186 威望:0 精华:0 注册:2019/3/31 11:25:00
  发帖心情 Post By:2019/8/16 11:51:00 [只看该作者]


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

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


加好友 发短信
等级:幼狐 帖子:180 积分:1186 威望:0 精华:0 注册:2019/3/31 11:25:00
  发帖心情 Post By:2019/8/16 12:04:00 [只看该作者]

AfterOpenProject

 

'------启动登录窗口-------

Forms("登录窗口").Open()

Connected

 

'--------在菜单提示新消息--OpenQQ客户端的设计--P3012d5---

ConfigBar.Items("OpenQQ").SmallImage = GetImage("online.ico")

 

Disconnected

 

'------在菜单提示新消息--OpenQQ客户端的设计--P3012d6---

'这样在OpenQQ离线后,菜单按钮的图标会自动改为offline.ico.

ConfigBar.Items("OpenQQ").SmallImage = GetImage("offline.ico")

 

Client_ReceivedMessage

 

'----------收到来自OpenQQ的信息--------------

Dim dr As DataRow = DataTables("信息").AddNew

dr("发送者") = iif(e.UserName > "",e.UserName,"服务器")

dr("时间") = Date.Now()

dr("信息") = e.Message


Client_UserChangePassword

 

Forms("修改密码").Show()


登录窗口_AfterLoad

 

e.Form.Controls("btnChat").Enabled = QQClient.Ready

 

登录窗口_btnChat_Click

 

If  QQClient.Ready Then

    QQClient.OpenChatWindow()

End If

 

登录窗口_btnLogin_Click

 

'------在菜单提示新消息--OpenQQ客户端的设计--P3012d4---

If QQClient.Ready Then

    MessageBox.show("QQClient已经启动,请先关闭","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Return

End If

QQClient.ServerIP = e.Form.Controls("txtIP").Value  '指定服务器IP地址

QQClient.ServerPort = e.Form.Controls("txtPort").Value  '指定服务器端口

QQClient.UserName =""

QQClient.Password = ""

If QQClient.Start() = True '如果登录成功

    e.Form.Controls("btnChat").Enabled = 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 '如果登录失败,显示服务器返回错误信息

    e.Form.Controls("btnChat").Enabled = False

    PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)

End If

 



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


加好友 发短信
等级:幼狐 帖子:180 积分:1186 威望:0 精华:0 注册:2019/3/31 11:25:00
  发帖心情 Post By:2019/8/16 12:04:00 [只看该作者]

登录窗口_btnStop_Click

 

If QQClient.Ready = True Then

    QQClient.Stop()

    e.Form.Controls("btnChat").Enabled = False

End If

 

_SystemIdle

 

'---菜单中没有OpenQQ的提示---

If SystemMenu Then Return

 

'----在菜单提示新消息--OpenQQ客户端的设计--P3012d3---

'此段代码用于显示OpenQQ的未读消息

Static OpenQQ As RibbonMenu.Button

Static LastTime As Date

If OpenQQ Is Nothing Then

    OpenQQ = ConfigBar.Items("OpenQQ")

End If

Dim txt As String

If QQClient.Ready

    If QQClient.UnreadCount > 0 Then

        txt = "(" & QQClient.UnreadCount & "条)"

    End If

End If

If OpenQQ.Text <> txt Then

    OpenQQ.Text = txt

End If

If OpenQQ.Text > "" Then

    Dim ntp As timeSpan = Date.Now - LastTime

    If ntp.TotalSeconds >= 0.5 Then

        LastTime = Date.Now

        If OpenQQ.ForeColor = Color.Red Then

            OpenQQ.ForeColor = Color.Transparent

        Else

            OpenQQ.ForeColor = Color.Red

        End If

    End If

End If



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


加好友 发短信
等级:超级版主 帖子:39367 积分:200169 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/8/16 12:12:00 [只看该作者]

3楼

forms("QQClient").open
改为
forms("登录窗口").open

 回到顶部