05.插件命令Pic 图像插件
,

PrintScreen 屏幕截图

文章目录
  1. 1. 功能
  2. 2. 语法
  3. 3. 参数
  4. 4. 返回值
  5. 5. 示例
  6. 6. 备注

功能

屏幕范围区域截图

语法

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

参数

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

返回值

无

示例

1
2
3
4
5
//下面这句在屏幕区域范围内截图保存到("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")
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
//高级例子
//功能: 实现文件名不重复, 无限截图功能
//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

备注

无