Cierto perdonar por no especificar, el Bot sería enfocado hacia un juego en el cual se basaria recolectar "X" recursos, supongo que asignandole una imagen para que el bot reconozca lo que es y o la eliminacion de dicho "Enemigo".
Como enseño el video, el bot se loggea con dicha cuenta y servidor, recorre dichos puntos de un mapa buscando, matando dicha actividad que se le a mandado. Las barras verdes seran faciles de identificar la vida del usuario y lo azul el escudo, se ve un cuadro con las estadisticas a tiempo real y demas. Galaxy gates se refiere a unos mapas especificos donde salen "X" enemigos por cada galaxy gates, ya que hay varias de ellas. Municion. Hay varios tipos de municiones la cual mas potente Lo siento si no me e expresado bien.
Hola buenas, quisiera saber cúal de vosotros me daría sus servicios en la creacion de un bot , ese programador por supuesto se hablaria de su precio por el trabajo
Hola buenas, me han dicho que usando la Opcion ToString en autoclicks de .NET se obtiene más eficacia yo querria saber como hacer para que no me de errores aqui estaria el codigo :
La propiedad Timer.Interval se mide en milisegundos, la instrucción que has mostrado no requiere ninguna conversión ni del DataType ni a milisegundos, ya que el DataType del Timer.Interval es Integer y el DataType del NumericUpDown.Value es Decimal pero si lo asignas como un Integer se procesará como un Integer, por eso digo que no entiendo tu duda.
· Timer.Interval Property ...A menos que hayas asignado la propiedad DecimalPlaces al NumericUpDown y en ese caso estés usando un valor Decimal con formato de decimales (Ej: 100,50), cuya conversión la puedes realizar de esta manera:
Código
Dim Value AsInteger=CInt(Math.Truncate(NumericUpDown1.Value))
Hola si quisiera saber como hacer un autoclick que de clicks en Nanosegundos
Public Class Form1 Private Declare Sub mouse_event Lib "user32" (ByVal dwflags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long) Private Const MOUSEEVENTF_MOVE = 1 Private Const MOUSEEVENTF_LEFTDOWN = 2 Private Const MOUSEEVENTF_LEFTUP = 4 Private Const MOUSEEVENTF_RIGHTDOWN = 8 Private Const NULLunString = 3 Private Const MouseClickUP = 1 Private Const MouseClickDown = 1 Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Dim campo1 Dim campo2 Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick Dim hotkey2 As Boolean hotkey2 = GetAsyncKeyState(Keys.F9) If hotkey2 = True Then TextBox1.Text = campo1 TextBox2.Text = campo2 campo1 = Cursor.Position.X campo2 = Cursor.Position.Y End If End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick Windows.Forms.Cursor.Position = New Point(TextBox1.Text, TextBox2.Text) mouse_event(mouseclickdown, 0, 0, 0, 0) mouse_event(mouseclickup, 0, 0, 0, 0) End Sub
Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick Dim hotkey As Boolean hotkey = GetAsyncKeyState(Keys.F1) If hotkey = True Then Timer3.Start() Dim hotkey1 As Boolean hotkey1 = GetAsyncKeyState(Keys.F2) If hotkey1 = True Then Timer3.Stop() End Sub