Vb.net MMORPG游戏中的自动空间机器人
有人能帮我吗？ 我使用VisualBasic2010编写了一个简单的自动按空格键程序。 它运行并工作，它通过记事本发送空间，但不幸的是，它在在线游戏中不工作（因为空格键是获取项目的控件） 我关心的是：有人能帮我让它直接在游戏中工作吗 下面是简单的代码Vb.net MMORPG游戏中的自动空间机器人,vb.net,bots,Vb.net,Bots,有人能帮我吗？ 我使用VisualBasic2010编写了一个简单的自动按空格键程序。 它运行并工作，它通过记事本发送空间，但不幸的是，它在在线游戏中不工作（因为空格键是获取项目的控件） 我关心的是：有人能帮我让它直接在游戏中工作吗 下面是简单的代码 Public Class Form1 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Ti
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
SendKeys.Send(TextBox1.Text) 'Sends the message you typed in the textbox1
SendKeys.Send(" ") 'presses the SPACE key from your keyboard
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Interval = TextBox2.Text
Timer1.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Interval = TextBox2.Text
Timer1.Enabled = False
End Sub
End Class
提前谢谢！：D我认为问题在于你没有将焦点转移到游戏窗口。因此，您的程序将空格发送到您编写的vb.net程序，而不是发送到游戏 你需要做些什么来改变游戏窗口的焦点。请查看，因为它提供了有关使用Win32 API更改具有焦点的窗口的信息 编辑： 根据您的请求，以下是如何将其应用到代码中。请注意，编写此代码所需的所有信息都在我提供的链接中。将来有人回答您的问题时，请阅读提供的资料来源。我留下了大量的评论来帮助你理解每一行的作用
Imports System.Runtime.InteropServices 'Needed to import the Win32 API functions
Public Class Form1
'Make sure the programTitle const is set to the _EXACT_ title of the
'program you are trying to set focus to or this won't work.
Private Const programTitle As String = "Title of program"
Private zero As IntPtr = 0 'Required for FindWindowByCaption first parameter
'Import the SetForegroundWindow Function
<DllImport("user32.dll")> _
Private Shared Function SetForegroundWindow(ByVal hWnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
'Import the FindWindowByCaption Function, called as a parameter to SetForegroundWindow
<DllImport("user32.dll", EntryPoint:="FindWindow", SetLastError:=True, CharSet:=CharSet.Auto)> _
Private Shared Function FindWindowByCaption( _
ByVal zero As IntPtr, _
ByVal lpWindowName As String) As IntPtr
End Function
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
'Call SetForegroundWindow whenever you want to send keys to the specified window.
SetForegroundWindow(FindWindowByCaption(zero, programTitle))
SendKeys.Send(TextBox1.Text) 'Sends the message you typed in the textbox1
SendKeys.Send(" ") 'presses the SPACE key from your keyboard
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Interval = TextBox2.Text
Timer1.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Interval = TextBox2.Text
Timer1.Enabled = False
End Sub
End Class
programTitle如果我将
programTitle“记事本”programTitle“无标题-记事本”