Send SMS if PC is running, question about ie automation

suckinsyn · May 14, 2014

Hey there folks. I am kind of a long time lurker, never really needed to post a question or anything, but now I need some help.

I am trying to write a simple script that will send an sms to number defined in source code whenever my PC will be booted up. The script should do it only once, x seconds after desktop shows up, then it should close itself. It will be enabled in autostart, so that whoever will try to use my pc when I am away, will be caught.

Now, I never really tried automating IE, and so I am a little lost. I've been playing a bit with Google Chrome udf lately where it was filling forms by itself (an example of script, didn't check how it works yet), but I want it to use IE as I can sometimes swap machines and as this is the default windows broswer, I will be sure that it's installed anyway.

I have found a thread back from 2005 that had an example script that should fill few forms in IE but when I wanted to check it in autoit, it said that there are some problems and it didnt run.

I have a little sketch of the code in my head:

-> windows starts up, script is awake

--> script waits x seconds before doing what it has to

---> after x seconds, ie boots up in the background

----> script fills the form - choses first 3 numbers from the list, then writes 6 numbers in the next form, then writes "autoit" in sender field and "pc is online" in the text field

------> script shuts down

I could do it myself, but I just cant find any examples of how can I make the script write in the forms and run the IE window in the background.

Any links, pleae?

Edited May 14, 2014 by suckinsyn

suckinsyn · May 14, 2014

I've managed to do this:

#include <IE.au3>
$oIE=_IECreate("http://sms.priv.pl/")

;$oObj = _IEGetObjByName($oIE,"siec")
;_IEPropertySet($oObj,"innertext","x")

$oObj = _IEGetObjByName($oIE,"number2")
_IEPropertySet($oObj,"innertext","y")

$oObj = _IEGetObjByName($oIE,"tresc")
_IEPropertySet($oObj,"innertext","Hello world!")

$oObj = _IEGetObjByName($oIE,"submit")
;_IEAction($oObj,"click")
;Exit
sleep(1000)
       MsgBox(0, 'Info', 'script end')

It doesn't run in the background yet, neither it does not set x properly (it's a dropdown list, I am working on it atm, any clues would be helpfull), but it sets y propely and so does say Hello world! in the sms text area. It also submits it, although I don't know yet if it does it good, because first I need to fill the starting number properly, now it just refreshes.

Little msg box tells me when it's done, it will be removed later ;-)

I've managed to cut the parts I need from the source code of the site:

--------------------------------------------------------------------------------
pierwsze 3 - [ _ _ _ ..]


                 <input type="hidden" name="status" value="send" >
             <select name="siec" size="1" onchange="long();">
        <option >---</option>
         <option value="+31" >+31</option>

                 <option value="516" >516</option>
        </select>            

--------------------------------------------------------------------------------
nastepne 6 - [.. _ _ _   _ _ _ ]


<input type="hidden" name="nr" value="" >
                        <input type="text" size="6" maxlength="11" name="number2" value="" style="width: 53px">


--------------------------------------------------------------------------------
tresc sms - [                 ]


                    <tr>
                      <td class="text" align="right"><b>Tre&#347;ć SMS-a : &nbsp;<br>
                      </b></td>
                      <td class="text" colspan=2><b>
                        <textarea name="tresc" cols="40" rows="6" onfocus="txt_info()" onKeyUp="return charcount()"  onChange="return charcount()" class="text">Testujemy nowa bramke do Play - prosimy w komentarzach pisać czy działa i jakie błędy występują.</textarea>
                      </b></td>
                    </tr>
            <tr>

----------------------------------------------------------------------------------
podpis - [        ]

                      <td class="text" align="right"><b>Podpis : &nbsp;</b></td>
                      <td class="text"><b>
                        <input type="text" onKeyUp="charcount();" name="od" size="8" maxlength="15" value=""> 
              </b></td>
              <td>
              Pozostało znaków: <input type="text" size=3 name="zostalo" disabled>              
              </td>
                    </tr>

