Pret met gemakkelijke VBS!!! (5 / 9 stap)

' Declareer variabelen
Dim wshshell, titel, mystring, lengte, positie, tmp, loopA, loopB, linesToWrite, kolommen, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, Kol4, col5, maximaal, elementen

set wshshell = wscript.createobject("wscript.shell")
titel = "the matrix"

WshShell. SendKeys "{ALT}" + "{ENTER}"

' krijgen gebruikersinfo, gebruikt om de naam te krijgen
Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject ("LDAP: / /" & objSysInfo.UserName)

' ---------------------------
sub waitfor(var)
' venster instellen, instellen van titel, wachten om te voltooien
tmp = false
doen tot tmp
WScript.Sleep 1000
tmp = wshshell.appactivate(var)
lus
end sub

' ---------------------------
sub matrix(elements)
' afdrukken van willekeurige getallen te maken van "the matrix" kijken
' wordt ervan uitgegaan dat elementen is deelbaar door 5
kolommen = 5
col1 = true
col2 = true
Col3 = true
Kol4 = true
Col5 = true
Randomize()
linesToWrite = elementen / kolommen
voor loopA = 1 to linesToWrite
for loopB = 1 naar kolommen
Select Case loopB
Geval 1
Indien col1 = true vervolgens wshshell. ToetsenVerzenden (SendKeys) Int(Round(rnd())) & "{lusje}" Else wshshell. SendKeys "{lusje}"
Case 2
Als col2 = true vervolgens wshshell. ToetsenVerzenden (SendKeys) Int(Round(rnd())) & "{lusje}" Else wshshell. SendKeys "{lusje}"
Case 3
Als col3 = true vervolgens wshshell. ToetsenVerzenden (SendKeys) Int(Round(rnd())) & "{lusje}" Else wshshell. SendKeys "{lusje}"
Zaak 4
Als Kol4 = true vervolgens wshshell. ToetsenVerzenden (SendKeys) Int(Round(rnd())) & "{lusje}" Else wshshell. SendKeys "{lusje}"
Geval 5
Als col5 = true vervolgens wshshell. ToetsenVerzenden (SendKeys) Int(Round(rnd())) & "{lusje}" Else wshshell. SendKeys "{lusje}"
Einde selecteren
WScript.Sleep 5
volgende
WScript. ECHO

' Dit slippers kolommen als u wilt weergeven van 20 procent van de tijd, onafhankelijk van elkaar.
maximale = 0.20
Als rnd() < maximale vervolgens
Als col1 = true vervolgens col1 = false Else col1 = true
End If
Als rnd() < maximale vervolgens
Als col2 = true vervolgens col2 = false Else col2 = true
End If
Als rnd() < maximale vervolgens
Als col3 = true vervolgens col3 = false Else col3 = true
End If
Als rnd() < maximale vervolgens
Als Kol4 = true vervolgens Kol4 = false Else Kol4 = true
End If
Als rnd() < maximale vervolgens
Als col5 = true vervolgens col5 = false Else col5 = true
End If
volgende
WScript. ECHO
WScript. ECHO
end sub

' ---------------------------
sub key(msg)
' afdrukken van "the matrix" berichten doen, en hen wissen
WScript.Sleep 1500
lengte = len(msg)
voor positie = 1 lengte
WshShell. ToetsenVerzenden (SendKeys) midden (msg, positie, 1)
WScript.Sleep 250
volgende
WScript.Sleep 3000
voor positie = 1 lengte
WshShell. SendKeys "{BACKSPACE}"
WScript.Sleep 75
volgende
end sub

' ---------------------------
"start hier"belangrijkste"uitvoering

waitfor(title)

Voor loopA = 1 tot en met 4
Select Case loopA
Geval 1
myString = "wake up, Neo..."
Case 2
myString = "de matrix heeft u..."
Case 3
myString = "Volg het witte konijn..."
Zaak 4
myString = "Knock knock..."
Einde selecteren
' nu de juiste tekenreeks uitprinten
Key(MyString)
volgende

'_ _ _ _ _ _ _ _ _ _

WScript.Quit()