PrintScreen 屏幕截图

🎯功能

屏幕范围区域截图

📜语法

Call Plugin.Pic.PrintScreen(x1, y1, x2, y2, 文件)

📥参数

参数	数据类型	解释
x1	整数型	截取屏幕区域左上角坐标x
y1	整数型	截取屏幕区域左上角坐标y
x2	整数型	截取屏幕区域右下角坐标x
y2	整数型	截取屏幕区域右下角坐标y
文件	字符串	保存图片文件的路径

📤返回

无

💡示例

//下面这句在屏幕区域范围内截图保存到("C:\PIC.bmp")里
Call Plugin.Pic.PrintScreen(0, 0, 1024, 768, "C:\PIC.bmp")
Delay 1000
//下面这句在屏幕区域范围内截图保存到("C:\PIC.jpg")里
Call Plugin.Pic.PrintScreen(0, 0, 1024, 768, "C:\PIC.jpg")

//高级例子
//功能: 实现文件名不重复, 无限截图功能
//x1,y1,x2,y2: 表示左上角与右下角的截图范围
//文件名: 截图文件名规则, $d表示日期, $t表示时间, $n表示序号, 详见例子
//返回: 返回截取的完整文件路径名
Function zmPrintScreen(x1, y1, x2, y2, 文件名)
  Dim 日期时间, 日期, 时间
  日期时间 = Now()
  日期 = Right("0" & Year(日期时间), 2) & Right("0" & Month(日期时间), 2) & Right("0" & Day(日期时间), 2)
  时间 = Right("0" & Hour(日期时间), 2) & Right("0" & Minute(日期时间), 2) & Right("0" & Second(日期时间), 2)
  If Instr(文件名, "$n") > 0 Then 
    __全局序号 = __全局序号 + 1
    文件名 = Replace(文件名, "$n", __全局序号)
  End If
  文件名 = Replace(文件名, "$d", 日期)
  文件名 = Replace(文件名, "$t", 时间)
  Call Plugin.Pic.PrintScreen(x1, y1, x2, y2, 文件名)
  zmPrintScreen = 文件名
End Function

//调用例子
For 4
  TracePrint zmPrintScreen(0,0,1024,768,"C:\紫猫$d$t-$n.bmp")
Next

📘备注

无