My worry is not about the tap where water is not coming at all (and the reason for water not coming has to be asked to those ministers who are elected by the people in our democratic country) but my worry is all about that tap where water comes from the tap fortunately.

100% of the educated people will never drink water which is coming from these taps and the reasons are well known. Now, my thought after seeing an advertisement on Television about the water purifiers is why cannot the Government use these water purifiers in all the available bus/railway stations.

The advantage is that every common people can drink a pure and safe drinking water. Also, you do not need to buy the natural resource which should be available freely to every one on the earth.

On a concluding note, I need not remind that, Government is for the people and by the people and these purifiers are for the people only!

What do you say?

( I am not working as a sales person of any water purifier company )

Click Here:

Thanks to every soul on this beautiful planet for wishing me with all your wonderful wishes. Let’s celebrate the joy of living. Cheers to the life.

Wish ‘Omkar’ come up with more worth watching programs.

bcount = Get_ApplicationCount(“iexplore.exe”)
If bcount >0 Then
Print “There are” & chr(32) & bcount & “open Internet Explorer browsers”
set objBrowser = Description.Create()
objBrowser(“micclass”).value =”Browser”
objBrowser(“CreationTime”).value=bcount-1
Print Browser(objBrowser).GetROProperty(“Title”)
Else
Print “There are no open Internet Explorer browsers”
End If

Public Function Get_ApplicationCount( byval sApplicationExe)
Dim strComputer
Dim objWMIService
Dim colProcesses
Dim objProcess
strComputer=”.”
Set objWMIService = GetObject(“winmgmts:\\” & strComputer & “\root\cimv2″)
Set colProcesses = objWMIService.ExecQuery (“Select * from Win32_Process Where Name = ” & “‘” & sApplicationExe & “‘” & ” “)
Get_ApplicationCount = colProcesses.count
Set objWMIService = Nothing
Set colProcesses=Nothing
End Function

As per the QTP help file:
Rem comment
-or-
‘ comment
The comment argument is the text of any comment you want to include. After the Rem keyword, a space is required before comment.

Remarks
As shown in the syntax section, you can use an apostrophe (‘) instead of the Rem keyword. If the Rem keyword follows other statements on a line, it must be separated from the statements by a colon. However, when you use an apostrophe, the colon is not required after other statements.

I tried using the Rem statement without using the colon and it worked fine. I am using QTP 10.0.

Dim MyStr0,MyStr1, MyStr2
MyStr0=”Mr” : Rem Comment after a statement separated by a colon.
MyStr1 = “Pavan” Rem Comment after a statement not separated by a colon.
MyStr2 = “learning QTP” ‘ This is also a comment; no colon used
Rem Comment on a line with no code; no colon is needed.
Msgbox MyStr0
Msgbox MyStr1
Msgbox MyStr2

Set myservice=Nothing
Set myservice=CreateObject(“Microsoft.XMLHTTP”)
myservice.open “GET”, url, False
myservice.send ” “

If myservice.status399 Then
Print “Invalid Request” & chr(32) & myservice.status & chr(32) & url & chr(32) & myservice.responseText
Else
Print “Valid Request” & chr(32) & myservice.status & chr(32) & url & chr(32) & myservice.responseText
End If

Set MyPageObj= Browser(“YourBrowser”).Page(“YourBrowser”).object

For Each Item in MyPageObj.all
Print “TagName:” & chr(32) & Item.TagName
Print “InnerText:” & chr(32) & Item.InnerText
Print “Value:” & chr(32) & Item.innerHTML
Print “Title:” & chr(32) & Item.Title
Print “id:” & chr(32) & Item.id
Print “==============================================”
Next

You may be knowing Orkut- The famous social networking site, on which today I have observed that my status is shown as “Error”. How about yours?

You will be tested on:
1) Good knowledge on electronics and its related technologies.
2) Good communication skills.
3) Flair to learn and implement new ideas quickly.
4) Numerical ability.

Please forward your resume immediately to PAVANTURLAPATI@GMAIL.COM