Diversão com VBS fácil !!!: 5 etapas

2024 Autor: John Day | [email protected]. Última modificação: 2024-01-30 11:40

Um guia para iniciantes para um script visual básico divertido e fácil de fazer. VSB pode parecer difícil para alguns, mas na verdade é muito fácil. O Windows pode até executá-lo sem um compilador! Se você conhece javascript, deve ser muito fácil para você.

Etapa 1: caixas de mensagens básicas

Ok, então vamos rever o básico. Você já viu uma caixa de mensagem como a que está abaixo, provavelmente já viu. Eles são usados para alertar os usuários sobre o que você quiser dizer. Você pode criar o seu próprio usando a caixa de mensagens de função. Assim, o código para uma caixa de mensagem que diz oi ficaria assim, Msgbox ("oi") Alternativamente, você pode tornar um não matável caixa de mensagem fazendo um loop simples usando os comandos Do, Loop. Agora que cobrimos as caixas de mensagem, vamos passar para caixas de mensagem mais avançadas.

Etapa 2: jogos e outras coisas

Se você já se perguntou como fazer jogos de texto, não procure mais. Posso estar errado, mas acredito que usaram vbs. Agora, muitos scripts vb usam um compilador, mas o Windows não precisa de um. Apenas digite cscript antes do caminho do arquivo, agora se você sabe como fazer arquivos bat, então você pode automatizar este processo, mas não entraremos nisso neste instrutível. Aqui está um pequeno jogo que fiz Option ExplicitDim Answer'types the questionWscript. StdOut. Write "Bom dia, não é?" Answer = Wscript. StdIn. ReadLine 'se você digitar sim tIf answer = "sim" Então Wscript.echo ("Espero que continue assim")' Se você digitar noElseIf answer = "no" ThenWscript.echo ("Espero que melhore") 'any elseElseWscript. Echo ("GoodDay to you")' endEnd Ifnow basicamente salve isso como.vbs e use o método antes de executá-lo.

Etapa 3: O Auto Typer

Este código é para digitar algo repetidamente. Não sei como isso é útil, mas se você executá-lo, terá que matá-lo na tarefa listset shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.sleep 200Shellobj.sendkeys "o" wscript.sleep 200loop

Etapa 4: O Matirx tem você

Já se perguntou como fazer seu pc falar com você? Bem, copie isto

opção explicitOn Erro Resume Próximo 'declara variáveisdim wshshell, título, mystring, comprimento, posição, tmp, loopA, loopB, linesToWrite, colunas, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, máximo, conjunto de elementos wshell = wscript.createobject ("wscript.shell") title="a matriz" wshshell. SendKeys "{ALT}" + "{ENTER}" 'obter informações do usuário, usadas para obter o conjunto nameSet objSysInfo = CreateObject ("ADSystemInfo") definido objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- sub waitfor (var)' set janela para cima, defina o título, espere completar tmpwscript.sleep 1000tmp = wshshell.appactivate (var) loopend sub '---------------------- ----- submatriz (elementos) 'imprimir números aleatórios para fazer "a matriz" parecer' assume que os elementos são divisíveis por 5colunas = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize () linesToWrite = elementos / colunas para loopA = 1 para linesToWrite para loopB = 1 para colunasSelecione Case loopBCase 1Se col1 = true Then w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" Case 2If col2 = true Then wshshell. SendKeys Int (Round (rnd ())) & "{TAB} "Else wshshell. SendKeys" {TAB} "Case 3If col3 = true Then wshshell. SendKeys Int (Round (rnd ())) &" {TAB} "Else wshshell. SendKeys" {TAB} "Case 4If col4 = true Então wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" Case 5If col5 = true Then wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" End Selectwscript.sleep 5nextwscript. Echo 'Este flip-flops colunas para exibir 20 por cento do tempo, independentemente um do outro.maximum = 0.20If rnd () <maximum ThenIf col1 = true Then col1 = falso Else col1 = trueEnd IfIf rnd () <máximo ThenIf col2 = true Then col2 = false Else col2 = trueEnd IfIf rnd () <máximo ThenIf col3 = true Then col3 = false Else col3 = trueEnd IfIf rnd () <máximo ThenIf col4 = true Then col4 = false Else col4 = trueEnd IfIf rnd () <máximo ThenIf col5 = true Then col5 = false Else col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '--------------------------- subchave (msg)' faz impressões da "matriz" mensagens, e apague themwscript.sleep 1500length = len (msg) para position = 1 to lengthwshell. SendKeys mid (msg, position, 1) wscript.sleep 250nextwscript.sleep 3000for position = 1 to lengthwshshell. SendKeys "{BACKSPACE}" wscript. sleep 75nextend sub '---------------------------' iniciar a execução "principal" aqui para (título) Para loopA = 1 para 4Selecionar Caso loopACase 1mystring = "acorda, Neo…" Case 2mystring = "A matriz tem você…" Case 3mystring = "Siga o coelho branco…" Case 4mystring = "Knock knock…" End Select 'agora imprima a stringkey correta (mystring) a seguir' _ _ _ _ _ _ _ _ _ _ _ wscript.quit () salve-o em C: / temp como matrix.vbs para criar os arquivos bat @ echo offcolor 0atitle the matrixset / p matrix = | cscript / nologo (Substitua pelo seu caminho para o arquivo vbs) exitset / p matrix = Nomeie RabbitHole.bat. Em seguida, execute-o !! isso é uma coisa legal, mas avançada para fazer com vbs; eu apenas coloquei porque é incrível

Etapa 5: Fim

Ai está

O céu é o limite para o que você pode fazer