【文件属性】:
文件名称:vb无缓存文件远程抓屏,内存发送屏幕
文件大小:23KB
文件格式:RAR
更新时间:2011-12-05 08:47:50
vb 远程控制 抓屏
好不容易找到的内存抓屏发送例程
Dim i As Long, d As Long, b As Long, bm As BITMAP, dat() As Byte, BmpSize As Long
Dim hscreen As Long
StartT = Timer
'Picture1.Width = ScrW \ 2
'Picture1.Height = ScrH \ 2
'Picture1.Cls
hdcScreen = GetDC(0)
StretchBlt MyHdc1, 0, 0, ScrW \ 2, ScrH \ 2, hdcScreen, 0, 0, ScrW, ScrH, vbSrcCopy
ReleaseDC d, i
GetObj MyBmp1, Len(bm), bm
BmpSize = bm.bmWidthBytes * bm.bmHeight
ReDim dat(BmpSize - 1)
GetBitmapBits MyBmp1, BmpSize, dat(0)
ReDim Preserve dat(BmpSize + 1)
dat(BmpSize) = 13
dat(BmpSize + 1) = 10
StartT = Timer
On Error GoTo 400
'MsgBox UBound(dat)
Ws2.SendData dat
Exit Sub
400:
re.Caption = Err.Description
Form_Load
'Debug.Print dat 'dat为获取到的屏幕图形数据
【文件预览】:
复件 screenok
----接受()
--------Form1.frm(6KB)
--------工程1.vbp(748B)
--------MSSCCPRJ.SCC(190B)
--------工程1.vbw(54B)
----发送()
--------Form1.frm(5KB)
--------工程1.vbp(746B)
--------MSSCCPRJ.SCC(190B)
--------工程1.vbw(54B)
screenok
----工程1.exe(28KB)
----接受()
--------Form1.frm(6KB)
--------工程1.vbp(709B)
--------工程1.vbw(54B)
----cli.exe(24KB)
----发送()
--------Form1.frm(5KB)
--------工程1.vbp(746B)
--------工程1.vbw(54B)
网友评论
- 弹出来的窗口抓不了
- 有BUG,但是还是可以学习一下