Following script will be useful to highlight the data available in the Web application textbox.

Set WshShell = CreateObject("WScript.Shell")
wait(1)
Browser("info").Page("info").WebEdit("uname").Set "Ramu"
wait(1)
Browser("info").Page("info").WebEdit("uname").FireEvent "onfocus"
WshShell.Sendkeys "^a"

Set BrowserObj = Description.Create   
    BrowserObj("micclass").Value = "Browser"   
    Set Obj = Desktop.ChildObjects(BrowserObj)    
    For i = Obj.Count-1 To 0 Step -1  
           Obj(i).Close  
     Next

Despite of hundreds of web articles on Smoke and sanity testing, many people still have confusion between these terms and keep on asking to me. Here is a simple and understandable difference that can clear your confusion between smoke testing and sanity testing.

Here are the differences you can see:

SMOKE TESTING:

• Smoke testing originated in the hardware testing practice of turning on a new piece of hardware for the first time and considering it a success if it does not catch fire and smoke. In software industry, smoke testing is a shallow and wide approach whereby all areas of the application without getting into too deep, is tested.
• A smoke test is scripted, either using a written set of tests or an automated test
• A Smoke test is designed to touch every part of the application in a cursory way. It’s shallow and wide.
• Smoke testing is conducted to ensure whether the most crucial functions of a program are working, but not bothering with finer details. (Such as build verification).
• Smoke testing is normal health check up to a build of an application before taking it to testing in depth.

SANITY TESTING:

• A sanity test is a narrow regression test that focuses on one or a few areas of functionality. Sanity testing is usually narrow and deep.
• A sanity test is usually unscripted.
• A Sanity test is used to determine a small section of the application is still working after a minor change.
• Sanity testing is a cursory testing, it is performed whenever a cursory testing is sufficient to prove the application is functioning according to specifications. This level of testing is a subset of regression testing.
• Sanity testing is to verify whether requirements are met or not, checking all features breadth-first.

Hope these points will help you to clearly understand the Smoke and sanity tests and will help to remove any confusion.

Use the below code to compare Two Excel files data
Keep the below code in .vbs file and just double click on the .vbs.
provide path of the excel files with extension .xls
you can run the below script both in .vbs as well as in QTP Script
---------------------------------------------------------------------
ExcelFilePath1 = InputBox("Please Enter the Path of first Excel File")
   Set fso = CreateObject("Scripting.FileSystemObject")
   If (fso.FileExists(ExcelFilePath1) = false )Then
   msgbox  ExcelFilePath1 & " doesn't exist."
wait(2)
   wscript.quit
   End If

ExcelFilePath2 = InputBox("Please Enter the Path of second Excel File") 
If (fso.FileExists(ExcelFilePath2) = false )Then
   msgbox  ExcelFilePath2 & " doesn't exist."
   wscript.quit
End If

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = false
Set objWorkbook1 = objExcel.Workbooks.Open(ExcelFilePath1)
Set objWorkbook2 = objExcel.Workbooks.Open(ExcelFilePath2)
Set objWorksheet1= objWorkbook1.Worksheets(1)
Set objWorksheet2= objWorkbook2.Worksheets(1)
For Each cell In objWorksheet1.UsedRange
     If cell.Value <> objWorksheet2.Range(cell.Address).Value Then
    'Highlights in green color if any changes in cells (for the first file)
           cell.Interior.ColorIndex = 4
 'Highlights the same cell in the Second file
 objWorksheet2.range(cell.Address).interior.colorIndex = 4                 
 Else
       cell.Interior.ColorIndex = 0

  End If

Next
ObjExcel.displayAlerts = False 
objExcel.Save
objExcel.quit
set objExcel=nothing
msgbox "It is Done"

Let me know if any you get error while trying to execute the same

Use the following code to capture screenshot of the browser and to place the file in a seperate location

----------------------------------------------------------------------------
Browser("title:=TNSInfo Login").Page("title:=TNSInfo Login").WebEdit("name:=password").Set "Palanki"
Browser("title:=TNSInfo Login").CaptureBitmap "C:\New.bmp",True

We can capture the StatusText of the Browser with the following script

msgbox Browser("title:=Gmail").Object.StatusText

Following statements will helps you to send mail automatically through QTP.
For that you need to have a MS Outlook with mail server connected to it in your machine

