E-Mail SpamBot by BumekApps

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <SMTP.au3>
#Region ### START Koda GUI section ### Form=
GUICreate("E-Mail Sender by Bumek662", 454, 478, 192, 132)
GUICtrlCreateGroup("Ustawienia Wysylajacego", 8, 0, 225, 121)
$senderEmail = GUICtrlCreateInput("", 72, 24, 153, 24)
GUICtrlCreateLabel("E-Mail:", 16, 24, 57, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$senderPw = GUICtrlCreateInput("", 72, 56, 153, 24, $es_Password)
GUICtrlCreateLabel("SMTP:", 16, 88, 55, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Smtp = GUICtrlCreateCombo("", 72, 88, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "poczta.interia.pl|smtp.gmail.com|smtp.poczta.onet.pl|poczta.o2.pl|smtp.wp.pl|smtp.koszmail.pl")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateLabel("Haslo:", 16, 56, 53, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("Ustawienia Odbierającego", 248, 0, 193, 57)
$spamedEmail = GUICtrlCreateInput("", 320, 24, 113, 24)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateLabel("E-Mail:", 256, 24, 57, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("Ustawienia Wiadomosci", 8, 128, 433, 297)
GUICtrlCreateLabel("Nadawca:", 202, 144, 65, 20)
$Nadawca = GUICtrlCreateInput("", 16, 176, 417, 24)
GUICtrlCreateLabel("Temat:", 211, 208, 46, 20)
$Temat = GUICtrlCreateInput("", 16, 232, 417, 24)
GUICtrlCreateLabel("Wiadomosc:", 194, 264, 80, 20)
$Message = GUICtrlCreateInput("", 16, 288, 417, 130)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Send = GUICtrlCreateButton("Wyslij!", 142, 432, 169, 41)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Send
			$Amount = InputBox("Ilosc", "Ile wyslac E-Maili?", "")
			For $x = 1 to $Amount
			_INetSmtpMailCom(GUICtrlRead($Smtp), GUICtrlRead($Nadawca), GUICtrlRead($senderEmail), GUICtrlRead($spamedEmail), GUICtrlRead($senderEmail), GUICtrlRead($senderPw), GUICtrlRead($Temat), GUICtrlRead($Message))
			TrayTip("Wyslano!", "E-Mail " & $x & " zostal wyslany!", 1)
			Next

	EndSwitch
WEnd