用ASP可以实现远程网页截图吗？

[6258]

类似alexa的首页图那种
有哪种组件可以实现呢？

[白夜花寒]

截图的技巧太常见了,如果你需要的话,我可以给你写一个的........too easy.....

[白夜花寒]

Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function EmptyClipboard Lib "user32" () As Long
Public Declare Function SetClipboardData Lib "user32" Alias "SetClipboardDataA" (ByVal wFormat As Long, ByVal hMem As Long) As Long
Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Public Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As DEVMODE) As Long
Public Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Public Declare Function CloseClipboard Lib "user32" () As Long

Public Sub scrncap(left As Long, top As Long, _
right As Long, bottom As Long)
Dim rWidth As Long
Dim rHeight As Long
Dim SoureDC As Long
Dim BHandle As Long
Dim Wnd As Long
rWidth = right - left
rHeight = bottom - top
sourceDC = CreateDC("DISPLAY", 0, 0, 0)
destdc = CreateCompatibleDC(sourceDC)
BHandle = CreateCompatibleBitmap(sourceDC, rWidth, rHeight)
SelectObject destdc, BHandle
BitBlt destdc, 0, 0, rWidth, rHeight, sourceDC, _
left, top, &HCC0020
Wnd = Screen.ActiveForm.hwnd '不一定是这个句柄，可能要换成activewindow的
OpenClipboard Wnd
EmptyClipboard
SetClipboardData 2, BHandle
CloseClipboard
DeleteDC destdc
ReleaseDC 0, sourceDC

End Sub

输入四个参数就可以抓四个地方了,要很高的权限.....还有就是你在句柄处理要研究一下的

[zwrtv]

路过学习下

[6258]

有相关的组件吗？

[soft_2008]

mark

[t7y7t]

学习