vb.net按键解密程序代码

Imports System.Runtime.InteropServices
Imports System.Threading

Public Class Form1
<DllImport(“user32.dll”, CharSet:=CharSet.Auto)>
Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
End Function

Private strings As String() = {"00", "01", "02", "03", "04", "05"} ' 定义字符串数组
Private clickCount As Integer = 0 ' 跟踪按钮点击次数





Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

    Dim a

    SendKeys.Send("%{tab}")

    '等待一段时间，确保程序已经成功打开
    Threading.Thread.Sleep(1000)







    SendKeys.Send("{tab 2}")

    '等待一段时间，确保程序已经成功打开
    Threading.Thread.Sleep(1000)



    Button2.PerformClick() '复制按钮



    '粘贴内容
    SendKeys.SendWait("^v") ' 粘贴文本

    Threading.Thread.Sleep(1000)


    SendKeys.Send("{tab}")

    '等待一段时间，确保程序已经成功打开
    Threading.Thread.Sleep(1000)



    SendKeys.Send("{Enter}")


    '等待一段时间，确保程序已经成功打开
    Threading.Thread.Sleep(1000)





    SendKeys.Send("{Enter}")


    '等待一段时间，确保程序已经成功打开
    Threading.Thread.Sleep(1000)




    For a = 0 To 4




        SendKeys.Send("{tab 2}")

        '等待一段时间，确保程序已经成功打开
        Threading.Thread.Sleep(1000)


        Button2.PerformClick() '复制按钮




        SendKeys.Send("{Backspace 5}") ' 删除文本

        Threading.Thread.Sleep(1000)


        '粘贴内容
        SendKeys.SendWait("^v") ' 粘贴文本

        Threading.Thread.Sleep(1000)


        SendKeys.Send("{tab}")

        '等待一段时间，确保程序已经成功打开
        Threading.Thread.Sleep(1000)



        SendKeys.Send("{Enter}")


        '等待一段时间，确保程序已经成功打开
        Threading.Thread.Sleep(1000)





        SendKeys.Send("{Enter}")


        '等待一段时间，确保程序已经成功打开
        Threading.Thread.Sleep(1000)



    Next
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click

    If clickCount < Strings.Length Then ' 检查点击次数是否小于字符串数组的长度
        Clipboard.SetText(Strings(clickCount)) ' 复制当前索引的字符串到剪贴板
        clickCount += 1 ' 增加点击次数
    Else
        MessageBox.Show("没有更多的字符串可复制") ' 如果点击次数超过了字符串数组的长度，显示提示消息
    End If
End Sub

End Class