[Script] Tirar screenshoot ao upar

[Puncker 201]

{Tirar screenshoot ao upar}

Código:

var

Level: integer;


begin

UpdateWorld;

Level := Self.Level;

while not Terminated do

begin

UpdateWorld;

if Level <> Self.Level then

begin

Level := Self.Level;

ScreenShot('c:\level' + IntToStr(Level) + '.jpg');

end;

Sleep(1000);

end;

end; 

Ou Baixe

Ou baixe:

sshup.ng

[EdsonJunior 966]

var

Level: integer;


begin

UpdateWorld;

Level := Self.Level;

while not Terminated do

begin

UpdateWorld;

if Level <> Self.Level then

begin

Level := Self.Level;

ScreenShot('c:\level' + IntToStr(Level) + '.png');

end;

Sleep(1000);

end;

end; 

Só mudei o formato da img, .jpg pra .png (a qualidade fica BEM MELHOR)

[Renato 659]

Png fica bem mais pesado...

Mas mesmo assim prefiro png

[she 4]

Não sei se será considerado flood, porém enfim, queria agradecer pelo script, pois estou usando, irá ajudar com meu lt. Obrigada. =^-^=

Editado Maio 6, 2011 por she (veja o histórico de edições)

[Froostiin 48]

Não seria Flood se você tivesse postado alguma duvida, isso é considerado topico revivido e flood .

[she 4]

Se eu fizesse um tópico, gostaria muito de ser agradecida por conta de minha colaboração.

[Froostiin 48]

Para isso serve a reputação positiva .

[she 4]

Ok peço desculpa pelo meu erro. +rep.

Editado Maio 6, 2011 por she (veja o histórico de edições)

[Sidbre 1]

por favor alguem pode me explica ondee fica a print quando eu upo.

ela fica salva aonde?

vlww

[Arthur 173]

Fica em C:/level alguma coisa assim.

[Private Sub Teste 353]

ScreenShot('c:\level' + IntToStr(Level) + '.jpg');