elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Como proteger una cartera - billetera de Bitcoin


  Mostrar Mensajes
Páginas: 1 2 3 [4] 5 6 7 8 9 10 11 12
31  Programación / Programación Visual Basic / Re: Clickear sin mover mouse en: 16 Agosto 2011, 02:24 am
Creo que te está faltando el Hwnd del control al que le querés enviar el click, y también las coordenadas  ( No de pantalla sino del control) en la que queres que   llegue el click, por eso te sugerí  leér y practicar con ClientToScreen, GetWindowRect, GetClientRect entre otras (para tener idea de coordenadas de pantalla y coordenadas de controles), y tambien tener una idea de como obtener  el manejador  de ventanas y controles (Hwnd) con FindWindow o FindWindowEx entre otras, para enviarles mensajes con SendMessage o PostMessage por ejemplo.
Por ultimo te digo que no todas las ventanas  son iguales y algunas son dificiles de entrarle, amigo, si no lo entendiste con el ejemplo q te dejé ... no podría explicarte todo esto.  ;)   

 
 
32  Programación / Programación Visual Basic / Re: Clickear sin mover mouse en: 16 Agosto 2011, 00:20 am

http://msdn.microsoft.com/en-us/library/ms644950(v=vs.85).aspx

http://msdn.microsoft.com/en-us/library/ms633499(v=vs.85).aspx

http://msdn.microsoft.com/en-us/library/ms633500(v=VS.85).aspx


http://msdn.microsoft.com/en-us/library/aa931003.aspx

http://msdn.microsoft.com/en-us/library/ms633519(v=VS.85).aspx

http://msdn.microsoft.com/en-us/library/ms633503(v=VS.85).aspx

33  Programación / Programación Visual Basic / Re: Clickear sin mover mouse en: 15 Agosto 2011, 22:01 pm
Olvidate del codigo del Pinball, ya lo quité para q no te confundas, analizá el codigo que te dejé para entender como mandar un Click a una  coordenada específica de un control  sin mover el mouse !!!
34  Programación / Programación Visual Basic / Re: Clickear sin mover mouse en: 15 Agosto 2011, 21:26 pm
Olvidate del segundo código... el pimer codigo va en un Form, eso es lo que pediste, como mandar un Click por coordenadas sin mover el mouse !!!

PD:
 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

Nunca puede ir en un Módulo...

 



35  Programación / Programación Visual Basic / Re: Clickear sin mover mouse en: 15 Agosto 2011, 20:45 pm
.
36  Programación / Programación Visual Basic / Re: Clickear sin mover mouse en: 15 Agosto 2011, 20:28 pm
Código
  1.  
  2. Option Explicit
  3.  
  4. Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  5.  
  6. Private Sub Form_Load()
  7.  ScaleMode = 3
  8.  Timer1.Interval = 16
  9. End Sub
  10.  
  11. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  12.  
  13.  Static CountClickX15Y15 As Long
  14.  
  15.  If Button = vbLeftButton And x = 15 And y = 15 Then
  16.    CountClickX15Y15 = CountClickX15Y15 + 1
  17.    Caption = CountClickX15Y15
  18.  End If
  19.  
  20. End Sub
  21. Function Make_lParam(ByVal x As Integer, ByVal y As Integer) As Long
  22.  Make_lParam = x Or (y * &H10000)
  23. End Function
  24.  
  25. Private Sub Timer1_Timer()
  26.  Call SendMessage(Me.hwnd, &H201, &H0&, Make_lParam(15, 15))
  27.  Call SendMessage(Me.hwnd, &H202, &H0&, Make_lParam(15, 15))
  28. End Sub
  29.  
  30.  
  31.  


37  Programación / Programación Visual Basic / Re: pulsaciones de teclas, fallan... en: 9 Agosto 2011, 01:14 am
es un juego... con estos de proteccion bajo nProtect... enviarle comando directamente no sirve... y el teclado virtual (teóricamente) envía pulsaciones a la ventana activa... el asunto es que si lo dejo automático no hace nada, sin tocar mas nada ni modificar nada hago click sobre el teclado virtual y mágicamente si funciona... (y con otro programa fuera del juego las pulsaciones por software si están funcionando) tanta posibilidad tiene un programa para saber que las pulsaciones que van a otro son reales o no :s


Código:

Private Sub Command1_Click()
    Dim hWnd As Long
    'hWnd = FindWindow(vbNullString, "Sin título: Bloc de notas")
    hWnd = FindWindow(vbNullString, Text1.Text)
    Print hWnd
    Call PostMessage(hWnd, WM_KEYDOWN, VK_F1, 0&)
    Call PostMessage(hWnd, WM_KEYUP, VK_F1, 0&)
