hola, muchas gracias por el code pero usando ese code tambien me tira error pero si lo pongo en un proyecto limpio si funciona la verdad que no entiendo que pasa u.u nose tampoco que parte del code poner porque nose donde esta el error ¬¬ porfavor si alguien puede darme aunque sea una posible falla me avisa please
asi quedo el code usando freefile:
asi quedo el code usando freefile:
Código (vb) [Seleccionar]
Dim bufx As String * 1024
Dim Todox As String
Dim ff As Integer
ff = FreeFile
Open "C:\Archivo.txt" For Binary As ff
Do While Not EOF(ff)
DoEvents
Get ff, , bufx
Todox = Todox & bufx
Loop
Close ff
Form1.Winsock1.SendData Todox