Dim objOutlookMsg
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
objOutlookMsg.To = "ramu.palanki@gmail.com"
objOutlookMsg.BCC ="ramu.palanki@gmail.com"
objOutlookMsg.Subject = "Sending Mail through QTP Script"
objOutlookMsg.Body ="Hello QTP"
objOutlookMsg.Attachments.Add("C:\Result.html")
objOutlookMsg.Send

Following script will create an Excel file and types some value(Hello) and saves it in C Drive

Below code will be helpful for creating  and closing excel sheet

Dim xlApp
Dim xlBook
Dim xlSheet

Set xlApp=CreateObject("Excel.Application")
Set xlBook=xlApp.workbooks.add
Set xlSheet=xlBook.activesheet
xlSheet.cells(1,1)="helloo"


xlBook.saveas "C:\test.xls"
xlApp.quit

Reporter Object is used for sending information to the test results. With the help of this object you can:

• Report the status of test results (like pass, fail, warning)
• Enable/Disable reporting of step(s) following the statement.
• Retrieve the folder path in which the current test's results are stored.
• Retrieve the run status at the current point of the run session.

There are some very important methods and properties associated with it.

ReporterEvent Method:

I think this is a very common method used with Reporter object. I am sure even if you have worked on QTP for a relatively short period, you would have come across this.

Its syntax:

Reporter.ReportEvent EventStatus, ReportStepName, Details

where EventStatus can be:

0 or micPass: If this step runs test passes which is shown in test report.

1 or micFail: If this step runs test fails which is shown in test report.

2 or micDone: Used to send message to the test report and does not affect status of test.

3 or micWarning: Again, used to send warning message to the test report and does not affect status of test.

and

ReportStepName is name of step

and

Details are the user defined details for the given step.

For Example:

Reporter.ReportEvent micPass, "Login Authorization", "The user-defined step passed."

Filter property

There can be situations where you don't want the full status displayed on the test report. This property can be used to selectively filter the status of your tests.

Its syntax:

Reporter.Filter = NewMode

where NewMode can be:

0 or rfEnableAll: This is the default mode. All reported events are displayed in the Test Results.

1 or rfEnableErrorsAndWarnings: Only those events with a warning or fail status are displayed in the Test Results.

2 or rfEnableErrorsOnly: Only those events with a fail status are displayed in the Test Results.

3 or rfDisableAll: All events in the Test Results are disabled.

ReportPath Property

This is used to get the path in which current test results are stored.

Its syntax:

Path_of_Results = Reporter.ReportPath

RunStatus Property

This is used to get the current status of the run session

Its syntax:

Reporter.RunStatus

For Example:

if Reporter.RunStatus = 0 then flag=1;

1. The toolbar enables you to view the details of an individual action or the entire test flow is

A. Testing toolbar
B. None of the above
C. Action toolbar
D. Test Pane

2. The key that is used to Start/End analog recording mode ?

A. F3
B. SHIFT+ALT+F3
C. CTRL+SHIFT+F3
D. F10

3. QuickTest supports virtual object for analog or low-level recording.

A. False
B. True

4. To use a specific property to identify your object, but that property is not listed in the properties list. Then how do you identify that object?

A. Add the specific property to the list
B. Use the Default property
C. Use some other property to identify your object

5. The checkpoint used to check the alt attribute exists for all relevant objects (such as images) is

A. Database CheckPoint
B. Accessibility checkpoint
C. Bitmap checkpoint
D. Standard checkpoint

6. Bitmap checkpoint is supported in VB environment.

A. True
B. False

7. Can we parameterize the checkpoints properties?

A. No
B. Yes

8. What is the shortcut key that is used for a Standard Checkpoint?

A. F12
B. F2
C. F10
D. F7

9. Can we change name of checkpoint?

A. No
B. Yes

10. To compare the values of the specified property during a run session with the values stored for the same test object property within the test.

A. Checkpoint
B. All the above
C. Output Value
D. Compare the object property

11. You will use which recording mode for an object not recognized by QuickTest?

A. Low-Level Recording Mode
B. Normal recording Mode
C. Analog Mode

12. The statement that calls the recorded analog file is:

A. RunAnalog
B. CallAnalog
C. ExecuteAnalog

13. An action can be called by other tests or actions is:

A. Call Action
B. Split Action
C. Reusable Action

14. You can replace the page in your Active Screen tab:

A. False
B. True

15. QuickTest adds a checkpoint statement in the Expert View as:

A. Check Checkpoint
B. Checkpoint

16. A Checkpoint checks that a text string is displayed within a defined area in a Windows application is:

A. Accessibility
B. Text Area
C. Standard
D. Text

17. In ACTIVE X environment, an ACCESSIBILITY checkpoint is supported?

A. No
B. Yes

18. Can we get the execution time for an action in a Test?

A. Yes
B. No

19. Can we add external library files in QTP?

1. No
2. Yes

20. The method used to get data from HTML Table is

A. GetData(Row,Col)
B. GetRowValue(Rowid,Colname)
C. GetCellData (Row,Col)

21. The Command used to insert the transactions in test is:

A. StartTransaction(Name�), EndTransaction(Name�)
B. Services.StartTransaction "Name", Services.EndTransaction "Name"
C. StartTransaction.services "Name�, EndTransaction.services "Name"

22. A step in which one or more values are captured at a specific point in your test and stored for the duration of the run session is:

A. Output Value
B. Checkpoints
C. Active Screen

23. QuickTest can detects an application crash and activate a defined recovery scenario to continue the run session.

A. True
B. false

24. In Batch Test process, the test list are saved in file format as:

A. *.mtb
B. *.mts
C. *.mbt
D. *.mtr

25. The command used to invoke other application from QTP:

A. InvokeApplication
B. SystemUtil.Run
C. Run
D. Both b & c
E. Both a & b

26. The command used to retrieve data from excel sheet is

A. Set ab = Connection("srcfilepath ") , Set ws = ab.getdata(sheetid)
B. Set ab = CreateObject("srcfilepath ") , Set ws = ab.getsheet(sheetid)
C. Set ab = GetObject("srcfilepath") , Set ws = ab.worksheets(sheetid)

27. The method that explicitly activates the recovery scenario mechanism is:

A. recovery.activate
B. enable
C. recovery.enable
D. activate

28. The method used for sending information to the test results is:

A. Reporter.log()
B. Reporter.reportevent()
C. Reporter.msgbox()
D. Reporter.report()

29. To terminate an application that is not responding we use:

A. SystemUtil.terminate
B. SystemUtil.Stop
C. SystemUtil.CloseProcessByName

30. The recovery mechanism does not handle triggers that occur in the last step of a test:

A. false
B. True

31. We can add Test object methods, function calls into the Test using:

A. Function generator
B. Step generator
C. Object repository

32. The method that adds to the test while implementing synchronization is:

A. Synchronize
B. Wait
C. WaitProperty
D. Pause

33. The mechanism used to identify objects during run session is

A. Recovery scenario
B. Smart identification
C. Handling object

34. Post-recovery test run options specifies:

A. how to continue the run session after QTP identify the event
B. errors while running
C. recovery scenario during a run session

35. The action that can be called multiple times by the test as well as by other tests is called:

A. non-reusable action
B. Reusable action
C. External action

36. The command used to connect with Database is:

A. Createobject(connectivity name�)
B. dbconnect(connectivity name)
C. open(connectivity name)
D. None of the above

37. The method used to retrieve the folders is:

A. FileSystemObject.Getfolder()
B. FileSystemObject.selectfolder()
C. FileSystemObject.retrievefolder()

38. The method used to compare 2 XML files is:

A1. XMLfile1.compare(XMLfile2)
B. XMLcompare(file1,file2)
C. compare(XMLfile1,XMLfile2)

39. The QTP script files are stored in the extension of

A. *.mts
B. *.usr
C. *.mtr
D. *.vbs

40. The method used to register the user-defined function with test object is:

A. setFunc()
B. RegisterUserFunc()
C. RegisterFunc()

41. The method used to open the specified URL in a browser is:

A. openURL()
B. navigateURL()
C. navigate()

42. The 3 Parameter types available in data driver is:

A. DataTable,Environment,Random number
B. DataTable,random number,unique
C. environment,string,numeric

43. The method added to the test while parameterizing is:

A. get Data (variable, dtGlobalSheet)
B. get DataTable(variable, dtGlobalSheet)
C. Set Data(variable, dtGlobalSheet)
D. Set DataTable(variable, dtGlobalSheet)

44. The length of the array can be get by the method:

A. length(array)
B. ubound(array)
C. count(array)

45. The method used to get the count value of list box or combo box is:

A. GetItemsCount
B. GetCount
C. GetItemCount

46. To retrieve the current the objects in your application during the run session:

A. GetVisibleText
B. GetROProperty
C. SetROProperty
D. GetTOProperty

47. The list of test objects and their properties and values are stored in the:

A. Object Repository
B. Object Identification

48. The method used to continue the test execution after getting run-time error is:

1. On Error Resume Next
2. On Error Raise Next
3. On Error Next