//自定义变量设置 UserVar Hua1=窗前明月光 发送的第一句话 UserVar Hua2=疑是地上霜 发送的第二句话 UserVar Hua3=举头望明月 发送的第三句话 UserVar Hua4=低头思故乡 发送的第四句话 UserVar Hua5=---按键精灵自动发送 发送的第五句话 UserVar Yanshi=1000 发送两句话之间的时间间隔,默认1000就是1秒 //用一个变量来设置需要发送的话的内容 Dim Hua //发送第一句 Hua = Hua1 Gosub FaSongXiaoXi Delay Yanshi //发送第二句,以下雷同 Hua = Hua2 Gosub FaSongXiaoXi Delay Yanshi Hua = Hua3 Gosub FaSongXiaoXi Delay Yanshi Hua = Hua4 Gosub FaSongXiaoXi Delay Yanshi Hua = Hua5 Gosub FaSongXiaoXi Delay Yanshi EndScript //发送消息的子程序 Sub FaSongXiaoXi //填上要发的话 SayString Hua Delay 100 //按下Alt+S的QQ发消息热键,发送成功 KeyDown 18 1 KeyPress 83 1 KeyUp 18 1 Return FaSongXiaoXi