Dim scrhdc As Long
Dim retv
scrhdc = GetDC(0)
retv = BitBlt(Picture1.hdc, 0, 0, Picture1.Width, Picture1.Height, scrhdc, 0, 0, vbSrcCopy)
Picture1.AutoRedraw = True
Picture1.Refresh
retv = ReleaseDC(0, scrhdc)
SavePicture Picture1.Image, "c:\asfd.bmp"用 winsock 實現遠程控制
Dim retv
scrhdc = GetDC(0)
retv = BitBlt(Picture1.hdc, 0, 0, Picture1.Width, Picture1.Height, scrhdc, 0, 0, vbSrcCopy)
Picture1.AutoRedraw = True
Picture1.Refresh
retv = ReleaseDC(0, scrhdc)
SavePicture Picture1.Image, "c:\asfd.bmp"用 winsock 實現遠程控制
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货