远征日服·信喵之野望按键精灵脚本6.高级自动抽吉

pp875598763

已于 2024-02-29 09:11:23 修改

阅读量731

点赞数

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

于 2022-09-02 14:39:28 首次发布

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

版权

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

7 篇文章 0 订阅

订阅专栏

由于每天登陆，游戏送了很多吉签，每个号200个起步，这个程序实现了自动抽签

Text = Plugin.File.ReadFileEx("F:\id.txt")
my = split(Text, "|")
j = UBound(my)
For i= 1 to j-1
    two = split(my(i), ",")
    Rem Reload
    Delay 1000
    FindPic 0,0,1024,768,"Attachment:\登录.bmp",1.0,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX + 10, intY + 10
    	Delay 1000
        LeftClick  1
        Delay 3000
        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 500
        FindPic 0,0,1024,768,"Attachment:\登入.bmp",0.9,intX,intY
        If intX > 1 And intY > 1 Then 
    	    MoveTo intX + 10, intY + 10
    	    Delay 500
            LeftClick 1
        End If
        Else Goto Reload
    End If
    Delay 5000
    KeyPress "PageDown", 1
    Delay 1000
    FindPic 0,0,1024,768,"Attachment:\开始.bmp",0.9,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX+20, intY+20
    	Delay 1000
        LeftClick 1
        Else Goto Reload
    End If
    Delay 5000
    KeyPress "Up", 8
    Delay 3000
    Rem Recheck
    FindPic 0,0,1024,768,"Attachment:\红叉.bmp",1.0,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX+5, intY+5
    	Delay 1000
        LeftClick 1
        Delay 1000
        Goto Recheck
    End If
    Delay 1000
    KeyPress "Home", 1
    Delay 3000
    FindPic 0,0,1024,768,"Attachment:\抽签.bmp",1.0,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX+5, intY+5
    	Delay 1000
        LeftClick 1
        Delay 1000
        Else Goto Reload
    End If
    Rem Lucky
    Delay 1000
    KeyPress "PageDown", 1
    Delay 1000
    FindPic 0,0,1024,768,"Attachment:\吉签.bmp",1.0,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX+5, intY+5
    	Delay 1000
        LeftClick 1
        Delay 1000
        Else Goto Lucky
    End If
    Rem God
    KeyPress "PageUp", 1
    Delay 1000
    FindPic 0,0,1024,768,"Attachment:\确认抽.bmp",1.0,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX+5, intY+5
    	Delay 1000
        LeftClick 1
        Delay 1000
        Else Goto God
    End If
    Delay 1000
    Rem Kami
    KeyPress "Up", 1
    Delay 300
    FindPic 0,0,1024,768,"Attachment:\抽签.bmp",1.0,intX,intY
    If intX > 1 And intY > 1 Then 
    	Delay 300
        Else Goto Kami
    End If
    Delay 1000
    Rem Devil
    Delay 1000
    FindPic 0,0,1024,768,"Attachment:\再抽一张.bmp",1.0,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX+5, intY+5
    	Delay 1000
        LeftClick 1
        Delay 1000
        FindPic 0,0,1024,768,"Attachment:\确认抽.bmp",1.0,intX,intY
        If intX > 1 And intY > 1 Then 
        	MoveTo intX+5, intY+5
        	Delay 1000
            LeftClick 1
            Delay 3000
        End If
        Goto Devil
    End If
    FindPic 0,0,1024,768,"Attachment:\红叉.bmp",1.0,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX+5, intY+5
    	Delay 1000
        LeftClick 1
        Delay 1000
        Goto Devil
    End If
    Delay 1000
Next