Autor
|
Tema: mi bixo parte 1 vb6 (Leído 4,427 veces)
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
hola amigos querria saber como hacer para poder ver la pantalla de mi victima en vb6, asi como un escritorio remoto, pero sin tener control de raton, solo visualizar
GRACIAS A TO2!!!!!!
|
|
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
. http://foro.elhacker.net/search.htmltambién Google.com. una respuesta rapida seria via hDC() con el handle = 0 despues con bitblt() (perdonen si no esta bien escrito xP) pegas el hDC en la zona deseada (hDC dest) P.D.: Si no me entiendes pues ya te puse dos ligas muy interesantes. Sangrientas Lunas!¡. .
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
me podrian desgranar este code?? Private Type PALETTEENTRY peRed As Byte peGreen As Byte peBlue As Byte peFlags As Byte End Type Private Type LOGPALETTE palVersion As Integer palNumEntries As Integer palPalEntry(255) As PALETTEENTRY ' Enough for 256 colors. End Type Private Type GUID Data1 As Long Data2 As Integer Data3 As Integer Data4(7) As Byte End Type Private Type PicBmp Size As Long Type As Long hBmp As Long hPal As Long Reserved As Long End Type Private Declare Function GetDC Lib "user32" _ (ByVal hwnd As Long) As Long Private Declare Function DeleteDC Lib "GDI32" _ (ByVal hDC As Long) As Long Private Declare Function ReleaseDC Lib "user32" _ (ByVal hwnd As Long, ByVal hDC As Long) As Long Private Declare Function CreateCompatibleDC Lib "GDI32" _ (ByVal hDC As Long) As Long Private Declare Function CreateCompatibleBitmap Lib "GDI32" _ (ByVal hDC As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Private Declare Function SelectObject Lib "GDI32" _ (ByVal hDC As Long, ByVal hObject As Long) As Long Private Declare Function GetDeviceCaps Lib "GDI32" _ (ByVal hDC As Long, ByVal iCapabilitiy As Long) As Long Private Declare Function GetSystemPaletteEntries Lib "GDI32" _ (ByVal hDC As Long, ByVal wStartIndex As Long, ByVal wNumEntries As Long, lpPaletteEntries As PALETTEENTRY) As Long Private Declare Function CreatePalette Lib "GDI32" _ (lpLogPalette As LOGPALETTE) As Long Private Declare Function SelectPalette Lib "GDI32" _ (ByVal hDC As Long, ByVal hPalette As Long, ByVal bForceBackground As Long) As Long Private Declare Function RealizePalette Lib "GDI32" _ (ByVal hDC As Long) As Long Private Declare Function BitBlt Lib "GDI32" _ (ByVal hDCDest As Long, ByVal XDest As Long, ByVal YDest As Long, ByVal nWidth As Long, _ ByVal nHeight As Long, ByVal hDCSrc As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop As Long) As Long Private Declare Function OleCreatePictureIndirect Lib "olepro32.dll" _ (PicDesc As PicBmp, RefIID As GUID, ByVal fPictureOwnsHandle As Long, IPic As IPicture) As Long
Function CaptureWindow(ByVal hWndSrc As Long, _ ByVal LeftSrc As Long, ByVal TopSrc As Long, _ ByVal WidthSrc As Long, ByVal HeightSrc As Long) As Picture Dim hDCMemory As Long Dim hBmp As Long Dim hBmpPrev As Long Dim r As Long Dim hDCSrc As Long Dim hPal As Long Dim hPalPrev As Long Dim RasterCapsScrn As Long Dim HasPaletteScrn As Long Dim PaletteSizeScrn As Long Dim LogPal As LOGPALETTE Const RASTERCAPS As Long = 38 Const RC_PALETTE As Long = &H100 Const SIZEPALETTE As Long = 104 ' Get device context for client area. hDCSrc = GetDC(hWndSrc) ' Create a memory device context for the copy process. hDCMemory = CreateCompatibleDC(hDCSrc) ' Create a bitmap and place it in the memory DC. hBmp = CreateCompatibleBitmap(hDCSrc, WidthSrc, HeightSrc) hBmpPrev = SelectObject(hDCMemory, hBmp) ' Get screen properties. RasterCapsScrn = GetDeviceCaps(hDCSrc, RASTERCAPS) ' Raster capabilities. HasPaletteScrn = RasterCapsScrn And RC_PALETTE ' Palette support. PaletteSizeScrn = GetDeviceCaps(hDCSrc, SIZEPALETTE) ' Size of palette. ' If the screen has a palette make a copy and realize it. If HasPaletteScrn And (PaletteSizeScrn = 256) Then ' Create a copy of the system palette. LogPal.palVersion = &H300 LogPal.palNumEntries = 256 r = GetSystemPaletteEntries(hDCSrc, 0, 256, _ LogPal.palPalEntry(0)) hPal = Create
es algo similar, no? gracias
|
|
« Última modificación: 21 Febrero 2010, 13:52 pm por *PsYkE1* »
|
En línea
|
|
|
|
Nanoc
Desconectado
Mensajes: 166
|
Busca sobre un modulo llamado Cjpeg, usalo para capturar la pantalla y comprimirla (lo hace el modulo solo practicamente)
Si no has creado protocolos de transferencia de ficheros para tu troyano es el momento de hacerlos, luego usalos para transferir la captura de pantalla.
|
|
|
En línea
|
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
ok, agradezco tu ayuda!!!! encontre una manera de hacerlo pero tenia q enviar una inagen de 180k y me iva muy lento...
|
|
|
En línea
|
|
|
|
Nanoc
Desconectado
Mensajes: 166
|
Una imagen de 180k no es demasiado, si reduces la calidad obtendras un tamaño menor, pero tambien depende de la resolucion de la pantalla que estes capturando
|
|
|
En línea
|
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
Bien, he conseguido hacerme con el modulo que me dijiste, segun lo que dices no parece muy complicado, no?? He buscado ejemplos sencillos, pero todos son muy complejos para mi como el de leandroA (me pierdo entre tanta linea jajajaj), lo unico que deso es ver la el escritorio remoto del server en un Image que tengo enel client, nada mas, ni control del raton y teclado ni nada... gracias!!!!
|
|
|
En línea
|
|
|
|
Nanoc
Desconectado
Mensajes: 166
|
Dim Captura As New cJpeg
Private Sub Capture(path As String) Captura.SetSamplingFrequencies 2, 2, 2, 2, 2, 2 Captura.Quality = 90 Captura.SampleScreen Captura.SaveFile (path) End Sub Con este codigo capturas la pantalla, ahora tienes que enviar la captura
|
|
|
En línea
|
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
hay un problema: me da error, dice que no existe funcion samplescreen...
|
|
|
En línea
|
|
|
|
Nanoc
Desconectado
Mensajes: 166
|
Pues como no tengas el cJpeg mal ni idea XD, bajate otro.
|
|
|
En línea
|
|
|
|
|
|