-2

我正在制作一个程序来提高你的游戏技能,所以它不是一个黑客程序!

现在,我被困在一件事上,我需要一个键盘记录器,它会记录你所做的事情,例如,当你按下空格键时,它必须将 Jumped 放入富文本框中。当您单击鼠标左键时,它必须将 Shots Fired 添加到富文本框中,然后,当单击鼠标右键时,添加 Aiming Down Sights,但当它释放时,它还应该添加诸如 Stopped Aiming Down Sights 之类的内容。

4

1 回答 1

0

我发现我必须添加这段代码,但是我还没有找到空格键

 If Chr(i) = "(" Then
txtkeys.Text = txtkeys.Text & "[Arrow Down]"
ElseIf Chr(i) = "%" Then
txtkeys.Text = txtkeys.Text & "[Arrow Left]"
ElseIf Chr(i) = "'" Then
txtkeys.Text = txtkeys.Text & "[Arrow Right]"
ElseIf Chr(i) = "&" Then
txtkeys.Text = txtkeys.Text & "[Arrow up]"
ElseIf Chr(i) = "" Then
txtkeys.Text = txtkeys.Text & "[mouse click left]"
ElseIf Chr(i) = "" Then
txtkeys.Text = txtkeys.Text & "[mouse click right]"
ElseIf Chr(i) = "" Then
txtkeys.Text = txtkeys.Text & "[backspace]"
ElseIf Chr(i) = "." Then
txtkeys.Text = txtkeys.Text & "[delete]"
ElseIf Chr(i) = "" Then
txtkeys.Text = txtkeys.Text & "[shift]"
ElseIf Chr(i) = " " Then
txtkeys.Text = txtkeys.Text & "[tab]"
ElseIf Chr(i) = "¾" Then
txtkeys.Text = txtkeys.Text & "."
ElseIf Chr(i) = "¼" Then
txtkeys.Text = txtkeys.Text & ","
ElseIf Chr(i) = "¿" Then
txtkeys.Text = txtkeys.Text & "/"
于 2012-10-06T22:37:18.030 回答