Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long)
Call Plugin.Pic.PrintScreen(0, 0, 1024, 768, "C:\PIC.bmp")
For 10000//建议改成100调试运行,内存小的机器可能直接死机!!2000个循环后8GB内存在WIN7运行内存占用达到95%
LoadImage 0,"C:\PIC.bmp",0,0,0,16
Next |