我正在制作一个程序来提高你的游戏技能,所以它不是一个黑客程序!
现在,我被困在一件事上,我需要一个键盘记录器,它会记录你所做的事情,例如,当你按下空格键时,它必须将 Jumped 放入富文本框中。当您单击鼠标左键时,它必须将 Shots Fired 添加到富文本框中,然后,当单击鼠标右键时,添加 Aiming Down Sights,但当它释放时,它还应该添加诸如 Stopped Aiming Down Sights 之类的内容。
我正在制作一个程序来提高你的游戏技能,所以它不是一个黑客程序!
现在,我被困在一件事上,我需要一个键盘记录器,它会记录你所做的事情,例如,当你按下空格键时,它必须将 Jumped 放入富文本框中。当您单击鼠标左键时,它必须将 Shots Fired 添加到富文本框中,然后,当单击鼠标右键时,添加 Aiming Down Sights,但当它释放时,它还应该添加诸如 Stopped Aiming Down Sights 之类的内容。
我发现我必须添加这段代码,但是我还没有找到空格键
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 & "/"