原神小工具图片识别完成自动对话,自动探索派遣,自动强化圣遗物,自动清空活动...

https://wwrc.lanzouj.com/b0fb1q8zc
密码:1234
软件源码
i = 0
o=0
//FindPic 286,45,360,70,"Attachment:\探索派遣.bmp",0.9,intX,intY
FindPic 3066, 1331, 3160, 1379, "Attachment:\强化.bmp", 0.7, intX,intY
If intX > 0 And intY > 0 Then
TracePrint intX
Goto 强化
End If
FindPic 2146,646,2370,806,"Attachment:\凯瑟琳.bmp",0.7,intX,intY
If intX > 0 And intY > 0 Then
TracePrint intX
Goto 每日
End If
FindPic 2199,307, 2575,747, "Attachment:\限购.bmp", 0.6, intX,intY
If intX > 0 And intY > 0 Then
TracePrint intX
Goto 商店
End If
Goto 自动对话
//##############################################################################
Rem 每日
KeyPress "F", 1
Delay 800
LeftClick 1
Delay 1000
FindPic 2306,500,2510,1006,"Attachment:\领取.bmp",0.7,intX,intY
If intX > 0 And intY > 0 Then
TracePrint intX
MoveTo intX,intY
Delay 100
LeftClick 1
Delay 1300
LeftClick 1
Delay 1800
MoveTo 1700, 1290
Delay 100
LeftClick 1
Delay 2000
KeyPress "F", 1
Delay 800
LeftClick 1
Delay 1000
End If
FindPic 2306,500,2510,1006,"Attachment:\探索.bmp",0.7,intX,intY
If intX > 0 And intY > 0 Then
TracePrint intX
MoveTo intX,intY
Delay 200
LeftClick 1
Delay 1500
Else
MoveTo 2331, 1051
Delay 80
LeftClick 1
Delay 600
LeftClick 1
Goto 结束
End If
for 20
FindColorEx 1070,223,2150,1250,"0DBF82",0,0.8,intA,intB
If intA > 0 And intB > 0 Then
i = i + 1
TracePrint i
MoveTo intA, intB
Delay 95
LeftClick 1
Delay 123
MoveTo 3088, 1358
Delay 80
LeftClick 1
Delay 600
LeftClick 1
Delay 500
LeftClick 1
Delay 300
MoveTo 931, 209
Delay 50
LeftClick 1
Delay 180
MoveTo 931, 356
Delay 50
LeftClick 1
Delay 180
MoveTo 936, 494
Delay 50
LeftClick 1
Delay 700
End If
If i = 5 Then
Goto 结束
End If
Next
MoveTo 285, 308
Delay 300
LeftClick 1
Delay 300
for 20
FindColorEx 1070,223,2150,1250,"0DBF82",0,0.8,intA,intB
If intA > 0 And intB > 0 Then
i = i + 1
TracePrint i
MoveTo intA, intB
Delay 95
LeftClick 1
Delay 123
MoveTo 3088, 1358
Delay 80
LeftClick 1
Delay 600
LeftClick 1
Delay 500
LeftClick 1
Delay 300
MoveTo 931, 209
Delay 50
LeftClick 1
Delay 180
MoveTo 931, 356
Delay 50
LeftClick 1
Delay 180
MoveTo 936, 494
Delay 50
LeftClick 1
Delay 700
End If
If i = 5 Then
Goto 结束
End If
Next
MoveTo 285, 401
Delay 300
LeftClick 1
Delay 300
for 20
FindColorEx 1070,223,2150,1250,"0DBF82",0,0.8,intA,intB
If intA > 0 And intB > 0 Then
i = i + 1
TracePrint i
MoveTo intA, intB
Delay 95
LeftClick 1
Delay 123
MoveTo 3088, 1358
Delay 80
LeftClick 1
Delay 600
LeftClick 1
Delay 500
LeftClick 1
Delay 300
MoveTo 931, 209
Delay 50
LeftClick 1
Delay 180
MoveTo 931, 356
Delay 50
LeftClick 1
Delay 180
MoveTo 936, 494
Delay 50
LeftClick 1
Delay 700
End If
If i = 5 Then
Goto 结束
End If
Next
MoveTo 285, 496
Delay 300
LeftClick 1
Delay 300
for 20
FindColorEx 1070,223,2150,1250,"0DBF82",0,0.8,intA,intB
If intA > 0 And intB > 0 Then
i = i + 1
TracePrint i
MoveTo intA, intB
Delay 95
LeftClick 1
Delay 123
MoveTo 3088, 1358
Delay 80
LeftClick 1
Delay 600
LeftClick 1
Delay 500
LeftClick 1
Delay 300
MoveTo 931, 209
Delay 50
LeftClick 1
Delay 180
MoveTo 931, 356
Delay 50
LeftClick 1
Delay 180
MoveTo 936, 494
Delay 50
LeftClick 1
Delay 700
End If
If i = 5 Then
Goto 结束
End If
Next
MoveTo 285, 207
Delay 300
LeftClick 1
Delay 300
for 20
FindColorEx 1070,223,2150,1250,"0DBF82",0,0.8,intA,intB
If intA > 0 And intB > 0 Then
i = i + 1
TracePrint i
MoveTo intA, intB
Delay 95
LeftClick 1
Delay 123
MoveTo 3088, 1358
Delay 80
LeftClick 1
Delay 600
LeftClick 1
Delay 500
LeftClick 1
Delay 300
MoveTo 931, 209
Delay 50
LeftClick 1
Delay 180
MoveTo 931, 356
Delay 50
LeftClick 1
Delay 180
MoveTo 936, 494
Delay 50
LeftClick 1
Delay 700
End If
If i = 5 Then
Goto 结束
End If
Next
Rem 结束
KeyPress "Esc", 1
Delay 2522
KeyDown "F4", 1
Delay 133
KeyUp "F4", 1
Delay 1100
MoveTo 1713, 52
Delay 45
LeftClick 1
Delay 300
MoveTo 3099, 1304
Delay 146
LeftClick 1
Delay 828
LeftClick 1
Delay 100
KeyDown "Esc", 1
Delay 168
KeyUp "Esc", 1
Goto 中止
//##############################################################################
Rem 强化
MoveTo 3131,1018
Delay 300
LeftClick 1
Delay 300
MoveTo 3096,1360
Delay 300
LeftClick 1
Delay 300
MoveTo 263,200
Delay 300
LeftClick 1
Delay 150
MoveTo 261,297
Delay 150
LeftClick 1
Delay 300
Goto 强化
//##############################################################################
Rem 商店
MoveTo 3165, 1362
Delay 321
LeftClick 1
Delay 81
MoveTo 2015, 832
Delay 190
LeftClick 1
Delay 81
MoveTo 2054, 1008
Delay 177
LeftClick 1
Delay 300
LeftClick 1
Delay 81
Goto 商店
//##############################################################################
//自动对话
Rem 自动对话
FindPic 2988, 1400, 3060, 1440, "Attachment:\UID.bmp", 0.6, intX, intY
If intX > 0 And intY > 0 Then
FindPic 258,36,302,82,"Attachment:\对话自动.bmp",0.7,intX,intY
If intX > 0 And intY > 0 Then
i=i+1
LeftClick 1
Delay 100
TracePrint i
Else
FindPic 258,36,302,82,"Attachment:\对话非自动.bmp",0.7,intX,intY
If intX > 0 And intY > 0 Then
i=i+1
LeftClick 1
Delay 100
TracePrint i
End If
End If
FindPic 2286, 803, 2373, 903, "Attachment:\对话泡泡.bmp", 0.8, intX, intY
If intX > 0 And intY > 0 Then
TracePrint "03"
Goto 点击泡泡
Else
FindPic 2286, 903, 2373, 1003, "Attachment:\对话泡泡.bmp", 0.8, intX, intY
If intX > 0 And intY > 0 Then
TracePrint "02"
Goto 点击泡泡
Else
FindPic 2286,