欢迎光临散文网 会员登陆 & 注册

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

2023-06-07 23:36 作者:小徐じょ  | 我要投稿

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,

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

分享到微博请遵守国家法律