• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.5
软件大小:62.5M
更新时间:9-25

按键精灵iOS版
立即下载

软件版本:1.3.5
软件大小:29.2M
更新时间:06-14

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[源码分享] 别问这是啥,就做个备份。 [复制链接]

1#
菩提本无树,明镜亦非台。
  1. Import "shanhai.lua"
  2. Import "xin.lua"
  3. Dim 是否重置,角分选择
  4. //1是中奖
  5. 是否重置 = 0
  6. 角分选择="分"
  7. //1为重置
  8. //切换至按键精灵输入法
  9. Call shanhai.SetIME(9)
  10. //初始化随机种子
  11. Randomize
  12. //此处添加其他初始化项目
  13. //短延迟 6 秒, 长延迟 10 秒
  14. //定义变量
  15. dim 购彩时间,购彩号码,购彩倍数,购彩期号,对比中奖号码,对比中奖期号,购彩次数,是否需要对比号码,未中奖次数
  16. 是否需要对比号码="否"
  17. dim SDpath,图片和坐标,点击位置名称和坐标,长延迟,短延迟,当前包名,爽歪歪包名,判断图片返回的结果,时间,购彩记录文件是否存在,购彩次数记录文件是否存在,购彩单双选择,短短延迟
  18. Dim 购彩信息记录文件是否存在, 未中奖次数记录文件是否存在,购彩单双选择文件是否存在,有没有买过本期号码文件是否存在,网站号码期号文件是否存在
  19. 长延迟=10000
  20. 短延迟=6000
  21. 短短延迟=2000
  22. 爽歪歪包名="com.zc.senyuan"
  23. SDpath=GetSdcardDir()&"/MobileAnJian/爽歪歪截图/"

  24. 购彩信息记录文件是否存在=xin.IsFileExist(SDpath&"购彩信息记录.lua")
  25. 有没有买过本期号码文件是否存在=xin.IsFileExist(SDpath&"有没有买过本期号码.lua")
  26. 未中奖次数记录文件是否存在=xin.IsFileExist(SDpath&"未中奖次数记录.lua")
  27. 购彩记录文件是否存在=xin.IsFileExist(SDpath&"购彩记录.lua")
  28. 购彩次数记录文件是否存在=xin.IsFileExist(SDpath&"购彩次数记录.lua")
  29. 购彩单双选择文件是否存在 = xin.IsFileExist(SDpath & "购彩单双选择.lua")
  30. 网站号码期号文件是否存在 = xin.IsFileExist(SDpath & "网站号码期号.lua")
  31. if 网站号码期号文件是否存在=true then
  32. else
  33. xin.Createfile (SDpath & "网站号码期号.lua")
  34. // "网站号码"&滨崎步号码&"网站期号"&补全三位数(最新购买期数))
  35. File.Append(SDpath&"网站号码期号.lua","网站号码00000网站期号000")
  36. end if
  37. if 未中奖次数记录文件是否存在=true then
  38. else
  39. xin.Createfile(SDpath&"未中奖次数记录.lua")
  40. File.Append(SDpath&"未中奖次数记录.lua",0)
  41. end if
  42. if 有没有买过本期号码文件是否存在=true then
  43. else
  44. xin.Createfile(SDpath&"有没有买过本期号码.lua")
  45. File.Append(SDpath&"有没有买过本期号码.lua","000")
  46. end if

  47. if 购彩信息记录文件是否存在=true then
  48. else
  49. xin.Createfile(SDpath&"购彩信息记录.lua")
  50. end if
  51. if 购彩单双选择文件是否存在=true then
  52. else
  53. xin.Createfile(SDpath&"购彩单双选择.lua")
  54. File.Append(SDpath&"购彩单双选择.lua",1)
  55. end if
  56. if 购彩记录文件是否存在=true then
  57. else
  58. xin.Createfile(SDpath&"购彩记录.lua")
  59. end if
  60. if 购彩次数记录文件是否存在=true then
  61. else
  62. xin.Createfile(SDpath&"购彩次数记录.lua")
  63. File.Append(SDpath&"购彩次数记录.lua","0")
  64. End If


  65. If 是否重置 = 1 Then
  66. //重置所有参数
  67. File.write(SDpath&"购彩信息记录.lua","")
  68. File.write(SDpath&"未中奖次数记录.lua",0)
  69. File.write(SDpath&"有没有买过本期号码.lua","000")
  70. File.write(SDpath&"购彩次数记录.lua","0")
  71. File.write(SDpath & "购彩记录.lua", "")
  72. File.write(SDpath&"网站号码期号.lua","网站号码00000网站期号000")
  73. End If

  74. //坐标数据存为字符串,其他数据存入文本文件
  75. //图片及找图范围坐标的存储格式 图片1|x1|y1|x2|y2,图片2|x1|y1|x2|y2,图片3|x1|y1|x2|y2,

  76. 图片和坐标="选球有误|425|848|651|928,定位胆|102|760|266|786,角|841|748|914|802,分|726|735|1052|820,重庆滨崎步|381|36|683|63,注数零|23|1651|158|1700,定位胆弹框选择|217|488|326|1064,角弹框区域|231|500|283|820,彩种列表|303|428|773|461,消息通知界面|480|1325|514|1492,登录界面|261|142|287|373,号码未选择|445|1059|628|1066,确认投注|279|1046|798|1057,下单成功|421|854|653|923"

  77. //点击某位置的数据存储格式, 位置名1|x|y,位置名2|x|y,位置名3|x|y,

  78. 点击位置名称和坐标="选球有误|543|1073,注数零|411|1765,彩种列表|97|1819,重庆滨崎步|223|727,消息通知|526|1406,角|890|778,分|890|778,分弹框区域|248|792,定位胆|214|787,登录|578|888,定位胆弹框区域|374|1065, 确认投注右下角|929|1768, 角弹框区域|244|657,选单|455|1073,选双|543|1076,添加号码|145|1769,号码未选择点击确定|145|1769,确认投注第一次|340|1048,确认投注第二次|536|1077,投注成功|534|1063,倍数选择|983|1674"
复制代码

    已有1评分我要评分查看所有评分

    最后编辑小信风 最后编辑于 2016-11-15 07:49:30
    2#

    1. //--------------------------------------------------------------------------------------------------------------------------
    2. do

    3. Dim MyString判断图片,UBound判断图片,指定图片在不在
    4. 指定图片在不在="没找到"
    5. MyString判断图片 = Split(图片和坐标,",")
    6. UBound判断图片=UBound(MyString判断图片)
    7. UBound判断图片=UBound判断图片+1

    8. //------------------------------------------------------脚本运行第一行-----------------------------------------------
    9. //首先判断运行程序是不是爽歪歪,如果不是那么先打开app()
    10. 当前包名=Sys.GetFront()
    11. if 当前包名=爽歪歪包名 then


    12. else
    13. 打开爽歪歪()
    14. end if


    15. //先判断在哪个界面,然后解析执行命令需达到的条件
    16. //然后判断图片,根据图片返回的结果来进行不同的操作
    17. 判断图片返回的结果=判断图片()
    18. Select Case 判断图片返回的结果
    19. Case "定位胆"
    20. sm("定位胆")
    21. //说明在投注界面
    22. //在投注界面要确认《定位胆》和《角》,同时成立,并且需要清空号码
    23. //定位胆已经确认成立了,只需要确认《角》,并且清空号码
    24. //需要写一个给图片名字,就能确认该图片是不是存在的函数
    25. Dim 指定图片在不在角,指定图片在不在注数零
    26. 指定图片在不在="没找到"
    27. 指定图片在不在角 = 给图片名判断图片是否存在(角分选择)


    28. 指定图片在不在注数零 = 给图片名判断图片是否存在("注数零")




    29. If 指定图片在不在角 = "找到了" and 指定图片在不在注数零 = "找到了" Then
    30. 指定图片在不在="找到了"    
    31. End If
    32. If 指定图片在不在 = "没找到" Then


    33. //选择角并且清空号码
    34. 指定图片在不在=给图片名判断图片是否存在(角分选择)
    35. If 指定图片在不在 = "找到了" Then
    36. // sm("现在不是角和注数零"&"\n角在呢")
    37. Else
    38. // sm("现在不是角和注数零"&"\n角不在")

    39. If 角分选择 = "角" Then
    40. 角选择程序()
    41. ElseIf 角分选择 = "分" Then
    42. 分选择程序()
    43. Else
    44. sm("角分选择,不是角,也不是分")
    45. End If

    46. end if
    47. 指定图片在不在=给图片名判断图片是否存在("注数零")
    48. If 指定图片在不在 = "找到了" Then
    49. // sm("现在不是角和注数零"&"\n注数零在呢")
    50. Else
    51. // sm("现在不是角和注数零"&"\n注数零不在")
    52. 清空号码程序()
    53. end if
    54. ElseIf 指定图片在不在 = "找到了" Then
    55. sm("现在是角和注数零")    

    56. //开始投注,投注前判断是否中奖,中奖就从1倍开始,没中奖就翻倍
    57. //-----------------------------------------------------------------------------
    58. //-----------------------------------------------------------------------------
    59. //投注需要在时间区间内进行,如果不在那就一直等待到了区间再进行投注
    60. 时间 = 判断时间()

    61. If 时间 = "时间允许" Then
    62.     
    63. sm("时间允许")
    64. //-----------------------------开始投注------------------------------------------------
    65. //-------------------*******************-------------------------有没有购买过,购买之后等待多长时间--------**********************-------------------------------
    66. dim 买过吗
    67. 买过吗=有没有买过本期号码()
    68. If 买过吗 = "买过" Then
    69.     
    70. sm("买过")
    71. bigdelaysuper (10000)
    72.         
    73. ElseIf 买过吗 = "没买过" Then
    74. sm("没买过")
    75. //开始投注------------------------------------------------
    76. 投注()

    77. else
    78. end if
    79.         
    80.         
    81.         
    82. ElseIf 时间 = "时间不允许" Then
    83. sm("时间不允许")


    84. bigdelaysuper (10000)

    85. else
    86.         
    87. end if
    88.         
    89.         
    90.         
    91.         
    92.         
    93.         
    94.     
    95.         
    96. //-----------------------------------------------------------------------------
    97. //-----------------------------------------------------------------------------
    98. else
    99. End If
    100. Case "分"
    101. sm("分")

    102. Case "角"
    103. sm("角")
    104. //是角就进行下一步,选择号码

    105. //选择号码需要 定位胆和角同时成立
    106.     
    107. Case "定位胆弹框选择"
    108. sm("定位胆弹框选择")
    109. //在定位胆弹框选择,选择定位胆
    110. 定位胆选择程序()

    111. Case "角弹框区域"
    112. sm ("角弹框区域")

    113. If 角分选择 = "角" Then
    114. 角选择程序()
    115. ElseIf 角分选择 = "分" Then
    116. 分选择程序()
    117. Else
    118. sm("角分选择,不是角,也不是分")
    119. End If
    120. //在角弹框区域,选择角
    121.     
    122.     

    123. Case "重庆滨崎步"
    124. sm("重庆滨崎步")
    125. 定位胆选择程序()

    126. Case "彩种列表"
    127. sm("彩种列表")
    128. //在彩种列表选择重庆滨崎步
    129. 点击图片相应坐标("重庆滨崎步")
    130. Case "消息通知界面"
    131. sm("消息通知界面")
    132. //在消息通知界面,选择确认
    133. 点击图片相应坐标("消息通知")
    134. Case "登录界面"
    135. sm("登录界面")
    136. //在登录界面,选择登录
    137. 点击图片相应坐标("登录")
    138. Case "号码未选择"
    139. sm("号码未选择")
    140. //号码未选择,点击弹框确认

    141. case "确认投注"
    142. //点击确认投注,是
    143. sm("确认投注")
    144. 点击图片相应坐标("确认投注第一次")
    145. case "下单成功"
    146. //点击确认投注,是
    147. sm("下单成功")
    148. 点击图片相应坐标("确认投注第二次")
    149. case "选球有误"
    150. //点击确认投注,是
    151. sm("选球有误")
    152. 点击图片相应坐标("选球有误")
    153. Case Else
    154.     
    155. End Select
    156. sm(判断图片返回的结果)
    157. // bigdelaysuper(长延迟)
    158. bigdelaysuper(3000)
    159. loop
    复制代码

    3#

    1. //----------------------------------------------------------------------------------------------------
    2. //-----------------------------------------------------------------------------------------------------------------


    3. //显示信息

    4. Sub sm(sss)
    5. ShowMessage sss & "\n " & xin.type(sss) & "\n " & Len(CStr(sss)) & "\n " & DateTime.Format("%H:%M:%S")
    6. TracePrint sss
    7. File.Append(SDpath&"购彩信息记录.lua",sss&"\n")
    8. // Delay 2000
    9. End Sub
    10. Sub sml(sss)
    11. ShowMessage sss & "\n " & xin.type(sss) & "\n " & Len(CStr(sss)) & "\n " & DateTime.Format("%H:%M:%S")
    12. TracePrint sss
    13. Delay 2000
    14. End Sub
    15. Sub sms(sss)
    16. ShowMessage sss & "\n " & xin.type(sss) & "\n " & Len(CStr(sss)) & "\n " & DateTime.Format("%H:%M:%S")
    17. TracePrint sss
    18. Delay 200
    19. End Sub
    20. Function 投注()
    21.     
    22. sm("开始投注了")
    23. dim 购彩单双号码选择
    24. 购彩单双号码选择=File.Read(SDpath&"购彩单双选择.lua")

    25. //首先判断投注的是第几期,有没有买过,有没有中
    26. // SDpath&"购彩记录.lua"
    27. //第一行写购彩次数,每次都更新到第一行,之后写购彩记录
    28. //格式—— 购彩时间 购彩号码 购彩倍数 购彩期号 是否购买成功 对比中奖号码 对比中奖期号 购彩次数
    29. 购彩次数=File.Read(SDpath&"购彩次数记录.lua")


    30. //只执行购买动作,并记录本期号码
    31. //点击位置名称和坐标="注数零|411|1765,彩种列表|97|1819,重庆滨崎步|223|727,消息通知|526|1406,角|250|658,定位胆|300|1062,登录|578|888,定位胆弹框区域|200|773,角弹框区域|900|775,选单|455|1073,选双|543|1076,添加号码|145|1769,号码未选择点击确定|145|1769,确认投注第一次|935|1769,确认投注第二次|350|1046,投注成功|534|1063,倍数选择|983|1674"
    32. if 购彩单双号码选择="1" then
    33. 点击图片相应坐标("选单")
    34. elseif 购彩单双号码选择="0" then
    35. 点击图片相应坐标("选双")
    36. Else
    37. // -------------------------------------------------------------------------------
    38. Dim 购彩单双号码选择发生错误
    39. 购彩单双号码选择发生错误 = File.Read(SDpath & "购彩单双选择.lua")
    40. sm(购彩单双号码选择发生错误)
    41. 购彩单双号码选择发生错误=666
    42. End If
    43. If 购彩单双号码选择发生错误 = 666 Then
    44. else
    45. bigdelaysuper(短短延迟)
    46. 点击图片相应坐标("添加号码")
    47. bigdelaysuper(短短延迟)
    48. //输入倍数,
    49. 点击图片相应坐标("倍数选择")
    50. 倍数选择()
    51. bigdelaysuper(短短延迟)
    52. //确认投注
    53. sm("当前时间的期数"&返回当前时间的期数())
    54. 点击图片相应坐标("确认投注右下角")
    55. 点击图片相应坐标("确认投注第一次")
    56. bigdelaysuper(短延迟)


    57. //确认下单成功
    58. dim 确认下单成功

    59. 确认下单成功=给图片名判断图片是否存在("下单成功")
    60. If 确认下单成功 = "找到了" Then
    61. 点击图片相应坐标("确认投注第二次")
    62. bigdelaysuper (短短延迟)
    63. sm("投注完成")
    64. //确认投注成功后,记录购买数据
    65. 购彩记录动作()
    66. bigdelaysuper(短延迟)
    67. 等待下次购彩时间()
    68. 关机()
    69. Else

    70. end if
    71.     
    72. End If



    73. end function

    74. function 有没有买过本期号码()
    75. dim 当前号码,历史号码,查找结果
    76. 当前号码=补全三位数(返回当前时间的期数())
    77. sm("当前期数是"&当前号码)
    78. File.write(SDpath&"有没有买过本期号码.lua",当前号码)
    79. 历史号码=File.read(SDpath&"购彩记录.lua")
    80. if 历史号码="" then
    81. 有没有买过本期号码="没买过"
    82. Else
    83. //
    84. // File.Append(SDpath&"购彩记录.lua","购彩号码"&购彩号码&"购彩期号"&购彩期号&"购彩时间"&购彩时间&"网站号码"&网站号码&"网站期号"&网站期号&"\n")
    85. //                     4*3=12        5        4*3=12        3        4*3=12        14        4*3=12 5 4*3=12 3                                
    86. // 查找结果=right(历史号码,23)
    87. 查找结果=right(历史号码,91)
    88. 查找结果=mid(查找结果,30,3)

    89. if 查找结果=当前号码 then
    90. 有没有买过本期号码="买过"
    91. else
    92. 有没有买过本期号码="没买过"
    93. end if


    94. end if

    95. end function


    96. function 倍数选择分析()
    97. 分析是否中奖()
    98. dim 购彩次数2,未中奖次数2
    99. 购彩次数2=File.Read(SDpath&"购彩次数记录.lua")
    100. sm("购彩次数2"&购彩次数2)
    101. if 购彩次数="0" then
    102. 倍数选择分析=1
    103. else
    104. 未中奖次数2 = File.Read(SDpath & "未中奖次数记录.lua")
    105. 未中奖次数2=cint(未中奖次数2)
    106. If 未中奖次数2 >= 13 Then
    107. 未中奖次数2 = 1
    108. File.write(SDpath & "未中奖次数记录.lua",1)
    109. End If
    110. 倍数选择分析=2^(cint(未中奖次数2)+1)
    111. end if

    112. end function
    复制代码

    4#

    1. function 分析是否中奖()
    2. dim 购彩次数2
    3. 购彩次数2=File.Read(SDpath&"购彩次数记录.lua")
    4. if 购彩次数="0" then
    5. 分析是否中奖="是"
    6. else
    7. // TracePrint shanhai.GetHttp("www.baidu.com")

    8. //购买失败的不做记录
    9. Dim 最后一行,最新购买号码,最新购买期数,网址,网站返回值,滨崎步号码,滨崎步号码万位,单双,滨崎步号码万位取余
    10. 最后一行= File.read(SDpath & "购彩记录.lua")
    11. 最后一行 = Right(最后一行, 91)
    12. sm("购彩记录最后一行"&最后一行)
    13. // File.Append(SDpath&"购彩记录.lua","购彩号码"&购彩号码&"购彩期号"&购彩期号&"购彩时间"&购彩时间&"网站号码"&网站号码&"网站期号"&网站期号&"\n")
    14. //                     4*3=12        5        4*3=12        3        4*3=12        14        4*3=12 5 4*3=12 3    
    15. //记录文件只记录号码和期号和购买的时间
    16. 最新购买号码=mid(最后一行,13,5)
    17. 最新购买期数 = Mid(最后一行, 30, 3)
    18. //在网站匹配记录的最新期号码,判断是否中奖
    19. 网址="http://trend.caipiao.163.com/cqssc/jiben-5xing.html?periodNumber=30"
    20. sm("访问网络中,可能会卡住30秒呢")
    21. 网站返回值 = shanhai.GetHttp(网址)


    22. File.write(SDpath & "网站返回值.lua", 网站返回值)


    23. //防止出现空返回值
    24. Dim 网站返回值判断开关
    25. 网站返回值判断开关=1
    26. for 6
    27. If Len(网站返回值) < 3000 Then
    28. sm("网站返回值 < 3000")
    29. delay 15000
    30. 网站返回值=shanhai.GetHttp(网址)
    31. Else
    32. //从网站返回值中提取刚刚开出的号码

    33. // kjhm="161016043">85157 </span>

    34. 滨崎步号码 = xin.extractnum(网站返回值, 最新购买期数)
    35. sm ("已记录的最新购买期数"&最新购买期数)
    36. sm ("网站返回的滨崎步号码"&滨崎步号码)
    37. If 滨崎步号码 = null Then
    38. sm("滨崎步号码 = null")
    39. delay 15000
    40. 网站返回值 = shanhai.GetHttp(网址)
    41. File.write(SDpath & "网站返回值.lua", 网站返回值)
    42. //sm(网站返回值)
    43. 滨崎步号码 = xin.extractnum(网站返回值, 最新购买期数)
    44. // 补全三位数(num)
    45. File.write(SDpath&"网站号码期号.lua","网站号码"&滨崎步号码&"网站期号"&补全三位数(最新购买期数))
    46. sm("File.write(SDpath&网站号码期号.lua"&File.read(SDpath&"网站号码期号.lua"))

    47. Else
    48. File.write(SDpath&"网站号码期号.lua","网站号码"&滨崎步号码&"网站期号"&补全三位数(最新购买期数))
    49. sm("File.write(SDpath&网站号码期号.lua"&File.read(SDpath&"网站号码期号.lua"))




    50. Exit For
    51. End If
    52. End If
    53. 网站返回值判断开关 = 网站返回值判断开关 + 1

    54. Next
    55. sm(滨崎步号码)

    56. If 网站返回值判断开关 = 6 Then
    57. sm("网站解析号码失败")
    58. Call shanhai.ShutDown()
    59. Else
    60. 滨崎步号码万位 = Left(滨崎步号码, 1)

    61. dim 号码奇偶性验证
    62. 号码奇偶性验证=instr(1,最新购买号码,滨崎步号码万位)




    63. if 号码奇偶性验证=0 then
    64. 分析是否中奖="否"
    65. sm("没中奖")

    66. dim 未中奖次数2,kk
    67. 未中奖次数2=File.Read(SDpath&"未中奖次数记录.lua")
    68. sm("现在未中奖次数记录是"&未中奖次数2)
    69. 未中奖次数2=cint(未中奖次数2)
    70. kk=未中奖次数2+1
    71. File.write(SDpath&"未中奖次数记录.lua",kk)
    72. sm("未中奖次数已记录")
    73. else
    74. 分析是否中奖="是"
    75. sm("中奖了")
    76. File.write(SDpath&"未中奖次数记录.lua",0)
    77. end if

    78. End if



    79. end if

    80. end function
    复制代码

    5#

    1. function 倍数选择()
    2. dim 购买倍数=倍数选择分析()
    3. for 5
    4. 点击图片相应坐标("倍数选择")
    5. bigdelaysuper(300)
    6. keypress "Del"
    7. next
    8. bigdelaysuper(300)
    9. InputText 购买倍数
    10. bigdelaysuper(300)
    11. end function

    12. //记录文件只记录号码和期号和购买的时间
    13. function 购彩记录动作()
    14. dim 购彩单双选择内容,购彩次数,购彩时间,购彩号码,购彩期号,网站号码期号,网站号码,网站期号
    15. //购彩次数另存一个文本
    16. 购彩次数=File.Read(SDpath&"购彩次数记录.lua")
    17. 购彩次数=CInt(购彩次数)+1
    18. File.Write(SDpath&"购彩次数记录.lua",购彩次数)
    19. 购彩单双选择内容=File.Read(SDpath&"购彩单双选择.lua")
    20. if 购彩单双选择内容="1" then
    21. 购彩号码="13579"
    22. File.Write(SDpath&"购彩单双选择.lua",0)
    23. elseif 购彩单双选择内容="0" then
    24. 购彩号码="02468"
    25. File.Write(SDpath&"购彩单双选择.lua",1)
    26. else
    27. 购彩号码="88888"
    28. end if
    29. 购彩时间=DateTime.Format("%Y%m%d%H%M%S")
    30. 购彩期号 = File.read(SDpath & "有没有买过本期号码.lua")
    31. 网站号码期号 =File.read(SDpath&"网站号码期号.lua")
    32. sm("网站号码期号"&网站号码期号)
    33. 网站号码 =mid(网站号码期号,13,5)
    34. 网站期号=right(网站号码期号,3)
    35. // "网站号码"&滨崎步号码&"网站期号"&补全三位数(最新购买期数))
    36. // File.write(SDpath&"网站号码期号.lua"
    37. File.Append(SDpath&"购彩记录.lua","购彩号码"&购彩号码&"购彩期号"&购彩期号&"购彩时间"&购彩时间&"网站号码"&网站号码&"网站期号"&网站期号&"\n")
    38. //购彩号码5位数,购彩期号3位数,购彩时间14位数 共22位数
    39. Dim 总文本
    40. 总文本 = File.read(SDpath & "购彩记录.lua")
    41. //sm(总文本)
    42. end function

    43. Function 等待下次购彩时间()
    44. dim 时,分,秒,差几分,延迟到下一期的时间

    45. 时=DateTime.Hour()

    46. 分=DateTime.Minute()

    47. 秒=DateTime.Second()
    48. sm (时 & "点了")

    49. //开奖时间定为1分15秒,也就是75秒

    50. Select Case 时
    51. Case 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21
    52. 差几分 = 10 - (分 mod 10)


    53. 延迟到下一期的时间 = 差几分 * 60 + 75-秒
    54. If 差几分 = 10 Then
    55. 延迟到下一期的时间=75-秒
    56. End If
    57.     
    58. Case 22, 23, 0, 1
    59. 差几分 = 5 - (分 mod 5)

    60. 延迟到下一期的时间 = 差几分 * 60 + 75-秒
    61. If 差几分 = 5 Then
    62. 延迟到下一期的时间=75-秒
    63. End If
    64. Case Else
    65. 延迟到下一期的时间=18
    66. End Select
    67. Dim kkk,下次投注时间
    68. kkk=延迟到下一期的时间
    69. 下次投注时间=DateTime.Format("%H:%M:%S",time()+延迟到下一期的时间)
    70. For 延迟到下一期的时间
    71. bigdelaysuper (1000)
    72. ShowMessage "等待下次购买时间ing...\n倒计时" & kkk& "\n " & DateTime.Format("%H:%M:%S"& "\n " &"下次投注时间为 "&下次投注时间)
    73. if DateTime.Format("%H:%M:%S")=下次投注时间 or DateTime.Format("%H:%M:%S",time()+1)=下次投注时间 or DateTime.Format("%H:%M:%S",time()-1)=下次投注时间
    74. exit for
    75. end if

    76. kkk=kkk-1
    77. next

    78. 等待下次购彩时间=延迟到下一期的时间
    79. End Function

    80. function 判断时间()
    81. dim tstring,时间状态,北京时间,北京时间时,北京时间分,北京时间秒
    82. tstring = DateTime.Format("%H:%M:%S")
    83. 时间状态="时间不允许"
    84. 北京时间时= DateTime.Hour()
    85. 北京时间分=DateTime.Minute()
    86. 北京时间秒=DateTime.Second()
    87. select case 北京时间时
    88. case 10,11,12,13,14,15,16,17,18,19,20,21
    89. 北京时间分=北京时间分 mod 10
    90. if 北京时间分*60+北京时间秒>70 and 北京时间分*60+北京时间秒<480 then
    91. 时间状态="时间允许"
    92. else
    93. sm("北京时间分*60+北京时间秒="&北京时间分&"*60+"&北京时间秒&"="&(北京时间分*60+北京时间秒))
    94. 时间状态="时间不允许"
    95. end if

    96. case 22,23,0,1
    97. 北京时间分=北京时间分 mod 5
    98. if 北京时间分*60+北京时间秒>70 and 北京时间分*60+北京时间秒<180 then
    99. 时间状态="时间允许"
    100. else
    101. 时间状态="时间不允许"
    102. end if
    103.     
    104. case else
    105. sm("未知的时间")
    106. end select
    107. 判断时间=时间状态
    108. end function

    109. Function 角选择程序()
    110. sm("启动角选择程序")

    111. dim 找图结果,指定图片在不在
    112. 找图结果="没找到"
    113. 指定图片在不在=给图片名判断图片是否存在("角")
    114. if 指定图片在不在="找到了" then
    115. 角选择程序="角选择成功"
    116. else 角选择程序="角选择失败"
    117.         
    118. for 3
    119. //点击角出现弹框,选择角
    120. sm("现在点击这个点将会出现《元角分》")
    121. 点击图片相应坐标("角")
    122. bigdelaysuper(2000)
    123. 找图结果=找图时等待约定的时间("角弹框区域")
    124. If 找图结果 = "找到了" Then
    125.     
    126. sm("角弹框区域找到了")
    127. 点击图片相应坐标("角弹框区域")
    128. bigdelaysuper(2000)
    129. 找图结果=给图片名判断图片是否存在("角")
    130. if 找图结果="找到了" then
    131. 角选择程序="角选择成功"
    132. exit for
    133. else
    134. //实际测试,采取对策
    135. end if

    136. Else
    137. sm("角弹框区域没找到")
    138. 点击图片相应坐标("角")
    139. end if
    140. next    
    141. end if



    142. end function

    143. Function 分选择程序()
    144. sm("启动分选择程序")

    145. dim 找图结果,指定图片在不在
    146. 找图结果="没找到"
    147. 指定图片在不在=给图片名判断图片是否存在("分")
    148. if 指定图片在不在="找到了" then
    149. 分选择程序="分选择成功"
    150. else 分选择程序="分选择失败"
    151.         
    152. for 3
    153. //点击分出现弹框,选择分
    154. sm ("现在点击这个点将会出现《元角分》")

    155. 点击图片相应坐标("分")
    156. bigdelaysuper(2000)
    157. 找图结果=找图时等待约定的时间("角弹框区域")
    158. If 找图结果 = "找到了" Then
    159.     
    160. sm("分弹框区域找到了")
    161. 点击图片相应坐标("分弹框区域")
    162. bigdelaysuper(2000)
    163. 找图结果=给图片名判断图片是否存在("分")
    164. if 找图结果="找到了" then
    165. 分选择程序="分选择成功"
    166. exit for
    167. else
    168. //实际测试,采取对策
    169. end if

    170. Else
    171. sm("分弹框区域没找到")
    172. 点击图片相应坐标("角")
    173. end if
    174. next    
    175. end if



    176. end function

    177. Function 定位胆选择程序()
    178. sm("开始定位胆选择程序")    

    179. dim 找图结果,指定图片在不在
    180. 找图结果="没找到"
    181. 指定图片在不在=给图片名判断图片是否存在("定位胆")
    182. if 指定图片在不在="找到了" then
    183. 定位胆选择程序 = "定位胆选择成功"
    184. sm("定位胆选择成功")
    185. else 定位胆选择程序="定位胆选择失败"
    186. sm("定位胆选择失败")
    187. for 3
    188. //点击定位胆出现弹框,选择定位胆
    189. 点击图片相应坐标("定位胆")
    190. bigdelaysuper(2000)
    191. 找图结果 = 找图时等待约定的时间("定位胆弹框选择")

    192. if 找图结果="找到了" then
    193. sm("定位胆弹框区域找到了")
    194. 点击图片相应坐标("定位胆弹框区域")
    195. sm("定位胆弹框区域找到了"&"已经点击定位胆")
    196. bigdelaysuper(2000)
    197. 找图结果=给图片名判断图片是否存在("定位胆")
    198. if 找图结果="找到了" then
    199. 定位胆选择程序="定位胆选择成功"
    200. exit for
    201. else
    202. //实际测试,采取对策
    203. end if

    204. Else
    205. sm("定位胆弹框区域没找到")


    206. 点击图片相应坐标("定位胆")
    207. end if
    208. Next
    209. sm("定位胆选择程序 结束")
    210. end if



    211. end function


    212. function 清空号码程序()
    213. dim 找图结果,指定图片在不在
    214. 找图结果="没找到"
    215. 指定图片在不在=给图片名判断图片是否存在("注数零")
    216. if 指定图片在不在="找到了" then
    217. 清空号码程序="清空号码成功"
    218. Else
    219. 清空号码程序="清空号码失败"
    220.         
    221. for 3
    222. //点击清空号码,使注数为0
    223. 点击图片相应坐标("注数零")
    224. bigdelaysuper(2000)
    225. 找图结果=找图时等待约定的时间("注数零")
    226. if 找图结果="找到了" then
    227. 点击图片相应坐标("注数零")
    228. bigdelaysuper(2000)
    229. 找图结果=给图片名判断图片是否存在("注数零")
    230. if 找图结果="找到了" then
    231. 清空号码程序="清空号码成功"
    232. exit for
    233. else
    234. //实际测试,采取对策
    235. end if
    236. exit for
    237. else
    238. 点击图片相应坐标("注数零")
    239. end if
    240. next    
    241. end if

    242. end function
    复制代码

    6#

    1. //-----------------------------------------------------------------------------------------------

    2. sub 点击图片相应坐标(坐标名称)
    3. dim x,y,xy
    4. xy=xin.ExtractCoordinate(点击位置名称和坐标,坐标名称)
    5. x=xy(0)
    6. y = xy(1)
    7. sm("现在点击的是"&坐标名称&"\n"&x&","&y)
    8. tapsuper(x,y)
    9. end sub

    10. //-----------------------------------------------------------------------------------------------

    11. function 找图时等待约定的时间(图片名称)
    12. dim 找图结果,等待时间
    13. 等待时间=3
    14. 找图结果="没找到"

    15. for 等待时间
    16. 找图结果=给图片名判断图片是否存在(图片名称)
    17. if 找图结果="找到了" then
    18. Exit For
    19. else
    20. bigdelaysuper(1000)
    21. end if
    22. next
    23. 找图时等待约定的时间=找图结果
    24. end function



    25. function 给图片名判断图片是否存在(图片名称)
    26. Dim 查找图片结果,返回值,xy,intX, intY
    27. 查找图片结果="没找到"
    28. xy=xin.PicExtractCoordinate(图片和坐标,图片名称)
    29. 返回值=FindPic(xy(0), xy(1),xy(2), xy(3), SDpath&图片名称&".png","000000",0, 0.8, intX, intY)
    30. If 返回值>-1 then
    31. 查找图片结果="找到了"
    32. Else
    33. End If
    34. 给图片名判断图片是否存在=查找图片结果
    35. end function

    36. function 判断图片()
    37. Dim k,查找图片结果
    38. k=0
    39. 查找图片结果="没找到"
    40. for UBound判断图片
    41. 查找图片结果=找图(MyString判断图片(k))
    42. if 查找图片结果="没找到" then
    43. else
    44. exit for
    45. end if
    46. k=k+1
    47. next
    48. 判断图片=查找图片结果
    49. end function

    50. function 找图(图片和坐标信息)
    51. Dim intX, intY,返回值,arr
    52. arr=分割数组(图片和坐标信息)
    53. 返回值=FindPic(arr(1), arr(2),arr(3), arr(4), SDpath&arr(0)&".png","000000",0, 0.8, intX, intY)
    54. '需要用函数返回值时要加个括号
    55. If 返回值>-1 then
    56. 找图=arr(0)
    57. Else
    58. 找图="没找到"
    59. End If
    60. end function



    61. function 分割数组(待分割字符串)
    62. 分割数组= Split(待分割字符串,"|")
    63. end function

    64. sub 关机()
    65. dim h
    66. h=DateTime.Hour()
    67. if h=2 then
    68. //关机
    69. Call shanhai.ShutDown()
    70. end if
    71. end sub





    72. Function 补全三位数(num)
    73. dim 三位数
    74. 三位数=""&num
    75. If Len(三位数) = 1 Then
    76. 三位数="00"&三位数
    77. ElseIf Len(三位数) = 2 Then
    78. 三位数="0"&三位数
    79. ElseIf Len(三位数) = 3 Then
    80. 三位数 = "" & 三位数
    81. Else
    82. 三位数="888"
    83. End If
    84. 补全三位数=三位数
    85. End Function



    86. Function 返回万位(s)
    87. 返回万位 = Left(s, 1)
    88. End Function

    89. Sub 打开爽歪歪()
    90. KeyPress "Home"
    91. bigdelaysuper(短延迟)
    92. KillApp 爽歪歪包名
    93. bigdelaysuper(短延迟)
    94. RunApp 爽歪歪包名
    95. bigdelaysuper(长延迟)
    96. End Sub




    97. //大延迟用与一般延迟,小延迟用于点击延迟
    98. sub bigdelaysuper(t)
    99. dim 延迟
    100. 延迟=三百到五十的随机数()
    101. 延迟=延迟+t
    102. delay 延迟
    103. end sub

    104. sub littledelaysuper(t)
    105. dim 延迟
    106. 延迟=五十到十五的随机数()
    107. 延迟=延迟+t
    108. delay 延迟
    109. end sub

    110. sub tapsuper(x,y)
    111. dim 超级点击延迟,横坐标,纵坐标
    112. 超级点击延迟=五十到十五的随机数()
    113. 横坐标=正三到负三的随机数()
    114. 纵坐标=正三到负三的随机数()
    115. Delay 超级点击延迟- TickCount()
    116. TouchDownEvent x+横坐标,y+纵坐标,0
    117. 超级点击延迟=五十到十五的随机数()
    118. Delay 超级点击延迟- TickCount()
    119. TouchUpEvent 0
    120. 超级点击延迟=五十到十五的随机数()
    121. Delay 超级点击延迟- TickCount()
    122. end sub


    123. function 三百到五十的随机数()
    124. 三百到五十的随机数=Int(((300-50+1)*Rnd())+50)
    125. end function

    126. function 五十到十五的随机数()
    127. 五十到十五的随机数=Int(((50-15+1)*Rnd())+15)
    128. end function

    129. function 正三到负三的随机数()
    130. 正三到负三的随机数=Int(((3-(-3)+1)*Rnd())+(-3))
    131. end function



    132. Function 返回当前时间的期数()
    133. Dim hour1,min1,num
    134. hour1=DateTime.Hour()
    135. min1 = DateTime.Minute()
    136. //1-24
    137. If hour1 = 0 or hour1 = 1 Then

    138. num = Int((hour1 * 60 + min1) / 5)+1


    139. //25-96
    140. ElseIf hour1 >= 10 and hour1 <= 21 Then

    141. num = Int(((hour1 - 10) * 60 + min1) / 10) + 1+24
    142. //97-120
    143. ElseIf hour1 = 22 or hour1 = 23 Then

    144. num = Int(((hour1-22) * 60 + min1) / 5)+1+96
    145. Else
    146. num="888"
    147. End If
    148. 返回当前时间的期数=num
    149. End Function




    150. Function 记录数据(要记录的数据)
    151. dim path    
    152. path = SDpath & "购彩记录.txt"
    153. file.Append(path,要记录的数据&" "&now()&"\n")
    154. End Function
    复制代码

    7#

    123456789

    脚本制作QQ:183850702
    8#

    看看看

    9#

    多点找色

    10#

    这是啥

    承接各类脚本开发

    有偿解决按键基础问题(可远程讲解)

    寻6级作者分摊单子,无需任何押金,开发全程不经我手!


    QQ:517216542

    《征途2S》和《千军》全部功能完全免费的脚本 ↓


    正式版》》
    经典版》》
    11#

    本来无一物 何处惹尘埃?

    最后编辑zjcyjj 最后编辑于 2016-11-15 18:08:29
    12#


    13#

    看看是谁

    14#

    学习一下

    15#

    嘿嘿哈哈哈哈哈哈哈哈哈哈哈哈

    16#

    直接学习一下post不好么,前台多慢

    17#

    楼主级别好高

    18#

    看看

    19#

    aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

    20#

    11111111111

    发新话题 回复该主题