紫猫学院社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 149|回复: 3

[插件工具] 按键精灵录制脚本转手写代码

[复制链接]

11

主题

19

帖子

19

积分

按键手机班学员

Rank: 8Rank: 8

猫粮
117
发表于 2019-4-3 22:06:14 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
首先,录制的代码是可以直接在按键IDE里面使用的,但是录制的代码全部是TickCount(),要修改十分困难,所以自己写了一个翻译的小工具,发上来大家有需要的可以拿走
[按键精灵] 纯文本查看 复制代码
Dim 开始延时,全部,按下,待处理,全局,开始时间,弹起ID,耗时
Event Form1.Button1.Click
    全部 = split(form1.InputBox1.Text, vbcrlf)
    开始时间 = Mid(全部(0), 6, instr(全部(0), "-") - 6)
    Form1.ListBox1.AddItem "延时" & clng(开始时间) & "毫秒"
     Form1.InputBox3.Text = Form1.InputBox3.Text + "Delay " & 开始时间 & vbcrlf
    For i = 1 To UBound(全部)
        代码1 = instr(全部(i), "Delay")
        代码2 = instr(全部(i), "TouchDownEvent")
        代码3 = instr(全部(i), "TouchUpEvent")
        代码4 = instr(全部(i), "TouchMoveEvent")
        If 代码1 > 0 Then 
            待处理 = 1
        ElseIf 代码2 > 0 Then
            待处理 = 2
            按下 = true
        ElseIf 代码3 > 0 Then
            待处理 = 3
            按下 = False 
        ElseIf 代码4 > 0 Then
            待处理 = 4
        End If
        call	处理字符串到顺序列表 (待处理,全部(i))
    Next
End Event
Function 处理字符串到顺序列表(待处理, 某行)
    Dim 处理字符串,输出字符串
    If 待处理 = 1 Then 
        处理字符串 = Mid(某行, 6, instr(某行, "-") - 6)
        全局 = clng(处理字符串)
        TracePrint 全局
        TracePrint 开始时间
        If 按下 = true
        输出字符串 = "耗时" & 全局 - 开始时间 & "毫秒"
        耗时 = 全局 - 开始时间
        Else 
        输出字符串 = "延时" & 全局 - 开始时间 & "毫秒"
        End If
        Form1.InputBox3.Text = Form1.InputBox3.Text + "Delay " & 全局 - 开始时间  & vbcrlf
        开始时间 = 全局
        Form1.ListBox1.AddItem 输出字符串
       
    End If
    If 待处理 = 2 Then 
        待处理字符串 = Replace(某行, "TouchDownEvent", "")
        待处理字符串 = Replace(待处理字符串, " ", "")
        待处理字符串 = Split(待处理字符串, ",")
        输出字符串 = "ID:" & 待处理字符串(2)&" 按下屏幕X:" & 待处理字符串(0) &" 按下屏幕Y:" & 待处理字符串(1)
        Form1.ListBox1.AddItem 输出字符串
        Form1.InputBox3.Text = Form1.InputBox3.Text + "TouchDown " & 待处理字符串(0) & "," & 待处理字符串(1) &"," & 待处理字符串(2)& vbcrlf
    End If
    If 待处理 = 3 Then 
    	待处理字符串 = Replace(某行, "TouchUpEvent", "")
        待处理字符串 = Replace(待处理字符串, " ", "")
        输出字符串 = "ID:" & 待处理字符串 &"弹起"
        Form1.ListBox1.AddItem 输出字符串
        Form1.InputBox3.Text = Form1.InputBox3.Text + "TouchUP " & 待处理字符串 & vbcrlf
    End If
    If 待处理 = 4 Then 
    	待处理字符串 = Replace(某行, "TouchMoveEvent", "")
        待处理字符串 = Replace(待处理字符串, " ", "")
        待处理字符串 = split(待处理字符串,",")
        输出字符串 = "ID:" & 待处理字符串(2) & "被移动到" & 待处理字符串(0) & "," & 待处理字符串(1) & "耗时:" & 待处理字符串(3) & "毫秒"
        Form1.ListBox1.AddItem 输出字符串
        Form1.InputBox3.Text = Form1.InputBox3.Text + "TouchMove " & 待处理字符串(0) & "," & 待处理字符串(1) & 待处理字符串(2) & vbcrlf
    End If
End Function
Event Form1.Button2.Click
Form1.InputBox1.Text = ""
End Event
Event Form1.Button3.Click
Plugin.Sys.SetCLB Form1.InputBox3.Text
End Event


请在界面上放置一个标签页(新建三个分页)
分页1拖一个文本框新建两个按钮,如图
1.png

分页2拖一个列表框,如图
2.png
分页3拖一个文本框,一个按钮
3.png

名称均不修改,标题改成自己想要的
代码生成效果如下
123321.png
打包好的文件在附件里面
有BUG记得回复哟!




录制代码转手写.zip

7.16 MB, 下载次数: 8, 下载积分: 猫粮 -1

评分

参与人数 2猫粮 +10 收起 理由
qq2992929013 + 5 很给力!
紫猫 + 5 很给力!

查看全部评分

回复

使用道具 举报

1

主题

39

帖子

39

积分

按键电脑&手机班学员

QQ 262832680

Rank: 8Rank: 8

猫粮
332
发表于 2019-4-3 22:38:14 | 显示全部楼层
海盗老 你这是吃饱饭没事干啊
全职接单[POST,滑块,去广告,云配置,收徒]办公 各种全自动脚本 游戏不接QQ 262832680
回复

使用道具 举报

11

主题

19

帖子

19

积分

按键手机班学员

Rank: 8Rank: 8

猫粮
117
 楼主| 发表于 2019-4-4 08:13:39 | 显示全部楼层
冒泡的小猫 发表于 2019-4-3 22:38
海盗老 你这是吃饱饭没事干啊

最近在写跳舞的线脚本,对延时时长要求很严格,要微调的,而且不可能直接修改录制代码,所以写的这个脚本。
回复

使用道具 举报

0

主题

1

帖子

1

积分

学前班

Rank: 1

猫粮
1
发表于 3 天前 | 显示全部楼层
谢谢了 不错
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|紫猫编程学院  

GMT+8, 2019-4-18 23:31

Powered by Discuz! X3.4

© 2012-2018 紫猫编程学院

快速回复 返回顶部 返回列表