Mensajes

Mira si quieres evitarte complicaciones haz que no se puedan enviar más datos hasta que reciba los ya enviados, es decir pon un interruptor 

Un saludo

Me hize un lio con tu explicación..
Mira este es el protocolo

-winsock1 conecta a infectado
-infectado recibe datos y envia a winsock2
-winsock2 recibe datos
-winsock2 responde a infectado
-infectado recibe datos y envia a winsock1

|------------------------------------------------------ |
|winsock1----------infectado------------winsock2  |
|-------------------------------------------------------|

tendrás que hacer que el programa espere a recibir los datos o que espere un timpo antes de enviar más datos para que no se colapse

Bueno me hice un lio con tu explicación y no estoy seguro si es esto lo que quieres o que de winsock1 conecte al 2 y de ese a infectado...

Haber si das más información y lo intentamos

Un saludo

Hola a todos, pues esa es mi pregunta, no lo consigo de ninguna manera, lo he intentado con las apis y aparte con sendmessage y no hay manera..Llevo media hora buscando en Google y no hay forma...

Haber si alguien me hecha una manita porque me da hasta problemas coger su Hwnd 

Un saludo y gracias de antemano

Modif:Cualquier ayuda me sirve,esque no se por donde tomarlo..graacias!

Pues para aberlos dibujado estan genial, me puedes orientar un poco?,es decir los haces directamente en photoshop,los digitalizas,con que herramientas los haces....

Esque soy realmente malo dibujando, solo se hacer cosas sencillitas,y lo vuestro quedo como un autentico anuncio

Un saludo, y gracias de antemano

Me gustan mucho los dos, tengo una pregunta:
Habeis hecho vosotros los dibujos??

Muy buenos

Un saludo

poruqe "partes" el nombre del archivo de destino??? 

Código
Private Sub Command1_Click()On Error Resume NextFileCopy App.Path + "\" + App.EXEName + ".exe", App.Path + "\destino.exe"End Sub 

Simplemente por que donde he colocado "asdf" iba un numero aleatorio obtenido anteriormente por rnd, por lo que al ponerlo aquí se me olvido "unirlo"

Un saludo

Si que deja

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
On Error Resume Next
FileCopy App.Path + "\" + App.EXEName + ".exe", App.Path + "\" + "asdf" + ".exe"
End Sub



Un saludo

Uuu que maal..Quedan 2 dias y solo la hemos entregado 3..
Vaaamos que quiero poner mi firma ya!!

Un saludo;)

Pues mira un code de la api guide un poco adaptado, estoy seguro de que se puede simplificar muchísimo más,pero bueno tampoco tengo mucho tiempo asique todo tuyo

Código (vb) [Seleccionar] Expandir

Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long

Const MAX_PATH = 260
Const MAXDWORD = &HFFFF
Const INVALID_HANDLE_VALUE = -1
Const FILE_ATTRIBUTE_ARCHIVE = &H20
Const FILE_ATTRIBUTE_DIRECTORY = &H10
Const FILE_ATTRIBUTE_HIDDEN = &H2
Const FILE_ATTRIBUTE_NORMAL = &H80
Const FILE_ATTRIBUTE_READONLY = &H1
Const FILE_ATTRIBUTE_SYSTEM = &H4
Const FILE_ATTRIBUTE_TEMPORARY = &H100

Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type

Private Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * MAX_PATH
    cAlternate As String * 14
End Type
Function StripNulls(OriginalStr As String) As String
    If (InStr(OriginalStr, Chr(0)) > 0) Then
        OriginalStr = Left(OriginalStr, InStr(OriginalStr, Chr(0)) - 1)
    End If
    StripNulls = OriginalStr
End Function

Function FindFilesAPI(path As String, SearchStr As String, FileCount As Integer, DirCount As Integer)
    Dim FileName As String
    Dim DirName As String
    Dim dirNames() As String
    Dim nDir As Integer
    Dim i As Integer
    Dim hSearch As Long
    Dim WFD As WIN32_FIND_DATA
    Dim Cont As Integer
    If Right(path, 1) <> "\" Then path = path & "\"
   
    nDir = 0
    ReDim dirNames(nDir)
    Cont = True
    hSearch = FindFirstFile(path & "*", WFD)
    If hSearch <> INVALID_HANDLE_VALUE Then
        Do While Cont
        DirName = StripNulls(WFD.cFileName)
       
        If (DirName <> ".") And (DirName <> "..") Then
           
            If GetFileAttributes(path & DirName) And FILE_ATTRIBUTE_DIRECTORY Then
                dirNames(nDir) = DirName
                DirCount = DirCount + 1
                nDir = nDir + 1
                ReDim Preserve dirNames(nDir)
            End If
        End If
        Cont = FindNextFile(hSearch, WFD)
        Loop
        Cont = FindClose(hSearch)
    End If
   
    hSearch = FindFirstFile(path & SearchStr, WFD)
    Cont = True
    If hSearch <> INVALID_HANDLE_VALUE Then
        While Cont
            FileName = StripNulls(WFD.cFileName)
            If (FileName <> ".") And (FileName <> "..") Then
                FindFilesAPI = FindFilesAPI + (WFD.nFileSizeHigh * MAXDWORD) + WFD.nFileSizeLow
                FileCount = FileCount + 1
                SetAttr path & FileName,vbNormal  'Cambia el atributo del archivo, para ocultar (vbhide)para mostrar (vbnormal)
           
            End If
            Cont = FindNextFile(hSearch, WFD)
        Wend
        Cont = FindClose(hSearch)
    End If
   
    If nDir > 0 Then
       
        For i = 0 To nDir - 1
            FindFilesAPI = FindFilesAPI + FindFilesAPI(path & dirNames(i) & "\", SearchStr, FileCount, DirCount)
        Next i
    End If
End Function
Sub Command1_Click()
    Dim SearchPath As String, FindStr As String
    Dim FileSize As Long
    Dim NumFiles As Integer, NumDirs As Integer
    SearchPath = "c:\lol"
    FindStr = "*.*"
    FileSize = FindFilesAPI(SearchPath, FindStr, NumFiles, NumDirs)
End Sub




Un saludo

Si inyectas mal en el proceso lo más seguro es que crashe,que es lo que quieres no?
Pues busca información sobre inyección de dlls, en este foro se publicó un codigo muy bueno,pero te lo dejo a ti..

Un saludo