vb无缓存文件远程抓屏内存发送屏幕

好不容易找到的内存抓屏发送例程DimiAsLong,dAsLong,bAsLong,bmAsBITMAP,dat()AsByte,BmpSizeAsLongDimhscreenAsLongStartT=Timer'Picture1.Width=ScrW\2'Picture1.Height=ScrH\2'Picture1.ClshdcScreen=GetDC(0)StretchBltMyHdc1,0,0,ScrW\2,ScrH\2,hdcScreen,0,0,ScrW,ScrH,vbSrcCopy