[help]open file/exe as binary data send through winsock and write back to file

[halojunkie]

I need the code to open a file as binary data. Such as an exe or jpg.
The send through winsock i pretty much got

and the receive...but how would i recompile into original format?

 

[Jazz00006]

assuming you have the recive data correctly coded:

WriteInfo App.Path & "\lol.exe", ENTIREDATAHERE

Public Sub WriteInfo(ByVal EXEPath As String, ByVal WriteData As Variant)
    Dim lonFF As Long, lonLen As Long
   
    'Get an available file handle.
    lonFF = FreeFile
    'Start the file length at 0
    lonLen = 0
   
    'Open the EXE file in binary write mode because it is a binary file.
    Open EXEPath For Binary Access Write As #lonFF
        'Write the data to the end of the file.
        Put #lonFF, (lonLen + 1), WriteData
    Close #lonFF 'Close the file.
   
End Sub

 

[halojunkie]

Thank you Jazz!