----------------------------------------------------------------------------------
przycisk wyslij
 
                    <tr>
                      <td colspan=2 class="text"><p align=right>Wyślij jako <b>MMS</b><input type=checkbox name=mms disabled onchange="long2();"  ></p></td>
                      <td class="text"><input type="submit" class="btn" value="Wyślij SMS !" alt="Wyślij"  src="/sms.szyderca.com/images/wyslij_sms.jpg" onclick="return nom();"></td>

pierwsze 3 = first 3 numbers that I am trying to select, as you can see 516 is the option I need. It starts with --- as default.
nastepne 6 = already done, it's the y part.
tresc sms = done, it's the hello world part.
podpis = afaik it should be no problem too, as it behaves same as the hello world part.
and theres the przycisk wyslij, that's the submit button.

Any tips on the dropdown menu selection? I am still looking myself.

czardas · May 14, 2014

Wouldn't it be easier to just create a hidden log on your system?

Palestinian · May 14, 2014

Fishy

suckinsyn · May 14, 2014

Wouldn't it be easier to just create a hidden log on your system?

Am I asking for help with script making hidden log on my system, or am I asking for help with the script I am actually making? kinda reminds me of my conversation with one of friends that creates apps and uses stack overflow on a daily basis. Android users help with the problem, while w8 users try to use whole different path.

czardas · May 14, 2014

No worries, I just expressed a thought. I don't know how to do it because I stopped using IE automation several years ago because I consider IE to be too flakey for any serious programming. Send a ping to target machine - maybe.

Edited May 14, 2014 by czardas

suckinsyn · May 14, 2014

No worries, I just expressed a thought. I don't know how to do it because I stopped using IE automation several years ago because I consider IE to be too flakey for any serious programming. Send a ping to target machine - maybe.

Haha, okey, I guess you've got a point. I almost finished it. As I said, I've chosen IE as it's on every windows pc, so there will be no problem with different browsers if anyone will want to use this script in future. I use myself Google Chrome and I am experimenting with it too.

#include <IE.au3>
#include <MsgBoxConstants.au3>

; krok 1 - utworz strone
$oIE = _IECreate(" your site ")

TrayTip("", "stworz strone", 1)
Sleep(2000)

; krok 2 - znajdz obiekt siec i zmien na x
$oSelect = _IEGetObjByName($oIE, "siec")
_IEFormElementOptionSelect($oSelect, " x ", 1, "byText")

TrayTip("", "nr cz1", 1)
Sleep(2000)

; krok 2 - znajdz obiekt number2 i wpisz y
$oObj = _IEGetObjByName($oIE,"number2")
_IEPropertySet($oObj,"innertext"," y ")

TrayTip("", "nr cz2", 1)
Sleep(2000)

; krok 3 - znajdz obiekt tresc i wpisz Hello world!
$oObj = _IEGetObjByName($oIE,"tresc")
_IEPropertySet($oObj,"innertext","Hello world!")

TrayTip("", "tresc", 1)
Sleep(2000)

; krok 4 - znajdz obiekt podpis i wpisz AutoIT
$oObj = _IEGetObjByName($oIE,"od")
_IEPropertySet($oObj,"innertext","AutoIT")

TrayTip("", "podpis", 1)
Sleep(2000)

; krok 5 - wyslij sms
$oObj = _IEGetObjByName($oIE,"submit")

TrayTip("", "wyslij", 1)
Sleep(2000)

I am now working on the submit button, as it's described as:

<td class="text"><input type="submit" class="btn" value="Wyślij SMS !" alt="Wyślij"  src="/sms.szyderca.com/images/wyslij_sms.jpg" onclick="return nom();"></td>

Any quick thoughs how to make it press it?

$oObj = _IEGetObjByName($oIE,"submit")
_IEAction($oObj, "click")

