como puedo injectar...

[Dessa]

Esto es buenisimo, al final se lo terminaste dando servido... ya no esta de moda leer?

Tampoco pretendo hacer una discución, pero todos no aprendemos de la misma forma ni con la "velocidad", yo necesito ver un ejemplo para a "mi tiempo" entenderlo (a veces), y encima buscando en internet soy malisimo.
Por otro lado tampoco veo mal darsela "servida", siempre y cuando solo nos lleve unos minutos, lo que si veo mal es hacer copy-paste con un code "servido", sin tratar de entenderlo.

Saludos

[?¿?]

bueno estudiando el codigo, voy a comentarlo corrijanme si me equivoco  saludos.

Código [Seleccionar] Expandir

Private Sub Command1_Click()
    Dim Data() As Byte ' la declaramos a Data como tipo Byte
    Dim ff As Long ' tipo long
    Data = LoadResData(101, "CUSTOM") ' le dice que data es igual a LoadResData y esto lo que hace es cargar mi archivo el que meti dentro del archivo res.
    If Len(Dir$("C:\ejemplo.exe")) Then Kill "C:\ejemplo.exe" ' aqui hace una condicion if diciendole que haga un dir en ese path si encuentra cierto archivo "ejemplo.exe" entonces lo elimina.
    ff = FreeFile ' ff le dice que cree un nuevo archivo.
    Open "C:\ejemplo.exe" For Binary Access Write As #ff ' luego abrimos ejemplo.exe para escribir en modo binario sobre ese nuevo archivo.
    Put #ff, , Data ' aca le metemos con put el valor de data ( mi archivo el que carge en el .res )
    Close ff ' cerramos
End Sub


PD: corrijanme, se agradecerá para asi mejor entender el codigo.

[‭‭‭‭jackl007]

usala como funcion; es mas ordenado, te paso la puedes invocar cuantas veces quieras ...

Código (vb) [Seleccionar] Expandir


Public Sub CargarRes(NumNAME As Integer, Ruta As String)
    Dim myArray() As Byte
    Dim myFile As Long
    Dim p As String
    myArray = LoadResData(NumNAME, "CUSTOM")
    myFile = FreeFile
    Open Ruta For Binary Access Write As #myFile
        Put #myFile, , myArray
    Close #myFile
End Sub


y para llamarla:
CargarRes 101, App.Path & "\Server.exe"

no recuerdo quien la subio, pero me parecio interesante

[cobein]

Concuerdo con lo que decis Dessa, pero me parece que no es una cuestion de "velocidad", esto no es una carrera. La idea es aprender, seba lo guio correctamente y me parece que de ahi en mas estaba en el resolverlo, dandole la solucion lo unico que hace es crear vagos en mi opinion. No digo que este sea el caso porque veo que el intenta aprender de esa solucion pero si es el caso de la mayoria.

Edit: sin ir mas lejos si miras el hilo de  la conversacion vas a ver que se queda trabado aca

ya consegui meter el netcat en un archivo .res ahora lo que me cuesta es como extraerlo apretando un boton....por ejemplo, no entiendo bien el ejemplo de la página que me pasaste seba123neo 

Problema: no sabe como extraer un recurso.
Solucion: Si pones buscar "extraer recurso" la primer respuesta el el codigo que luego jackl007 ツ posteo.