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


Thông báo về việc đăng ký mới thành viên: Sau khi đăng ký thành viên xong, các bạn vui lòng Thông báo cho Quản Trị Viên theo link này
để Quản Trị Viên sẽ kích hoạt tài khoản cho các bạn nhé. Xin lỗi vì sự bất tiện này.

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

Thảo luận về phần mềm Quick Test Pro QTP
Nội qui chuyên mục
Thảo luận về phần mềm Quick Test Pro QTP

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

Gửi bàigửi bởi nguyenminhhanh » T.Tư 10 Tháng 5, 2017 3:48 pm

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
nguyenminhhanh
 
Bài viết: 1
Ngày tham gia: T.Hai 06 Tháng 2, 2017 9:37 am

Quay về Quick Test Pro (QTP)

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách.