Mensajes

ninguna idea??? 

em no entendi bien tu pregunta, te referis a si se puede enviar datos para imprimir a travez del puerto LPT? desde vb si se puede controlar la salida de ese puerto.

claro que se puede xD, no es muy complicado, puedes usar la funcion mouse_event para realizar los click

[raul338]

oks gracias raul338 por la correccion xD ahora lo edito
-----------------------
Bueno creo que hay quedo bien xD jeje

[En un Form (Form1):]

no, no son iguales xD, le saque el "else" de la comprobacion de de formato y que guarde el archivo desde el picture (esto es lo mismo xD) pero bueno yo le brinde una solucion para ese code, porque sino puedo poner otro xD, pero el quiere solucionar el problema de su code



me tome el trabajo de hacerte un ejemplo con hook xD espero que te sirva

En un Form (Form1):

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
MouseHook True
End Sub

Sub MouseHook(ByVal ONOFF As Boolean)
   Select Case ONOFF
       Case "1"
           IdProc = SetWindowsHookEx(WH_MOUSE_LL, AddressOf MouseProc, App.hInstance, 0)
       Case "0"
           If IdProc <> 0 Then
               Call UnhookWindowsHookEx(IdProc)
               IdProc = 0
           End If
   End Select
End Sub

Private Sub Form_Unload(Cancel As Integer)
MouseHook False
End Sub

En un Modulo:

Código (vb) [Seleccionar] Expandir

Option Explicit
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const WH_MOUSE_LL = 14
Public IdProc As Long

Public Function MouseProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 If GetAsyncKeyState(1) = -32767 Then
    Call Capturar_Guardar("c:\imagen.bmp")
 End If
End Function

Public Sub Capturar_Guardar(Path As String)
   Clipboard.Clear

   Call keybd_event(44, 2, 0, 0)

   DoEvents

   If Clipboard.GetFormat(vbCFBitmap) Then
       Form1.Picture1.Picture = Clipboard.GetData(vbCFBitmap)
       SavePicture Form1.Picture1.Picture, Path
   End If
End Sub

Bueno lo trate de hacer lo mas compacto y sencillo posible, si hay algo mal o tiene una mejor idea me dice xD

Suerte!  

Hola Manzan[a] mira probalo asi y fijate si te sirve

Código (vb) [Seleccionar] Expandir

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Sub keybd_event _
    Lib "user32" ( _
        ByVal bVk As Byte, _
        ByVal bScan As Byte, _
        ByVal dwFlags As Long, _
        ByVal dwExtraInfo As Long)
 

   
Private Sub Form_Load()
    Timer1.Interval = 50
End Sub
Private Sub Capturar_Guardar(Path As String)
    ' borra el portapapeles
    Clipboard.Clear
     
    ' Manda la pulsación de teclas para capturar la imagen de la pantalla
    Call keybd_event(44, 2, 0, 0)
     
    DoEvents
    ' Si el formato del clipboard es un bitmap
    If Clipboard.GetFormat(vbCFBitmap) Then
     
        'Guardamos la imagen en disco
        Picture1.Picture = Clipboard.GetData(vbCFBitmap)
        SavePicture Picture1.Picture, Path
    End If
 
End Sub
 
Private Sub Timer1_Timer()
  If GetAsyncKeyState(1) = -32767 Then
     Call Capturar_Guardar("c:\pantalla.bmp")
  End If
End Sub

Hola a todos
estoy tratando de leer unos datos de un juego online, y lo que necesito saber es si se puede buscar en la memoria del juego y como hacerlo, es decir, yo lo que necesito es obtener el adress de uno de los valores del juego y nose como obtenerlo sin usar el cheat engine, eso es lo que me falta porque despues lo de manipular el address ya mas o menos se como hacerlo xD. Bueno eso es todo espero que me puedan ayudar 

mmm ninguna idea de como hacerlo?

Acabo de hacer varias pruebas con el proceso del juego y tuve malos resultados :S, al leer la memoria del proceso que supuestamente es del juego, me da 0 Bytes, es decir que no encuentra nada en memoria :S. El juego crea dos procesos:

- XTrap : Proceso del sistema de seguridad
. AikaEN : Supuestamente el proceso del juego xD

Probe leer la memoria del proceso AikaEN usando el DuMper de MadAntrax pero no encuentra datos en la memoria, tambien probe con 2 editores hexadecimales, abriendo el proceso pero tambien me devuelven 0 bytes :S
ya nose que puede ser me da a pensar que el proceso tiene alguna "seguridad" contra lectura :S. El proceso tiene un uso de memoria de 881.928 KB

tambien intente cambiando el titulo, nombre del programa pero nada.

y si cambias el titulo de este post por otro que lleve la palabra "cheat", aqui hay usuarios que saben eso de buscar en la memoria y hacer cheat y podrian darte una ayuda con eso, y kizas de paso hacen un tutorial sobre eso y aprendemos xD.

xD jaja no me referia al titulo del post , me referia al texto de la barra de titulo del cheat engine xD, me dijieron que pruebe con eso para ver si con otro titulo el juego aun me lo detectaba .

y con respecto a los links, no son lo que yo buscaba, uno de ellos lo que hace es que el proceso del programa no figure en el administrador de tareas... y en el segundo link se hace uso de un debugger (ollydbg) el cual no se puede ejecutar mientras este el juego abierto :S, el juego no permite la ejecucion de ningun debugger :S
..Investigare un poco mas sobre esa API

-----------------------------------------------------------

BlackZeroX ahora me pondre a ver lo que me dijiste

-----------------------------------------------------------