18/03/08 23:01
M@d_Hacker
Private Declare Function InitCommonControls Lib "Comctl32.dll" () As Long
Private Sub cmdall_Click()
CommonDialog1.ShowOpen
exeallegato = CommonDialog1.FileName
End Sub
Private Sub CMDEMAIL_Click()
Dim nome, email, messaggio
nome = txtNome.Text
email = txtEmail.Text
messaggio = txtMessaggio.Text
If Len(Trim(nome)) = 0 Then
MsgBox "Inserisci il tuo nome", vbCritical, "Errore"
txtNome.SetFocus
ElseIf InStr(email, "@") = 0 Then
MsgBox "Inserisci la tua email", vbCritical, "Errore"
txtEmail.SetFocus
ElseIf Len(Trim(messaggio)) = 0 Then
MsgBox "Inserisci il messaggio", vbCritical, "Errore"
txtMessaggio.SetFocus
Else
Dim CDO As New CDO.Message
With CDO
.From = email
.To = "inserisci inidirizzo"
.Subject = "Messaggio da " & nome
.TextBody = messaggio
.Send
End With
End If
End Sub
Ecco il codice buono...(Sempre se tu hai outlook)...Poi ti gestisci tu le textbox,i cmd e la commondialog e il CDO ->(si trova in riferimenti)...
Cmq se nn hai outlook sul link ke ti ho dato c'è un post ke indica un sito dove c'è un esempio col winsock[
maurorossi.net/ ]...
Ultima modifica effettuata da M@d_Hacker 18/03/08 23:04
aaa
19/03/08 10:43
FrnbacYescO
con outloock nn mi convince tanto adesso provo quellla del winsok
aaa
19/03/08 12:29
M@d_Hacker
L'ho fatto io un programma ke invia e-mail sfruttando le impostazioni di outlook e funziona...Poi fai come vuoi...
Ultima modifica effettuata da M@d_Hacker 19/03/08 12:29
aaa
19/03/08 16:13
FrnbacYescO
il punto e che vorrei fare un programmino "autonomo" deve esere il più invisibile possibile, se lo faccio con autloock servirebbe un account registrato in outlook o mi sbaglio??
a me servirebbe solo uno dove inserire
SMPT
MITTENTE
DESTINATARIO
TESTO MESSAGGIO
e sono sempre le stesse queste informazioni, quindi senza textbox ne niente, un ottimo programmino per farlo è blat che però invia mail dalla riga di comando, non sò se magari c'è un modo per includerlo nell'exe di un prog in vb6 (non sò se sono stato abbastanza chiaro)
aaa
19/03/08 17:28
M@d_Hacker
Guarda ke invece di usare le textbox L'indirizzi te li scrivi direttamente nel codice!!E poi solo l'indirizzo del destinatario deve essere vero(se vuoi fare un e-mail anonima)...Quindi il codice risulterà cortissimo...
Cmq dai tuoi post precedenti ho capito ke stai facendo un trojan...(Autoavvio,duplicazione e invio)
Ultima modifica effettuata da M@d_Hacker 19/03/08 17:58
aaa