Search the Community

Hey there, folks. I have expanded my previous sms script (link here) to the point that it can be used by anyone without a problem. Currently, as said in topic, it's working only with Polish numbers - I do not have enough knowledge about foreign country services that allow to send free text msgs, so if anyone could provide me some info, I would be glad. Picture of GUI: Dane = sms details, such as Numer odbiorcy, which is target number starting with siec (first three numbers as they are representing the provider) and ending with last six numbers. You can use only numbers there. Nadawca and Tresc are the sender name and the text itself. Sender name is max 12 afaik (cba to check source) and text is max 60 letters long. By pressing 'Zatwierdz' script checks if number is valid. If it is, button to send sms is enabled, if not, it's disabled. You can chose to send 1 sms or to send x amount of them, theres 2 buttons. Timer on right side is not yet done. Any ideas to help me out doing it would be cool, although I've though of using variable to declare how much script would have to wait, something like this: Sleep($some_variable_from_checkbox) If I can't make it like that, any ideas, as said, would be nice. Here's the code of the app: #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Outfile=C:\Users\qwe\Desktop\(32 bit)SMS Lite 1.2.exe #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <MsgBoxConstants.au3> #include <GUIListBox.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <IE.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("SMS lite 1.2", 275, 460, 263, 315) $Group1 = GUICtrlCreateGroup(" Error log ", 8, 232, 257, 41) $error_label = GUICtrlCreateLabel("Wybrana siec: X", 25, 250, 119, 17) $error_label2 = GUICtrlCreateLabel("Poprawny numer: X", 135, 250, 119, 17) GUICtrlSetFont($error_label, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor($error_label, 0xce0000) GUICtrlSetFont($error_label2, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor($error_label2, 0xce0000) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group2 = GUICtrlCreateGroup("Dane", 8, 8, 257, 217) $Input1 = GUICtrlCreateInput("", 76, 48, 49, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER)) GUICtrlSetLimit($Input1, 6) $OK = GUICtrlCreateButton("Zatwierdz", 32, 200, 83, 17) $Label8 = GUICtrlCreateLabel("Numer odbiorcy", 32, 30, 90, 17) $Label10 = GUICtrlCreateLabel("Nadawca:", 40, 70, 53, 17) $Input2 = GUICtrlCreateInput("", 24, 88, 100, 21) GUICtrlSetLimit($Input2, 15) $Label11 = GUICtrlCreateLabel("Tresc:", 48, 110, 34, 17) $Input3 = GUICtrlCreateInput("Wpisz tutaj tresc SMS. Maksymalnie mozesz uzyc 60 znakow.", 24, 128, 97, 68, $ES_MULTILINE) GUICtrlSetLimit($Input3, 60) $Combo1 = GUICtrlCreateCombo("siec", 24, 48, 49, 25) $Pic1 = GUICtrlCreatePic("C:\Users\qwe\Desktop\SKULL ICON.gif", 136, 32, 115, 167) $Label9 = GUICtrlCreateLabel("## BY BRODATY ##", 141, 200, 107, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group4 = GUICtrlCreateGroup(" Wysylanie SMS ", 8, 280, 257, 169) $Label4 = GUICtrlCreateLabel("Dzienny limit SMS'ow wynosi 30.", 54, 392, 157, 17) $Label5 = GUICtrlCreateLabel("Chcesz wiecej? Daj znac, dogadamy sie.", 32, 408, 197, 17) $Group3 = GUICtrlCreateGroup("", 24, 377, 225, 7) GUICtrlCreateGroup("", -99, -99, 1, 1) $Label6 = GUICtrlCreateLabel("suckinsyn@gmail.com", 72, 424, 109, 17) $Checkbox1 = GUICtrlCreateCheckbox("wyslij za 10 minut", 136, 312, 105, 17) $Checkbox2 = GUICtrlCreateCheckbox("wyslij za 30 minut", 136, 328, 105, 17) $Checkbox3 = GUICtrlCreateCheckbox("wyznacz sam czas", 136, 344, 113, 17) $Group5 = GUICtrlCreateGroup(" Timer (dodatek) ", 125, 292, 130, 78) GUICtrlCreateGroup("", -99, -99, 1, 1) $Button1 = GUICtrlCreateButton("Wyslij 1 SMS", 24, 304, 91, 25) $Button2 = GUICtrlCreateButton("1 do 30 SMS'ow", 24, 348, 91, 25) $Label1 = GUICtrlCreateLabel("lub sam wybierz ilosc", 18, 331, 102, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### ;---------------------------------------------------------;---------------------------------------------------------;---------------------------------------------------------;------------------------------------------------- GUICtrlSetState($Button1, $GUI_DISABLE) GUICtrlSetState($Button2, $GUI_DISABLE) GUICtrlSetState($Checkbox1, $GUI_DISABLE) GUICtrlSetState($Checkbox2, $GUI_DISABLE) GUICtrlSetState($Checkbox3, $GUI_DISABLE) Dane() Func Dane() GUICtrlSetData($Combo1, "500|501|502|503|504|505|506|507|508|509|510|511|512|513|514|515|516|517|518|519|530|531|532|533|534|535|536|537|538|539|600|601|602|603|604|605|606|607|608|609|660|661|662|663|664|665|666|667|668|669|690|691|692|693|694|695|696|697|698|699|721|722|723|724|725|726|727|728|729|730|731|732|733|739|780|781|782|783|784|785|786|787|788|789|790|791|792|793|794|795|796|797|798|799|880|881|882|883|884|885|886|887|888|889", "0") Local $sComboRead = "" While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $OK $sNR_1 = GUICtrlRead($Combo1) $sNR_2 = GUICtrlRead($Input1) if $sNR_1 = "siec" then GUICtrlSetData($error_label,"Wybrana siec: X") GUICtrlSetFont($error_label, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor($error_label, 0xce0000) Else GUICtrlSetData($error_label,"Wybrana siec: V") GUICtrlSetFont($error_label, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor($error_label, 0x4bcc00) EndIf if stringlen(GUICtrlRead($Input1))<6 Then GUICtrlSetData($error_label2,"Poprawny numer: X") GUICtrlSetFont($error_label2, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor($error_label2, 0xce0000) Else GUICtrlSetData($error_label2,"Poprawny numer: V") GUICtrlSetFont($error_label2, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor($error_label2, 0x4bcc00) EndIf $tes1 = GUICtrlRead($error_label) if $tes1 = "Wybrana siec: V" Then $zgoda1 = 1 Else $zgoda1 = 0 EndIf $tes2 = GUICtrlRead($error_label2) if $tes2 = "Poprawny numer: V" Then $zgoda2 = 1 Else $zgoda2 = 0 EndIf If $zgoda1 = 1 AND $zgoda2 = 1 Then GUICtrlSetState($Button1, $GUI_ENABLE) GUICtrlSetState($Button2, $GUI_ENABLE) Else GUICtrlSetState($Button1, $GUI_DISABLE) GUICtrlSetState($Button2, $GUI_DISABLE) EndIf Case $Button1 ; wysyłanie jednego SMS $numer_1 = GUICtrlRead($Combo1) $numer_2 = GUICtrlRead($Input1) $nadawca = GUICtrlRead($Input2) $tresc = GUICtrlRead($Input3) Global $oIE = _IECreate("sms.priv.pl", 0, 0) $oSelect = _IEGetObjByName($oIE, "siec") ;select first thing to change _IEFormElementOptionSelect($oSelect, $numer_1, 1, "byText") ;set the data $oObj = _IEGetObjByName($oIE,"number2") ;select second thing to change _IEPropertySet($oObj,"innertext", $numer_2) ;set the data $oObj = _IEGetObjByName($oIE,"tresc") ;select third thing to change _IEPropertySet($oObj,"innertext", $tresc) ;set the data $oObj = _IEGetObjByName($oIE,"od") ;select fourth thing to change _IEPropertySet($oObj,"innertext", $nadawca) ;set the data $oForm = _IEGetObjByName($oIE, "bramka") ;find the send button $oObj = _IEFormSubmit($oForm) ;send sms Sleep(2000) _IEQuit($oIE) Case $Button2 ; wysyłanie wielu SMS $numer_1 = GUICtrlRead($Combo1) $numer_2 = GUICtrlRead($Input1) $nadawca = GUICtrlRead($Input2) $tresc = GUICtrlRead($Input3) Global $oIE = _IECreate("sms.priv.pl", 0, 0) $number = inputbox("Ilosc SMS","Wpisz liczbe od 1 do 30. Pamietaj, dziennie z Twojego IP moze byc wyslane tylko 30 sms. Aby zniesc ten limit skontaktuj sie ze mna przez maila.","",50,100) For $I = 1 to $number ;repeat $number of times $oSelect = _IEGetObjByName($oIE, "siec") ;select first thing to change _IEFormElementOptionSelect($oSelect, $numer_1, 1, "byText") ;set the data $oObj = _IEGetObjByName($oIE,"number2") ;select second thing to change _IEPropertySet($oObj,"innertext", $numer_2) ;set the data $oObj = _IEGetObjByName($oIE,"tresc") ;select third thing to change _IEPropertySet($oObj,"innertext", $tresc) ;set the data $oObj = _IEGetObjByName($oIE,"od") ;select fourth thing to change _IEPropertySet($oObj,"innertext", $nadawca) ;set the data $oForm = _IEGetObjByName($oIE, "bramka") ;find the send button $oObj = _IEFormSubmit($oForm) ;send sms Sleep(2000) Next _IEQuit($oIE) EndSwitch WEnd EndFunc ;---------------------------------------------------------;---------------------------------------------------------;---------------------------------------------------------;------------------------------------------------- While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd I am almost sure that there is better way to do some things I've done, but I can't describe how happy I am that this actually works. I also have few ideas how to make the GUI better by using TABS, are they good option? I couldn't find how to make menu with switchable forms.

