Micro Focus QTP (UFT) Forums
QTP - each step screenshot bitmap in to word - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: UFT / QTP Others (https://www.learnqtp.com/forums/Forum-UFT-QTP-Others)
+--- Thread: QTP - each step screenshot bitmap in to word (/Thread-QTP-each-step-screenshot-bitmap-in-to-word)

QTP - each step screenshot bitmap in to word - balamurali - 02-07-2018

Hi Experts,
 
I'am new to UFT and handling a project to regression test of mainframe. I wanted to capture specific screens I navigate in mainframe in to a word file for each iteration (each request in my case). Below is the limitations I have in my workplace..

TE addin only supports IBM PCOMM (I have TE Addin but no PCOMM instead have hummingbird), so my idea to identify object and test was ruled out.

So what I did was to write VBS,

1.Loop through request number through excel
2.input the request in hummingbird
3. Navigate using send keys
4.capturebitmap using bitmap code of the TEWindow (Which is the only object recogonized by QTP)
5. second inside loop to loop through navigations


Code:
Const heEnter = "@E"                'Enter
Const hepf3 = "@3"                  'F3 key
Const hepf5 = "@5"                  'F5 key
Const hepf6 = "@6"                  'F6 key
Const hepf2 = "@2"                  'F2 key
Const hepf9 = "@9"                  'F9 key
Const hepf8 = "@8"                  'F9 key
Const heTab = "@T"                  'Tab
Const heDelete = "@D"               'Delete

Set HostExplorerApp = CreateObject("HostExplorer")
Set h = HostExplorerApp.currenthost

h.Show
h.Activate

Rem open the excel workbook where we have the req numbers
Dim lr
set excel = createobject("excel.application")
Set wb = excel.Workbooks.Open("\****\**.xlsx")
excel.Visible = True

rem set the active sheet and count of req to loop
Set ws1=wb.Sheets("Sheet1")
lr = ws1.usedrange.rows.count


For i = 2 To lr Step 1
    
    dd=ws1.cells(i,1)
    aaf=ws1.cells(i,2)


h.puttext "1", 8, 8
h.keys heEnter
h.puttext dd, 5, 16
h.puttext aaf, 5, 33
h.keys heEnter
h.puttext "S", 9, 3
h.keys heEnter

TeWindow("TeWindow").capturebitmap("\****\**.png")
reporter.ReportEvent micDone, "***","***","\****\**.png"


Next


The solution I need is how I can paste the bitmap in word for each navigation page (loop) one by one below and end the bitmap loop with a document saved (one doc for one request).  And the next loop of request begins for next iteration.

Appreciate your help.
 
Thanks,
Bala