远征日服·信喵之野望按键精灵脚本1.自动召回高级版本

pp875598763

已于 2024-02-29 09:12:45 修改

阅读量136

点赞数

分类专栏：远征日服·信喵之野望按键精灵脚本文章标签：精益工程

于 2022-09-02 14:29:05 首次发布

本文链接：https://blog.csdn.net/pp875598763/article/details/126662145

版权

远征日服·信喵之野望按键精灵脚本专栏收录该内容

7 篇文章 0 订阅

订阅专栏

这个脚本是配合日服信喵之野武召回好友功能的，可以自动点进去然后点击召回好友，然后换号继续

Text = Plugin.File.ReadFileEx("C:\id.txt")
my = split(Text, "|")
j = UBound(my)
For i= 1 to j-1
    Rem Reload
    two = split(my(i), ",")
    FindPic 0,0,1024,768,"Attachment:\登录.bmp",0.8,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX+10, intY+10
    End If
    Delay 1000
    LeftClick  1
    Delay 2000
    Call Plugin.Sys.SetCLB(two(0))   
    KeyDown 17, 1                                       
    KeyPress 86, 1
    KeyUp 17, 1
    Delay 1000
    KeyPress "Tab", 1
    Delay 1000
    Call Plugin.Sys.SetCLB(two(1))   
    KeyDown 17, 1                                       
    KeyPress 86, 1
    KeyUp 17, 1
    Delay 1000
    FindPic 0,0,1024,768,"Attachment:\登入.bmp",0.9,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX+10, intY+10
    End If
    Delay 1000
    LeftClick  1
    Delay 3000
    KeyPress "Space", 1
    Delay 2000
    FindPic 0,0,1024,768,"Attachment:\开始.bmp",0.8,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX, intY
    	Delay 1000
        LeftClick 1
    End If
    Delay 2000
    Rem Recheck
    FindPic 0,0,1024,768,"Attachment:\射靶结果.bmp",0.8,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX, intY
    	Delay 1000
        LeftClick 1
        Delay 1000
        Goto Recheck
    End If
    Delay 1000
    FindPic 0,0,1024,768,"Attachment:\报酬领取.bmp",0.8,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX, intY
    	Delay 1000
        LeftClick 1
        Delay 1000
        Goto Recheck
    End If
    Delay 1000
    FindPic 0,0,1024,768,"Attachment:\确认.bmp",0.8,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX, intY
    	Delay 1000
        LeftClick 1
        Delay 1000
        Goto Recheck
    End If
    Delay 1000
    FindPic 0,0,1024,768,"Attachment:\政策法规.bmp",0.8,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX, intY
    	Delay 1000
        LeftClick 1
        Delay 1000
        Goto Recheck
    End If
    Delay 1000
    FindPic 0,0,1024,768,"Attachment:\全国地图.bmp",0.8,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX, intY
    	Delay 1000
        LeftClick 1
        Delay 1000
        Goto Reload
    End If
    Delay 1000
    FindPic 0,0,1024,768,"Attachment:\开催中.bmp",0.8,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX+10, intY+10
    	Delay 1000
        LeftClick 1
    End If
    Delay 2000
    FindPic 0,0,1024,768,"Attachment:\召回.bmp",0.8,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX+10, intY+10
    	Delay 1000
        LeftClick 1
    End If
    Delay 2000
    Rem Fuck
    FindColorEx 0,650,1024,768,"EF0000",0,0.9,intX,intY
    If intX > 0 And intY > 0 Then 
    	MoveTo intX, intY
    	Delay 1000
        LeftClick 1
    End If
    Delay 2000
    FindPic 0,0,1024,768,"Attachment:\召回键.bmp",0.8,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX+10, intY+10
    	Delay 1000
        LeftClick 1
    End If
    Delay 1000
    FindPic 0,0,1024,768,"Attachment:\是.bmp",0.8,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX+10, intY+10
    	Delay 1000
        LeftClick 1
    End If
    Delay 1000
    FindPic 0,0,1024,768,"Attachment:\珍.bmp",1.0,intX,intY
    If intX > 1 And intY > 1 Then 
    	TracePrint "还没完"
    	KeyDown 18, 1
        KeyPress 37, 1
        KeyUp 18, 1
        Delay 3000
        Goto Fuck
    End If
    Delay 1000
 Next