先贴上代码，亮点就是随机不重复数字的获得方法，有点意思
空间 caipiao
后二组选,后二单式,后三复式,十分钟,五分钟,期数,日期
窗口句柄
线程句柄
功能 热键0_热键()
//这里添加你要执行的代码
窗口句柄=窗口.鼠标所在窗口句柄()
窗口.激活(窗口句柄)
后二组选=复选框.获得状态("复选框0")
后二单式=复选框.获得状态("复选框1")
后三复式=复选框.获得状态("复选框2")
十分钟=单选框.获得状态("单选框0")
五分钟=单选框.获得状态("单选框1")
期数=编辑框.获得文本("编辑框5")
线程句柄=线程.开启("caipiao.分钟","")
功能结束
功能 分钟()
名字=编辑框.获得文本("编辑框6")
循环(十分钟)
窗口.发送字符串(窗口句柄,"\n"&"第"&期数&"期 彩票预测"&"\n")
窗口.发送字符串(窗口句柄,"本预测由 "&名字&" 独家放送^_^"&"\n")
caipiao.预测()
期数=期数+1
日期=日期时间.当前日期()
窗口.发送字符串(窗口句柄,"\n"&"彩市有风险,下注需谨慎"&"\n"&"以上预测,中奖与否,与本人无关"&"\n"&日期&" 更新")
辅助.等待(600000)
循环结束
循环(五分钟)
窗口.发送字符串(窗口句柄,"\n"&"第"&期数&"期 彩票预测"&"\n")
窗口.发送字符串(窗口句柄,名字&"独家放送^_^"&"\n")
caipiao.预测()
期数=期数+1
日期=日期时间.当前日期()
窗口.发送字符串(窗口句柄,"\n"&"彩市有风险,下注需谨慎"&"\n"&"以上预测,中奖与否,与本人无关"&"\n"&日期&" 更新")
辅助.等待(300000)
循环结束
功能结束
功能 预测()
如果(后二组选)
数字个数=编辑框.获得文本("编辑框4")
窗口.发送字符串(窗口句柄,"后二组选"&数字个数&"个数字:")
数组1=array[10]
循环次数=0
循环(循环次数<10)
数组1[循环次数]=循环次数
//窗口.发送字符串(窗口句柄,数组1[循环次数]&" ")
循环次数=循环次数+1
循环结束
生成个数,随机数下标,结果
结果数组=array[数字个数]
遍历(生成个数=0;生成个数<数字个数;生成个数++)
随机数下标=辅助.随机数(0,9-生成个数)
结果=数组1[随机数下标]
结果数组[生成个数]=结果
数组空间.删除指定项(数组1,随机数下标)
遍历结束
数组空间.排序(结果数组)
循环数
遍历(循环数=0;循环数<数字个数;循环数++)
窗口.发送字符串(窗口句柄,结果数组[循环数])
遍历结束
窗口.发送字符串(窗口句柄," "&"\n")
否则
如果结束
如果(后二单式)
十位,个位,后二单式循环次数,获得后二单式循环次数
后二单式循环次数=0
获得后二单式循环次数=编辑框.获得文本("编辑框0")
后二单式数组=array[100]
窗口.发送字符串(窗口句柄,"后二单式"&获得后二单式循环次数&"注:")
遍历(个位=0;个位<10;个位++)
遍历(十位=0;十位<10;十位++)
后二单式数组[后二单式循环次数]=个位&十位
//窗口.发送字符串(窗口句柄,后二单式数组[后二单式循环次数]&" ")
后二单式循环次数=后二单式循环次数+1
遍历结束
遍历结束
循环开始,随机数嘻嘻标,后二单式
结果数组哈=array[获得后二单式循环次数]
遍历(循环开始=0;循环开始<获得后二单式循环次数;循环开始++)
随机数嘻嘻标=辅助.随机数(0,99-循环开始)
后二单式=后二单式数组[随机数嘻嘻标]
结果数组哈[循环开始]=后二单式
数组空间.删除指定项(后二单式数组,随机数嘻嘻标)
遍历结束
数组空间.排序(结果数组哈)
循环数
窗口.发送字符串(窗口句柄,"\n")
遍历(循环数=0;循环数<获得后二单式循环次数;循环数++)
窗口.发送字符串(窗口句柄,结果数组哈[循环数]&" ")
遍历结束
否则
如果结束
如果(后三复式)
数字个数1=编辑框.获得文本("编辑框1")
数字个数2=编辑框.获得文本("编辑框2")
数字个数3=编辑框.获得文本("编辑框3")
窗口.发送字符串(窗口句柄,"\n"&"后三复式:"&"\n"&"个位精选"&数字个数1&"位:")
数组1=array[10]
循环次数=0
循环(循环次数<10)
数组1[循环次数]=循环次数
//窗口.发送字符串(窗口句柄,数组1[循环次数]&" ")
循环次数=循环次数+1
循环结束
生成个数,随机数下标,结果
结果数组=array[数字个数1]
遍历(生成个数=0;生成个数<数字个数1;生成个数++)
随机数下标=辅助.随机数(0,9-生成个数)
结果=数组1[随机数下标]
结果数组[生成个数]=结果
数组空间.删除指定项(数组1,随机数下标)
遍历结束
数组空间.排序(结果数组)
循环数
遍历(循环数=0;循环数<数字个数1;循环数++)
窗口.发送字符串(窗口句柄,结果数组[循环数])
遍历结束
窗口.发送字符串(窗口句柄," "&"\n"&"十位精选"&数字个数2&"位:")
循环次数2=0
数组2=array[10]
循环(循环次数2<10)
数组2[循环次数2]=循环次数2
//窗口.发送字符串(窗口句柄,数组1[循环次数]&" ")
循环次数2=循环次数2+1
循环结束
生成个数2,随机数下标2,结果2
结果数组2=array[数字个数2]
遍历(生成个数2=0;生成个数2<数字个数2;生成个数2++)
随机数下标2=辅助.随机数(0,9-生成个数2)
结果2=数组2[随机数下标2]
结果数组2[生成个数2]=结果2
数组空间.删除指定项(数组2,随机数下标2)
遍历结束
数组空间.排序(结果数组2)
循环数2
遍历(循环数2=0;循环数2<数字个数2;循环数2++)
窗口.发送字符串(窗口句柄,结果数组2[循环数2])
遍历结束
窗口.发送字符串(窗口句柄," "&"\n"&"百位精选"&数字个数3&"位:")
循环次数3=0
数组3=array[10]
循环(循环次数3<10)
数组3[循环次数3]=循环次数3
//窗口.发送字符串(窗口句柄,数组1[循环次数]&" ")
循环次数3=循环次数3+1
循环结束
生成个数3,随机数下标3,结果3
结果数组3=array[数字个数3]
遍历(生成个数3=0;生成个数3<数字个数3;生成个数3++)
随机数下标3=辅助.随机数(0,9-生成个数3)
结果3=数组3[随机数下标3]
结果数组3[生成个数3]=结果3
数组空间.删除指定项(数组3,随机数下标3)
遍历结束
数组空间.排序(结果数组3)
循环数3
遍历(循环数3=0;循环数3<数字个数3;循环数3++)
窗口.发送字符串(窗口句柄,结果数组3[循环数3])
遍历结束
窗口.发送字符串(窗口句柄," ")
否则
如果结束
功能结束
功能 退出_点击()
线程.关闭(线程句柄)
辅助.退出()
功能结束
功能 热键1_热键()
线程.关闭(线程句柄)
//这里添加你要执行的代码
功能结束
空间结束
//空间结束语句
软件界面
运行效果
重庆时时彩 网上投注客服端下载地址http://csqdsj.com?u=66940
可以下载来测试
|
/2 
发表于 2013-4-30 14:15:39
楼主
厉害啊