28/01/2014 MCAFEE SECURE 認證的網站

https://www.mcafeesecure.com/RatingVerify?ref=www.HongKongCupid.com

2013年8月20日 星期二

**各式游戲-圖像識別-网页操作 -脚本技巧-几何计算-源碼庫**{第一課堂}~!~!

**各式游戲-圖像識別-网頁操作方式-脚本技巧-
 

几何计算-源碼庫**{第一篇文章}~!*

**game-神魔遮天自动任务 #**
**
  1. GetSysInfo.GetScreenResolutionX()
  2. GetSysInfo.GetScreenResolutionY()
  3. 如果 GetSysInfo.GetScreenResolutionX = 1024 并且 GetSysInfo.GetScreenResolutionY = 768 则
  4.     令 WE = 481
  5.     令 WA = 233
  6.     令 WB = 434
  7.     令 WC = 233
  8.     令 WK = 350
  9.     令 WCC = 375
  10.     令 WDD = 406
  11.     令 WBJ = 505
  12.     令 WBW = 311
  13.     令 WAJ = 494
  14.     令 WAL = 293
  15.     令 WAF = 394
  16.     令 WWF = 153
  17.     令 WBF = 394
  18.     令 WBP = 182
  19.     令 WCF = 394
  20.     令 WCW = 213
  21.     令 WFF = 394
  22.     令 WFW = 243
  23.     令 WCK = 546
  24.     令 WCL = 266
  25. 否则
  26. 条件结束
  27. 如果 GetSysInfo.GetScreenResolutionX = 1280 并且 GetSysInfo.GetScreenResolutionY = 720 则
  28.     令 WE = 484
  29.     令 WA = 234
  30.     令 WB = 430
  31.     令 WC = 228
  32.     令 WK = 350
  33.     令 WCC = 370
  34.     令 WDD = 404
  35.     令 WBJ = 505
  36.     令 WBW = 311
  37.     令 WAJ = 495
  38.     令 WAL = 293
  39.     令 WAF = 398
  40.     令 WWF = 155
  41.     令 WBF = 395
  42.     令 WBP = 186
  43.     令 WCF = 395
  44.     令 WCW = 214
  45.     令 WFF = 394
  46.     令 WFW = 244
  47.     令 WCK = 546
  48.     令 WCL = 266
  49. 否则
  50. 条件结束
  51. 如果 GetSysInfo.GetScreenResolutionX = 1280 并且 GetSysInfo.GetScreenResolutionY = 768 则
  52.     令 WE = 484
  53.     令 WA = 235
  54.     令 WB = 430
  55.     令 WC = 232
  56.     令 WK = 350
  57.     令 WCC = 369
  58.     令 WDD = 407
  59.     令 WBJ = 506
  60.     令 WBW = 311
  61.     令 WAJ = 495
  62.     令 WAL = 293
  63.     令 WAF = 396
  64.     令 WWF = 157
  65.     令 WBF = 395
  66.     令 WBP = 185
  67.     令 WCF = 395
  68.     令 WCW = 214
  69.     令 WFF = 395
  70.     令 WFW = 244
  71.     令 WCK = 546
  72.     令 WCL = 266
  73. 否则
  74. 条件结束
  75. 如果 GetSysInfo.GetScreenResolutionX = 1600 并且 GetSysInfo.GetScreenResolutionY = 900 则
  76.     令 WE = 481
  77.     令 WA = 233
  78.     令 WB = 433
  79.     令 WC = 235
  80.     令 WK = 350
  81.     令 WCC = 371
  82.     令 WDD = 406
  83.     令 WBJ = 507
  84.     令 WBW = 312
  85.     令 WAJ = 496
  86.     令 WAL = 294
  87.     令 WAF = 395
  88.     令 WWF = 157
  89.     令 WBF = 395
  90.     令 WBP = 185
  91.     令 WCF = 395
  92.     令 WCW = 214
  93.     令 WFF = 394
  94.     令 WFW = 243
  95.     令 WCK = 546
  96.     令 WCL = 266
  97. 否则
  98. 条件结束
  99. 定义变量 Hwnd, YS
  100. 令 Hwnd = Window.MousePoint()
    1. 令 YS3 = Bkgnd.GetPixelColor(Hwnd,401,252)
    2. 延时 300 毫秒
    3. 用户定义变量 Combo1=DropList{"师门任务":"0"|"捕杀任务":"1"|"洗练石任务":"2"|"惩恶任务":"3"}=0 "Combo1"
    4. 如果 Combo1 = "0" 则
    5.     跳转到标记 A
    6. 否则如果 Combo1 = "1" 则
    7.     跳转到标记 B
    8. 否则如果 Combo1 = "2" 则
    9.     跳转到标记 C
    10. 否则如果 Combo1 = "3" 则
    11.     跳转到标记 F
    12. 否则
    13. 条件结束
    14. 标记 A
    15. 调用 Bkgnd.LeftClick(Hwnd,WE,WA)
    16. 如果 YS3 = "00FFFF" 则
    17.     跳转到标记 A1
    18. 否则
    19. 条件结束
    20. 调用 Bkgnd.LeftClick(Hwnd,WB,WC)
    21. 延时 1000 毫秒
    22. 调用 Bkgnd.LeftClick(Hwnd,WAF,WWF)
    23. 延时 1500 毫秒
    24. 调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
    25. 延时 1000 毫秒
    26. 调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
    27. 延时 1000 毫秒
    28. 标记 A1
    29. 令 YS4 = Bkgnd.GetPixelColor(Hwnd,401,252)
    30. 如果 YS4 = "00FFFF" 则
    31.     延时 10 毫秒
    32. 否则
    33.     跳转到标记 B
    34. 条件结束
    35. 子程序 Q(a)
    36.     令 XY = Bkgnd.FindColor(Hwnd,391,244,590,WK,"480A00")
    37.     令 YS = Split(XY,"|")
    38.     令 X = CInt(YS(0))
    39.     令 Y = CInt(YS(1))
    40. 子程序结束
    41. 标记 A2
    42. 令 YS4 = Bkgnd.GetPixelColor(Hwnd,401,252)
    43. 如果 YS4 = "00FFFF" 则
    44.     延时 10 毫秒
    45. 否则
    46.     跳转到标记 B
    47. 条件结束
    48. 调用 Bkgnd.LeftClick(Hwnd,WE,WA)
    49. 令 YS1 = Bkgnd.GetPixelColor(Hwnd,486,266)
    50. 延时 300 毫秒
    51. 如果 YS1 = "FFFFFF" 则
    52.     调用 Q(a)
    53.     调用 Bkgnd.LeftClick(Hwnd,X,Y)
    54.     延时 1500 毫秒
    55.     跳转到标记 A4
    56. 否则
    57.     跳转到标记 A3
    58.     延时 1500 毫秒
    59. 条件结束
    60. 标记 A3
    61. 令 YS4 = Bkgnd.GetPixelColor(Hwnd,401,252)
    62. 如果 YS4 = "00FFFF" 则
    63.     延时 10 毫秒
    64. 否则
    65.     跳转到标记 B
    66. 条件结束
    67. 调用 Q(a)
    68. 调用 Bkgnd.LeftClick(Hwnd,X,Y)
    69. 延时 1000 毫秒
    70. 循环 5 次
    71.     调用 Bkgnd.LeftClick(Hwnd,WBJ,WBW)
    72.     延时 3000 毫秒
    73. 循环结束
    74. 跳转到标记 A2
    75. 延时 2000 毫秒
    76. 标记 A4
    77. 令 YS2 = Bkgnd.GetPixelColor(Hwnd,215,426)
    78. 如果 YS2 = "29341A" 则
    79.     调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
    80.     延时 500 毫秒
    81.     调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
    82.     延时 300 毫秒
    83.     调用 Bkgnd.LeftClick(Hwnd,WE,WA)
    84.     延时 2000 毫秒
    85.     跳转到标记 A2
    86. 否则
    87.     延时 2000 毫秒
    88.     调用 Q(a)
    89.     调用 Bkgnd.LeftClick(Hwnd,X,Y)
    90.     延时 2000 毫秒
    91.     跳转到标记 A2
    92. 条件结束
    93. 调用 Bkgnd.LeftClick(Hwnd,WE,WA)
    94. 延时 1000 毫秒
    95. 令 YS4 = Bkgnd.GetPixelColor(Hwnd,401,252)
    96. 如果 YS4 = "00FFFF" 则
    97.     延时 10 毫秒
    98. 否则
    99.     跳转到标记 B
    100. 条件结束
    101. 注释:这里师门已经做完了。。。。。。。。。
    102. 注释:这里师门已经做完了。。。。。。。。。
    103. 注释:这里师门已经做完了。。。。。。。。。
    104. 注释:这里师门已经做完了。。。。。。。。。
    105. 标记 B
    106. 调用 Bkgnd.LeftClick(Hwnd,WE,WA)
    107. 延时 1000 毫秒
    108. 令 YA = Bkgnd.GetPixelColor(Hwnd,401,252)
    109. 如果 YA = "00FFFF" 则
    110.     跳转到标记 V
    111. 否则
    112. 条件结束
    113. 调用 Bkgnd.LeftClick(Hwnd,WE,WA)
    114. 延时 500 毫秒
    115. 调用 Bkgnd.LeftClick(Hwnd,WB,WC)
    116. 延时 500 毫秒
    117. 调用 Bkgnd.LeftClick(Hwnd,WBF,WBP)
    118. 延时 500 毫秒
    119. 调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
    120. 延时 500 毫秒
    121. 调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
    122. 延时 500 毫秒
    123. 标记 V
    124. 子程序 O
    125.     令 XY = Bkgnd.FindColor(Hwnd,391,244,590,WK,"00001B")
    126.     注释:任务完成时候的图值
    127.     令 YYU = Split(XY,"|")
    128.     令 X = CInt(YYU(0))
    129.     令 Y = CInt(YYU(1))
    130. 子程序结束
    131. 标记 B1
    132. 令 YS = Bkgnd.GetPixelColor(Hwnd,510,266)
    133. 如果 YS = "FFFFFF" 则
    134.     调用 O
    135.     调用 Bkgnd.LeftClick(Hwnd,X,Y)
    136.     注释:如果任务完成了就跳到。。。
    137.     跳转到标记 B2
    138. 否则
    139.     调用 O
    140.     延时 400 毫秒
    141.     调用 Bkgnd.LeftClick(Hwnd,X,Y)
    142.     延时 1000 毫秒
    143.     跳转到标记 B3
    144. 条件结束
    145. 标记 B2
    146. 令 YC = Bkgnd.GetPixelColor(Hwnd,215,426)
    147. 如果 YC = "29341A" 则
    148.     调用 Bkgnd.LeftClick(Hwnd,WE,WA)
    149.     延时 500 毫秒
    150.     调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
    151.     延时 500 毫秒
    152.     调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
    153.     延时 500 毫秒
    154.     调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
    155.     延时 500 毫秒
    156.     调用 Bkgnd.LeftClick(Hwnd,WE,WA)
    157.     延时 2000 毫秒
    158.     令 YS4 = Bkgnd.GetPixelColor(Hwnd,401,252)
    159.     如果 YS4 = "00FFFF" 则
    160.         延时 10 毫秒
    161.     否则
    162.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
    163.         延时 1000 毫秒
    164.         跳转到标记 C
    165.     条件结束
    166.     跳转到标记 B1
    167.     延时 300 毫秒
    168. 否则
    169.     延时 500 毫秒
    170.     调用 Bkgnd.LeftClick(Hwnd,X,Y)
    171.     延时 500 毫秒
    172.     跳转到标记 B3
    173. 条件结束
    174. 标记 B3
    175. 令 YS = Bkgnd.GetPixelColor(Hwnd,510,266)
    176. 如果 YS = "FFFFFF" 则
    177.     跳转到标记 B1
    178.     调用 Bkgnd.LeftClick(Hwnd,WE,WA)
    179. 否则
    180.     调用 Bkgnd.KeyPress(Hwnd,90)
    181.     延时 1000 毫秒
    182.     跳转到标记 B3
    183. 条件结束
    184. 跳转到标记 B
    185. 注释:这里捕杀已经做完了。。。。。。。。。
    186. 注释:这里捕杀已经做完了。。。。。。。。。
    187. 注释:这里捕杀已经做完了。。。。。。。。。
    188. 注释:这里捕杀已经做完了。。。。。。。。。
    189. 标记 C
    190. 调用 Bkgnd.LeftClick(Hwnd,WE,WA)
    191. 延时 1000 毫秒
    192. 调用 Bkgnd.LeftClick(Hwnd,WB,WC)
    193. 延时 1000 毫秒
    194. 调用 Bkgnd.LeftClick(Hwnd,WCF,WCW)
    195. 延时 1000 毫秒
    196. 循环 15 次
    197.     调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
    198.     延时 1300 毫秒
    199. 循环结束
    200. 注释:.................................................
    201. 标记 F
    202. 调用 Bkgnd.LeftClick(Hwnd,WE,WA)
    203. 延时 1000 毫秒
    204. 令 YK = Bkgnd.GetPixelColor(Hwnd,401,252)
    205. 如果 YK = "00FFFF" 则
    206.     跳转到标记 F1
    207. 否则
    208. 条件结束
    209. 调用 Bkgnd.LeftClick(Hwnd,WB,WC)
    210. 延时 500 毫秒
    211. 调用 Bkgnd.LeftClick(Hwnd,WFF,WFW)
    212. 延时 500 毫秒
    213. 调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
    214. 延时 500 毫秒
    215. 调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
    216. 延时 500 毫秒
    217. 标记 F1
    218. 子程序 L
    219.     令 YB = Bkgnd.FindColor(Hwnd,391,244,590,WK,"00001B")
    220.     注释:任务完成时候的图值
    221.     令 YB = Split(YB,"|")
    222.     令 X = CInt(YB(0))
    223.     令 Y = CInt(YB(1))
    224. 子程序结束
    225. 标记 F2
    226. 令 YI = Bkgnd.GetPixelColor(Hwnd,WCK,WCL)
    227. 如果 YI = "FFFFFF" 则
    228.     调用 L
    229.     调用 Bkgnd.LeftClick(Hwnd,X,Y)
    230.     注释:如果任务完成了就跳到。。。
    231.     跳转到标记 F3
    232. 否则
    233.     调用 L
    234.     延时 400 毫秒
    235.     调用 Bkgnd.LeftClick(Hwnd,X,Y)
    236.     延时 500 毫秒
    237.     跳转到标记 F4
    238. 条件结束
    239. 标记 F3
    240. 令 YI = Bkgnd.GetPixelColor(Hwnd,215,426)
    241. 如果 YI = "29341A" 则
    242.     调用 Bkgnd.LeftClick(Hwnd,WE,WA)
    243.     延时 500 毫秒
    244.     调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
    245.     延时 500 毫秒
    246.     调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
    247.     延时 500 毫秒
    248.     调用 Bkgnd.LeftClick(Hwnd,WE,WA)
    249.     延时 1500 毫秒
    250.     令 YG = Bkgnd.GetPixelColor(Hwnd,401,252)
    251.     如果 YG = "00FFFF" 则
    252.         延时 10 毫秒
    253.     否则
    254.         弹出窗口 "任务完成"
    255.     条件结束
    256.     跳转到标记 F2
    257.     延时 300 毫秒
    258. 否则
    259.     调用 Bkgnd.LeftClick(Hwnd,X,Y)
    260.     延时 500 毫秒
    261.     跳转到标记 F4
    262. 条件结束
    263. 标记 F4
    264. 令 YI = Bkgnd.GetPixelColor(Hwnd,WCK,WCL)
    265. 如果 YI = "FFFFFF" 则
    266.     跳转到标记 F3
    267.     延时 1000 毫秒
    268. 否则
    269.     调用 Bkgnd.KeyPress(Hwnd,90)
    270.     延时 1000 毫秒
    271.     跳转到标记 F4
    272. 条件结束
    273. 延时 1000 毫秒
    274. 令 YGG = Bkgnd.GetPixelColor(Hwnd,401,252)
    275. 如果 YGG = "00FFFF" 则
    276.     延时 10 毫秒
    277. 否则
    278.     弹出窗口 "任务已经完成"
    279. 条件结束
    280. 跳转到标记 F
    281. 注释:这里惩恶已经做完了。。。。。。。。。
    282. 注释:这里惩恶已经做完了。。。。。。。。。
    283. 注释:这里惩恶已经做完了。。。。。。。。。
    284. 注释:这里惩恶已经做完了。。。。。。。。。
    285. 注释:这里惩恶已经做完了。。。。。。。。。
