自動突襲腳本原始碼

我公布一下有能力的人 自己用按鍵精靈就能改 然後執行了

改一小些地方 11點搶突襲應該沒問題

Dim intX,intY,intXR,intYR,loopa
intX = 0
intY = 0
loopa = 0

Rem start
errX = -1
errY = - 1
//MessageBox(errX)
FindPic 430, 271, 942, 460, "D:sourceerr.bmp", 0.7, errX, errY
//MessageBox(errX)
If errX > 0 Then
Call err
End If
FindPic 670,156,784,241,"D:source        1.bmp",0.2,TX,TY
FindPic 670, 156, 784, 241, "D:source        2.bmp", 0.2, TX2, TY2
Delay 500
If TX > 0 Then
Call a(TX,TY)
End If

If TX2 > 0 Then
Call a(TX2,TY2)
End If

FindPic 414,168,732,295,"D:sourcefail.bmp",0.2,failX,failY
If failX > 0 Then
//MessageBox ("fail")
Rem fail1
Delay 500
MoveTo 570, 440
Delay 500
LeftClick 1
Delay 1000
FindPic 430, 506, 546, 577, "D:source        4.bmp", 0.5, endX, endY
If endX > 0 Then

Rem fail2
FindPic 430, 506, 546, 577, "D:source        4.bmp", 0.5, endX, endY
If endX > 0 Then
Delay 1000
KeyPress "Esc",1
Else
Delay 1000
//Goto fail2
KeyPress "Esc",1
End If

Rem fail3
Delay 2000
FindPic 541, 461, 702, 518, "D:source        3.bmp", 0.5, autoX, autoY
If autoX > 0 Then
Delay 1000
KeyPress "Esc", 1
Else
Delay 1000
KeyPress "Esc", 1
End If

Else
//Goto fail1
KeyPress "Esc",1
End If

End If

FindPic 414,168,732,295,"D:sourceok.bmp",0.5,okX,okY
If okX > 0 Then

MoveTo 558, 457
Delay 500
LeftClick 1
Delay 500
End If

//FindPic 19,572,201,630,"D:source        all.bmp",0.6,tallx,tally
FindPic 131, 572, 190, 627, "D:source        loop.bmp", 0.4, tlx, tly

FindPic 541, 461, 702, 518, "D:source        3.bmp", 0.5, autoX, autoY
FindPic 430, 506, 546, 577, "D:source        4.bmp", 0.5, endX, endY
FindPic 247, 144, 659, 522, "D:sourcefuckend.bmp", 0.5, fuckendX, fuckendY
FindPic 652, 118, 817, 239, "D:source
estart.bmp", 0.2, restartX, restartY
//FindPic 426, 171, 726, 492, "D:source        5.bmp", 0.5, pcfX, pcfY

//541 461 702 518
//430 506 546 577
//492 408 617 465
//5 25 65 80
//714 113 773 167
If restartX > 0 Then
loopa = 30
Call a(729,155)
End If

If errX > 0 Then
Call a(877, 482)
End If

If TX > 0 Then
Call a(TX,TY)
Call a(autoX,autoY)
Call a(500,543)
End If

If TX2 > 0 Then
Call a(TX2,TY2)
Call a(autoX,autoY)
Call a(500,543)
End If

If tallx > 0 Then
Call tall
End If

If fuckendX > 0 Then
Call a(391,398)
End If


//If autoX > 0 Then
//Call a(autoX,autoY)
//End If

//If endX > 0 Then
//Call a(500,543)
//End If

If pcfX > 0 Then
Call T5(pcfX,pcfY)
End If

If tlx > 0 Then
Call c
End If

Goto start


Sub a(intX, intY)
//MessageBox("fail")
MoveTo intX, intY
Delay 300
LeftClick 2
Delay 300
TX = 0
TY = 0
startjoinX = 0
startjoinY = 0
autoX = 0
autoY = 0
endX = 0
endY = 0
pcfX = 0
pcfY = 0
End Sub
Goto start


Sub b
Delay 1000
MoveTo 33, 602
Delay 1000
LeftClick 2
Delay 1000

End Sub
Goto start

Sub c
If loopa > 20 then
//LeftClick 1
Delay 400
MoveTo 109, 606
Delay 400
LeftClick 1
Delay 200
MoveTo 89, 498
Delay 400
LeftClick 1
Delay 400
LeftClick 1
Delay 200
loopa = 0
Else
MoveTo 159, 602
Delay 500
LeftClick 4
Delay 500
LeftClick 1
FindPic 670,156,784,241,"D:source        1.bmp",0.2,TX,TY
FindPic 670, 156, 784, 241, "D:source        2.bmp", 0.2, TX2, TY2
loopa = loopa + 1
End If
End Sub
Goto start

Sub T5(intX, intY)

MoveTo intX, intY
Delay 500
LeftClick 2
Delay 2000



//MoveTo 34, 53
//Delay 500
//LeftClick 1
//Delay 500
//KeyPress "Esc", 1
//Delay 500
//KeyPress "Esc", 1
End Sub
Goto start

Sub tall
MoveTo 86, 597
Delay 500
LeftClick 1
MoveTo 81, 496
Delay 500
LeftClick 1

End Sub
Goto start

Sub err
MoveTo 877, 428
Delay 500
LeftClick 1
End Sub

由 手機網頁 發佈

一堆需要图片识别的代码，没有图片导入了代码能有什么用？

apk94396886 發表於 2016-12-22 10:42
一堆需要图片识别的代码，没有图片导入了代码能有什么用？

文中說到
"我公布一下有能力的人 自己用按鍵精靈就能改 然後執行了"
我圖片分享也可以


但是座標 還是要自己改

也可以改成不用設定座標 用自動抓的

但是這個腳本是我初版的有幾個缺點 我後來有改

我真心覺得你們都很厲害，看了教學還是搞不懂..