Doesn't seem to work.

czardas · May 14, 2014

It's interesting and potentially useful. I'm sure someone will be able to help. Have you looked at this thread?

'?do=embed' frameborder='0' data-embedContent>>

Edited May 14, 2014 by czardas

Palestinian · May 14, 2014

Haha, okey, I guess you've got a point. I almost finished it. As I said, I've chosen IE as it's on every windows pc, so there will be no problem with different browsers if anyone will want to use this script in future. I use myself Google Chrome and I am experimenting with it too.

#include <IE.au3>
#include <MsgBoxConstants.au3>

; krok 1 - utworz strone
$oIE = _IECreate(" your site ")

TrayTip("", "stworz strone", 1)
Sleep(2000)

; krok 2 - znajdz obiekt siec i zmien na x
$oSelect = _IEGetObjByName($oIE, "siec")
_IEFormElementOptionSelect($oSelect, " x ", 1, "byText")

TrayTip("", "nr cz1", 1)
Sleep(2000)

; krok 2 - znajdz obiekt number2 i wpisz y
$oObj = _IEGetObjByName($oIE,"number2")
_IEPropertySet($oObj,"innertext"," y ")

TrayTip("", "nr cz2", 1)
Sleep(2000)

; krok 3 - znajdz obiekt tresc i wpisz Hello world!
$oObj = _IEGetObjByName($oIE,"tresc")
_IEPropertySet($oObj,"innertext","Hello world!")

TrayTip("", "tresc", 1)
Sleep(2000)

; krok 4 - znajdz obiekt podpis i wpisz AutoIT
$oObj = _IEGetObjByName($oIE,"od")
_IEPropertySet($oObj,"innertext","AutoIT")

TrayTip("", "podpis", 1)
Sleep(2000)

; krok 5 - wyslij sms
$oObj = _IEGetObjByName($oIE,"submit")

TrayTip("", "wyslij", 1)
Sleep(2000)

I am now working on the submit button, as it's described as:

<td class="text"><input type="submit" class="btn" value="Wyślij SMS !" alt="Wyślij"  src="/sms.szyderca.com/images/wyslij_sms.jpg" onclick="return nom();"></td>

Any quick thoughs how to make it press it?

$oObj = _IEGetObjByName($oIE,"submit")
_IEAction($oObj, "click")

Doesn't seem to work.

It doesn't work because "submit" is the type of the button, not the name, you could try to get it by value.

suckinsyn · May 14, 2014

Any tips on how to get it by value? Seems like my every try is failing

Trying to get it working by using IEImgClick function but it always sends $_IEStatus_NoMatch, no matter if I use alt/src/anything else.

Edited May 14, 2014 by suckinsyn

Palestinian · May 14, 2014

Try this one

$oForm = _IEGetObjByName($oIE, "bramka")
$oObj = _IEFormSubmit($oForm)

suckinsyn · May 14, 2014

Try this one

$oForm = _IEGetObjByName($oIE, "bramka")
$oObj = _IEFormSubmit($oForm)

I love you man. How did you make it work? I mean, how does this work?

Now, just to make it run in background.. I will of course look how to make it myself, but any tips?

Also - theres the 10 post per day limit, can I somehow increase it in future?

JustSomeone · May 14, 2014

It's interesting and potentially useful. I'm sure someone will be able to help. Have you looked at this thread?

'?do=embed' frameborder='0' data-embedContent>>

was about to suggest this, i use something similar, that emails my phone (my carrier support free email2sms) and its like 40ish line of code ..

power on the pc > run the prog > get the sms with desired text

i can provide you with a working snipped here if needed (first i need to find it tho)

suckinsyn · May 14, 2014

Well, if you want to, sure you can share your solution.

About my idea - I can make IE in the background with this:

_IECreate("www.sms.priv.pl", 0, 0)

but as soon as the script starts the work, window pops up. Is there any way to make the script work in the background?

