Tirando screenshots facilmente ! [Perl]

Tirando screenshots facilmente !

Publicado por Denis Zanin 02/05/2003

[ Hits: 5.797 ]

Download sshot.pl

0 0

Denuncie Favoritos Indicar

Para ver como ele funciona, de uma olhada na secao Screenshots !
Ele apenas facilita na hora de tirar uma screenshot !

Para mais detalhes de uma olhada no codigo fonte !

Falowsss !

Esconder código-fonte

# Tirando Screenshotzzz
# by vir0se
# Para executa-lo eh soh digitar: perl -w sshot.pl
# no console. Qualquer duvida me mande um e-mail: virose@bol.com.br
#!/usr/bin/perl -w

my $login;

$login=getlogin || getpwuid($<) || "alguem ai";

print "

 . . . . . . Tirando uma screenshot para $login !!
";
print " . . .:::. . SORRIAAAAAAA ! XIIISSSSSSS ! . .:::. . . . !

";
system "import -w root screenshot01.jpg";
print ". : . Digite o nome da screenshot a ser salva . : . : ";
$shot = <STDIN>;
chomp($shot);
system "mv screenshot01.jpg $shot";
print "
 . .::::. . Screenshot salvo com o nome de $shot . .::::. . 

";
exit;

Scripts recomendados

Muda o wallpaper do X-Windows

Role-Playing Script

Listar arquivos

Calculadora com Perl com menos de 10 linhas de código

Monitor Process

Comentários

[1] Comentário enviado por fftrebor em 09/06/2004 - 15:53h

Fábio

Tentei usar seu script porém não deu certo. Eu uso Debian 3.0, kernel 2.2.

Olha a mensangem:

robertff@parker51:~$ perl -w ~/bin/sshot.pl
Tirando uma screenshot para robertff

Can't exec "import": No such file or directory at /home/robertff/bin/sshot.pl line 12.

Digite o nome da screenshot a ser salva: teste.jpg

mv: cannot stat `screenshot01.jpg': No such file or directory

Acho que o problem está no "import".

Rodei um apt-cache search nele e nada ...

Você pode me ajudar?

Um abraço.

0 0

[2] Comentário enviado por freakcode em 21/04/2006 - 18:44h

robertff:

se não me engano, o programa 'import' é parte do pacote 'image magic'.

0 0

[3] Comentário enviado por m4iir1c10 em 04/07/2009 - 06:25h

Advinha? o seu script versao "ubuntu".
#!/bin/bash
login=$(whoami)
zenity --info --text "Tirando uma screenshot para $login !!";
zenity --warning --text " SORRIAAAAAAA ! XIIISSSSSSS ! ";
import -w root screenshot01.jpg
shot=$(zenity --entry --text "Digite o nome da screenshot a ser salva");
mv screenshot01.jpg $(echo "$(echo $shot | sed 's/.jpg//g').jpg");
zenity --info --text "Screenshot salvo com o nome de $shot";

Valeu!

0 0