PDA

Visualizza la versione completa : [VB] Invio ATTACHMENT CON TELNET


jabjoint
21-07-2002, 21:03
Cosa devo fare una volta riuscito a convertire un mio programma in UUENCODE?
Code.

'in questo file c' il programma convertito:
uuencode_prg = "C:\WINDOWS\DESKTOP\NOMEPRG.txt"

lngFreeFile = FreeFile()
Open uuencode_prg For Binary As #lngFreeFile
Do Until EOF(lngFreeFile)
Dim strBuffer As String
strBuffer = Space$(8192)
Get #lngFreeFile, , strBuffer
Winsock.SendData strBuffer
Loop
Close #lngFreeFile

'Non funziona questo lo invio alla fine dopo aver inviato il messaggio. dopo di questo invio "." CIAO!!!

steno12
22-07-2002, 00:38
jabjoint come v, da m che non ci si sente!!

Vedo che utilizzi ancora il mio codice, ...ma lo manipoli male
e non l'hai nemmeno studiato......
il codice che hai postato sballato! come fai nel loop while
a scrivere
strBuffer = Space$(8192)......senza conoscere la lunghezza del file.
Se il file lungo 11.000 b, ti rimane da leggere l'ultimo buffer che di 2808. e se fosse pi corto? di 8192 b, avresti un input fuori della lunghezza del file.....che ne pensi!!!!!!
devi usare un ciclo for............. conoscendo la lunghezza totale del file "C:\WINDOWS\DESKTOP\NOMEPRG.txt"

jabjoint
22-07-2002, 12:54
Ciao steno, questo penso (non sono sicurissimo) lo ottiene automaticamente. Ho studiato il tuo
tu prendi la lunghezza totale e la dividi per 8192 e invii, quello che rimane lo invii alla fine giusto?
Poi mi sono accorto che gli exe di VB vengono compilati apposta per essere divisi per 8192.

Cmq questo qui non da problemi. (neanche il tuo)
Cmq ci sono riuscito ad inviare l' attachment. Ciao!

steno12
22-07-2002, 17:46
Sono contento che ci sei riuscito.
comunque non che il vb divide gli exe per 8192, ma diciamo che gli exe come le dll, li divide senza un resto, questo lo verificato anchio.
Per certi lavori, ti posso assicurare, che divido a 256, per compattare il codice.

ciao





link
homepage
http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/
software
http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/programmi/programmi.html
forum
http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/public/twforum/default.asp

Loading