Ir para conteúdo
Faça parte da equipe! (2024) ×
Conheça nossa Beta Zone! Novas áreas a caminho! ×
  • Quem está por aqui   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.

Codigo para Assustar seu Amigo.


Love_Demi_s2
 Compartilhar

Posts Recomendados

Ta afim de encher o saco do seu amigo, dando um susto nele? Ou entao zuar geral na sala de informatica do colegio/facul ? Facil, copie e cole o codigo abaixo no bloco de notas e salve como tsh.vbs , pronto só executar na maquina de seu colega e se divertir uhauha, para finalizar va no gerenciador de tarefas ou reinicie o PC.

 

Set oWMP = CreateObject("WMPlayer.OCX.7" )

Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count = 1 then

do

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next ' cdrom

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next ' cdrom

loop

End If

 

OBS: ANTES QUE VOCES FALEM "TUTO JÁ EXISTENTE PESSOAL AKI CLOSED" EU QUE FIZ O TÓPICO NA OUTRA CONTA SÓ TO FAZENDO AQUI POR QUE QUERO AUMENTAR MEUS POST'S OBRIGADO.

Link para o comentário
Compartilhar em outros sites

Este tópico está impedido de receber novos posts.
 Compartilhar

×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.