在window平台下自动截屏

leehunter

需要安装两个win32的模块，然后截图很大，是bmp格式，我下一步研究如何转换bmp到png格式
[Perl]代码

1. use Win32::Clipboard;
   
2. use Win32::GuiTest qw/SendKeys/;
   
3. while(1)
   
4. {
   
5. my @time = localtime(time);
   
6. 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];
   
7. my ($try_count, $screen) = (30, undef);
   
8.     SendKeys('{PRTSCR}');#调用键盘的print_screen这个键
   
9.     $screen = Win32::Clipboard::GetBitmap();#print_screen这个键会截图，存储在内存中，然后用这个剪切板来保存文件
   
10. if ($screen) {
    
11.     open    BITMAP, "> $file" or die;
    
12.     binmode BITMAP;
    
13.     print  BITMAP $screen; #在这里将截屏的内容写入文件
    
14.     close  BITMAP;
    
15.     }
    
16. sleep(15);
    
17. }

复制代码