--------------------------------------------------------------------------------------------------------------
  online game--钓鱼岛   
  1. 用户定义变量 cc=0 "如果你打不过,循环【xx次】对你有帮助(按下4键 增加威力50%)"
  2. 用户定义变量 xunhuan=0 "如果你打不过,循环【xx次】对你有帮助(按下3键 附加攻击1次)"
  3. 用户定义变量 yanchi8=0 "延迟几毫秒(1秒=1000毫秒)【在点击开始后第一次攻击的延迟】"
  4. 用户定义变量 yanchi1=0 "延迟几毫秒(1秒=1000毫秒)【在攻击前】"
  5. 用户定义变量 yanchi2=0 "延迟几毫秒(1秒=1000毫秒)【在攻击前】"
  6. 用户定义变量 yanchi3=0 "延迟几毫秒(1秒=1000毫秒)【在攻击前】"
  7. 用户定义变量 yanchi4=0 "延迟几毫秒(1秒=1000毫秒)【在抽牌前,再点击第一张牌!】"
  8. 用户定义变量 yanchi5=0 "延迟几毫秒(1秒=1000毫秒)【在点击全选前】"
  9. 用户定义变量 yanchi6=0 "延迟几毫秒(1秒=1000毫秒)【在点击最后一张牌的确定前】"
  10. 用户定义变量 yanchi7=0 "延迟几毫秒(1秒=1000毫秒)【在点击全选后延迟的时间】"
  11. 用户定义变量 xunhuan999=0 "在点击全选之前要按的次数按全选这个键"
  12. (鼠标)移动到 (611, 291)
  13. (鼠标)移动到 (639, 303)
  14. 延时 1445 毫秒
  15. (鼠标)左键单击, 1次
  16. (鼠标)移动到 (815, 407)
  17. 延时 786 毫秒
  18. (鼠标)左键按下
  19. (鼠标)移动到 (788, 582)
  20. 延时 236 毫秒
  21. (鼠标)左键弹起
  22. (鼠标)移动到 (476, 457)
  23. 延时 367 毫秒
  24. (鼠标)左键单击, 1次
  25. (鼠标)移动到 (749, 590)
  26. 延时 434 毫秒
  27. (鼠标)左键按下
  28. (鼠标)左键按下
  29. (鼠标)移动到 (748, 590)
  30. 延时 77 毫秒
  31. (鼠标)左键弹起
  32. (鼠标)移动到 (747, 640)
  33. 延时 218 毫秒
  34. (鼠标)左键按下
  35. (鼠标)移动到 (746, 640)
  36. 延时 106 毫秒
  37. (鼠标)左键弹起
  38. (鼠标)移动到 (937, 560)
  39. 延时 445 毫秒
  40. (鼠标)左键单击, 1次
  41. 延时 yanchi8 毫秒
  42. (键盘)按下 "Enter" 键
  43. 延时 80 毫秒
  44. (键盘)弹起 "Enter" 键
  45. (鼠标)移动到 (510, 393)
  46. 延时 1278 毫秒
  47. (鼠标)左键单击, 1次
  48. 延时 yanchi1 毫秒
  49. (键盘)按下 "Num 2" 键
  50. 延时 102 毫秒
  51. (键盘)弹起 "Num 2" 键
  52. 循环 xunhuan 次
  53.     (键盘)按下 "Num 3" 键
  54. 循环结束
  55. 延时 78 毫秒
  56. (键盘)弹起 "Num 3" 键
  57. 延时 112 毫秒
  58. (键盘)按下 "Num 3" 键
  59. 延时 126 毫秒
  60. (键盘)弹起 "Num 3" 键
  61. 循环 cc 次
  62.     (键盘)按下 "Num 4" 键
  63.     延时 1 毫秒
  64.     (键盘)弹起 "Num 4" 键
  65. 循环结束
  66. (键盘)按下 "Space" 键
  67. 延时 312 毫秒
  68. (键盘)弹起 "Space" 键
  69. 延时 yanchi2 毫秒
  70. (键盘)按下 "Num 2" 键
  71. 延时 2 毫秒
  72. (键盘)弹起 "Num 2" 键
  73. 循环 cc 次
  74.     (键盘)按下 "Num 4" 键
  75.     延时 1 毫秒
  76.     (键盘)弹起 "Num 4" 键
  77. 循环结束
  78. 循环 xunhuan 次
  79.     (键盘)按下 "Num 3" 键
  80. 循环结束
  81. 延时 81 毫秒
  82. (键盘)弹起 "Num 3" 键
  83. 延时 48 毫秒
  84. (键盘)按下 "Num 3" 键
  85. 延时 90 毫秒
  86. (键盘)弹起 "Num 3" 键
  87. 延时 268 毫秒
  88. (键盘)按下 "Space" 键
  89. 延时 502 毫秒
  90. (键盘)弹起 "Space" 键
  91. 延时 yanchi3 毫秒
  92. (键盘)按下 "Num 2" 键
  93. 延时 199 毫秒
  94. (键盘)弹起 "Num 2" 键
  95. 延时 115 毫秒
  96. 循环 xunhuan 次
  97.     (键盘)按下 "Num 3" 键
  98. 循环结束
  99. (键盘)弹起 "Num 3" 键
  100. (键盘)按下 "Num 3" 键
  101. (键盘)弹起 "Num 3" 键
  102. 循环 cc 次
  103.     (键盘)按下 "Num 4" 键
  104.     延时 1 毫秒
  105.     (键盘)弹起 "Num 4" 键
  106. 循环结束
  107. (键盘)按下 "Space" 键
  108. 延时 341 毫秒
  109. (键盘)弹起 "Space" 键
  110. (鼠标)移动到 (908, 181)
  111. 延时 12194 毫秒
  112. (鼠标)左键按下
  113. 延时 yanchi4 毫秒
  114. (鼠标)移动到 (907, 181)
  115. 延时 93 毫秒
  116. (鼠标)左键弹起
  117. 延时 1 毫秒
  118. (鼠标)左键弹起
  119. (鼠标)移动到 (758, 541)
  120. 延时 2517 毫秒
  121. (鼠标)左键按下
  122. 延时 1 毫秒
  123. (鼠标)左键单击, 1次
  124. 延时 1 毫秒
  125. (鼠标)左键弹起
  126. (鼠标)移动到 (590, 227)
  127. 延时 1876 毫秒
  128. (鼠标)左键按下
  129. 延时 1 毫秒
  130. (鼠标)左键单击, 1次
  131. 延时 yanchi6 毫秒
  132. (鼠标)移动到 (447, 416)
  133. 延时 797 毫秒
  134. (鼠标)左键单击, 1次
  135. 延时 1 毫秒
  136. (鼠标)左键弹起
  137. 延时 yanchi5 毫秒
  138. (鼠标)移动到 (459, 349)
  139. 循环 xunhuan999 次
  140.     (鼠标)左键单击, 1次
  141.     延时 1 毫秒
  142.     (鼠标)左键弹起
  143. 循环结束
  144. 延时 630 毫秒
  145. 延时 82 毫秒
  146. 延时 47 毫秒
  147. (鼠标)左键单击, 1次
  148. 延时 2 毫秒
  149. (鼠标)左键弹起
  150. 延时 10 毫秒
  151. 延时 yanchi7 毫秒 