Edit:

#include <IE.au3>                                                   ;include ie
;#include <MsgBoxConstants.au3>

_IECreate("www.sms.priv.pl", 0, 0)                                  ;step 1, create hidden IE window
sleep(2000)                                                         ;wait 2 seconds just to be sure
Global $oIE = _IECreate("sms.priv.pl")                              ;set global

$oSelect = _IEGetObjByName($oIE, "siec")                            ;select first thing to change
_IEFormElementOptionSelect($oSelect, "x", 1, "byText")          ;set the data

$oObj = _IEGetObjByName($oIE,"number2")                             ;select second thing to change
_IEPropertySet($oObj,"innertext","y")                           ;set the data

$oObj = _IEGetObjByName($oIE,"tresc")                               ;select third thing to change
_IEPropertySet($oObj,"innertext","Test1")                           ;set the data

$oObj = _IEGetObjByName($oIE,"od")                                  ;select fourth thing to change
_IEPropertySet($oObj,"innertext","AutoIT2")                         ;set the data

$oForm = _IEGetObjByName($oIE, "bramka")                            ;find the send button
$oObj = _IEFormSubmit($oForm)                                       ;send sms

x is the first part of my number and y is the second part.

Sharing what I've done if anyone wants it in future (i belive it will only work in Poland unless someone changes it all)

Edited May 14, 2014 by suckinsyn

JustSomeone · May 14, 2014

Well, if you want to, sure you can share your solution.

P.much copy-paste this and change according to the info in the top side of the script.

Thanks to Jos o/

;##################################
; Information
;##################################
; Thanks to Jos @ Au3 for this
; This is copy-pasted snip, just replaced the msgbox with a consolewrite, to avoid popups and added an #trayiconhide
; If you use this and like it, don't forget to thanks to Jos for this
; URL : http://www.autoitscript.com/forum/topic/23860-smtp-mailer-that-supports-html-and-attachments/
;##################################
;Requirements :
;##################################
;1) Create random Gmail account, and remember it's login info
;2) Fill the $FromAddress value according to the gmail registration
;3) Fill the $FromName value as your name or whatever you like
;4) Fill the $Username AND $Password according to the Gmail registration
;5) Fill the $ToAddress according to your carrier's information about how to use the email2sms function, most likely something like +123456778@carrier.com
;6) Fuild this to exe and add it to the user's startup folder according to your OS / add a startup entry in the registry regardless of file location
;7) Enjoy ;)
;##################################
; Include
;##################################
#Include<file.au3>
Opt("TrayIconHide",1)
;##################################
; Variables
;##################################
$SmtpServer = "smtp.gmail.com"              ; address for the smtp-server to use - REQUIRED
$FromName = "Name"                      ; name from who the email was sent
$FromAddress = "your@Email.Address.com" ; address from where the mail should come
$ToAddress = "your@Email.Address.com"   ; destination address of the email - REQUIRED
$Subject = "My Computer"                   ; subject from the email - can be anything you want it to be
$Body = "My Computer just got powered on"                              ; the messagebody from the mail - can be left blank but then you get a blank mail
$AttachFiles = ""                       ; the file(s) you want to attach seperated with a ; (Semicolon) - leave blank if not needed
$CcAddress = ""       ; address for cc - leave blank if not needed
$BccAddress = ""     ; address for bcc - leave blank if not needed
$Importance = "Normal"                  ; Send message priority: "High", "Normal", "Low"
$Username = "******"                    ; username for the account used from where the mail gets sent - REQUIRED
$Password = "********"                  ; password for the account used from where the mail gets sent - REQUIRED
;$IPPort = 25                            ; port used for sending the mail
;$ssl = 0                                ; enables/disables secure socket layer sending - put to 1 if using httpS
$IPPort=465                          ; GMAIL port used for sending the mail
$ssl=1                               ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS

