私はあなたのゲームスキルを向上させるためのプログラムを作っているので、それはハッキングプログラムではありません!
今、私は1つのことに固執しています。たとえば、スペースを押すと、ジャンプをリッチテキストボックスに入れる必要があります。キーロガーのようなものが必要です。マウスを左クリックすると、リッチテキストボックスに発射されたショットを追加する必要があります。次に、マウスの右ボタンをクリックすると、照準を追加しますが、離すと、照準を停止するなどの機能も追加されます。
私はあなたのゲームスキルを向上させるためのプログラムを作っているので、それはハッキングプログラムではありません!
今、私は1つのことに固執しています。たとえば、スペースを押すと、ジャンプをリッチテキストボックスに入れる必要があります。キーロガーのようなものが必要です。マウスを左クリックすると、リッチテキストボックスに発射されたショットを追加する必要があります。次に、マウスの右ボタンをクリックすると、照準を追加しますが、離すと、照準を停止するなどの機能も追加されます。
このコードを広告する必要があることがわかりましたが、まだスペースバーを見つけていません
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 & "/"