远征日服·信喵之野望按键精灵脚本5.自动统计gc数值并记录

pp875598763

已于 2024-02-29 09:13:10 修改

阅读量261

点赞数

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

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

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

版权

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

7 篇文章 0 订阅

订阅专栏

这个程序配合前面的3程序使用，一个月开一次，统计账号上的gc数值并输出excel文件

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",0.9,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
    FindPic 0,0,1024,768,"Attachment:\GC数值.bmp",0.9,intX,intY
    If intX > 1 And intY > 1 Then 
    	MoveTo intX + 10, intY + 30
    	Delay 500
        LeftDown 1
        Delay 100
        MoveTo intX + 90, intY + 30
        Delay 100
        LeftUp 1
        Delay 100
        KeyDown "Ctrl", 1
        KeyPress "C", 1
        KeyUp "Ctrl", 1
        Delay 100
    End If
    txt = Plugin.Sys.GetCLB()
    Delay 100
    TracePrint txt
    Delay 100
    Call Plugin.File.WriteFileEx("F:\GC.txt",two(0)&chr(32)&txt & vbcrlf)
    Delay 100
Next