在window平台下自动截屏
发布时间:2020-12-15 21:10:56 所属栏目:大数据 来源:网络整理
导读:今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 use Win32::Clipboard;use Win32::GuiTest qw/SendKeys/;while(1){my @time = localtime(time);my $file = sprintf "20%02d_%d_%d_%d_%d_%d.bmp",$tim
以下代码由PHP站长网 52php.cn收集自互联网 现在PHP站长网小编把它分享给大家,仅供参考 use Win32::Clipboard; use Win32::GuiTest qw/SendKeys/; while(1) { my @time = localtime(time); my $file = sprintf "20%02d_%d_%d_%d_%d_%d.bmp",$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); } 以上内容由PHP站长网【52php.cn】收集整理供大家参考研究 如果以上内容对您有帮助,欢迎收藏、点赞、推荐、分享。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |