clswindow使用案例:控制桌面版QQ发送消息(含源码)

简介: clswindow使用案例:控制桌面版QQ发送消息(含源码)

说明:


本案例是使用clsWindow2.2控制QQ桌面版来发送消息的。原理是模拟人工操作:选择对应的人员或群 -> 点击消息框 -> 输入框中输入消息 -> 按回车,代码注释很详细,看下就能明白,有一定vb基础的人可以改成群发,定时发送,群中@发送。稍加改造可以作为很好的一款群管理工具,比如定时发送消息通知给相关的人。

测试环境:


win7x64 + QQ9.2.2 + clsWindow2.2

说明: 如果不能用可能是您的版本太旧,或者QQ软件更新导致一些控件位置大小改变,请仔细检查并修改相应代码。以下代码2020-02-05测试通过,本代码不保证更新。

声明:


本代码免费,可用于任何商业用途,但请勿做非法用途,所引起的一切后果由使用者本人承担。

代码:


用法参考:sendQQMsg "clswindow交流群", "大家好,现在时间是" & Now()

Private Sub sendQQMsg(ByVal strName$, ByVal strMsg$)
    Dim w As New clsWindow
    If w.GetWindowByTitle(strName).hWnd <> 0 Then
        w.Normal '设置窗口正常,防止当前是最小化到任务栏的
        w.Focus
        w.ClickPoint w.Left + 35, w.Top + w.Height - 100, absolute, , 300, 500
        SendKeys strMsg & "{ENTER}"
    Else
        MsgBox "未发现包含“strName”的QQ聊天窗口,请打开对应的窗口再测试,注意请在面板上取消勾选“合并勾选窗口”", vbExclamation
    End If
    Set w = Nothing
End Sub

版本2 有些电脑上会失效,那么可以尝试使用这个版本,通过剪切板操作的

Private Sub sendQQMsg2(ByVal strName$, ByVal strMsg$)
    Dim w As New clsWindow
    If w.GetWindowByTitle(strName).hWnd <> 0 Then
        w.SetPosNormal
        w.Focus
        w.ClickPoint w.Left + 35, w.Top + w.Height - 100, absolute
        w.Wait 20
        Clipboard.Clear
        Clipboard.SetText strMsg
        SendKeys "^{v}"
        SendKeys "%{s}"
        w.Wait 2
    Else
        MsgBox "未发现包含“strName”的QQ聊天窗口,请打开对应的窗口再测试,注意请在面板上取消勾选“合并勾选窗口”", vbExclamation
    End If
    Set w = Nothing
End Sub

完整工程下载: 链接: pan.baidu.com/s/1q-r0f7-H… 提取码: ut85

sysdzw
+关注
目录
打赏
0
0
0
0
2
分享
相关文章
C++实战-仿QQ项目终端版通信
C++实战-仿QQ项目终端版通信
84 0
|
5月前
|
API
电脑上控制所有软件,比如说微信自动发消息,QQ
电脑上控制所有软件,比如说微信自动发消息,QQ
Python实现给qq自动发消息 终于有人来和我说早安晚安了吗...
Python实现给qq自动发消息 终于有人来和我说早安晚安了吗...
|
7月前
|
【亲测有效】3步实现 微信小程序内接入小程序客服,网页端客服工具与移动端小程序客服工具使用方法,使用入口,并设置当前客服状态
【亲测有效】3步实现 微信小程序内接入小程序客服,网页端客服工具与移动端小程序客服工具使用方法,使用入口,并设置当前客服状态
632 0
QQ技术导航源码附带交易系统
QQ技术导航源码附带交易系统
193 0
50行代码,编写QQ 聊天机器人,每天一句知心话自动发!
50行代码,编写QQ 聊天机器人,每天一句知心话自动发!
122 0
一看便会微信后台服务器开发 |Go主题月
就要下班了,兵长打开手机,看到弹出的某微信聊天机器人广告便点了进去,于是有了如下故事.
117 0
Lsposed和EDXposed框架双开QQ和微信,双开QX微X模块解决方法
好多网友反映双开情况下微信微X模块及QXQN模块不起作用!最近我整理出两种办法希望能帮助到大家如果方法①不能解决那就用方法②解决!
4881 0
Lsposed和EDXposed框架双开QQ和微信,双开QX微X模块解决方法
事件,消息,消息处理函数,第一个图形界面程序(附带官方解释链接)
事件,消息,消息处理函数,第一个图形界面程序(附带官方解释链接)
AI助理

你好,我是AI助理

可以解答问题、推荐解决方案等