找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 13882|回复: 17

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

[复制链接]

29

主题

81

回帖

144

积分

按键手机班学员

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

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

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

×
首先,录制的代码是可以直接在按键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, 下载次数: 115, 下载积分: 猫粮 -2

评分

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

查看全部评分

楼主热帖
  • 打卡等级:学有所成

3

主题

107

回帖

113

积分

按键电脑&手机班学员

QQ 262832680

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

29

主题

81

回帖

144

积分

按键手机班学员

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

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

0

主题

1

回帖

1

积分

学前班

鲜花
0
猫粮
2
发表于 2019-4-15 00:53:08 | 显示全部楼层
谢谢了 不错

1

主题

10

回帖

12

积分

按键电脑班学员

鲜花
0
猫粮
111
发表于 2019-4-20 17:31:43 | 显示全部楼层
♪(^∇^*)♪(^∇^*)♪(^∇^*)♪(^∇^*)加油

0

主题

1

回帖

1

积分

学前班

鲜花
0
猫粮
2
发表于 2019-4-29 21:16:52 | 显示全部楼层
感恩大大的分享   最近正在使用  剛好卡關  謝謝大大

0

主题

12

回帖

12

积分

学前班

鲜花
0
猫粮
8
发表于 2019-7-29 11:27:24 | 显示全部楼层
很给力,学习学习感谢作者

0

主题

21

回帖

21

积分

学前班

鲜花
0
猫粮
10
发表于 2019-9-4 17:39:09 | 显示全部楼层
收藏学习,谢谢

0

主题

21

回帖

21

积分

学前班

鲜花
0
猫粮
10
发表于 2019-10-3 17:40:24 | 显示全部楼层
感谢分享

0

主题

3

回帖

3

积分

学前班

鲜花
0
猫粮
2
发表于 2019-10-10 20:15:30 | 显示全部楼层
貌似很不错哦
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-3-28 22:30

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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