QQ群自动发信息

↘夢想飛舞√

空间 QQ群发
整型 群个数
逻辑型 停止
功能 整型 获取群个数()
字符型 个数
个数=编辑框.获得文本("编辑框0")  
群个数=转换.字符型转整型(个数)
返回 群个数
功能结束
功能 字符型 获取喊话内容()
字符型 内容
整型 文件句柄
文件句柄=文件.打开("c:\\喊话内容.txt")
如果(文件句柄==0)
辅助.消息框("文件打开失败")
否则
内容=文件.读出(文件句柄,1000)
辅助.写入剪切板(内容)  
如果结束
文件.关闭 (文件句柄)
返回 内容
功能结束

功能 逻辑型 切换到群()

整型 窗口句柄
逻辑型 是否成功
窗口句柄=window.findwindow("QQ2011")
窗口.设置大小(窗口句柄,297,760)
大漠.创建()
大漠.绑定窗口(窗口句柄,"normal","dx","dx",0)
辅助.等待(1000)
大漠.移动(173,151)
辅助.等待(50)
大漠.左键单击()
辅助.等待(50)
大漠.移动(284,205)
辅助.等待(100)
大漠.左键按下()
辅助.等待(2000)
大漠.左键弹起()
辅助.等待(100)
整型 图片X坐标
整型 图片Y坐标
整型 图像序号
图像序号=图像.找图(0,0,1440,900,"c:\\1.bmp",#102030,1.0,0,图片X坐标,图片Y坐标)   
辅助.等待(100)
如果(图像序号!=0)
大漠.移动(48,210)
辅助.等待(50)
大漠.左键单击()
辅助.等待(50)
如果结束
辅助.等待(100)
大漠.按下(38)
辅助.等待(2000)
大漠.弹起(38)
辅助.等待(100)
大漠.释放(0)
返回 真
功能结束
功能 逻辑型 读取剪贴板内容()
键盘.按下(17)
键盘.按下(86)
键盘.弹起(86)
键盘.弹起(17)
返回 真
功能结束
功能 逻辑型 发送信息()
停止=真
循环(群个数>0&&停止)
辅助.等待(300)
键盘.按键(40,1)
辅助.等待(50)
键盘.按键(13,1)
辅助.等待(50)
QQ群发.读取剪贴板内容()
键盘.按下(17)
键盘.按下(13)
键盘.弹起(13)
键盘.弹起(17)
辅助.等待(1000)
键盘.按下(164)
键盘.按下(115)
键盘.弹起(115)
键盘.弹起(164)
辅助.等待(200)
群个数=群个数-1
循环结束

辅助.等待(1000)
大漠.按下(38)
辅助.等待(2000)
大漠.弹起(38)
辅助.等待(100)
返回 真
功能结束
功能 逻辑型 执行()
QQ群发.获取喊话内容()
QQ群发.获取群个数()
QQ群发.切换到群()
QQ群发.发送信息()

返回 真
功能结束
功能 逻辑型 开始_点击()  
QQ群发.执行()
返回 真  
功能结束  

功能 逻辑型 退出_点击()  
停止=假
返回 真  
功能结束  
空间结束     

小亮

强大！

小风子

不错！！

迩比可比克

留迹 非水
大漠貌似很有用

yangfusheng

有贴必回，最喜欢楼主这样的有为青年了~