;##################################
; Script
;##################################
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
If @error Then
    ConsoleWrite("Error code:" & @error & "  Description:" & $rc)
EndIf
;
; The UDF
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
        For $x = 1 To $S_Files2Attach[0]
            $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
;~          ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
            If FileExists($S_Files2Attach[$x]) Then
                ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF)
                $objEmail.AddAttachment($S_Files2Attach[$x])
            Else
                ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
                SetError(1)
                Return 0
            EndIf
        Next
    EndIf
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
    If Number($IPPort) = 0 then $IPPort = 25
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
    ;Authenticated SMTP
    If $s_Username <> "" Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
    EndIf
    If $ssl Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf
    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Set Email Importance
    Switch $s_Importance
        Case "High"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
        Case "Normal"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
        Case "Low"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
    EndSwitch
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    If @error Then
        SetError(2)
        Return $oMyRet[1]
    EndIf
    $objEmail=""
EndFunc   ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    $oMyRet[0] = $HexNumber
    $oMyRet[1] = StringStripWS($oMyError.description, 3)
    ConsoleWrite("### COM Error !  Number: " & $HexNumber & "   ScriptLine: " & $oMyError.scriptline & "   Description:" & $oMyRet[1] & @LF)
    SetError(1); something to check for when this function returns
    Return
EndFunc   ;==>MyErrFunc

TO USE THIS YOUR MOBILE CARRIER MUST SUPPORT EMAIL2SMS OR SIMILAR FUNCTION !

added the red shiny text

Edited May 14, 2014 by JustSomeone

Palestinian · May 14, 2014

_IECreate("www.sms.priv.pl", 0, 0)                                  ;step 1, create hidden IE window
sleep(2000)                                                         ;wait 2 seconds just to be sure
Global $oIE = _IECreate("sms.priv.pl")

You are creating a hidden IE window, then creating another visible IE window which is $oIE, thats why the window pops up.

#include <IE.au3>                                                   ;include ie
;#include <MsgBoxConstants.au3>

$oIE = _IECreate("www.sms.priv.pl", 0, 0)                                  ;step 1, create hidden IE window

;sleep(2000)                                                         You don't need to wait for 2 seconds, _IECreate uses _IELoadWait so it will
;Global $oIE = _IECreate("sms.priv.pl")                              by default wait for the webpage to load.

$oSelect = _IEGetObjByName($oIE, "siec")                            ;select first thing to change
_IEFormElementOptionSelect($oSelect, "x", 1, "byText")          ;set the data

$oObj = _IEGetObjByName($oIE,"number2")                             ;select second thing to change
_IEPropertySet($oObj,"innertext","y")                           ;set the data

$oObj = _IEGetObjByName($oIE,"tresc")                               ;select third thing to change
_IEPropertySet($oObj,"innertext","Test1")                           ;set the data

$oObj = _IEGetObjByName($oIE,"od")                                  ;select fourth thing to change
_IEPropertySet($oObj,"innertext","AutoIT2")                         ;set the data

$oForm = _IEGetObjByName($oIE, "bramka")                            ;find the send button
$oObj = _IEFormSubmit($oForm)                                       ;send sm


_IEQuit($oIE)

_IEQuit($oIE) closes the hidden IE process that you started, always make sure that you close hidden IE process or you will end up overloading your computer.

Edited May 14, 2014 by Palestinian

suckinsyn · May 14, 2014

thanks everyone. i will check these 2 as soon as i will be back at home

JustSomeone · May 14, 2014

thanks everyone. i will check these 2 as soon as i will be back at home

Don't forget to mark your thread as solved if you solve it, to reduce the people checking this over and over, and to help others searching the forums

suckinsyn · May 14, 2014

Thank you very much, Palestinian. It works as intended. JustSomeone - code saved, need to tweak few things on my phone to get it working properly

Also, thanks for the tip with marking the thread as solved.

Send SMS if PC is running, question about ie automation

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members