Chụp hình toàn bộ trang web bằng QTP

[nguyenminhhanh]

Minh đang tìm hiểu về cách chụp hình tự động cho toàn bộ trang web (trang web dài phải cuộn thanh scroll), mình có tìm trên mạng thấy chỉ dùng snagit nhưng mình làm hoài không được, anh chị nào biết viết script chỉ mình với. Mình cảm ơn.
Đây là đoạn code mà mình tìm được

sub Capture_Scroll_Image ()

Set objShell = CreateObject("WScript.Shell")
Set oSnag = CreateObject("SNAGIT.ImageCapture")

oSnag.IncludeCursor = False
oSnag.OutputImageFile.FileType = 5
oSnag.OutputImageFile.FileNamingMethod = 1
oSnag.OutputImageFile.Directory = "C:\Users\HANH\Downloads"
oSnag.OutputImageFile.Filename = "Name"
oSnag.EnablePreviewWindow = False
oSnag.AutoScrollOptions.AutoScrollMethod= 1
oSnag.Capture()
Wait (1)
objShell.SendKeys "{ENTER}"
oSnag.IsCaptureDone
capDone = oSnag.IsCaptureDone
Do Until oSnag.IsCaptureDone
Loop
Set oSnag=Nothing
Set objShell=Nothing
End sub