Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Temas - Zitox

#1
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!
#2
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!
#3
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!

#4
Tengo este code:
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!
#5
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!