Perl
发布时间:2022-04-07 发布网站:大佬教程 code.js-code.com
大佬教程收集整理的这篇文章主要介绍了在window平台下自动截屏,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
@H_
607_0@use Win32::Clipboard;
use Win32::GuiTest qw/SendKeys/;
while
(1)
{
my @time = localtime(tim
E);
my $file = sprintf "20%02d_%d_%d_%d_%d_%d
.bR_116_11845@p",$time
[5]%100,$time[4]+1,$time
[3],$time[2],$time[1],$time
[0];
my ($try_count,$screen) = (30,undef
);
SendKeys('
{PRTSCR}'
);#调用键盘的print_screen这个键
$screen = Win32::Clipboard::GetBitmap(
);#print_screen这个键会截图,存储在内存中,然后
用这个剪切板来保存文件
if ($screen)
{
open BITMAP,"> $file" or die;
binmode BITMAP;
print BITMAP $screen; #在这里将截屏的内容写入文件
close BITMAP;
}
sleep(15
);
}@H_
772_1@
大佬总结
以上是大佬教程为你收集整理的在window平台下自动截屏全部内容,希望文章能够帮你解决在window平台下自动截屏所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。