Addicted to Travian Browser based game

Well, I am putting this line of blog after a long time, although this is not useful for any learning purpose. Why I am writing this blog, there are many reason, I was one of those guys who usually spend lot’s of time at home developing small utility which help automation people to help them. But now a days I have started playing Travian game which is not at all help me in future to my career. Why I am playing dun know yet, but I am sure I will be back to my normal track.
This game was introduce by of my friend called Rahul Paul, after that I was sleep les forget everything about personal life just game and game.

Bounty highest collected on 22/03/09 09:41:42 pm:
3113 3647 2793 2242
http://s1.travian.in/berichte.php?id=3285658

Microsoft Excel Connectivity using ODBC connection

How to connect Microsoft Excel connection using ODBC?
[Example below using VB Code:]
Dim XlFile: XlFile="C:\MyExcel.xls"
Dim AdodbCn
Set AdodbCn = CreateObject("ADODB.Connection")
AdodbCn.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & XlFile &"; HDR=Yes; IMEX=1;"
'HDR=Yes;" indicates that the first row contains columnnames, not data
'IMEX=1;" tells the driver to always read "intermixed" data columns as text
AdodbCn.Open

Trim: Can't Find Project Or Library

This error occur when you do not have (Office XP Tool: Web Components).
Locate the installer from Microsoft site and installed the same will resolve the issue.
-Restart the application and try, I am sure the issue will go

Why PDM is essential for QTP Automation Engineer?

What is PDM?
PDM stands for Microsoft Process Debug Manager, which allow you to debug QTP on runtime.
Where to get the PDM?
http://www.processlibrary.com/directory/files/pdm/21442

How to get the data from selected row QTP?

Dim webElement, childAttrib, tableRow
Set webElement= Browser(<"Browser">).Page(<"Page">).WebTable(<"WebTable">).Object.getElementsByTagName("TR")
tableRow= Browser(<"Browser">).Page(<"Page">).WebTable(<"WebTable">).RowCount
For i=1 to tableRow-1
Set childAttrib= webElement(i).attributes
Print childAttrib("class").value
Next

More Info:
http://developer.mozilla.org/En/DOM:document.getElementsByTagName

How to remove multiple space in a string QTP?

Function trimAll (ByVal strString)
Dim sLen
sLen=Len(strString)
Do
sLen=sLen-1
strString=Replace(strString, Space(sLen), " ")
Loop Until sLen=2
trimAll=strString
End Function

How to create ISO Image from CD/DVD using Linux comand

Procedure to create CD/DVD iso image using linux command:

1. Check the CD/DVD mount location
• ls /media or ls /mnt or cat /etc/mtab or cat /etc/fstab
2. Now insert the media and unmount the same
• ex: sudo umount /media/sr0 or /mnt/sdrom
3. Issue following command would create ISO image for the same
1. dd if= of=
2. ex: on my system it would be dd if=/dev/sr0 of=/tmp/myimage.iso