以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问openQQ标题是否可改?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125819)

--  作者:苍风霁月
--  发布时间:2018/10/8 7:55:00
--  请问openQQ标题是否可改?
如题,现在openQQ拿出去用,别人说才发布版本,怎么是过期的,这个应该与时俱进哦??

若不能改,强烈建议狐爸优化!

--  作者:有点甜
--  发布时间:2018/10/8 8:44:00
--  

方法一:打开窗口代码

 

If  QQClient.Ready Then
    QQClient.OpenChatWindow()
End If

Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
    If frm.Name ="frmTalker"
        frm.text ="xxxx 公司聊天软件"
    End If
End If

 

方法二:做一个计划管理,定时执行下面的代码

 

Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
    If frm.Name ="frmTalker"
        frm.text ="xxxx 公司聊天软件"
    End If
End If

 

 

方法三:

 

For Each frm As System.Windows.Forms.Form In Application.OpenForms
    If frm.name = "frmTalker" Then
        frm.text ="xxxx 公司聊天软件"
    End If
Next


--  作者:苍风霁月
--  发布时间:2018/10/8 10:21:00
--  
有方法就好,谢谢
--  作者:苍风霁月
--  发布时间:2020/12/27 22:18:00
--  
用上述方法,现在不能更改openQQ标题了?请问是更新后期版本的问题么?还有什么办法处理?
--  作者:有点蓝
--  发布时间:2020/12/27 22:29:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=81990&replyID=898715&skin=1
--  作者:苍风霁月
--  发布时间:2020/12/27 22:34:00
--  
方法更简洁了,谢谢!