FakeMailer, Prima creazione!

<?php
$msg =$_GET['messaggio'];
$subject = $_GET['titolo'];
$header = "From:<$mittente>n";
mail("$vittima",$subject,$msg,$header);
?>

#include <IE.au3>
#include <GUIConstants.au3>
$Skin = GUICreate("Fake Mailer - by Sky", 278, 239, 193, 124)
GUISetBkColor(0x000000)
$Gruppo1 = GUICtrlCreateGroup("Dati Email", 8, 8, 262, 217)
GUICtrlSetColor(-1, 0x00FF00)
$Mittente = GUICtrlCreateLabel("- Mittente", 16, 26, 75, 17)
GUICtrlSetColor(-1, 0x00FF00)
$MittenteInput = GUICtrlCreateInput("/// Email mittente ///", 90, 24, 170, 21)
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlSetBkColor(-1, 0x6A6A6A)
$Destinatario = GUICtrlCreateLabel("- Destinatario", 16, 50, 75, 17)
GUICtrlSetColor(-1, 0x00FF00)
$DestinatarioInput = GUICtrlCreateInput("/// Email destinatario ///", 90, 48, 170, 21)
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlSetBkColor(-1, 0x6A6A6A)
$Titolo = GUICtrlCreateLabel("- Titolo", 16, 74, 75, 17)
GUICtrlSetColor(-1, 0x00FF00)
$TitoloInput = GUICtrlCreateInput("/// Che bel titolo! ///", 90, 72, 170, 21)
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlSetBkColor(-1, 0x6A6A6A)
$Testo = GUICtrlCreateLabel("- Testo", 15, 98, 75, 17)
GUICtrlSetColor(-1, 0x00FF00)
$TestoInput =GUICtrlCreateEdit(" >_>", 90, 96, 170, 120)
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlSetBkColor(-1, 0x6A6A6A)
$Credit = GUICtrlCreateButton("Credit", 16, 120, 65, 32, 0)
$ddd = GUICtrlCreateLabel("- Testo", 15, 98, 75, 17)
GUICtrlSetColor(-1, 0x00FF00)
$Invia = GUICtrlCreateButton("Invia!", 16, 184, 65, 32, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
While 1
  $Mail = GUIGetMsg()
  Switch $Mail
     Case $GUI_EVENT_CLOSE
        Exit
     Case $invia
               $Ricevente = guictrlread($DestinatarioInput)
        $oIE = _IECreate ("http:/sitoweb/fakemailer.php?mittente=" & GUICtrlRead ($MittenteInput) & "&vittima="& GUICtrlRead ($DestinatarioInput) & "&titolo="& GUICtrlRead ($TitoloInput) & "&messaggio="& GUICtrlRead ($TestoInput) , 0, 0)
                _IEQuit ($oIE)
               TrayTip("Fake Mailer - by Sky", "Email inviata a " & @CRLF & '"' & $Ricevente & '"',0)
                               case $Credit
                       msgbox(0,"Crediti programma","Ideatore: Sky" & @CRLF & "Data creazione: 07/06/08" & @CRLF & "Versione: v1.0.")
  EndSwitch
WEnd

#include <GUIConstantsEx.au3>
#include <Constants.au3>

$Form1 = GUICreate("Fake Mail Sender - torels_", 482, 546, 193, 125)
$iFrom = GUICtrlCreateInput("", 56, 24, 417, 21)
$Label1 = GUICtrlCreateLabel(" Mail form:", 0, 26, 52, 17)
$iTo = GUICtrlCreateInput("", 56, 55, 417, 21)
$Label2 = GUICtrlCreateLabel(" Mail to:", 1, 57, 41, 17)
$iSubject = GUICtrlCreateInput("", 56, 87, 417, 21)
$Label3 = GUICtrlCreateLabel(" Subject:", 1, 89, 46, 17)
$iMsg = GUICtrlCreateEdit("", 8, 128, 465, 345)
$ok = GUICtrlCreateButton("Send Fake Mail", 8, 480, 465, 33, 0)
$Progress = GUICtrlCreateProgress(8, 520, 465, 17, 0x01)

GUISetState(@SW_SHOW)


While 1
       Switch GUIGetMsg()
               Case - 3
                       Exit
               Case $ok
                       $from = GUICtrlRead($iFrom)
                       $rcpt = GUICtrlRead($iTo)
                       $subject = GUICtrlRead($iSubject)
                       $msg = GUICtrlRead($iMsg)
                       
                       if $from <> "" and $rcpt <> "" then
                       
                       TCPStartup()
                       $name = TCPNameToIP("out.alice.it")
                       $server = TCPConnect($name, 25)
                       GUICtrlSetData($Progress,100/7 * 1)
                       Sleep(1000)
                       TCPSend($server, "RSET" & @CRLF)
                       GUICtrlSetData($Progress,100/7 * 2)
                       Sleep(1000)
                       TCPSend($server, "HELO ciao" & @CRLF)
                       GUICtrlSetData($Progress,100/7 * 3)
                       Sleep(1000)
                       TCPSend($server, "MAIL FROM:<" & $from & ">" & @CRLF)
                       GUICtrlSetData($Progress,100/7 * 4)
                       Sleep(1000)
                       TCPSend($server, "RCPT TO:<" & $rcpt & ">" & @CRLF)
                       GUICtrlSetData($Progress,100/7 * 5)
                       Sleep(1000)
                       TCPSend($server, "DATA" & @CRLF)
                       GUICtrlSetData($Progress,100/7 * 6)
                       Sleep(1000)
                       TCPSend($server, "Subject: " & $subject & @CRLF)
                       GUICtrlSetData($Progress, 100/7 * 7)
                       Sleep(1000)
                       TCPSend($server, $msg & @CRLF)
                       Sleep(1000)
                       TCPSend($server, "." & @CRLF & @CRLF)
                       GUICtrlSetData($Progress, 0)
                       TCPShutdown()
                       EndIf
       EndSwitch
WEnd