Mensajes

Buenas! Esta es una duda que antes se vio en el foro pero que no alle respuesta.

Necesito enviar un paquete continuadas veces a un juego. Osea, lo de continuadas veces no creo que haya problema por que digamos que, se puede hacer mediante un Timer.
Pero el problema principal es enviar el paquete al .exe

Para los que no saben o no entendieron bien lo que quiero hacer, es lo que hace el programa "WPE PRO"


Saludos!

Puedes usar Select Case KeyAscii

Código (vb) [Seleccionar] Expandir


Ejemplo
Select Case KeyAscii
Case 97 to 122  'Son letras de mayuscula a minuscula
end select


Emmmm... eso es para un TextBox, lo que yo quiero es algo parecido a una sendkey pero que no lo sea.
Se entiende?

Buenas tengo una duda, bastante simple.

Necesito saber cuales son las otras maneras de pulsar teclas, yo la única que conozco es sendkeys("")
Pero necesito otras forma de escribir, osea de simular el pulsar una tecla que no sea esa.


Gracias!

Buenas mi duda es la siguiente, hace poco eh terminado un proyecto que lo que hace es averiguar la IP de la pc donde se ejecuto el .exe y mandarla por email a un correo que yo indique.

Ahora quiero cambiar eso y lo que quiero hacer es que, lea las pulsaciones del teclado, y las muestre en un textbox o listbox. Lo de mandarlo por email ya se como hacerlo, pero se me complico esa parte.

Muchas gracias!

Gracias capo me sirvio!

Tengo este code:

Código [Seleccionar] Expandir

Option Explicit
Private Declare Function GetAsyncKeyState _
    Lib "user32" ( _
        ByVal vKey As Long) As Integer
        Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const MOUSEEVENTF_WHEEL = &H80
Const MOUSEEVENTF_XDOWN = &H100
Const MOUSEEVENTF_XUP = &H200
Const WHEEL_DELTA = 120
Const XBUTTON1 = &H1
Const XBUTTON2 = &H2
 
 
Private Sub Timer1_Timer()
    Dim i As Integer
     
    For i = 1 To 1
        If GetAsyncKeyState(i) = -32767 Then
            mouse_event MOUSEEVENTF_LEFTDOWN, 0, 10, 0, 0
    mouse_event MOUSEEVENTF_LEFTUP, 0, 10, 0, 0
        End If
    Next
End Sub
 
Private Sub Form_Load()
    ' intervalo para el timer
    Timer1.Interval = 50
End Sub

Y como lo leen, sabran que lo que hace es mover el cursor a la posicion 0,20 x,y al tocar click isquierdo. Pero quiero es que si yo mantenco el click siga la accion varias veces, por que tengo que tocar 1 por 1 para que haga la acción.

Saludos y gracias!

Lo pude lograr, con este code
Declare asi:

Código [Seleccionar] Expandir

Public Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer

Y adapte los timer asi:
Timer1

Código [Seleccionar] Expandir

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Try
            Dim name As String = "Tutorial-i386"
            Dim hprocess As Process() = Process.GetProcessesByName(name)
            Dim Ipbaseaddress As Integer = &H1874D00
            Dim IpBuffer As Integer = TextBox1.Text
            LblVida.Text = value
            ReadProcessMemory(hprocess(0).Handle, Ipbaseaddress, value, 4, 0)
        Catch ex As Exception
        End Try
    End Sub
Timer2

Código [Seleccionar] Expandir

Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
        Try
            Dim name As String = "Tutorial-i386"
            Dim hprocess As Process() = Process.GetProcessesByName(name)
            Dim Ipbaseaddress As Integer = &H1874D00
            Dim IpBuffer As Integer = TextBox1.Text
            ReadProcessMemory(hprocess(0).Handle, Ipbaseaddress, value, 4, 0)
        Catch ex As Exception
            MsgBox("Engine for Game")
        End Try
    End Sub
End Class

Para que lo tengan, y depaso tambien lo sepan!
Saludos! Y gracias por toda la ayuda!!

Mira use este code (VB 2010):

Código [Seleccionar] Expandir

Public Class Form1
   Private Declare Function WriteProcessMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hprocess As Integer, ByVal Address _
                                                                                          As Integer, ByRef Value As Integer, ByVal Size As Integer, ByRef BytesWritten As Integer) As Integer
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       Timer1.Enabled = True
   End Sub

   Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
       Try
           Dim name As String = "Tutorial-i386"
           Dim hprocess As Process() = Process.GetProcessesByName(name)
           Dim address As Integer = &H2A4D00
           Dim value As Integer = TextBox1.Text
           LblVida.Text = value
           WriteProcessMemory(hprocess(0).Handle, address, value, 4, 0)
       Catch ex As Exception
       End Try
   End Sub

   Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
       Try
           Dim name As String = "Tutorial-i386"
           Dim hprocess As Process() = Process.GetProcessesByName(name)
           Dim address As Integer = &H2A4D00
           Dim value As Integer = TextBox1.Text
           WriteProcessMemory(hprocess(0).Handle, address, value, 4, 0)
       Catch ex As Exception
           MsgBox("Engine for Game")
       End Try
   End Sub
End Class

Y puse en el form, un label de name "LblVida" y un texbox1
Pero lo que hace en el textox1 es modificar el dato donde dice "Health: ***" el *** modifica instantáneamente por que es un timer de intervalo 10



Ahora, yo quiero que en ves de dar/modificar el valor que seria el que yo le coloque al textbox1.text que seria 999, revisa el valor del "Health: ****" se entiende?

Entiendo que la solucion seria simple Write es Escribir, y read, es leer, pero no encuentro el mismo code para declararlo de Read

Muchisimas Gracias!
Zitox!

Muchas gracias por responder.
Yo ahora no estoy en pc que tenga el vb
Pero entiendo el code que me pasaste, cuandoi este en pc lo voy a probar.

Si necesito algo que no entiendo respndo por aca, saludos!

Devuelta, graicas por responder! Y por la onda de explicarme bien!
Zitox!

Buenas me acabo de registrar en este foro por que lo veo bueno y activo, soy Zitox

Vengo con una duda, eh visto en varios post de varios foros, sobre una funcion que se llama "ReadProcessMemory" Que seria para leer la memoria de un X programa.
Lo que quiero hacer creo que es eso.

Por ejemplo aca dejo una imagen:
http://fotos.subefotos.com/1409def66bcaf6efd48b1d2bdce10e3fo.jpg

Queria que detectara si el primer numero "400" esta sobre bajo del "400" y si pasa eso lo que haria seria ejecutar "x" accion.
Busque en todos lados sinceramente, pero no entrontre eso.
Encontre GetPixel de todo que tiene que ver con el tema pero no el mismo.

Espero que me puedan ayudar.

Saludos!