Perfecto @Иōҳ...
Saludos!
Citar¿Cómo puedo saber la imagebase de un programa en ejecución?
Saludos!
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úCitar¿Cómo puedo saber la imagebase de un programa en ejecución?
Citar
Private Const WM_HOTKEY = &H312
Private Const MOD_ALT = 1
Private Const MOD_CONTROL = 2
Private Const MOD_SHIFT = 4
Private Const MOD_WIN = 8
Private Type HotKey
lKey As Integer
hKey As Integer
End Type
Citar
Dim CtrlA As HotKey
Dim Abrir As Integer
Abrir = GlobalAddAtom("programaAbrir")
CtrlA.lKey = vbKeyA
CtrlA.hKey = &H11
call RegisterHotKey(ret,Abrir, MOD_CONTROL, vbKeyA)
Call SendMessage(ret, WM_HOTKEY, ByVal VarPtr(CtrlA), Abrir)
Call UnregisterHotKey(ret, Abrir)
Call GlobalDeleteAtom(Abrir)
Call SendMessage(ret, WM_KEYDOWN, ByVal &H11, ByVal 0) 'Se presiona "Ctrl"
Call SendMessage(ret, WM_KEYDOWN, 65, ByVal 0) 'Se presiona "A"
Call SendMessage(ret, WM_KEYUP, 65, ByVal 0) 'Se sulta "A"
Call SendMessage(ret, WM_KEYUP, ByVal &H11, ByVal 0) 'Se suelta "Ctrl"