Mensajes

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".
[youtube=640,360]https://www.youtube.com/watch?v=MN60UUgbqqY[/youtube]
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

Me refiero a aumentar la potnecia de clicks

[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 :]

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 :

Código (vbnet) [Seleccionar] Expandir

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 mouseclickup = 4
Private Const mouseclickdown = 2
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer




Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Windows.Forms.Cursor.Position = New Point(Windows.Forms.Cursor.Position.X, Windows.Forms.Cursor.Position.Y)
Timer1.Interval = NumericUpDown1.Value
Label1.Text = Windows.Forms.Cursor.Position.X
Label2.Text = Windows.Forms.Cursor.Position.Y

Windows.Forms.Cursor.Position = New Point(TextBox1.Text, TextBox2.Text)

mouse_event(mouseclickdown, 0, 0, 0, 0)
mouse_event(mouseclickup, 0, 0, 0, 0)

Windows.Forms.Cursor.Position = New Point(Label1.Text, Label2.Text)
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim hotkey As Boolean
hotkey = GetAsyncKeyState(Keys.F1)
If hotkey = True Then timer1.start()
Dim hotkey1 As Boolean
hotkey1 = GetAsyncKeyState(Keys.F2)
If hotkey1 = True Then Timer1.Stop()
End Sub


Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Dim Posicion As Boolean
Posicion = GetAsyncKeyState(Keys.F9)
If Posicion = True Then
TextBox1.Text = MousePosition.X : TextBox2.Text = MousePosition.Y
End If
If Posicion = False Then
End if
End Sub

End Sub
End Class


Mod: tema modificado, Publica codigo usando Etiquetas GeSHi

[Timer.Interval]

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 (vbnet) [Seleccionar] Expandir

Dim Value As Integer = CInt(Math.Truncate(NumericUpDown1.Value))
Timer1.Interval = If(Value <> 0I, Value, 1I)

Saludos.

Gracias Me Sirvio

Buenas

· ¿Donde está tu código?

· ¿Puedes describir con mayor calidad de detalles lo que pretendes hacer, para que se entienda?.

Saludos.

El Codigo : Timer1.Interval = NumericUpDown1.Value Ponerlo en Milisegundos
Es Para Una Solución De Las Clases

[Como Ponerle a un NumericUpDown Para un Autoclicker? En Microsoft Visual Studio 2013]

Como Ponerle a un NumericUpDown Para un Autoclicker? En Microsoft Visual Studio 2013

Como Puedo Ponerle Numeros Binarios A Un Programa De Visual Basic 2008

Como Puedo Ponerle Numeros Binarios A Un Programa De Visual Basic 2008

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

End Class