ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2432|回复: 8

[求助] 如何解决QQ会话窗口打开后,如果没有最小化,而是隐藏其他窗口下,信息就发不出去

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-11-22 13:37 | 显示全部楼层 |阅读模式
本帖最后由 renahu 于 2018-11-22 13:42 编辑
  1. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


  2. ShellExecute 0, "open", "tencent://message/?uin=" & “QQ号码” & "&Site=LG&Menu=yes", "", "", 1    '打开QQ会话窗口
复制代码
除非每次打开都设定“保持窗口最前面”,这样你就不会忘记点击最小化按钮,但这个设定你很容易忘记,每次使用都要设定,比较麻烦,而忘记点击最小化按钮也是经常发生的事,导致发送经常把信息发到excel表里,如果最小化了,就能通过上面那个open指令激活这个窗口,而隐藏在其他窗口下面,这个open就不起作用了,不会激活这个会话窗口。
我想是不是要获得这个QQ回话窗口的句柄,然后激活它?还是有什么办法,请高人给看看

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-11-22 13:46 | 显示全部楼层
大家可以把接收者的QQ号码输入到上面open指令中,登录QQ后,执行这条命令就可以打开回话窗口,最小化后,再执行仍然可以激活窗口,但是点击别的窗口,会话窗口隐藏到后面,再点击open指令就无法激活会话窗口了,谁有什么高招吗?

TA的精华主题

TA的得分主题

发表于 2018-11-22 13:49 来自手机 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
QQ还有这种功能啊,涨见识了
这个是不是生成bat命令,再运行bat更好点

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-11-22 13:52 | 显示全部楼层
lilyhcn1 发表于 2018-11-22 13:49
QQ还有这种功能啊,涨见识了
这个是不是生成bat命令,再运行bat更好点

我现在遇到的困难就是回话窗口打开没问题,就是一旦这个窗口没有及时最小化而是隐藏到其他窗口后面,再想用vba打开就不行了,所以要不然你最小化,要不然你干脆关闭,然后再执行open都没问题

TA的精华主题

TA的得分主题

发表于 2018-11-22 13:54 来自手机 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
用api把QQ弄到最前面

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-11-22 15:41 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
liucqa 发表于 2018-11-22 13:54
用api把QQ弄到最前面

能不能详细点介绍一下哪种api呀

TA的精华主题

TA的得分主题

发表于 2018-11-22 16:11 | 显示全部楼层
本帖最后由 lilyhcn1 于 2018-11-22 16:12 编辑

试用了一下这个接口,感觉不好玩。

不知道你要拿这个干什么,我用一张图说明我拿它来做什么。
用的是酷Q,你可以了解一下。
GIF.gif

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-11-22 16:25 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
lilyhcn1 发表于 2018-11-22 16:11
试用了一下这个接口,感觉不好玩。

不知道你要拿这个干什么,我用一张图说明我拿它来做什么。

我就是想把excel表中的数据直接发到QQ里面去

TA的精华主题

TA的得分主题

发表于 2019-12-16 23:09 | 显示全部楼层
我用的是 AppActivate GetCaption(lngTextHwnd) 网摘的,可以解决你的问题,具体我不懂哈,lngTextHwnd为QQ窗口句柄。

现我遇到的问题是:同样的一行打开QQ的命令,在办公室的电脑上可以正常打开,而在家里的电脑上总是提示QQ没有运行,是什么原因,请各位大侠帮我一下。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 17:05 , Processed in 0.049032 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表