远征日服·信喵之野望按键精灵脚本7.新截卡

pp875598763

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

阅读量117

点赞数

分类专栏：远征日服·信喵之野望按键精灵脚本

于 2022-09-02 14:41:41 首次发布

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

版权

截卡器 bug修复自动登录程序优化正义反击

关键词由CSDN通过智能技术生成

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

7 篇文章 0 订阅

订阅专栏

由于对方的截卡行为过于猖狂，官方对其进行了限制，同时误伤到了正义的我方截卡器
这个程序就是为了修正这个bug

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
        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
            For i= 1 to 100
            Delay 500
            FindPic 0,0,1024,768,"Attachment:\设置.bmp",0.8,intX,intY
            If intX > 1 And intY > 1 Then 
                MoveTo intX + 5, intY + 5
                Delay 100
                LeftClick 1
                Delay 700
                Else Goto Reload
            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 400
                LeftClick 1
                Delay 100
                FindPic 0,0,1024,768,"Attachment:\确认.bmp",0.8,intX,intY
                If intX > 1 And intY > 1 Then 
                    MoveTo intX + 5, intY + 5
                    Delay 500
                    LeftClick 1
                End If
            End If
            Next
            Else Goto Reload
        End If
        Else Goto Reload
    End If
Next