how to translate this VBscript to autoit

[jimmyjmmy]

Hi, Can someone help me to translate this VBscript to AutoIt. Thanks

Set oie = CreateObject("InternetExplorer.Application")

oie.Visible = True

oie.Navigate ("http://websms.starhub.com/websmsn/usr/createMsgSessionPageShow.do?method=initCreateSession")

While oie.Busy: Wend

oie.document.Forms("frmMsgCreateSession").ALL("recipients").Value = "1234567891"

oie.document.Forms("frmMsgCreateSession").ALL("SenderName").Value = "MyName"

oie.document.Forms("frmMsgCreateSession").ALL("Message").Value = "Test Message"

[Thatsgreat2345]

Because I'm such a nice guy here is how it would look

#include <IE.au3>

$oIE = _IECreate("http://websms.starhub.com/websmsn/usr/createMsgSessionPageShow.do?method=initCreateSession")
;automatic wait till the page is loaded
$oForm = _IEFormGetObjByName($oIE,"frmMsgCreateSession") ; get form object
;the next lines fill in the forms by getting the element inside the form and then setting its value
$Recipient = _IEFormElementGetObjByName($oForm,"recipients")
_IEFormElementSetValue($Recipient,"123456")
$Name = _IEFormElementGetObjByName($oForm,"senderName")
_IEFormElementSetValue($Name,"some name")
$Message = _IEFormElementGetObjByName($oForm,"message")
_IEFormElementSetValue($Message,"This is a message")
;submits the form
_IEFormSubmit($oForm)

[GEOSoft]

Hi, Can someone help me to translate this VBscript to AutoIt. Thanks

Set oie = CreateObject("InternetExplorer.Application")

oie.Visible = True

oie.Navigate ("http://websms.starhub.com/websmsn/usr/createMsgSessionPageShow.do?method=initCreateSession")

While oie.Busy: Wend

oie.document.Forms("frmMsgCreateSession").ALL("recipients").Value = "1234567891"

oie.document.Forms("frmMsgCreateSession").ALL("SenderName").Value = "MyName"

oie.document.Forms("frmMsgCreateSession").ALL("Message").Value = "Test Message"

thatsgreat2345 has the best method but if you want the literal translaton here you are

$oie = ObjectCreate("InternetExplorer.Application")
 $oie.Visible = True
 $oie.Navigate ("http://websms.starhub.com/websmsn/usr/createMsgSessionPageShow.do?method=initCreateSession")
 While $oie.Busy
    $oie.document.Forms("frmMsgCreateSession").ALL("recipients").Value = "1234567891"
    $oie.document.Forms("frmMsgCreateSession").ALL("SenderName").Value = "MyName"
    $oie.document.Forms("frmMsgCreateSession").ALL("Message").Value = "Test Message"
Wend

I'm only showing this method so you can get a feel for translating VBS code. Of course it won't mean too much if you don't know VBS.

[jimmyjmmy]

Thanks to Geosoft and Thatsgreat2345

Yes it works very fine.

Can someone explain to me what kind/type of object it is trying to get?

$oForm = _IEFormGetObjByName($oIE,"frmMsgCreateSession")

At this point, $oForm contain what?

I look at the helpfiles and I dont quite understand.

Thanks

[Thatsgreat2345]

Your getting the form that you are looking at, their are forms marked by <form name="blah"> and then it ends </form> but there are the inputs inbetween so you define the form so it knows what form to look in for the elements your are telling it to put stuff in.

[MHz]

I'm only showing this method so you can get a feel for translating VBS code. Of course it won't mean too much if you don't know VBS.

Nice try.

But, there is nothing in the VBScript While...WEnd loop. I'll add a Sleep to make the loop go easy on the cpu and add better condition checking. ObjectCreate should also be ObjCreate.

$oie = ObjCreate("InternetExplorer.Application")
$oie.Visible = True
$oie.Navigate ("http://websms.starhub.com/websmsn/usr/createMsgSessionPageShow.do?method=initCreateSession")
While $oie.Busy
    Sleep(500)
Wend
$oie.document.Forms("frmMsgCreateSession").ALL("recipients").Value = "1234567891"
$oie.document.Forms("frmMsgCreateSession").ALL("SenderName").Value = "MyName"
$oie.document.Forms("frmMsgCreateSession").ALL("Message").Value = "Test Message"

[jimmyjmmy]

Your getting the form that you are looking at, their are forms marked by <form name="blah"> and then it ends </form> but there are the inputs inbetween so you define the form so it knows what form to look in for the elements your are telling it to put stuff in.

Thanks.

I check the web source code and the form name is frmMsgCreateSession (<form name="frmMsgCreateSession" method="POST" action="/websmsn/usr/createMsgSessionsubmit.do?method=createSession" onsubmit="return checkSubmit(this)" target="_parent">)

Looking at your code:- = _IEFormGetObjByName($oIE,"frmMsgCreateSession") , I guess that $oForm should contain something at this point of time, am I right?

I wanted to see what is inside $oForm and so I create the following, but I see nothing inside notepad. I am lost. Please explain.

#include <IE.au3>

$oIE = _IECreate("http://websms.starhub.com/websmsn/usr/createMsgSessionPageShow.do?method=initCreateSession")

$oForm = _IEFormGetObjByName($oIE,"frmMsgCreateSession")

Run("notepad.exe")

WinWaitActive("Untitled - Notepad")

Send ("$oForm")

Thanks again

Edited April 7, 2007 by jimmyjmmy

[GEOSoft]

Nice try.

But, there is nothing in the VBScript While...WEnd loop. I'll add a Sleep to make the loop go easy on the cpu and add better condition checking. ObjectCreate should also be ObjCreate.

$oie = ObjCreate("InternetExplorer.Application")
$oie.Visible = True
$oie.Navigate ("http://websms.starhub.com/websmsn/usr/createMsgSessionPageShow.do?method=initCreateSession")
While $oie.Busy
    Sleep(500)
Wend
$oie.document.Forms("frmMsgCreateSession").ALL("recipients").Value = "1234567891"
$oie.document.Forms("frmMsgCreateSession").ALL("SenderName").Value = "MyName"
$oie.document.Forms("frmMsgCreateSession").ALL("Message").Value = "Test Message"

100% correct on both counts. I almost didn't translate CreateObject at all. I work in too many scripting languages and it just looked normal.

However once I did start to translate it I don't know how I got Object instead of Obj.

And of course While oie.busy ;Wend is the equivalent of

While $oie.busy

;do nothing

Wend

Edited April 7, 2007 by GEOSoft

[DaleHohm]

$oForm will contain a special variant type called an "object"

It will look like a garbage string if you examine it directly - you can however use special object related functions on it like isObj and objName

Dale

[Thatsgreat2345]

Thanks.

I check the web source code and the form name is frmMsgCreateSession (<form name="frmMsgCreateSession" method="POST" action="/websmsn/usr/createMsgSessionsubmit.do?method=createSession" onsubmit="return checkSubmit(this)" target="_parent">)

Looking at your code:- = _IEFormGetObjByName($oIE,"frmMsgCreateSession") , I guess that $oForm should contain something at this point of time, am I right?

I wanted to see what is inside $oForm and so I create the following, but I see nothing inside notepad. I am lost. Please explain.

#include <IE.au3>

$oIE = _IECreate("http://websms.starhub.com/websmsn/usr/createMsgSessionPageShow.do?method=initCreateSession")

$oForm = _IEFormGetObjByName($oIE,"frmMsgCreateSession")

Run("notepad.exe")

WinWaitActive("Untitled - Notepad")

Send ("$oForm")

Thanks again

sorry to break it to you but that isn't going to work, your getting the form object and then you need to get the element with in that form then use _IEFormElementSetValue(ControlGetText("Untitled - Notepad", "", "Edit1"))