Vb.net 自动舔键器

当我最小化程序并按F9键启动和停止时，如何执行此操作

我已经制作了点击器，但想制作热键/快捷键来启动

---

我使用Visual Basic进行此操作，我相信您需要键盘记录器。我找到了一些代码，并使用这些代码制作了一个工作示例：

Public Class Form1 ' Creates variables and functions Dim T As New Timer() With {.Enabled = True, .Interval = 1} Dim key As Integer Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Keys) As Short Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load AddHandler T.Tick, AddressOf T_Tick End Sub Private Sub T_Tick(ByVal sender As Object, ByVal e As EventArgs) For i = 1 To 255 key = 0 key = GetAsyncKeyState(i) ' If this key is being pressed If key = -32767 Then ' Writes the key that was pressed Console.WriteLine(Chr(i)) If i = 120 Then ' This happens when F9 is pressed End If End If Next i End Sub End Class 公开课表格1 '创建变量和函数 使用{.Enabled=True，.Interval=1}将T设置为新计时器（） 作为整数的Dim键 将私有函数GetAsyncKeyState库“user32”（ByVal vKey作为键）声明为Short 私有子表单1_Load（发送方作为对象，e作为事件参数）处理MyBase.Load AddHandler T.Tick，T_Tick的地址 端接头 私有子标记（ByVal发送方作为对象，ByVal e作为事件参数） 对于i=1到255 键=0 key=GetAsyncKeyState（i） '如果按下此键 如果键=-32767，则 '写入已按下的键 控制台写入线（Chr（i）） 如果i=120，那么 '按F9时会发生这种情况 如果结束 如果结束 接下来我 端接头 末级 希望这有帮助！

---

~Nic

您可以在表单加载中添加

KeyPreview=True

后执行此操作。
添加名为keydown的事件并添加以下代码：

If e.keycode = Keys.F9 Then
  Button1.PerformClick()
End If

---

欢迎来到堆栈溢出！请浏览、和部分，了解本网站的工作原理，并帮助您改进当前和未来的问题，这有助于您获得更好的答案。请努力改进此问题。我们不知道你已经有了什么代码，或者你在哪里被卡住了。我想使用Form.KeyPress事件吧。不确定您所说的开始和停止是什么意思。可能是重复的，所以，您想为您的程序创建一个全局热键（F9）？为此，您需要API。作为你的参考，我只是好奇你是怎么知道他“想要制作热键/快捷键”而想要一个键盘记录程序的？我相信这是唯一的方法（或唯一的方法之一）来检测在窗体未激活时何时按下键。也许你可以告诉我错了；可能还有其他方法我不知道。是的，还有其他方法：）。键盘记录器记录每个按下的键，并被视为恶意软件。但是，答案中的代码使用了

GetAsyncKeyState（）

，这是一种方法（例如，请参见我的答案）。我知道的创建热键的三种方法是：1）使用

GetAsyncKeyState（）

，2）使用

注册/取消注册热键，或：3）使用全局键盘挂钩。-后者是三种方法中最复杂、最不必要（但仍然可能）的方法。