Índice:

A derradeira pegadinha para desligar o computador: 3 etapas
A derradeira pegadinha para desligar o computador: 3 etapas
Anonim
The Ultimate Computer Shutdown Prank
The Ultimate Computer Shutdown Prank

Este é um script de desligamento.vbs que fiz como uma brincadeira. A razão pela qual é tão legal, é porque ao invés de apenas desligar o computador imediatamente, o computador fala com você, avisando que o computador irá desligar em 10 segundos, então ele mostra uma pequena animação contando os últimos 5 segundos antes ele desligou o computador.

Também gosto de compilá-lo em um.exe usando um conversor, mas você não precisa fazer isso. Veja meu vbs Screen Lock, se você gostaria de saber como fazer isso. Existem também alguns links para editores de vbs nesse instrutível.

Mas, ao contrário do meu bloqueio de tela, este programa é muito mais curto, então tentarei explicá-lo da melhor maneira possível.

NOTA: Se você ainda não conhece o vbs, recomendo verificar este Instructable para que você tenha um conhecimento básico de algumas das funções utilizadas neste script.

Etapa 1: Meu Script …

Meu roteiro …
Meu roteiro …

Aqui está o roteiro..

Você terá que deletar um dos "s" no final para que termine em "Shutdown.vbs" ou o que você quiser, desde que termine em.vbs.

Etapa 2: Meu Script (explicação) …

Então, sei que vou explicar o código …

A primeira linha realmente não faz muito, ela apenas me ajudou quando eu estava criando o script. Aqui estão as próximas três linhas:

Dim IntCounterDim objWshShl: Set objWshShl = WScript. CreateObject ("wscript.shell") Dim objVoice: Set objVoice = WScript. CreateObject ("sapi.spvoice")

A primeira linha de código declara que as variáveis que usaremos para controlar são For… Next Loop. As próximas duas linhas de código declaram e definem 2 variáveis. objWshShl é usado para a caixa de mensagem e funções de execução. objVoice é usado para fazer o computador "falar".

Aqui estão outras três linhas:

ShutdownWarning () TimedMessageBox () ShutdownComputer ()

Essas linhas estão apenas chamando as três funções que estão em nosso script.

Aqui está a primeira função no script are.

Function ShutdownWarning objVoice. Speak "Este computador será encerrado em 10 segundos." Função final WScript. Sleep 5000

Na verdade, não precisamos de funções em nosso script, mas isso apenas ajuda a manter as coisas organizadas.

Portanto, tudo o que isso faz é falar a frase entre as aspas e, em seguida, fazer uma pausa de 5 segundos antes de continuar para a próxima função.

A próxima parte pode parecer meio complicada, mas na verdade é bem fácil de entender:

Função TimedMessageBox For IntCounter = 5 a 1 Etapa -1 objWshShl. Popup "O computador será desligado em" _ & IntCounter & "segundos", 1, "Desligamento do computador", 0 + 48 Next End Function

Portanto, primeiro ele cria uma função chamada TimedMessageBox.

Então, as próximas 4 linhas são um For … Next Loop. Portanto, este loop fará cinco repetições, diminuindo um a cada vez.

objWshShl. Popup "O computador será desligado em" _ & IntCounter & "segundos", 1, "Desligamento do computador", 0 + 48

Este código é, na verdade, apenas uma linha de código, apenas separado em outra linha usando o caractere "_" para facilitar a leitura. O que esse código faz é criar uma mensagem pop-up que dura 1 segundo para exibir a quantidade de segundos restantes até o desligamento usando a variável IntCounter.

Depois que esse loop for repetido cinco vezes, ele continuará com o script.

Aqui está a próxima função:

Função ShutdownComputer objWshShl. Run "Shutdown / s / f / t 0", 0 End Function

Tudo o que isso faz é desligar o computador usando um comando de execução. Aqui estão as opções usadas: / s / f / t. O / s significa desligar, o / f significa fechar todos os aplicativos sem aviso, o / t é o tempo em segundos antes do desligamento. Você notará depois desse comando que há uma vírgula zero ", 0". Isso apenas faz com que nenhuma janela cmd pisque quando o comando de desligamento é executado.

Etapa 3: Espero que tenha sido útil

Espero que este Instructable tenha sido útil se você precisar de mais ajuda ou tiver alguma dúvida, por favor me mande um email ou deixe um comentário.

Recomendado: