Visual Basic 6 - invio posta con blat

ciao a tutti, ho un problemino con un programma in vb che sto cercando di scrivere, non riescoa scrivere la sintassi corretta per utilizzare Put# e Get#....

Cerco di spiegarimi: il progrmammino è fatto da due parti la prima è l'editor dove setto in 3 text box il destinatario, il sender e il server smtp....

la seconda parte è lo stub che è integrata come risorsa nell'editor che dovrebbe passare le informazioni registrate nelle variabili all'eseguibile finale che viene creato e alla sua esecuzione dovrebbe inviare la posta con i parametri appunto settati.

se li setto manulamente da codice ovviamiente funziona ma se cerco di settarli con l'utilizzo delle variabili passando i parametri con Put e Get non funziona...

mi potete dire dove sbaglio?
per maggiore comprensione allego il sorgente

p.s. per testare il tutto nel file compresso ho messo direttamente la cartella blat che va messa in C:\

grazie in anticipo

Ma non e' sempre per il malware per cui ti era stato chiuso questo

pierotofy.it/pages/extras/forum/6/55136-simple_downloader/

?

A quanto pare, non e' servito ...

malware!!!!!
lol!!

blat.net/

anche blat ora è diventato malware.... mah!

Chiedevo ... perche' parli di

"stub" ... "eseguibile finale" ...

A cosa serve un eseguibile "costruito" in questo modo?

Perche' non invii la posta da programma come tutti normalmente fanno?

1) per renderlo automatizzato
2) per imparare ad usare Put# e Get#

non mi sembra un reato informatico credo.... non sono questi i malware... ti assicuro...

In che senso?



Comincia dagli esempi di base ...

l'esempio di base funziona... come volgio fare io no

'Dim numeroFile, LunghDato As Integer,
Dim Buffer() As Byte
Dim dest As String
Dim send As String
Dim smtp As String
'numeroFile = FreeFile
'apre il file nel path corrente
Open App.Path + "\esempio.exe" For Binary As #1



'assegna un valore alla variabile stringa

dest = Text1.Text
send = Text2.Text
smtp = Text3.Text

Buffer() = LoadResData(101, "CUSTOM")

Put #1, , Buffer

'determina la lunghezza della variabile
'LunghDato = Len(Dato)
'inserisce prima la lunghezza del dato...
'Put #1, , LunghDato
'e poi il dato stesso
Put #1, , dest
Put #1, , send
Put #1, , smtp
Close #1
End Sub

codice estratto dal vostro sito, ho provato a utilizzare la sintassi per il mio proggetto ma c'è sicurmante qlc che non va.....

Beh ... mi dispiace ma non discuto di come attaccare indirizzi di posta ad un eseguibile ... per me, realizzare un programma simile significa (almeno) realizzare uno spammer ... (se non altro).

Buona fortuna ...