End Sub




Probaste activando la ventana del juego (SetForegroundWindow) antes de enviar el mensaje ?  

Código
  1.  
  2. Option Explicit
  3.  
  4. Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  5. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  6.  
  7. Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
  8.  
  9. Private Const WM_KEYDOWN = &H100
  10. Private Const WM_KEYUP = &H101
  11. Private Const VK_SPACE = &H20
  12. Private Const VK_F1 = &H70
  13.  
  14. Private Sub Command1_Click()
  15.  
  16.    Dim hWnd As Long
  17.    hWnd = FindWindow(vbNullString, Text1.Text)
  18.    Print hWnd
  19.  
  20.    Call SetForegroundWindow(hWnd)
  21.  
  22.    Call PostMessage(hWnd, WM_KEYDOWN, VK_F1, 0&)
  23.    Call PostMessage(hWnd, WM_KEYUP, VK_F1, 0&)
  24.  
  25. End Sub
  26.  
  27.  






38  Programación / Programación Visual Basic / Re: Clickear sin mover mouse en: 3 Agosto 2011, 19:10 pm
SendMessage (ByVal lParam As Long)

 +

 Make_lParam


Código
  1.  
  2. Function Make_lParam(ByVal x As Integer, ByVal y As Integer) As Long
  3.   Make_lParam = (x And &HFFFF&) Or (y * &H10000)
  4. End Function
  5.  
  6.  






39  Programación / Programación Visual Basic / Re: Obtener caption del click ??? en: 21 Julio 2011, 13:44 pm
Citar

detectarme cuando presiono la "X" para cerrar la ventana??


http://msdn.microsoft.com/en-us/library/ms645618(v=vs.85).aspx




40  Programación / Programación Visual Basic / Re: No logro encontrar handle a SysListView32 de taskmanager en: 9 Julio 2011, 06:36 am

por eso no entiendo bien que hace esto:


Código:
HwTab = FindWindowEx(HwndTask, 0, "SysTabControl32", vbNullString)
  
If SendMessage(HwTab, &H1300 + 11, 0, 0) = 1 Then





Estoy chequeando que el Tab Control es 1 (procesos)

el de Aplicaciones por ejemplo sería  0 (cero)
If SendMessage(HwTab, &H1300 + 11, 0, 0) = 0 Then



Private Const TCM_FIRST = &H1300  
Private Const TCM_GETCURSEL = (TCM_FIRST + 11)



' Este es el Hwnd del TabControl (Pestañas de Aplicaciones, Procesos, rendimiento, Funciuones de Red, Usuarios)
HwTab = FindWindowEx(HwTask, 0, "SysTabControl32", vbNullString)


Y aquí chequeas que la Pestaña activa del TabControl sea igual a uno (la de procesos, que es la que contiene el SyslistView32 que te interesa,)
If SendMessage(HwTab, &H1300 + 11, 0, 0) = 1 Then


http://msdn.microsoft.com/en-us/library/bb760583(v=vs.85).aspx




Aclaracion: seria mas facil usar FindWindow en lugar de la Function HwndTask
Código
  1.   Dim HwTask As Long
  2.   Dim HwChild As Long
  3.   Dim HwTab As Long
  4.   Dim HwLv As Long
  5.  
  6.   HwTask = FindWindow("#32770", vbNullString) ' FindWindow en lugar de la Function HwndTask
  7.  
  8.  
  9.   If HwTask <> 0 Then
  10.     HwTab = FindWindowEx(HwTask, 0, "SysTabControl32", vbNullString)
  11.     If SendMessage(HwTab, &H1300 + 11, 0, 0) = 1 Then
  12.       HwChild = FindWindowEx(HwTask, 0, "#32770", vbNullString)
  13.       HwLv = FindWindowEx(HwChild, 0, "SyslistView32", vbNullString)
  14.     End If
  15.   End If
  16.  

Pero como hay mas ventanas en el sistema con la misma Disposición, (Por ejemplo Propiededes de Pantalla en XP), esto podría prestarse a errores y darte una mala información. Por eso en este caso es preferible usar la la Function HwndTask.

http://foro.elhacker.net/programacion_visual_basic/no_logro_encontrar_handle_a_syslistview32_de_taskmanager-t332950.0.html;msg1636759#msg1636759










Páginas: 1 2 3 [4] 5 6 7 8 9 10 11 12
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines