QTP Scripts to make life easy..

Normalizing Strings

The NormalizeString function receives a string and returns the equivalent string in a regular expression.

Function NormalizeString(OrgStr)

Dim TempStr

TempStr = Replace(OrgStr, "\", "\\")

TempStr = Replace(TempStr, "*", "\*")

TempStr = Replace(TempStr, "+", "\+")

TempStr = Replace(TempStr, ".", "\.")

NormalizeString = Replace(TempStr, "?", "\?")

End function

msgbox NormalizeString ("a+b*c.d?e")

Using Message Boxes That Close Automatically

The function below shows a message box that disappears after the specified timeout (in seconds). The script execution then continues.

Public Sub MsgBoxTimeout (Text, Title, TimeOut)

Set WshShell = CreateObject("WScript.Shell")

WshShell.Popup Text, TimeOut, Title

End Sub

If TimeOut is 0, it behaves just like a normal message box. If TimeOut is greater than 0, the dialog box disappears after the specified number of seconds.


Using Microsoft Outlook to Send Email

The code below illustrates two methods for sending email using the VBScript code in QuickTest Professional, and two different COM objects. The following examples can be found in SendingEmail.vbs file located in the \CodeSamplesPlus folder.

' Example 1

Function SendMail(SendTo, Subject, Body, Attachment)

Set ol=CreateObject("Outlook.Application")

Set Mail=ol.CreateItem(0)

Mail.to=SendTo

Mail.Subject=Subject

Mail.Body=Body

If (Attachment <> "") Then

Mail.Attachments.Add(Attachment)

End If

Mail.Send

ol.Quit

Set Mail = Nothing

Set ol = Nothing

End Function

' Example 2

Function SendMail(SendFrom, SendTo, Subject, Body)

Set objMail=CreateObject("CDONTS.Newmail")

ObjMail.From = SendFrom

ObjMail.To = SendTo

ObjMail.Subject = Subject

ObjMail.Body = Body

ObjMail.Send

Set objMail = Nothing

End Function



Comments

Post a Comment

Popular posts from this blog

  Robotic Process Automation (RPA) -----------------------------------   Robotic Process Automation (RPA) is a technology that enables software robots, also known as bots, to automate repetitive, rule-based tasks typically performed by humans. RPA bots can work 24/7, are highly accurate, and can perform tasks much faster than humans, making them a valuable tool for businesses looking to increase efficiency and productivity. RPA bots can perform a variety of tasks, including data entry, invoice processing, report generation, and customer service. They work by mimicking human actions, such as clicking, typing, and copying and pasting data, and can interact with different systems and applications just like a human user would. RPA can be implemented using a variety of software tools, and it does not require any coding or programming skills to set up and run. This makes it an accessible and cost-effective technology for businesses of all sizes. Overall, RPA is a promising technolog...
Read more

Overall QuickTest Workflow

Image
People often ask how to use QuickTest professional. What are the phases of Quick Test automation. What is the right time to apply Checkpoints, Why Prepare to Record is important... here is the answer QTP is an automated testing tool & it provides an automated solution for functionality & regression testing. QT Professional is used to automate manual test cases. Automated test cases increases testing team productivity and reusability of tests. The QuickTest Professional workflow shown in Figure represents the complete lifecycle for automating a functional test. The workflow starts with the Prepare phase, which involves preparing to record a test. In the Create phase, Tester record user actions to generate a basic test. In the Verify & Enhance phase, enhance the automated test, and in the Integrate phase, run multiple tests to check the flow of data
Read more