PrintScreen 屏幕截图

PrintScreen 屏幕截图

🎯功能​

屏幕范围区域截图

📜语法​

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

📥参数​

参数数据类型解释x1整数型截取屏幕区域左上角坐标xy1整数型截取屏幕区域左上角坐标yx2整数型截取屏幕区域右下角坐标xy2整数型截取屏幕区域右下角坐标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

📘备注​

无