日常-按键精灵写的领取游戏兑换码的脚本_源码精灵兑换码必出终端精灵-CSDN博客

本文链接：https://blog.csdn.net/k_l_c_/article/details/80188020

最近在taptap上看到一个游戏，roguelike类型的手游，叫不思议迷宫，有点像魔塔，不过装备种类丰富，英雄种类繁多，可玩性感觉挺高的。

然后又发现里面有个密令，也就是兑换码，然后这个兑换码永久的有很多很多，大概有400+？手动输输到猴年马月。。而且你不知道你输入的重复过没有。所以我就想做个简单的脚本实现繁琐的兑换。

最近刚好接触到了按键精灵，感觉入门挺快，效率也很高。

有了实现的工具，剩下的就是实现的方法了。

首先是如何弄到这所有的兑换码？很幸运，有个人整理了兑换码。复制粘贴到txt中大概是这样的:

用C++读入数据，整理一番之后成了这样:

格式是:编号兑换码奖励

而我只需要兑换码，所以再变成这样:

接下来就是脚本了：

Dim s,ans,max
s = 0
ans=Array("","")//这里把兑换码全放进去，有可能放不下这么多，可以分批放
max = UBound(ans)//得到数组长度
//MessageBox max
set fso = CreateObject("Scripting.FileSystemObject")
Set myfile = fso.createtextfile("log.txt")//把记录存到log.txt中 避免中途关掉不知道运行到哪了
While s <= max//这里我用的安卓模拟器(bluestacks)坐标 左上123,7  右下493,734,分辨率1366*768
/*
	if(s>=max-1)
	MessageBox ans(s)
	End If*/
    Call Plugin.Sys.SetCLB(ans(s))//把当前兑换码复制到剪贴板
	/*KeyDown 17, 1
	KeyPress 86, 1
	KeyUp 86, 1
	KeyUp 17, 1*/
    MoveTo 363, 375
    LeftClick 1
    Delay 100  
    KeyDown 17, 1
    KeyPress 65, 1
    KeyUp 65,1
    KeyPress 65, 1
    KeyUp 65, 1
    KeyPress "V", 1
    KeyUp "V", 1
    KeyUp 17, 1
    Delay 1000
    MoveTo 189, 653
    LeftClick 1
    Delay 3000
    MoveTo 308,440 
    LeftClick 1
    Delay 800
    MoveTo 348, 482
    LeftClick 1
    Delay 500
	/*
	KeyDown 17, 1
	KeyPress 86, 1
	KeyUp 86, 1
	KeyUp 17, 1*/
    myfile.writeline(ans(s)) 
    s = s + 1
Wend
/*
Call Plugin.Sys.SetCLB("uiop")
KeyDown 17, 1
KeyPress 86, 1
KeyUp 86, 1
KeyUp 17, 1
*/

运行结果: