super stuf boss
On Wed, Nov 27, 2013 at 10:22 AM, Ganesh muralidharan <[email protected]>wrote: > I had seen below code in qtpsudhakars site. > > Function SetValueinEditBox(PageObject,EditName,Value2Set) > > Dim EditObjects > Dim Edit > > set EditObjects=PageObject.getElementsByTagName("INPUT") > > For each Edit in EditObjects > > If lcase(Edit.name)=lcase(EditName) and lcase(Edit.type)="text" > then > Edit.value=Value2Set > Exit for > End If > > Next > > Set EditObjects= Nothing > Set Edit=Nothing > > End Function > > '*************************************************** > 'Using above Function without QTP > '*************************************************** > 'Create Internet Explorer Object > Set IE=CreateObject("internetexplorer.application") > 'Make it Visible > IE.Visible=True > 'Navigate to a URL > IE.Navigate "http://google.com"; > > 'Get Document Object > Set PageObject=IE.Document > > 'Set Value in Google Search Edit Box > SetValueinEditBox PageObject,"q","qtp sudhakar" > > '*************************************************** > 'Using above Function in QTP > '*************************************************** > > 'Open internet explorere with specific URL > SystemUtil.Run "iexplore.exe","www.google.com" > > 'Get DOM Page object using .Object property > set oPageObject=Browser("name:=Google").Page("title:=Google").Object > > 'Set Value in Google Search Edit Box > SetValueinEditBox PageObject,"q","qtp sudhakar" > > > On Tue, Nov 26, 2013 at 10:41 AM, rupesh allu <[email protected]>wrote: > >> How many ways we can pass value in webedit box other then "SET" ? >> >> >> -- >> -- >> You received this message because you are subscribed to the Google >> "QTP - HP Quick Test Professional - Automated Software Testing" >> group. >> To post to this group, send email to [email protected] >> To unsubscribe from this group, send email to >> [email protected] >> For more options, visit this group at >> http://groups.google.com/group/MercuryQTP?hl=en >> >> --- >> You received this message because you are subscribed to the Google Groups >> "QTP - HP Quick Test Professional - Automated Software Testing" group. >> To unsubscribe from this group and stop receiving emails from it, send an >> email to [email protected]. >> For more options, visit https://groups.google.com/groups/opt_out. >> > > > > -- > Regards, > > > Ganesh Muralidharan > 'God Never Forgets' > > -- > -- > You received this message because you are subscribed to the Google > "QTP - HP Quick Test Professional - Automated Software Testing" > group. > To post to this group, send email to [email protected] > To unsubscribe from this group, send email to > [email protected] > For more options, visit this group at > http://groups.google.com/group/MercuryQTP?hl=en > > --- > You received this message because you are subscribed to the Google Groups > "QTP - HP Quick Test Professional - Automated Software Testing" group. > To unsubscribe from this group and stop receiving emails from it, send an > email to [email protected]. > For more options, visit https://groups.google.com/groups/opt_out. > -- -- You received this message because you are subscribed to the Google "QTP - HP Quick Test Professional - Automated Software Testing" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [email protected] For more options, visit this group at http://groups.google.com/group/MercuryQTP?hl=en --- You received this message because you are subscribed to the Google Groups "QTP - HP Quick Test Professional - Automated Software Testing" group. To unsubscribe from this group and stop receiving emails from it, send an email to [email protected]. For more options, visit https://groups.google.com/groups/opt_out.