-----------------------------------------------------------------------------------[ Game   待續    ......]------------------------

  **圖象識別*验证码识别脚本 [ ① ]**
  1. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓☆〓〓//
  2. //            //
  3. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★注★意★〓〓〓〓〓〓〓〓☆〓〓//
  4. //  《如果不能识别请重新抓一下[起点坐标]跟[10个数字的颜色]即可》  //
  5. //     
  6. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★变★量★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
  7. //《定义变量》
  8. Dim c0,c1,c2,c3,c4,c5,c6,c7,c8,c9,cb,x,cx,y,n,cn,color,okn
  9. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
  10. //《10个数字的颜色》
  11. c0="00498C"
  12. c1="0000DE"
  13. c2="0024C6"
  14. c3="A56D00"
  15. c4="0059A5"
  16. c5="DE3C00"
  17. c6="0045CE"
  18. c7="6300A5"
  19. c8="42A600"
  20. c9="E76500"
  21. //《验证码背景的颜色》
  22. cb="EFEFEF"
  23. //《起点x , y坐标变量赋值(验证码图片左上角那个点)》
  24. x=129:y=420
  25. //《两个数字之间距离》
  26. n=10
  27. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
  28. okn=""
  29. //《识别4个数字的循环次数 (为4)》
  30. 循环 4 遍
  31.     //《起点颜色cx坐标变量赋值》
  32.     cx=x
  33.     //《识别1个数字横向点的循环次数 (为5)》
  34.     循环 5 遍
  35.         调用外部VBScript子程序 color=得到指定点的颜色(cx,y)
  36.         //《判断是否为背景色》
  37.         如果表达式 (color<>cb) 为真,则
  38.             //《判断每次得到的颜色跟10个数字的颜色对比》
  39.             如果表达式 (color=c0) 为真,则
  40.                 cn="0"
  41.             否则如果(color=c1)为真,则
  42.                 cn="1"
  43.             否则如果(color=c2)为真,则
  44.                 cn="2"
  45.             否则如果(color=c3)为真,则
  46.                 cn="3"
  47.             否则如果(color=c4)为真,则
  48.                 cn="4"
  49.             否则如果(color=c5)为真,则
  50.                 cn="5"
  51.             否则如果(color=c6)为真,则
  52.                 cn="6"
  53.             否则如果(color=c7)为真,则
  54.                 cn="7"
  55.             否则如果(color=c8)为真,则
  56.                 cn="8"
  57.             否则如果(color=c9)为真,则
  58.                 cn="9"
  59.             条件结束
  60.             跳转到标记 〖离开1个数字横向点的循环〗
  61.         否则
  62.             //《继续循环直到5次完》
  63.             cx=cx+1
  64.         条件结束
  65.     循环结束
  66.     标记 〖离开1个数字横向点的循环〗
  67.     //《接着识别下一个数字》
  68.     x=x+n
  69.     //《得到验证码4个数字》
  70.     okn=okn & cn
  71. 循环结束
  72. //《显示验证码4个数字》
  73. 调用外部VBScript子程序 color=得到指定点的颜色(cx,y)
  74. 脚本停止运行
 [ ②   ]脚本
运行环境:分辨率:1440x900 色深:32位

操作系统:Windows XP 按键精灵版本:7.00.3730  
**
  1. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓☆〓〓
  2. 〓〓〓〓〓〓〓〓〓〓〓〓〓〓★注★意★〓〓〓〓〓〓〓〓〓〓〓〓〓
  3. //  《如果不能识别请重新抓一下[起点坐标]跟[10个数字的颜色]即可》  //
  4. //     [验证码]      //
  5. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★变★量★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
  6. //《定义变量》
  7. Dim no0,no1,no2,no3,no4,no5,no6,no7,no8,no9,nob,ux,uy,x,y,n,cno,color,okno,i,co
  8. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
  9. //《10个数字的上半个字特征码》
  10. no0="000111110000011111111100111100001110110000000011110000000011110000000011110000000011110000000011"
  11. no1="000011100000000111100000000111100000001111100000001101100000000001100000000001100000000001100000"
  12. no2="000011111100001111011110011110000110111000000011110000000011000000000001000000000111000000001111"
  13. no3="111111111111000000001111000000011100000000111000000011110000000111100000000111111100000001111111"
  14. no4="000000110000000000110000000000110000000000110000001000110000001100110000011100110000011000110000"
  15. no5="111111111110100000000000100000000000100000000000100000000000100000000000111111111000111111111100"
  16. no6="000111110000011111111100111100001110110000000011110000000000110000000000110111111000111111111110"
  17. no7="111111111111000000000001000000000011000000000111000000000110000000001110000000011100000000011000"
  18. no8="001111111000011111111100011000000110011000000110011000000110011000001110011111111110000111111000"
  19. no9="000111110000011111111100111100001110110000000011110000000011110000000011110000000011110000001111"
  20. //《起点ux , uy坐标变量赋值(验证码图片左上角红色那个点)》
  21. ux=355 : uy=383
  22. //《两个数字之间距离》
  23. n=20
  24. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
  25. okno=""
  26. //《识别5个数字的循环次数 (为5)》
  27. 循环 5 遍
  28.     co=""
  29.     //《起点颜色y坐标变量赋值》
  30.     y=uy
  31.     //16行(只循环8次)特征点
  32.     循环 8 遍
  33.         //《起点颜色x坐标变量赋值》
  34.         x=ux
  35.         //每行12个特征点(循环12次)
  36.         循环 12 遍
  37.             调用外部VBScript子程序 color=得到指定点的颜色(x,y)
  38.             如果表达式 (color="FFFFFF") 为真,则
  39.                 i="1"
  40.             否则
  41.                 i="0"
  42.             条件结束
  43.             co=co & i
  44.             x=x+1
  45.         循环结束
  46.         y=y+1
  47.     循环结束
  48.     //《判断每次得到的特征码跟10个数字的特征码对比》
  49.     如果表达式 (co=no0) 为真,则
  50.         cno="0"
  51.     否则如果(co=no1)为真,则
  52.         cno="1"
  53.     否则如果(co=no2)为真,则
  54.         cno="2"
  55.     否则如果(co=no3)为真,则
  56.         cno="3"
  57.     否则如果(co=no4)为真,则
  58.         cno="4"
  59.     否则如果(co=no5)为真,则
  60.         cno="5"
  61.     否则如果(co=no6)为真,则
  62.         cno="6"
  63.     否则如果(co=no7)为真,则
  64.         cno="7"
  65.     否则如果(co=no8)为真,则
  66.         cno="8"
  67.     否则如果(co=no9)为真,则
  68.         cno="9"
  69.     否则
  70.         cno="?"
  71.     条件结束
  72.     //《接着识别下一个数字》
  73.     ux=ux+n
  74.     //《得到验证码5个数字》
  75.     okno=okno & cno
  76. 循环结束
  77. //《显示验证码5个数字》
  78. 调用外部VBScript子程序 color=得到指定点的颜色(x,y)
  79. 脚本停止运行
  80. //〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
  81. //         
  82. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓待續其他〓〓〓〓〓☆〓〓//
