vb QQ消息辅助连发软件代码(vb)
- 博客分类:
- 技术杂绘
vb QQ消息辅助连发软件代码(vb)
2009年12月27日
用到了一些API,但都是简单的
原理是找到qq聊天句柄,然后不停想起发送信息
QQ2009hook了findwindow
所以者只有2008 才能用了
代码如下:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Const WM_GETTEXT = &HD
Private Const EM_REPLACESEL = &HC2
Private Const BM_CLICK = &HF5
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
Private Function GetWinText(ByVal WinHwnd As Long) As String
Dim lLen As Long
GetWinText = String(255, Chr(0))
lLen = SendMessage(WinHwnd, WM_GETTEXT, Len(GetWinText), ByVal GetWinText)
GetWinText = Left(GetWinText, lLen)
End Function
Private Sub Command1_Click()
ShellExecute 0, "open", "tencent://message/?uin=" + Text1.Text, "", "", 1
End Sub
Private Sub Command2_Click()
List1.Clear
Me.Caption = "正在获取发送列表,请稍候..."
HFindWnd = FindWindowEx(0, 0, "#32770", vbNullString)
Do While HFindWnd 0
If InStr(GetWinText(HFindWnd), "聊天中") > 0 Or InStr(GetWinText(HFindWnd), " - ") > 0 Or InStr(GetWinText(HFindWnd), "群") > 0 Or InStr(GetWinText(HFindWnd), "交谈中") > 0 Or InStr(GetWinText(HFindWnd), "正在输入") > 0 Or InStr(GetWinText(HFindWnd), " - ") > 0 Then
List1.AddItem GetWinText(HFindWnd)
End If
HFindWnd = FindWindowEx(0, HFindWnd, "#32770", vbNullString)
DoEvents
Loop
If List1.ListCount = 0 Then
Me.Caption = "无法获取QQ消息窗口列表"
Exit Sub
End If
Me.Caption = "获取发送列表完成"
Sleep 1000
Me.Caption = "QQ消息发送器(支持QQ2008)"
End Sub
Private Sub Command3_Click()
If Timer1.Interval = 0 Then
If Text3.Text <= 100 Then
m = MsgBox("发送时间请大于100毫秒!", 64, "提示")
Text1.Text = 2000
Else
a = MsgBox("窗体会被最小化,你可以干别的!", 64, "提示")
Me.WindowState = 1
Timer1.Interval = Text3.Text
Command3.Caption = "暂停"
End If
Else
Me.Caption = "QQ消息发送器(支持QQ2008)"
Timer1.Interval = 0
Command3.Caption = "开始"
End If
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Timer1_Timer()
QQHwnd = FindWindow("#32770", List1.Text)
QQHwnd = FindWindow("#32770", List1.Text)
Do
If QQHwnd = 0 Then
QQHwnd = FindWindow("#32770", List1.Text)
End If
AHwnd = FindWindowEx(QQHwnd, AHwnd, "AfxWnd42", vbNullString)
If AHwnd = 0 Then
QQHwnd = FindWindowEx(QQHwnd, 0, "#32770", vbNullString)
End If
THwnd = FindWindowEx(AHwnd, 0, "RichEdit20A", vbNullString)
DoEvents
Loop While THwnd = 0
Me.Caption = "正在发送中......"
SendMessage THwnd, EM_REPLACESEL, 0, ByVal Text1.Text
RHwnd = FindWindowEx(QQHwnd, 0, "Button", "发送(S)")
SendMessage RHwnd, BM_CLICK, 0, 0
End Sub
发表评论
-
Firefox插件开发概述
2012-01-20 01:03 930Firefox插件开发概述 2011年02月15日 本文 ... -
思考mysql内核之初级系列10---mysql内核调试方法(摘自老杨)
2012-01-20 01:03 609思考mysql内核之初级系列10---mysql内核调试方法( ... -
windows server 2003 下项目配置步骤
2012-01-20 01:03 670windows server 2003 下项目 ... -
Microsoft SharePoint Portal Server 2001简介
2012-01-20 01:03 464Microsoft SharePoint Portal Ser ... -
PE文件格式详解(上)
2012-01-20 01:03 648PE文件格式详解(上) 2010 ... -
中国各省美丽女孩分析
2012-01-19 08:52 605中国各省美丽女孩分析 2010年10月24日 关于美女的 ... -
论文范例
2012-01-19 08:52 472论文范例 2010年08月14日 ... -
大同美女
2012-01-19 08:52 1063大同美女 2011年03月10日 ... -
老外眼中中国女性:眼光高野心大
2012-01-19 08:52 484老外眼中中国女性:眼光 ... -
全国各地的美女都是怎样的?
2012-01-19 08:51 625全国各地的美女都是怎样的? 2011年05月13日 全 ... -
Android 环境搭建、HelloWorld以及常见错误处理
2012-01-17 01:21 712Android 环境搭建、HelloWorld以及常见错误处理 ... -
使用Eclipse+CDT+MinGW32进行C++开发
2012-01-17 01:21 708使用Eclipse+CDT+MinGW32进行 ... -
[转]win7搭建Android开发 个人测试成功
2012-01-17 01:21 620[转]win7搭建Android开发 个人测试成功 2011 ... -
vb 编写的qq查询交谈工具源码
2012-01-15 20:03 584vb 编写的qq查询交谈工 ... -
手把手教你用vb6.0写一个桌面网址小软件
2012-01-15 20:02 691手把手教你用vb6.0写一个桌面网址小软件 2009年11月 ... -
QQ日志刷人气工具 VB源码
2012-01-15 20:02 699QQ日志刷人气工具 VB源码 2010年01月20日 ' ... -
VB编程
2012-01-15 20:02 443VB编程 2010年05月13日 正在工作中 ... -
判断数字字符8位
2012-01-11 12:12 685判断数字字符8位 2011年04月01日 //判断是否是 ... -
oa之歌-咸鱼凤凰-iteye技术网站
2012-01-11 12:12 625oa之歌-咸鱼凤凰-iteye技术网站 2011年04月01 ... -
JavaScript 运算
2012-01-11 12:12 551JavaScript 运算 2011年04月 ...
相关推荐
VB ICO图标制作软件源代码VB ICO图标制作软件源代码VB ICO图标制作软件源代码VB ICO图标制作软件源代码VB ICO图标制作软件源代码VB ICO图标制作软件源代码VB ICO图标制作软件源代码VB ICO图标制作软件源代码VB ICO...
vb教学辅助系统(源代码+可执行文件+论文).rar vb教学辅助系统(源代码+可执行文件+论文).rar vb教学辅助系统(源代码+可执行文件+论文).rar vb教学辅助系统(源代码+可执行文件+论文).rar vb教学辅助系统(源...
VB编写QQ消息连发器-有(源代码),可以通过文本,读一条发送一条,很爽的,自己试下看。呵呵,附带源代码,想怎么改都可以。有问题与我联系啊! QQ:43729417
vb杀木马软件源代码vb杀木马软件源代码vb杀木马软件源代码vb杀木马软件源代码vb杀木马软件源代码vb杀木马软件源代码vb杀木马软件源代码vb杀木马软件源代码vb杀木马软件源代码vb杀木马软件源代码vb杀木马软件源代码vb...
这个是一套vb称重软件源代码,欢迎大家一块学习交流。。。
VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB代码VB...
VB6.0编写的QQ消息群发程序,具有QQ好友列表提取功能,注意:适合于2009版本及以前的QQ,现在的新版QQ用不成,不过通过源码你可以改进程序,以便适用于现在的版本。具体请下载源码看代码吧,里面很多注释,关键部分...
仿QQ鼠标截屏抓图程序,VB代码,可以用鼠标拖出一片区域抓图,就像QQ的截屏一样。
vb远程控制代码vb远程控制代码vb远程控制代码
VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源...
VB代码整理专家是一个VB的插件,与VB开发环境集成在一起,能自动的为窗体、模块、类模块添加注释说明及为全部或者部分函数、过程添加错误处理程序,为代码加上注释及一些错误处理程序是非常必要的,但往往由于其烦琐...
用vb写的qq模拟点击自动发送消息的代码,试用了winApi
使用msaa接口来获取QQ消息的例子,原作者 sky定格
VB经典代码 VB经典代码VB经典代码 VB经典代码 VB经典代码 VB经典代码VB经典代码 VB经典代码 VB经典代码 VB经典代码VB经典代码 VB经典代码 VB经典代码 VB经典代码VB经典代码 VB经典代码
VB护眼提醒软件源代码,VB护眼提醒软件源代码
vb6使用msaa取QQ消息的源代码 因为没有使用遍历所有节点,(太耗时)每个版本的消息所在的节点不一样 需要调整代码附上了一个当前使用的QQ版本 调整节点可以使用Accessible Explorer 代码因为是抠出来的一部分不...
资源名:VB精彩编程100个实例源代码 资源类型:程序源代码 源码说明: VB精彩编程100个源代码实例,实例很丰富,涉及的内容方方面面。有音量控制、拾色器、画图、抓屏、文本操作、获取操作系统信息、拖拉节点、查看...
vb源代码 vb实例教学 vb高手必备,资源下载网址!! 本人收录的五个vb源码下载网址,你看后一定会受益匪浅!知识就是力量,成为vb高手的最好办法就是学习源码!
Vb6.0开发的仿QQ截图,抓屏模块功能代码,纯Vb源代码编写,比之前上传的那些接近Qq截图的功能,也比较完整,代码内有画文本和椭圆的函数。 截图实现部分: 确定鼠标XY输入点坐标,确定区域的范围,判断鼠标是否...
VB雪花代码 VB雪花代码 VB雪花代码 VB雪花代码VB雪花代码 VB雪花代码 VB雪花代码 VB雪花代码