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

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