由于使用了一些新的函数，本程序必须在Windows2000下运行。 Option Explicit Public Declare Function GetObjectAPI Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long Public Declare Function DeleteObject Lib "gdi32" (ByVal hObj
好不容易找到的内存抓屏发送例程 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, S
