Skip to main content

UFT - Take full page screenshot by scrolling the page 



'########################################################################################
'This is navigate through the full page and taking individual screenshot of visible area
'########################################################################################
Function TakeScreenshot
 Dim intScrolls, intScroll, strScrollPos
 Set pgApp = Browser("").Page("")

 intScrolls = Round(pgApp.RunScript("document.documentElement.scrollHeight / (screen.height)"), 2)
 If intScrolls < 1 Then intScrolls = -1

 pgApp.RunScript "window.scrollTo(0, 0);"
 Wait 1
 Browser("").CaptureBitmap "C:\screenshot0.png", True
 For intScroll = 0 To intScrolls
  If Environment.Value("Browser") = "CHROME" Then
   strScrollPos = "scrollY"
  Else
   strScrollPos = "document.documentElement.scrollTop"
  End If
  If pgApp.RunScript("document.documentElement.scrollHeight - " & strScrollPos) > pgApp.RunScript("screen.height") Then  
   intY = pgApp.RunScript(strScrollPos & " + screen.height - 168;")
   pgApp.RunScript "window.scrollTo(0, " & intY & ");"
   Wait 1  
   Browser("").CaptureBitmap "screenshot" & (intScroll + 1) & ".png", True
  End If          
 Next
 
 'To merge the images to generate full page screenshot
 Call MergeImages
End Function

'########################################################################################
'This is to merge all individual images to one full page screenshot
'########################################################################################
Function MergeImages   
    Dim drawImage, grapImage, imgFormat, imgLayer, imgPT
    Set drawImage = DotNetFactory.CreateInstance("System.Drawing.Bitmap", "System.Drawing", 1920, 1050)
    drawImage.SetResolution 50, 45
    Set grapImage = DotNetFactory.CreateInstance("System.Drawing.Graphics").FromImage(drawImage)
   
    Set imgLayer = DotNetFactory.CreateInstance("System.Drawing.Bitmap", "System.Drawing", "C:\screenshot0.png")
    Set imgPT = DotNetFactory.CreateInstance("System.Drawing.Point", "System.Drawing", 0, 0)
    grapImage.DrawImage Layer1, pt1
   
    Set imgLayer = DotNetFactory.CreateInstance("System.Drawing.Bitmap", "System.Drawing", "C:\screenshot1.png")
    Set imgPT = DotNetFactory.CreateInstance("System.Drawing.Point", "System.Drawing", 0, 540)
    grapImage.DrawImageUnScaled Layer2, pt2
   
    Set imgFormat = DotNetFactory.CreateInstance("System.Drawing.Imaging.ImageFormat", "System.Drawing", Nothing)
    drawImage.Save "finalScreenshot.png", format.PNG
End Function




This code is for UFT/VBScript and you can use the same logic by applying different APIs available for SELENIUM or any other tools.

Comments

  1. Sivakumari.BAugust 27, 2019 at 6:27 AM

    Your info is really amazing with impressive content..Excellent blog with informative concept. Really I feel happy to see this useful blog, Thanks for sharing such a nice blog..
    If you are looking for any Data science Related information please visit our website best course for data science page!

    ReplyDelete
  2. AnonymousSeptember 4, 2019 at 4:21 AM

    very nice article more visit:

    java training in bangalore
    best java training institutes in bangalore
    java classes in bangalore
    best training institute for java in bangalore
    java training in yelahanka

    ReplyDelete
  3. Placement Training In ChennaiApril 7, 2020 at 9:35 AM

    great article I like this very much Big Data Training In Chennai

    ReplyDelete
  4. Sowmiya RJuly 22, 2020 at 7:28 AM

    Thanks for sharing this wonderful content.its very useful to us.
    I gained many unknown information, the way you have clearly explained is really fantastic.This is incredible,I feel really happy to have seen your webpage and look forward to somany more entertaining times reading here.
    oracle training in chennai

    oracle training institute in chennai

    oracle training in bangalore

    oracle training in hyderabad

    oracle training

    hadoop training in chennai

    hadoop training in bangalore




    ReplyDelete
  5. AnonymousApril 17, 2022 at 2:06 PM

    Uft - Take Full Page Screenshot By Scrolling The Page >>>>> Download Now

    >>>>> Download Full

    Uft - Take Full Page Screenshot By Scrolling The Page >>>>> Download LINK

    >>>>> Download Now

    Uft - Take Full Page Screenshot By Scrolling The Page >>>>> Download Full

    >>>>> Download LINK aD

    ReplyDelete
  6. Clone_TK422December 19, 2022 at 4:26 PM

    this code works well for scrolling and taking screenshots however I am getting an error in the merge function for the line "grapImage.DrawImage Layer1, pt1"
    the error is external object System.Drawing.Graphics: DrawImage has thrown the following exception Ambiguous match found

    also the merge function only works if you have screenshot0 and screenshots1 (two scrolls) seems to me this function needs to have a for loop in case you have more than 2 screenshots

    ReplyDelete

Post a Comment

Popular posts from this blog

Some good Resources / Blogs / Sites for Selenium Users

Here I have listed out some good blogs and sites by extensive selenium automation users. Hope these will help you a lot. http://automationtricks.blogspot.com  - by NirajKumar http://www.theautomatedtester.co.uk/ http://testerinyou.blogspot.com   - by Naga/Mathu http://seleniumready.blogspot.com  - by Farheen Khan http://seleniumdeal.blogspot.com/  - Amit Vibhuti http://seleniumexamples.com/blog Sauce Labs and BrowserMob are companies doing cloud and extensive selenium automation services, products, etc http://saucelabs.com/blog http://blog.browsermob.com http://testingbot.com/ Cedric Beust -  creator of the TestNG Java testing framework. http://beust.com/weblog/ http://blog.reallysimplethoughts.com/  - by Samit Badle, Created many Selenium IDE Plug-Ins Available Colud Testing: 1. SauceLabs 2. Soasta 3. BrowserMob 4. CloudTesting.com  etc. Selenium Testing Products: 1. Twist by ThoughtWorks 2.  TestMaker by...
97 comments
Read more

Robotic Process Automation vs Traditional Test Automation vs Process/Task Automation

In IT industry, the term RPA is keep on hearing all sides of the walls for a while; and I was so confused about What's the difference from the test automation tools in the market and what's more into it. I did some search, understanding, and writing this post to share with you all. If I am not correct, PLEASE correct me. Traditional Test Automation: First, we have to recall the test automation tool QTP or UFT (Initially developed by Mercury Interactive Corporation(MIC) after WinRunner, then sold to HP, and again MicroFocus acquired from HP now). If you look into the architecture of this tool, MIC was trying to convert the testers into more efficient testers i.e. Testers were executing the test cases manually for regression suites, performance suites, etc. which had lot of repetitive tasks done by human testers instead of concentrating into new ideas or bug finding strategies to improve the quality of the product.  Thus WinRunner was introduced but it was demanding m...
13 comments
Read more

Run JavaScript from QTP

Yeah, You can run your pure JavaScript from QTP using RunScript method. Lot of times, we are in need of firing events or simulating actions on web page which is not supported by QTP. At that time, you can use your direct DOM methods and directly execute your script on the web page from QTP like, Dim MyPage ,  SearchBox Set MyPage  =  Browser ( "title:=Google" ) . Page ( "title:=Google" )    Set SearchBox  =  MyPage . RunScript ( "document.getElementsByName('q')(0);" ) SearchBox . Value = "testing" 'if objects available in frames, Set SearchBox  =  MyPage . RunScript ( "document.frames(4).document.getElementsByName('q')(0);" ) 'OR Set objFrame =  Browser ( "title:=Google" ) . Page ( "title:=Google" ). Frame( "title:=something" ) objFrame . RunScript ( "document.getElementsByName('q')(0);" ) Also, you can execute by obtaining actual brow...
12 comments
Read more