I don't really have any code cuz whatever i try it doesnt work -.- Can anyone please make me a sample i can study? <,< i need to make a simple script to open explorer click some objects on the site , rinse repeat.. a example with autoit' website is just fine i just need to study it.. the i can't seem to find any yt video on this.. '-_- And yes i tried looking at the manual .. but i dont get anything from it <.<' Any help highly appreciatet <3

An IE program that I have been using for over a year has started failing. I have traced the problem to this code snipet. The errors happens when I try to get a FORM object from a FRAME object. The message box reports that the $oFrame is an object, but the error says [ Variable must be of type "Object" ] Local $iNumFrames $oFrames = _IEFrameGetCollection ($oIE) $iNumFrames = @extended For $i = 0 to ($iNumFrames - 1) $oFrame = _IEFrameGetCollection ($oIE, $i ) msgBox(1, " var type " & VarGetType( $oFrame) , @error ) $oForms = _IEFormGetCollection ($oFrame) Next The reported errors are: "C:\Program Files\AutoIt3\Include\IE.au3" (903) : ==> Variable must be of type "Object".: Return SetError($_IEStatus_Success, $oTemp.forms.length, $oTemp.forms) Return SetError($_IEStatus_Success, $oTemp^ ERROR ->11:15:29 AutoIt3.exe ended.rc:1 +>11:15:29 AutoIt3Wrapper Finished.. >Exit code: 1 Time: 17.812 Thank you in advance for suggestions. Jim Rumbaugh