Will This Script Work?

[Muchuchu]

Well I have an "email bomber" but I keep getting errors with the smtp servers I use, I have tried a lot of them and can't get any to work. I am not really using this program for anything malicious just for experience as I do for all my programs but I understand if you don't want to help. Here's my script:

EDIT- So my real question is, is it the servers I am using's fault, or is it something to do with my script or something wrong with inet?

expandcollapse popup

#include <INet.au3>

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Email Bomber", 335, 326, 193, 124)
$Group1 = GUICtrlCreateGroup("Email Specs", 8, 8, 313, 137)
$Label2 = GUICtrlCreateLabel("Your fake email", 16, 48, 77, 17)
$Label3 = GUICtrlCreateLabel("Victims Email", 16, 72, 65, 17)
$Input1 = GUICtrlCreateInput("Server Name", 120, 24, 169, 21)
$Yemail = GUICtrlCreateInput("John@smith.com", 120, 48, 169, 21)
$Vemail = GUICtrlCreateInput("Nick@allgaming.org", 120, 72, 169, 21)
$Label1 = GUICtrlCreateLabel("SMTP Server ", 16, 24, 71, 17)
$Label6 = GUICtrlCreateLabel("Your fake name", 16, 104, 79, 17)
$Input3 = GUICtrlCreateInput("David Spade", 120, 104, 169, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Email Info", 8, 152, 313, 121)
$Label4 = GUICtrlCreateLabel("Title", 16, 176, 24, 17)
$Input2 = GUICtrlCreateInput("Untitled", 80, 176, 233, 21)
$Label5 = GUICtrlCreateLabel("Subject", 16, 208, 40, 17)
$Input4 = GUICtrlCreateInput("Untitled", 80, 208, 233, 21)
$Body = GUICtrlCreateLabel("Body", 16, 240, 28, 17)
$Input5 = GUICtrlCreateInput("Body of email goes here", 80, 240, 233, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Send!", 256, 280, 65, 33, 0)
$Label7 = GUICtrlCreateLabel("How many would you like to send?", 8, 288, 168, 17)
$Input6 = GUICtrlCreateInput("20", 192, 288, 57, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $button1
    start()
EndSwitch
WEnd



func start()
$s_SmtpServer = guictrlread($input1)
$s_FromName = guictrlread($input3)
$s_FromAddress = guictrlread($yemail)
$s_ToAddress = guictrlread($vemail) 
$s_Subject = guictrlread($input4)
$as_Body = guictrlread($input2)

Do
    $i = 0
$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body)
$i = $i + 1

if @error Then
    msgbox (1,"Error","An Error has occured" & @crlf & @crlf & "Please make sure to have every field filled out and/or try a different Smtp server")
ExitLoop
endif
until $i = 1

$err = @error
If $Response = 1 Then
    MsgBox(0, "Success!", "Mail sent")
Else
    MsgBox(0, "Error!", "Mail failed with error code " & $err)
EndIf
endfunc

Edited May 26, 2008 by Muchuchu

[andybiochem]

I give it 30 mins.