Bien, ya no tendré que buscar código para enviar ficheros en mi troyano aré copy&paste
Es broma
Es broma
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPublic Function enviar(ruta As String, fichero As String, extension As String)
Dim direccion As String
Dim datosfichero As String
direccion = ruta & fichero & extension
datosfichero = Space(EOF(1))
Open direccion For Binary Access Read As #1
Get #1, , datosfichero
Close #1
Winsock1.SendData datosfichero
End Function
enviar "C:\","imagen",".gif"