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...
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")
Es mejor un picture, ya q tiene muchas mas opciones. Para hacer clicks, calculas las coordenadas en tu Pc y las envias, seguro q esto te vale:
http://foro.elhacker.net/index.php/topic,141712.msg665820.html#msg665820
1S4ludo ;)
Cita de: E0N en 3 Abril 2007, 00:02 AM
Es mejor un picture, ya q tiene muchas mas opciones. Para hacer clicks, calculas las coordenadas en tu Pc y las envias, seguro q esto te vale:
http://foro.elhacker.net/index.php/topic,141712.msg665820.html#msg665820
1S4ludo ;)
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?
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..
ya lo pruebo!! perodonen xq no conteste nada pero hoy tuve un dia agitado... jeje
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:
CitarPrivate 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)
Citar
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
CitarCase "Pos"
A = vData(1)
B = vData(2)
x = SetCursorPos(A, B)
q esta mal?? lo tengo todo en el form del server
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
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
Citarmouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
se posiciona mal... muy a los extremos...
:-( 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... :-\