文件名称：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)