----------------------------------------------------------------------------------------------------------------------------
**网页操作*自动跳阵,手动过关**
**脚本附件:怪的星号.bmp, 返回游戏.bmp, 跳转.bmp, 东.bmp, 北.bmp,
南.bmp, 邪天刀.bmp, 防止出龙岛.bmp, 西.bmp, 普通攻击.bmp, 攻击.bmp
运行环境:分辨率:1366x768 色深:32位 操作系统

Windows 7 Ultimate 按键精灵版本:9.10.10413 **
**
  1. 令 win = Window.MousePoint()
  2. 调用 Window.Top(win)
  3. 调用 Window.Active(win)
  4. 延时 400 毫秒
  5. 调用 Window.Move(win,0,0)
  6. 标记 开始
  7. 循环 5 次
  8.     标记 找怪
  9.     延时 300 毫秒
  10.     从左上到右下查找图片 "Attachment:\怪的星号.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  11.     如果 intX > 0 并且 intY > 0 则
  12.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  13.         延时 1000 毫秒
  14.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  15.     否则
  16.         跳转到标记 攻击
  17.     条件结束
  18.     延时 300 毫秒
  19.     标记 攻击
  20.     从左上到右下查找图片 "Attachment:\攻击.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  21.     如果 intX > 0 并且 intY > 0 则
  22.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  23.         延时 1000 毫秒
  24.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  25.     否则
  26.         跳转到标记 招式
  27.     条件结束
  28.     延时 300 毫秒
  29.     标记 招式
  30.     从左上到右下查找图片 "Attachment:\普通攻击.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  31.     如果 intX > 0 并且 intY > 0 则
  32.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  33.         延时 800 毫秒
  34.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  35.         (语句无法识别,可能有错误): Else Goto 返回
  36.     条件结束
  37.     标记 返回
  38.     延时 300 毫秒
  39.     从左上到右下查找图片 "Attachment:\返回游戏.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  40.     如果 intX > 0 并且 intY > 0 则
  41.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  42.         延时 1000 毫秒
  43.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  44.     否则
  45.         跳转到标记 防出岛
  46.     条件结束
  47.     延时 300 毫秒
  48.     标记 防出岛
  49.     从左上到右下查找图片 "Attachment:\防止出龙岛.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  50.     如果 intX > 0 并且 intY > 0 则
  51.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  52.         延时 1000 毫秒
  53.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  54.     否则
  55.         跳转到标记 跳转
  56.     条件结束
  57.     延时 300 毫秒
  58.     标记 跳转
  59.     从左上到右下查找图片 "Attachment:\跳转.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  60.     如果 intX > 0 并且 intY > 0 则
  61.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  62.         延时 1000 毫秒
  63.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  64.     否则
  65.         跳转到标记 东
  66.     条件结束
  67.     延时 300 毫秒
  68.     标记 东
  69.     从左上到右下查找图片 "Attachment:\东.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  70.     如果 intX > 0 并且 intY > 0 则
  71.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  72.         延时 1000 毫秒
  73.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  74.     否则
  75.     条件结束
  76. 循环结束
  77. 循环 5 次
  78.     延时 300 毫秒
  79.     标记 找怪2
  80.     延时 400 毫秒
  81.     从左上到右下查找图片 "Attachment:\怪的星号.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  82.     如果 intX > 0 并且 intY > 0 则
  83.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  84.         延时 1000 毫秒
  85.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  86.     否则
  87.         跳转到标记 攻击2
  88.     条件结束
  89.     延时 300 毫秒
  90.     标记 攻击2
  91.     从左上到右下查找图片 "Attachment:\攻击.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  92.     如果 intX > 0 并且 intY > 0 则
  93.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  94.         延时 1000 毫秒
  95.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  96.     否则
  97.         跳转到标记 招式2
  98.     条件结束
  99.     延时 300 毫秒
  100.     标记 招式2 
  101.     从左上到右下查找图片 "Attachment:\普通攻击.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  102.     如果 intX > 0 并且 intY > 0 则
  103.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  104.         延时 1000 毫秒
  105.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  106.     否则
  107.         跳转到标记 返回2
  108.     条件结束
  109.     延时 300 毫秒
  110.     标记 返回2
  111.     从左上到右下查找图片 "Attachment:\返回游戏.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  112.     如果 intX > 0 并且 intY > 0 则
  113.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  114.         延时 1000 毫秒
  115.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  116.     否则
  117.         跳转到标记 防出岛2
  118.     条件结束
  119.     延时 40 毫秒
  120.     标记 防出岛2
  121.     从左上到右下查找图片 "Attachment:\防止出龙岛.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  122.     如果 intX > 0 并且 intY > 0 则
  123.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  124.         延时 1000 毫秒
  125.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  126.     否则
  127.         跳转到标记 跳转2
  128.     条件结束
  129.     延时 300 毫秒
  130.     标记 跳转2
  131.     从左上到右下查找图片 "Attachment:\跳转.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  132.     如果 intX > 0 并且 intY > 0 则
  133.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  134.         延时 1000 毫秒
  135.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  136.     否则
  137.         跳转到标记 北2
  138.     条件结束
  139.     延时 300 毫秒
  140.     标记 北2
  141.     从左上到右下查找图片 "Attachment:\北.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  142.     如果 intX > 0 并且 intY > 0 则
  143.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  144.         延时 1000 毫秒
  145.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  146.     否则
  147.     条件结束
  148. 循环结束
  149. 循环 5 次
  150.     标记 找怪8
  151.     延时 400 毫秒
  152.     从左上到右下查找图片 "Attachment:\怪的星号.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  153.     如果 intX > 0 并且 intY > 0 则
  154.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  155.         延时 1000 毫秒
  156.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  157.     否则
  158.         跳转到标记 攻击8
  159.     条件结束
  160.     延时 300 毫秒
  161.     标记 攻击8
  162.     从左上到右下查找图片 "Attachment:\攻击.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  163.     如果 intX > 0 并且 intY > 0 则
  164.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  165.         延时 1000 毫秒
  166.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  167.     否则
  168.         跳转到标记 招式8
  169.     条件结束
  170.     延时 300 毫秒
  171.     标记 招式8
  172.     从左上到右下查找图片 "Attachment:\普通攻击.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  173.     如果 intX > 0 并且 intY > 0 则
  174.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  175.         延时 1000 毫秒
  176.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  177.     否则
  178.         跳转到标记 返回8
  179.     条件结束
  180.     延时 300 毫秒
  181.     标记 返回8
  182.     从左上到右下查找图片 "Attachment:\返回游戏.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  183.     如果 intX > 0 并且 intY > 0 则
  184.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  185.         延时 1000 毫秒
  186.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  187.     否则
  188.         跳转到标记 防出岛8
  189.     条件结束
  190.     延时 300 毫秒
  191.     标记 防出岛8
  192.     从左上到右下查找图片 "Attachment:\防止出龙岛.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  193.     如果 intX > 0 并且 intY > 0 则
  194.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  195.         延时 1000 毫秒
  196.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  197.     否则
  198.         跳转到标记 跳转8
  199.     条件结束
  200.     延时 300 毫秒 
  201.     标记 跳转8
  202.     从左上到右下查找图片 "Attachment:\跳转.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  203.     如果 intX > 0 并且 intY > 0 则
  204.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  205.         延时 1000 毫秒
  206.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  207.     否则
  208.         跳转到标记 东8
  209.     条件结束
  210.     标记 东8
  211.     从左上到右下查找图片 "Attachment:\西.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  212.     如果 intX > 0 并且 intY > 0 则
  213.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  214.         延时 1000 毫秒
  215.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  216.     否则
  217.     条件结束
  218. 循环结束
  219. 循环 5 次
  220.     标记 找怪4
  221.     延时 400 毫秒
  222.     从左上到右下查找图片 "Attachment:\怪的星号.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  223.     如果 intX > 0 并且 intY > 0 则
  224.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  225.         延时 1000 毫秒
  226.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  227.     否则
  228.         跳转到标记 攻击4
  229.     条件结束
  230.     延时 300 毫秒
  231.     标记 攻击4
  232.     从左上到右下查找图片 "Attachment:\攻击.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  233.     如果 intX > 0 并且 intY > 0 则
  234.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  235.         延时 1000 毫秒
  236.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  237.     否则
  238.         跳转到标记 招式4
  239.     条件结束
  240.     延时 300 毫秒
  241.     标记 招式4
  242.     从左上到右下查找图片 "Attachment:\普通攻击.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  243.     如果 intX > 0 并且 intY > 0 则
  244.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  245.         延时 1000 毫秒
  246.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  247.     否则
  248.         跳转到标记 返回4
  249.     条件结束
  250.     标记 返回4
  251.     延时 400 毫秒
  252.     从左上到右下查找图片 "Attachment:\返回游戏.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  253.     如果 intX > 0 并且 intY > 0 则
  254.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  255.         延时 1000 毫秒
  256.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  257.         跳转到标记 防出岛4
  258.     条件结束
  259.     延时 400 毫秒
  260.     标记 防出岛4
  261.     从左上到右下查找图片 "Attachment:\防止出龙岛.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  262.     如果 intX > 0 并且 intY > 0 则
  263.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  264.         延时 1000 毫秒
  265.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  266.     否则
  267.         跳转到标记 跳转4
  268.     条件结束
  269.     标记 跳转4
  270.     从左上到右下查找图片 "Attachment:\跳转.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  271.     如果 intX > 0 并且 intY > 0 则
  272.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  273.         延时 1000 毫秒
  274.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  275.     否则
  276.         跳转到标记 南4
  277.     条件结束
  278.     延时 300 毫秒
  279.     标记 南4
  280.     延时 300 毫秒
  281.     从左上到右下查找图片 "Attachment:\南.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  282.     如果 intX > 0 并且 intY > 0 则
  283.         调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  284.         延时 1000 毫秒
  285.         调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  286.     否则
  287.     条件结束
  288. 循环结束
  289. 标记 继续
  290. 从左上到右下查找图片 "Attachment:\继续.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  291. 如果 intX > 0 并且 intY > 0 则
  292.     调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
  293.     延时 1000 毫秒
  294.     调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
  295. 否则
  296.     跳转到标记 开始
  297. 条件结束
  298. 跳转到标记 开始 
  299. If intX > 0 And intY > 0 Then  
  300.     Call Plugin.Bkgnd.MoveTo(win, intX + 8, intY + 4)   
  301.     Delay 1000   

  •     Call Plugin.Bkgnd.LeftClick(win,intX + 8, intY + 4)   
  •     Else    
  •     Goto 开始    
  • End If  
  • Goto 开始  
  • ________________________------------------------------------------------------------------------

    **几何计算  **一元三次方程求解脚本  **脚本附件:
    运行环境:分辨率:1440x900 色深:32位 操作系统:Windows XP 按键精灵版本:6.87.3535    
    **
    1. 用户定义变量 s3=1 3次系数
    2. 用户定义变量 s2=1 2次系数
    3. 用户定义变量 s1=1 1次系数
    4. 用户定义变量 s0=0 常数项
    5. Dim a,b,c,t1,t2,q,p,x,x1,x2
    6. a=s2/s3
    7. b=s1/s3
    8. c=s0/s3
    9. t1=(2*a*a*a)/27+a*b/3+c
    10. t2=t1*t1-4*(3*b+a*a)*(3*b+a*a)*(3*b+a*a)/729
    11. p=Sqr(t2)
    12. q=Sqr(t2)
    13. p=p+t1
    14. q=t1-q
    15. x1=p*p*p
    16. x2=q*q*q
    17. x=q+p+a/3
    18. 调用外部VBScript子程序 MessageBox("X="&x&" X1="&x1&" X2="&x2)
    **一元二次方程计算    **
    **
    【功能说明】
    本脚本用于计算一元二次方程。通常用于验算(*^__^*)...嘻嘻
    【使用说明】
    分别在提示中输入一元二次方程中的a b c。注意:化成一般形式


    脚本附件:

    运行环境:分辨率:1440x900 色深:32位 操作系统:Windows XP 按键精灵版本:7.00.3730      
    1. 标记 定变量
    2. (VBScript语句) Dim a
    3. (VBScript语句) Dim b
    4. (VBScript语句) Dim c
    5. 标记 ==============主程序开始================
    6. 标记 弹出欢迎框
    7. 弹出窗口 "欢迎使用!本脚本用于简单的二元一次方程计算"
    8. 标记 输入变量a,b,c的值
    9. 调用外部VBScript子程序 a=InputBox("请输入a(一般形式a不为零)")
    10. 如果表达式 (StrComp("",a)=0) 为真,则
    11.     调用外部VBScript子程序 a=InputBox("请输入a(一般形式a不为零)")
    12. 脚本停止运行
    13. 条件结束
    14. 调用外部VBScript子程序 a=InputBox("请输入a(一般形式a不为零)")
    15. 调用外部VBScript子程序 a=InputBox("请输入a(一般形式a不为零)")
    16. 如果表达式 (a=0) 为真,则
    17.     标记 判断是不是一元二次方程
    18.     调用外部VBScript子程序 a=InputBox("请输入a(一般形式a不为零)")
    19. 脚本停止运行
    20. 条件结束
    21. 标记 〖这个cint(x)是把变量值转换成数字〗
    22. (VBScript语句) a=cint(a)
    23. (VBScript语句) b=cint(b)
    24. (VBScript语句) c=cint(c)
    25. 标记 开始用求根公式求解
    26. 标记 先判断方程的根的情况
    27. 如果表达式 ((b*b-4*a*c)<0) 为真,则
    28.     调用外部VBScript子程序 a=InputBox("请输入a(一般形式a不为零)")
    29. 脚本停止运行
    30. 条件结束
    31. (VBScript语句) e=Sqr(b*b-4*a*c)
    32. (VBScript语句) d1=(-b-e)/(2*a)
    33. (VBScript语句) d2=(-b+e)/(2*a)
    34. 标记 显示方程的解
    35. 调用外部VBScript子程序 a=InputBox("请输入a(一般形式a不为零)")
    36. 调用外部VBScript子程序 a=InputBox("请输入a(一般形式a不为零)")
    37. 脚本停止运行 
     **一元二次方程计算    **完結**             待續其他.......{第二課堂}
    ----------------------------------------------------------------------------------------------------------------------

    &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
    *&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

    沒有留言:

    張貼留言


    if you like make fds, wellcome you here~~anytime***

    my free place for everyones who want the good software,

    come & download them~ wellcome!!