Kul med lätt VBS!!! (5 / 9 steg)
option explicit
På fel återupptas nästa
' deklarera variabler
Dim wshshell, titel, mystring, längd, position, tmp, loopA, loopB, linesToWrite, kolumner, objUser, objSysInfo, myName, myNameLength, kolumn1, col2, col3, col4, col5, Max, element
sätta wshshell = WScript.CreateObjectWScript.Shell("")
title = "matrix"
WshShell. SendKeys "{ALT}" + "{in}"
"få användarinformation, brukade få namnet
Ange objSysInfo = CreateObject("ADSystemInfo")
Ange objUser = GetObject ("LDAP: / /" & objSysInfo.UserName)
' ---------------------------
sub waitfor(var)
"ställa in fönstret, ange titel, vänta på att slutföra
tmp = false
inte förrän tmp
WScript.Sleep 1000
tmp = wshshell.appactivate(var)
loop
End sub
' ---------------------------
sub matrix(elements)
"skriva ut slumptal för att göra"matrix"ser
"förutsätter element är delbart med 5
kolumner = 5
kolumn1 = sant
col2 = sant
col3 = sant
col4 = sant
col5 = sant
randomize()
linesToWrite = element / kolumner
för loopA = 1 till linesToWrite
för loopB = 1 till kolumner
Välj ärende loopB
Fall 1
Om kolumn1 = true sedan wshshell. SendKeys Int(Round(rnd())) & "{TAB}" Else wshshell. SendKeys "{TAB}"
Fall 2
Om col2 = true sedan wshshell. SendKeys Int(Round(rnd())) & "{TAB}" Else wshshell. SendKeys "{TAB}"
Fall 3
Om col3 = true sedan wshshell. SendKeys Int(Round(rnd())) & "{TAB}" Else wshshell. SendKeys "{TAB}"
Fall 4
Om col4 = true sedan wshshell. SendKeys Int(Round(rnd())) & "{TAB}" Else wshshell. SendKeys "{TAB}"
Fall 5
Om col5 = true sedan wshshell. SendKeys Int(Round(rnd())) & "{TAB}" Else wshshell. SendKeys "{TAB}"
End Select
WScript.Sleep 5
Nästa
WScript. ECHO
"Detta flip-flops kolumner för att Visa 20 procent av tiden, oberoende av varandra.
maximal = 0,20
Om rnd() < högsta sedan
Om kolumn1 = true sedan kolumn1 = false annars kolumn1 = sant
Slut om
Om rnd() < högsta sedan
Om col2 = true sedan col2 = false annars col2 = sant
Slut om
Om rnd() < högsta sedan
Om col3 = true sedan col3 = false annars col3 = sant
Slut om
Om rnd() < högsta sedan
Om col4 = true sedan col4 = false annars col4 = sant
Slut om
Om rnd() < högsta sedan
Om col5 = true sedan col5 = false annars col5 = sant
Slut om
Nästa
WScript. ECHO
WScript. ECHO
End sub
' ---------------------------
sub key(msg)
' göra utskrifter av "matrix" meddelanden, och radera dem.
WScript.Sleep 1500
längd = len(msg)
för ställning = 1 till längd
WshShell. SendKeys mid (msg, läge, 1)
WScript.Sleep 250
Nästa
WScript.Sleep 3000
för ställning = 1 till längd
WshShell. SendKeys "{BACKSPACE}"
WScript.Sleep 75
Nästa
End sub
' ---------------------------
"börja"main"utförande här
waitfor(title)
För loopA = 1-4
Välj ärende loopA
Fall 1
mystring = "vakna, Neo..."
Fall 2
mystring = "matrisen har du..."
Fall 3
mystring = "Följ den vita kaninen..."
Fall 4
mystring = "Knock knock..."
End Select
"nu skriva ut rätt sträng
Key(mystring)
Nästa
'_ _ _ _ _ _ _ _ _ _
WScript.quit()