远征日服·信喵之野望按键精灵脚本3.自动领取gc

pp875598763

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

阅读量199

点赞数

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

于 2022-09-02 14:33:49 首次发布

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

版权

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

7 篇文章 0 订阅

订阅专栏

这个程序配合2使用，每个月在服务器上开一次，领取所得

Text = Plugin.File.ReadFileEx("F:\id.txt")
my = split(Text, "|")
j = UBound(my)
For i= 1 to j-1
    two = split(my(i), ",")
    FindPic 0,0,1024,768,"F:\登录.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(0))   
    KeyDown 17, 1                                       
    KeyPress 86, 1
    KeyUp 17, 1
    Delay 1000
    FindPic 0,0,1024,768,"F:\登入.bmp",0.8,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX+10, intY+10
    End If
    Delay 1000
    LeftClick  1
    Delay 3000
    FindPic 0,0,1024,768,"F:\关闭.bmp",0.8,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX+10, intY+10
    End If
    Delay 1000
    LeftClick 1
    Delay 3000
    FindPic 0,0,1024,768,"F:\上一个月.bmp",0.8,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX+10, intY+10
    End If
    Delay 1000
    LeftClick 1
    Delay 1000
    KeyPress "Space", 1
    Delay 1000
    FindPic 0,0,1024,768,"F:\全部领取.bmp",0.8,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX+10, intY+10
    End If
    Delay 1000
    LeftClick 1
    Delay 3000
    FindPic 0,0,1024,768,"F:\关闭.bmp",0.8,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 1000
    FindPic 0,0,1024,768,"F:\全部领取.bmp",0.8,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX+10, intY+10
    End If
    Delay 1000
    LeftClick 1
    Delay 3000
Next