几何计算-源碼庫**{第一篇文章}~!*
**game-神魔遮天自动任务 #**
**
- GetSysInfo.GetScreenResolutionX()
- GetSysInfo.GetScreenResolutionY()
- 如果 GetSysInfo.GetScreenResolutionX = 1024 并且 GetSysInfo.GetScreenResolutionY = 768 则
- 令 WE = 481
- 令 WA = 233
- 令 WB = 434
- 令 WC = 233
- 令 WK = 350
- 令 WCC = 375
- 令 WDD = 406
- 令 WBJ = 505
- 令 WBW = 311
- 令 WAJ = 494
- 令 WAL = 293
- 令 WAF = 394
- 令 WWF = 153
- 令 WBF = 394
- 令 WBP = 182
- 令 WCF = 394
- 令 WCW = 213
- 令 WFF = 394
- 令 WFW = 243
- 令 WCK = 546
- 令 WCL = 266
- 否则
- 条件结束
- 如果 GetSysInfo.GetScreenResolutionX = 1280 并且 GetSysInfo.GetScreenResolutionY = 720 则
- 令 WE = 484
- 令 WA = 234
- 令 WB = 430
- 令 WC = 228
- 令 WK = 350
- 令 WCC = 370
- 令 WDD = 404
- 令 WBJ = 505
- 令 WBW = 311
- 令 WAJ = 495
- 令 WAL = 293
- 令 WAF = 398
- 令 WWF = 155
- 令 WBF = 395
- 令 WBP = 186
- 令 WCF = 395
- 令 WCW = 214
- 令 WFF = 394
- 令 WFW = 244
- 令 WCK = 546
- 令 WCL = 266
- 否则
- 条件结束
- 如果 GetSysInfo.GetScreenResolutionX = 1280 并且 GetSysInfo.GetScreenResolutionY = 768 则
- 令 WE = 484
- 令 WA = 235
- 令 WB = 430
- 令 WC = 232
- 令 WK = 350
- 令 WCC = 369
- 令 WDD = 407
- 令 WBJ = 506
- 令 WBW = 311
- 令 WAJ = 495
- 令 WAL = 293
- 令 WAF = 396
- 令 WWF = 157
- 令 WBF = 395
- 令 WBP = 185
- 令 WCF = 395
- 令 WCW = 214
- 令 WFF = 395
- 令 WFW = 244
- 令 WCK = 546
- 令 WCL = 266
- 否则
- 条件结束
- 如果 GetSysInfo.GetScreenResolutionX = 1600 并且 GetSysInfo.GetScreenResolutionY = 900 则
- 令 WE = 481
- 令 WA = 233
- 令 WB = 433
- 令 WC = 235
- 令 WK = 350
- 令 WCC = 371
- 令 WDD = 406
- 令 WBJ = 507
- 令 WBW = 312
- 令 WAJ = 496
- 令 WAL = 294
- 令 WAF = 395
- 令 WWF = 157
- 令 WBF = 395
- 令 WBP = 185
- 令 WCF = 395
- 令 WCW = 214
- 令 WFF = 394
- 令 WFW = 243
- 令 WCK = 546
- 令 WCL = 266
- 否则
- 条件结束
- 定义变量 Hwnd, YS
- 令 Hwnd = Window.MousePoint()
- 令 YS3 = Bkgnd.GetPixelColor(Hwnd,401,252)
- 延时 300 毫秒
- 用户定义变量 Combo1=DropList{"师门任务":"0"|"捕杀任务":"1"|"洗练石任务":"2"|"惩恶任务":"3"}=0 "Combo1"
- 如果 Combo1 = "0" 则
- 跳转到标记 A
- 否则如果 Combo1 = "1" 则
- 跳转到标记 B
- 否则如果 Combo1 = "2" 则
- 跳转到标记 C
- 否则如果 Combo1 = "3" 则
- 跳转到标记 F
- 否则
- 条件结束
- 标记 A
- 调用 Bkgnd.LeftClick(Hwnd,WE,WA)
- 如果 YS3 = "00FFFF" 则
- 跳转到标记 A1
- 否则
- 条件结束
- 调用 Bkgnd.LeftClick(Hwnd,WB,WC)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,WAF,WWF)
- 延时 1500 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
- 延时 1000 毫秒
- 标记 A1
- 令 YS4 = Bkgnd.GetPixelColor(Hwnd,401,252)
- 如果 YS4 = "00FFFF" 则
- 延时 10 毫秒
- 否则
- 跳转到标记 B
- 条件结束
- 子程序 Q(a)
- 令 XY = Bkgnd.FindColor(Hwnd,391,244,590,WK,"480A00")
- 令 YS = Split(XY,"|")
- 令 X = CInt(YS(0))
- 令 Y = CInt(YS(1))
- 子程序结束
- 标记 A2
- 令 YS4 = Bkgnd.GetPixelColor(Hwnd,401,252)
- 如果 YS4 = "00FFFF" 则
- 延时 10 毫秒
- 否则
- 跳转到标记 B
- 条件结束
- 调用 Bkgnd.LeftClick(Hwnd,WE,WA)
- 令 YS1 = Bkgnd.GetPixelColor(Hwnd,486,266)
- 延时 300 毫秒
- 如果 YS1 = "FFFFFF" 则
- 调用 Q(a)
- 调用 Bkgnd.LeftClick(Hwnd,X,Y)
- 延时 1500 毫秒
- 跳转到标记 A4
- 否则
- 跳转到标记 A3
- 延时 1500 毫秒
- 条件结束
- 标记 A3
- 令 YS4 = Bkgnd.GetPixelColor(Hwnd,401,252)
- 如果 YS4 = "00FFFF" 则
- 延时 10 毫秒
- 否则
- 跳转到标记 B
- 条件结束
- 调用 Q(a)
- 调用 Bkgnd.LeftClick(Hwnd,X,Y)
- 延时 1000 毫秒
- 循环 5 次
- 调用 Bkgnd.LeftClick(Hwnd,WBJ,WBW)
- 延时 3000 毫秒
- 循环结束
- 跳转到标记 A2
- 延时 2000 毫秒
- 标记 A4
- 令 YS2 = Bkgnd.GetPixelColor(Hwnd,215,426)
- 如果 YS2 = "29341A" 则
- 调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
- 延时 500 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
- 延时 300 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,WE,WA)
- 延时 2000 毫秒
- 跳转到标记 A2
- 否则
- 延时 2000 毫秒
- 调用 Q(a)
- 调用 Bkgnd.LeftClick(Hwnd,X,Y)
- 延时 2000 毫秒
- 跳转到标记 A2
- 条件结束
- 调用 Bkgnd.LeftClick(Hwnd,WE,WA)
- 延时 1000 毫秒
- 令 YS4 = Bkgnd.GetPixelColor(Hwnd,401,252)
- 如果 YS4 = "00FFFF" 则
- 延时 10 毫秒
- 否则
- 跳转到标记 B
- 条件结束
- 注释:这里师门已经做完了。。。。。。。。。
- 注释:这里师门已经做完了。。。。。。。。。
- 注释:这里师门已经做完了。。。。。。。。。
- 注释:这里师门已经做完了。。。。。。。。。
- 标记 B
- 调用 Bkgnd.LeftClick(Hwnd,WE,WA)
- 延时 1000 毫秒
- 令 YA = Bkgnd.GetPixelColor(Hwnd,401,252)
- 如果 YA = "00FFFF" 则
- 跳转到标记 V
- 否则
- 条件结束
- 调用 Bkgnd.LeftClick(Hwnd,WE,WA)
- 延时 500 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,WB,WC)
- 延时 500 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,WBF,WBP)
- 延时 500 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
- 延时 500 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
- 延时 500 毫秒
- 标记 V
- 子程序 O
- 令 XY = Bkgnd.FindColor(Hwnd,391,244,590,WK,"00001B")
- 注释:任务完成时候的图值
- 令 YYU = Split(XY,"|")
- 令 X = CInt(YYU(0))
- 令 Y = CInt(YYU(1))
- 子程序结束
- 标记 B1
- 令 YS = Bkgnd.GetPixelColor(Hwnd,510,266)
- 如果 YS = "FFFFFF" 则
- 调用 O
- 调用 Bkgnd.LeftClick(Hwnd,X,Y)
- 注释:如果任务完成了就跳到。。。
- 跳转到标记 B2
- 否则
- 调用 O
- 延时 400 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,X,Y)
- 延时 1000 毫秒
- 跳转到标记 B3
- 条件结束
- 标记 B2
- 令 YC = Bkgnd.GetPixelColor(Hwnd,215,426)
- 如果 YC = "29341A" 则
- 调用 Bkgnd.LeftClick(Hwnd,WE,WA)
- 延时 500 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
- 延时 500 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
- 延时 500 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
- 延时 500 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,WE,WA)
- 延时 2000 毫秒
- 令 YS4 = Bkgnd.GetPixelColor(Hwnd,401,252)
- 如果 YS4 = "00FFFF" 则
- 延时 10 毫秒
- 否则
- 调用 Bkgnd.LeftClick(Hwnd,X,Y)
- 延时 1000 毫秒
- 跳转到标记 C
- 条件结束
- 跳转到标记 B1
- 延时 300 毫秒
- 否则
- 延时 500 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,X,Y)
- 延时 500 毫秒
- 跳转到标记 B3
- 条件结束
- 标记 B3
- 令 YS = Bkgnd.GetPixelColor(Hwnd,510,266)
- 如果 YS = "FFFFFF" 则
- 跳转到标记 B1
- 调用 Bkgnd.LeftClick(Hwnd,WE,WA)
- 否则
- 调用 Bkgnd.KeyPress(Hwnd,90)
- 延时 1000 毫秒
- 跳转到标记 B3
- 条件结束
- 跳转到标记 B
- 注释:这里捕杀已经做完了。。。。。。。。。
- 注释:这里捕杀已经做完了。。。。。。。。。
- 注释:这里捕杀已经做完了。。。。。。。。。
- 注释:这里捕杀已经做完了。。。。。。。。。
- 标记 C
- 调用 Bkgnd.LeftClick(Hwnd,WE,WA)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,WB,WC)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,WCF,WCW)
- 延时 1000 毫秒
- 循环 15 次
- 调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
- 延时 1300 毫秒
- 循环结束
- 注释:.................................................
- 标记 F
- 调用 Bkgnd.LeftClick(Hwnd,WE,WA)
- 延时 1000 毫秒
- 令 YK = Bkgnd.GetPixelColor(Hwnd,401,252)
- 如果 YK = "00FFFF" 则
- 跳转到标记 F1
- 否则
- 条件结束
- 调用 Bkgnd.LeftClick(Hwnd,WB,WC)
- 延时 500 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,WFF,WFW)
- 延时 500 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
- 延时 500 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
- 延时 500 毫秒
- 标记 F1
- 子程序 L
- 令 YB = Bkgnd.FindColor(Hwnd,391,244,590,WK,"00001B")
- 注释:任务完成时候的图值
- 令 YB = Split(YB,"|")
- 令 X = CInt(YB(0))
- 令 Y = CInt(YB(1))
- 子程序结束
- 标记 F2
- 令 YI = Bkgnd.GetPixelColor(Hwnd,WCK,WCL)
- 如果 YI = "FFFFFF" 则
- 调用 L
- 调用 Bkgnd.LeftClick(Hwnd,X,Y)
- 注释:如果任务完成了就跳到。。。
- 跳转到标记 F3
- 否则
- 调用 L
- 延时 400 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,X,Y)
- 延时 500 毫秒
- 跳转到标记 F4
- 条件结束
- 标记 F3
- 令 YI = Bkgnd.GetPixelColor(Hwnd,215,426)
- 如果 YI = "29341A" 则
- 调用 Bkgnd.LeftClick(Hwnd,WE,WA)
- 延时 500 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
- 延时 500 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,WCC,WDD)
- 延时 500 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,WE,WA)
- 延时 1500 毫秒
- 令 YG = Bkgnd.GetPixelColor(Hwnd,401,252)
- 如果 YG = "00FFFF" 则
- 延时 10 毫秒
- 否则
- 弹出窗口 "任务完成"
- 条件结束
- 跳转到标记 F2
- 延时 300 毫秒
- 否则
- 调用 Bkgnd.LeftClick(Hwnd,X,Y)
- 延时 500 毫秒
- 跳转到标记 F4
- 条件结束
- 标记 F4
- 令 YI = Bkgnd.GetPixelColor(Hwnd,WCK,WCL)
- 如果 YI = "FFFFFF" 则
- 跳转到标记 F3
- 延时 1000 毫秒
- 否则
- 调用 Bkgnd.KeyPress(Hwnd,90)
- 延时 1000 毫秒
- 跳转到标记 F4
- 条件结束
- 延时 1000 毫秒
- 令 YGG = Bkgnd.GetPixelColor(Hwnd,401,252)
- 如果 YGG = "00FFFF" 则
- 延时 10 毫秒
- 否则
- 弹出窗口 "任务已经完成"
- 条件结束
- 跳转到标记 F
- 注释:这里惩恶已经做完了。。。。。。。。。
- 注释:这里惩恶已经做完了。。。。。。。。。
- 注释:这里惩恶已经做完了。。。。。。。。。
- 注释:这里惩恶已经做完了。。。。。。。。。
- 注释:这里惩恶已经做完了。。。。。。。。。
online game--钓鱼岛
- 用户定义变量 cc=0 "如果你打不过,循环【xx次】对你有帮助(按下4键 增加威力50%)"
- 用户定义变量 xunhuan=0 "如果你打不过,循环【xx次】对你有帮助(按下3键 附加攻击1次)"
- 用户定义变量 yanchi8=0 "延迟几毫秒(1秒=1000毫秒)【在点击开始后第一次攻击的延迟】"
- 用户定义变量 yanchi1=0 "延迟几毫秒(1秒=1000毫秒)【在攻击前】"
- 用户定义变量 yanchi2=0 "延迟几毫秒(1秒=1000毫秒)【在攻击前】"
- 用户定义变量 yanchi3=0 "延迟几毫秒(1秒=1000毫秒)【在攻击前】"
- 用户定义变量 yanchi4=0 "延迟几毫秒(1秒=1000毫秒)【在抽牌前,再点击第一张牌!】"
- 用户定义变量 yanchi5=0 "延迟几毫秒(1秒=1000毫秒)【在点击全选前】"
- 用户定义变量 yanchi6=0 "延迟几毫秒(1秒=1000毫秒)【在点击最后一张牌的确定前】"
- 用户定义变量 yanchi7=0 "延迟几毫秒(1秒=1000毫秒)【在点击全选后延迟的时间】"
- 用户定义变量 xunhuan999=0 "在点击全选之前要按的次数按全选这个键"
- (鼠标)移动到 (611, 291)
- (鼠标)移动到 (639, 303)
- 延时 1445 毫秒
- (鼠标)左键单击, 1次
- (鼠标)移动到 (815, 407)
- 延时 786 毫秒
- (鼠标)左键按下
- (鼠标)移动到 (788, 582)
- 延时 236 毫秒
- (鼠标)左键弹起
- (鼠标)移动到 (476, 457)
- 延时 367 毫秒
- (鼠标)左键单击, 1次
- (鼠标)移动到 (749, 590)
- 延时 434 毫秒
- (鼠标)左键按下
- (鼠标)左键按下
- (鼠标)移动到 (748, 590)
- 延时 77 毫秒
- (鼠标)左键弹起
- (鼠标)移动到 (747, 640)
- 延时 218 毫秒
- (鼠标)左键按下
- (鼠标)移动到 (746, 640)
- 延时 106 毫秒
- (鼠标)左键弹起
- (鼠标)移动到 (937, 560)
- 延时 445 毫秒
- (鼠标)左键单击, 1次
- 延时 yanchi8 毫秒
- (键盘)按下 "Enter" 键
- 延时 80 毫秒
- (键盘)弹起 "Enter" 键
- (鼠标)移动到 (510, 393)
- 延时 1278 毫秒
- (鼠标)左键单击, 1次
- 延时 yanchi1 毫秒
- (键盘)按下 "Num 2" 键
- 延时 102 毫秒
- (键盘)弹起 "Num 2" 键
- 循环 xunhuan 次
- (键盘)按下 "Num 3" 键
- 循环结束
- 延时 78 毫秒
- (键盘)弹起 "Num 3" 键
- 延时 112 毫秒
- (键盘)按下 "Num 3" 键
- 延时 126 毫秒
- (键盘)弹起 "Num 3" 键
- 循环 cc 次
- (键盘)按下 "Num 4" 键
- 延时 1 毫秒
- (键盘)弹起 "Num 4" 键
- 循环结束
- (键盘)按下 "Space" 键
- 延时 312 毫秒
- (键盘)弹起 "Space" 键
- 延时 yanchi2 毫秒
- (键盘)按下 "Num 2" 键
- 延时 2 毫秒
- (键盘)弹起 "Num 2" 键
- 循环 cc 次
- (键盘)按下 "Num 4" 键
- 延时 1 毫秒
- (键盘)弹起 "Num 4" 键
- 循环结束
- 循环 xunhuan 次
- (键盘)按下 "Num 3" 键
- 循环结束
- 延时 81 毫秒
- (键盘)弹起 "Num 3" 键
- 延时 48 毫秒
- (键盘)按下 "Num 3" 键
- 延时 90 毫秒
- (键盘)弹起 "Num 3" 键
- 延时 268 毫秒
- (键盘)按下 "Space" 键
- 延时 502 毫秒
- (键盘)弹起 "Space" 键
- 延时 yanchi3 毫秒
- (键盘)按下 "Num 2" 键
- 延时 199 毫秒
- (键盘)弹起 "Num 2" 键
- 延时 115 毫秒
- 循环 xunhuan 次
- (键盘)按下 "Num 3" 键
- 循环结束
- (键盘)弹起 "Num 3" 键
- (键盘)按下 "Num 3" 键
- (键盘)弹起 "Num 3" 键
- 循环 cc 次
- (键盘)按下 "Num 4" 键
- 延时 1 毫秒
- (键盘)弹起 "Num 4" 键
- 循环结束
- (键盘)按下 "Space" 键
- 延时 341 毫秒
- (键盘)弹起 "Space" 键
- (鼠标)移动到 (908, 181)
- 延时 12194 毫秒
- (鼠标)左键按下
- 延时 yanchi4 毫秒
- (鼠标)移动到 (907, 181)
- 延时 93 毫秒
- (鼠标)左键弹起
- 延时 1 毫秒
- (鼠标)左键弹起
- (鼠标)移动到 (758, 541)
- 延时 2517 毫秒
- (鼠标)左键按下
- 延时 1 毫秒
- (鼠标)左键单击, 1次
- 延时 1 毫秒
- (鼠标)左键弹起
- (鼠标)移动到 (590, 227)
- 延时 1876 毫秒
- (鼠标)左键按下
- 延时 1 毫秒
- (鼠标)左键单击, 1次
- 延时 yanchi6 毫秒
- (鼠标)移动到 (447, 416)
- 延时 797 毫秒
- (鼠标)左键单击, 1次
- 延时 1 毫秒
- (鼠标)左键弹起
- 延时 yanchi5 毫秒
- (鼠标)移动到 (459, 349)
- 循环 xunhuan999 次
- (鼠标)左键单击, 1次
- 延时 1 毫秒
- (鼠标)左键弹起
- 循环结束
- 延时 630 毫秒
- 延时 82 毫秒
- 延时 47 毫秒
- (鼠标)左键单击, 1次
- 延时 2 毫秒
- (鼠标)左键弹起
- 延时 10 毫秒
- 延时 yanchi7 毫秒
**圖象識別*验证码识别脚本 [ ① ]**
- //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓☆〓〓//
- // //
- //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★注★意★〓〓〓〓〓〓〓〓☆〓〓//
- // 《如果不能识别请重新抓一下[起点坐标]跟[10个数字的颜色]即可》 //
- //
- //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★变★量★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
- //《定义变量》
- Dim c0,c1,c2,c3,c4,c5,c6,c7,c8,c9,cb,x,cx,y,n,cn,color,okn
- //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
- //《10个数字的颜色》
- c0="00498C"
- c1="0000DE"
- c2="0024C6"
- c3="A56D00"
- c4="0059A5"
- c5="DE3C00"
- c6="0045CE"
- c7="6300A5"
- c8="42A600"
- c9="E76500"
- //《验证码背景的颜色》
- cb="EFEFEF"
- //《起点x , y坐标变量赋值(验证码图片左上角那个点)》
- x=129:y=420
- //《两个数字之间距离》
- n=10
- //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
- okn=""
- //《识别4个数字的循环次数 (为4)》
- 循环 4 遍
- //《起点颜色cx坐标变量赋值》
- cx=x
- //《识别1个数字横向点的循环次数 (为5)》
- 循环 5 遍
- 调用外部VBScript子程序 color=得到指定点的颜色(cx,y)
- //《判断是否为背景色》
- 如果表达式 (color<>cb) 为真,则
- //《判断每次得到的颜色跟10个数字的颜色对比》
- 如果表达式 (color=c0) 为真,则
- cn="0"
- 否则如果(color=c1)为真,则
- cn="1"
- 否则如果(color=c2)为真,则
- cn="2"
- 否则如果(color=c3)为真,则
- cn="3"
- 否则如果(color=c4)为真,则
- cn="4"
- 否则如果(color=c5)为真,则
- cn="5"
- 否则如果(color=c6)为真,则
- cn="6"
- 否则如果(color=c7)为真,则
- cn="7"
- 否则如果(color=c8)为真,则
- cn="8"
- 否则如果(color=c9)为真,则
- cn="9"
- 条件结束
- 跳转到标记 〖离开1个数字横向点的循环〗
- 否则
- //《继续循环直到5次完》
- cx=cx+1
- 条件结束
- 循环结束
- 标记 〖离开1个数字横向点的循环〗
- //《接着识别下一个数字》
- x=x+n
- //《得到验证码4个数字》
- okn=okn & cn
- 循环结束
- //《显示验证码4个数字》
- 调用外部VBScript子程序 color=得到指定点的颜色(cx,y)
- 脚本停止运行
运行环境:分辨率:1440x900 色深:32位
操作系统:Windows XP 按键精灵版本:7.00.3730
**
- //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓☆〓〓
- 〓〓〓〓〓〓〓〓〓〓〓〓〓〓★注★意★〓〓〓〓〓〓〓〓〓〓〓〓〓
- // 《如果不能识别请重新抓一下[起点坐标]跟[10个数字的颜色]即可》 //
- // [验证码] //
- //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★变★量★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
- //《定义变量》
- Dim no0,no1,no2,no3,no4,no5,no6,no7,no8,no9,nob,ux,uy,x,y,n,cno,color,okno,i,co
- //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
- //《10个数字的上半个字特征码》
- no0="000111110000011111111100111100001110110000000011110000000011110000000011110000000011110000000011"
- no1="000011100000000111100000000111100000001111100000001101100000000001100000000001100000000001100000"
- no2="000011111100001111011110011110000110111000000011110000000011000000000001000000000111000000001111"
- no3="111111111111000000001111000000011100000000111000000011110000000111100000000111111100000001111111"
- no4="000000110000000000110000000000110000000000110000001000110000001100110000011100110000011000110000"
- no5="111111111110100000000000100000000000100000000000100000000000100000000000111111111000111111111100"
- no6="000111110000011111111100111100001110110000000011110000000000110000000000110111111000111111111110"
- no7="111111111111000000000001000000000011000000000111000000000110000000001110000000011100000000011000"
- no8="001111111000011111111100011000000110011000000110011000000110011000001110011111111110000111111000"
- no9="000111110000011111111100111100001110110000000011110000000011110000000011110000000011110000001111"
- //《起点ux , uy坐标变量赋值(验证码图片左上角红色那个点)》
- ux=355 : uy=383
- //《两个数字之间距离》
- n=20
- //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
- okno=""
- //《识别5个数字的循环次数 (为5)》
- 循环 5 遍
- co=""
- //《起点颜色y坐标变量赋值》
- y=uy
- //16行(只循环8次)特征点
- 循环 8 遍
- //《起点颜色x坐标变量赋值》
- x=ux
- //每行12个特征点(循环12次)
- 循环 12 遍
- 调用外部VBScript子程序 color=得到指定点的颜色(x,y)
- 如果表达式 (color="FFFFFF") 为真,则
- i="1"
- 否则
- i="0"
- 条件结束
- co=co & i
- x=x+1
- 循环结束
- y=y+1
- 循环结束
- //《判断每次得到的特征码跟10个数字的特征码对比》
- 如果表达式 (co=no0) 为真,则
- cno="0"
- 否则如果(co=no1)为真,则
- cno="1"
- 否则如果(co=no2)为真,则
- cno="2"
- 否则如果(co=no3)为真,则
- cno="3"
- 否则如果(co=no4)为真,则
- cno="4"
- 否则如果(co=no5)为真,则
- cno="5"
- 否则如果(co=no6)为真,则
- cno="6"
- 否则如果(co=no7)为真,则
- cno="7"
- 否则如果(co=no8)为真,则
- cno="8"
- 否则如果(co=no9)为真,则
- cno="9"
- 否则
- cno="?"
- 条件结束
- //《接着识别下一个数字》
- ux=ux+n
- //《得到验证码5个数字》
- okno=okno & cno
- 循环结束
- //《显示验证码5个数字》
- 调用外部VBScript子程序 color=得到指定点的颜色(x,y)
- 脚本停止运行
- //〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
- //
- //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓待續其他〓〓〓〓〓☆〓〓//
**脚本附件:怪的星号.bmp, 返回游戏.bmp, 跳转.bmp, 东.bmp, 北.bmp,
南.bmp, 邪天刀.bmp, 防止出龙岛.bmp, 西.bmp, 普通攻击.bmp, 攻击.bmp
运行环境:分辨率:1366x768 色深:32位 操作系统:
Windows 7 Ultimate 按键精灵版本:9.10.10413 **
**
- 令 win = Window.MousePoint()
- 调用 Window.Top(win)
- 调用 Window.Active(win)
- 延时 400 毫秒
- 调用 Window.Move(win,0,0)
- 标记 开始
- 循环 5 次
- 标记 找怪
- 延时 300 毫秒
- 从左上到右下查找图片 "Attachment:\怪的星号.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 跳转到标记 攻击
- 条件结束
- 延时 300 毫秒
- 标记 攻击
- 从左上到右下查找图片 "Attachment:\攻击.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 跳转到标记 招式
- 条件结束
- 延时 300 毫秒
- 标记 招式
- 从左上到右下查找图片 "Attachment:\普通攻击.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 800 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- (语句无法识别,可能有错误): Else Goto 返回
- 条件结束
- 标记 返回
- 延时 300 毫秒
- 从左上到右下查找图片 "Attachment:\返回游戏.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 跳转到标记 防出岛
- 条件结束
- 延时 300 毫秒
- 标记 防出岛
- 从左上到右下查找图片 "Attachment:\防止出龙岛.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 跳转到标记 跳转
- 条件结束
- 延时 300 毫秒
- 标记 跳转
- 从左上到右下查找图片 "Attachment:\跳转.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 跳转到标记 东
- 条件结束
- 延时 300 毫秒
- 标记 东
- 从左上到右下查找图片 "Attachment:\东.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 条件结束
- 循环结束
- 循环 5 次
- 延时 300 毫秒
- 标记 找怪2
- 延时 400 毫秒
- 从左上到右下查找图片 "Attachment:\怪的星号.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 跳转到标记 攻击2
- 条件结束
- 延时 300 毫秒
- 标记 攻击2
- 从左上到右下查找图片 "Attachment:\攻击.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 跳转到标记 招式2
- 条件结束
- 延时 300 毫秒
- 标记 招式2
- 从左上到右下查找图片 "Attachment:\普通攻击.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 跳转到标记 返回2
- 条件结束
- 延时 300 毫秒
- 标记 返回2
- 从左上到右下查找图片 "Attachment:\返回游戏.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 跳转到标记 防出岛2
- 条件结束
- 延时 40 毫秒
- 标记 防出岛2
- 从左上到右下查找图片 "Attachment:\防止出龙岛.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 跳转到标记 跳转2
- 条件结束
- 延时 300 毫秒
- 标记 跳转2
- 从左上到右下查找图片 "Attachment:\跳转.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 跳转到标记 北2
- 条件结束
- 延时 300 毫秒
- 标记 北2
- 从左上到右下查找图片 "Attachment:\北.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 条件结束
- 循环结束
- 循环 5 次
- 标记 找怪8
- 延时 400 毫秒
- 从左上到右下查找图片 "Attachment:\怪的星号.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 跳转到标记 攻击8
- 条件结束
- 延时 300 毫秒
- 标记 攻击8
- 从左上到右下查找图片 "Attachment:\攻击.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 跳转到标记 招式8
- 条件结束
- 延时 300 毫秒
- 标记 招式8
- 从左上到右下查找图片 "Attachment:\普通攻击.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 跳转到标记 返回8
- 条件结束
- 延时 300 毫秒
- 标记 返回8
- 从左上到右下查找图片 "Attachment:\返回游戏.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 跳转到标记 防出岛8
- 条件结束
- 延时 300 毫秒
- 标记 防出岛8
- 从左上到右下查找图片 "Attachment:\防止出龙岛.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 跳转到标记 跳转8
- 条件结束
- 延时 300 毫秒
- 标记 跳转8
- 从左上到右下查找图片 "Attachment:\跳转.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 跳转到标记 东8
- 条件结束
- 标记 东8
- 从左上到右下查找图片 "Attachment:\西.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 条件结束
- 循环结束
- 循环 5 次
- 标记 找怪4
- 延时 400 毫秒
- 从左上到右下查找图片 "Attachment:\怪的星号.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 跳转到标记 攻击4
- 条件结束
- 延时 300 毫秒
- 标记 攻击4
- 从左上到右下查找图片 "Attachment:\攻击.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 跳转到标记 招式4
- 条件结束
- 延时 300 毫秒
- 标记 招式4
- 从左上到右下查找图片 "Attachment:\普通攻击.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 跳转到标记 返回4
- 条件结束
- 标记 返回4
- 延时 400 毫秒
- 从左上到右下查找图片 "Attachment:\返回游戏.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 跳转到标记 防出岛4
- 条件结束
- 延时 400 毫秒
- 标记 防出岛4
- 从左上到右下查找图片 "Attachment:\防止出龙岛.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 跳转到标记 跳转4
- 条件结束
- 标记 跳转4
- 从左上到右下查找图片 "Attachment:\跳转.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 跳转到标记 南4
- 条件结束
- 延时 300 毫秒
- 标记 南4
- 延时 300 毫秒
- 从左上到右下查找图片 "Attachment:\南.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 条件结束
- 循环结束
- 标记 继续
- 从左上到右下查找图片 "Attachment:\继续.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 调用 Bkgnd.MoveTo(win,intX + 8,intY + 4)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(win,intX + 8,intY + 4)
- 否则
- 跳转到标记 开始
- 条件结束
- 跳转到标记 开始
- If intX > 0 And intY > 0 Then
- Call Plugin.Bkgnd.MoveTo(win, intX + 8, intY + 4)
- Delay 1000
**几何计算 **一元三次方程求解脚本 **脚本附件:
运行环境:分辨率:1440x900 色深:32位 操作系统:Windows XP 按键精灵版本:6.87.3535
**
- 用户定义变量 s3=1 3次系数
- 用户定义变量 s2=1 2次系数
- 用户定义变量 s1=1 1次系数
- 用户定义变量 s0=0 常数项
- Dim a,b,c,t1,t2,q,p,x,x1,x2
- a=s2/s3
- b=s1/s3
- c=s0/s3
- t1=(2*a*a*a)/27+a*b/3+c
- t2=t1*t1-4*(3*b+a*a)*(3*b+a*a)*(3*b+a*a)/729
- p=Sqr(t2)
- q=Sqr(t2)
- p=p+t1
- q=t1-q
- x1=p*p*p
- x2=q*q*q
- x=q+p+a/3
- 调用外部VBScript子程序 MessageBox("X="&x&" X1="&x1&" X2="&x2)
**一元二次方程计算 **
**
【功能说明】
本脚本用于计算一元二次方程。通常用于验算(*^__^*)...嘻嘻
【使用说明】
分别在提示中输入一元二次方程中的a b c。注意:化成一般形式
脚本附件:
本脚本用于计算一元二次方程。通常用于验算(*^__^*)...嘻嘻
【使用说明】
分别在提示中输入一元二次方程中的a b c。注意:化成一般形式
脚本附件:
运行环境:分辨率:1440x900 色深:32位 操作系统:Windows XP 按键精灵版本:7.00.3730
- 标记 定变量
- (VBScript语句) Dim a
- (VBScript语句) Dim b
- (VBScript语句) Dim c
- 标记 ==============主程序开始================
- 标记 弹出欢迎框
- 弹出窗口 "欢迎使用!本脚本用于简单的二元一次方程计算"
- 标记 输入变量a,b,c的值
- 调用外部VBScript子程序 a=InputBox("请输入a(一般形式a不为零)")
- 如果表达式 (StrComp("",a)=0) 为真,则
- 调用外部VBScript子程序 a=InputBox("请输入a(一般形式a不为零)")
- 脚本停止运行
- 条件结束
- 调用外部VBScript子程序 a=InputBox("请输入a(一般形式a不为零)")
- 调用外部VBScript子程序 a=InputBox("请输入a(一般形式a不为零)")
- 如果表达式 (a=0) 为真,则
- 标记 判断是不是一元二次方程
- 调用外部VBScript子程序 a=InputBox("请输入a(一般形式a不为零)")
- 脚本停止运行
- 条件结束
- 标记 〖这个cint(x)是把变量值转换成数字〗
- (VBScript语句) a=cint(a)
- (VBScript语句) b=cint(b)
- (VBScript语句) c=cint(c)
- 标记 开始用求根公式求解
- 标记 先判断方程的根的情况
- 如果表达式 ((b*b-4*a*c)<0) 为真,则
- 调用外部VBScript子程序 a=InputBox("请输入a(一般形式a不为零)")
- 脚本停止运行
- 条件结束
- (VBScript语句) e=Sqr(b*b-4*a*c)
- (VBScript语句) d1=(-b-e)/(2*a)
- (VBScript语句) d2=(-b+e)/(2*a)
- 标记 显示方程的解
- 调用外部VBScript子程序 a=InputBox("请输入a(一般形式a不为零)")
- 调用外部VBScript子程序 a=InputBox("请输入a(一般形式a不为零)")
- 脚本停止运行
----------------------------------------------------------------------------------------------------------------------
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
*&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
沒有留言:
張貼留言
if you like make fds, wellcome you here~~anytime***
my free place for everyones who want the good software,
come & download them~ wellcome!!