QQ消息自动发送示例这里发的所有源码附件需要用户下载安装TC开发工具使用，打开开发工具---在菜单栏中点击文件---打开---打开现有项目---找到该解压后的源码打开---启动调试生成.exe程序运行脚本。
【脚本介绍】：该脚本模拟键盘自动重复的发送QQ消息，让大家熟悉自动发送消息的流程，对以后学习写游戏后台自动喊话作为一个铺垫，同时脚本中还涉及到了线程、循环语句、超级键盘以及界面设计控件的使用，希望大家认真学习，掌握如何控制循环的使用。
【原理】：找到窗口---确认重复发送的次数---获取输入发送的内容---判断选择重复的次数---进入循环---将内容写入剪切板---启动超级键盘---使用复制组合键粘贴内容---发送消息---循环结束。
【使用说明】：
1、首先登陆游戏，打开发送消息窗口，然后运行脚本；
2、由于这里只是一个示例，并没有作出一些判断，若没有输入一个正确的窗口名称，程序将无法运行；
3、该脚本只适合QQ自动发送重复3、5、10、1000次4种选择；
4、使用时，建议关闭360，因为此操作涉及到后台键盘的使用。
【源码如下】：
空间 QQ消息自动发送 //这是一个以"我的程序"命名的空间，下面的语句都在这个空间里实现 整型 线程编号
整型 选项
字符型 窗口名称
整型 次数
字符型 发送内容
整型 窗口类型
整型 标志
功能 逻辑型 获取窗口名称()
窗口名称 = 编辑框.获得文本("编辑框0")
//获取窗口名称 窗口类型 = 窗口.找到窗口(窗口名称)
如果(窗口类型==0)
辅助.消息框("窗口名称输入有误，请查正后输入")
否则
窗口.置顶(窗口类型,"")
//显示窗口在当前屏幕最前面 如果结束
返回 真
功能结束
功能 整型 获取重复次数()
整型 个数
选项=下拉框.得到选项("下拉框0")
//获取选择类型，共有3、5、10、1000四种选择 如果(选项==0)
次数 = 3
如果结束
如果(选项==1)
次数 = 5
如果结束
如果(选项==2)
次数 = 10
如果结束
如果(选项==3)
次数 = 1000
如果结束
返回 次数
功能结束
功能 逻辑型 获取发送内容()
发送内容 = 编辑框.获得文本("编辑框1")
返回 真
功能结束
功能 逻辑型 线程_执行()
字符型 内容
QQ消息自动发送.获取窗口名称()
//调用获取窗口名称函数获取窗口名称 QQ消息自动发送.获取重复次数()
//调用获取重复次数函数获取选择的重复次数 QQ消息自动发送.获取发送内容()
//调用获取发送内容函数获取内容 辅助.写入剪切板(发送内容)
//将获取的内容写入剪切板 内容=辅助.读取剪切板()
如果(次数==3)
//当重复次数选择3时,执行下面语句 重复(3)
超级键盘.按下(17)
//按下ctrl键 辅助.等待(50)
超级键盘.按键(86,1)
//按下V键，粘贴消息 辅助.等待(50)
超级键盘.ps弹起(17)
//ctrl键弹起 辅助.等待(50)
超级键盘.按下(17)
//按下ctrl键辅助.等待(50)
超级键盘.按键(13,1)
//回车键按下，发送消息 辅助.等待(50)
超级键盘.ps弹起(17) 重复结束
如果结束
如果(次数==5)
//当重复次数选择5时,执行下面语句 重复(5)
超级键盘.按下(17)
辅助.等待(100)
超级键盘.按键(86,1)
辅助.等待(100)
超级键盘.ps弹起(17)
辅助.等待(100)
超级键盘.按下(17)
辅助.等待(100) 超级键盘.按键(13,1)
辅助.等待(100)
超级键盘.ps弹起(17) 重复结束
如果结束
如果(次数==10)
//当重复次数选择10时,执行下面语句 重复(10)
超级键盘.按下(17)
辅助.等待(100)
超级键盘.按键(86,1)
辅助.等待(100)
超级键盘.ps弹起(17)
辅助.等待(100)
超级键盘.按下(17)
辅助.等待(100) 超级键盘.按键(13,1)
辅助.等待(100)
超级键盘.ps弹起(17) 重复结束
如果结束
如果(次数==1000)
//当重复次数选择1000时,执行下面语句 重复(1000)
超级键盘.按下(17)
辅助.等待(100)
超级键盘.按键(86,1)
辅助.等待(100)
超级键盘.ps弹起(17)
辅助.等待(100)
超级键盘.按下(17)
辅助.等待(100) 超级键盘.按键(13,1)
辅助.等待(100)
超级键盘.ps弹起(17) 重复结束
如果结束
返回 真
功能结束
功能 逻辑型 开始_点击()
线程编号=线程.开启("QQ消息自动发送.线程_执行")
//线程开启，开始执行程序 如果(线程编号==0)
辅助.消息框("线程开启失败")
//判断线程是否开启 如果结束
返回 真
功能结束
功能 逻辑型 退出_点击()
辅助.退出()
返回 真
功能结束
空间结束
| 
/2 
发表于 2011-7-13 14:45:54
楼主