Holaaaa pues eso.... si sabeis de algun chat interesante...XDDD

Holaaaaaaaa tenia un problema con la ransefencia de archivos de mi troyano y era k si enviavas un archivo muy grabde se colgaba y lei que lo mejor era partirlo en trozos para enviarlo....
Os pongo mi code para a ver si me podeis hechar una mano porque no encuentro el error :S:S
la transferencia me la hace correctamente....y recibo el archivo con la extension correcta y el tamaño correcto (alguna vez tienen albun byte de mas) pero a la hora de abrirlos me dan error :S:S


Cliente:

If Datos = "enviar" Then
Dim buffer As String
Open CD.FileName For Binary Access Read As #1
buffer = Space$(25000)
For i = 1 To FileLen(CD.FileName) / 25000
Get #1, , buffer
WS1(Index).SendData buffer
If FileLen(CD.FileName) - Loc(1) <= 25000 Then
buffer = Space$(FileLen(CD.FileName) - Loc(1))
Get #1, , buffer
WS1(Index).SendData buffer
End If
Next
End If



Servidor:

If intrecibir = True Then
dtotal = Datos + dtotal
total = Len(dtotal)
Text7.Text = total
If tamaño <= Text7.Text And intrecibir = True Then
Put #1, 1, dtotal 'Escribimos
Close #1
intrecibir = False
WS.SendData "recibido"
End If
End If


If Left(Datos, 7) = "archivo" Then
dato = Split(Datos, "|")
tamaño = dato(1)
ruta = dato(2)
Open ruta For Binary As #1
Text5.Text = tamaño
Text6.Text = ruta
intrecibir = True
WS.SendData "enviar"
End If

End Sub



Muchas gracias

pd: falnta alguna variable sin definir que las tengo al principio del code

Hola a todos!!!!! estoy intenando añadir a mi aplicacion un codigo para identificar k av tiene instalado en la maquina del server me gustaria haber si  me podriais dar alguna idea de por donde c¡podria empezar???

La mejor forma seria identificando los procesos abiertos no????



Graciass!!!!