Omfattande VBS och Batchfile Tutorial - nybörjare till avancerade (4 / 5 steg)

Steg 4: Två falska virus

Exempel 1:

Prank.vbs:

sätta wshshell = wscript. CreateObject("wscript.shell")
WshShell.Runshutdown.exe "Anteckningar"
WScript.Sleep 2000
WshShell. AppActivate "Anteckningar"
WshShell.SendKeys"A"
WScript.Sleep 145
WshShell.SendKeys"l"
WScript.Sleep 101
WshShell.SendKeys"l"
WScript.Sleep 125
WshShell.SendKeys""
WScript.Sleep 250
WshShell.SendKeys"y"
WScript.Sleep 150
WshShell.SendKeys"o"
WScript.Sleep 130
WshShell.SendKeys"u"
WScript.Sleep 161
WshShell.SendKeys"r"
WScript.Sleep 140
WshShell.SendKeys""
WScript.Sleep 185
WshShell.SendKeys"b"
WScript.Sleep 150
WshShell.SendKeys"a"
WScript.Sleep 112
WshShell.SendKeys"s"
WScript.Sleep 136
WshShell.SendKeys"e"
WScript.Sleep 145
WshShell.SendKeys""
WScript.Sleep 130
WshShell.SendKeys"a"
WScript.Sleep 190
WshShell.SendKeys"e"
WScript.Sleep 108
WshShell.SendKeys"r"
WScript.Sleep 250
WshShell.SendKeys"{BS}"
WScript.Sleep 90
WshShell.SendKeys"{BS}"
WScript.Sleep 108
WshShell.SendKeys"r"
WScript.Sleep 250
WshShell.SendKeys"e"
WScript.Sleep 190
WshShell.SendKeys""
WScript.Sleep 130
WshShell.SendKeys"b"
WScript.Sleep 161
WshShell.SendKeys"e"
WScript.Sleep 140
WshShell.SendKeys"l"
WScript.Sleep 152
WshShell.SendKeys"o"
WScript.Sleep 150
WshShell.SendKeys"n"
WScript.Sleep 129
WshShell.SendKeys"g"
WScript.Sleep 200
WshShell.SendKeys""
WScript.Sleep 130
WshShell.SendKeys"t"
WScript.Sleep 161
WshShell.SendKeys"o"
WScript.Sleep 140
WshShell.SendKeys""
WScript.Sleep 118
WshShell.SendKeys"u"
WScript.Sleep 150
WshShell.SendKeys"s"
WScript.Sleep 250
WshShell.SendKeys"!"
WScript.Sleep 500
WshShell.SendKeys""
WScript.Sleep 200
WshShell.SendKeys":"
WScript.Sleep 300
WshShell.SendKeys"P"
WScript.Sleep 500
WshShell.Runshutdown.exe "virus.bat"
WScript.Sleep 700
text = msgbox ("Alla din bas är hör hemma till oss", 16, "Du har ett Virus")
text = msgbox ("Vill du ta bort viruset?", 20, "Du har ett Virus")
text = msgbox ("Alla din bas är hör hemma till oss", 16, "Åtkomst nekad")
text = msgbox ("Alla din bas är hör hemma till oss", 16, "Åtkomst nekad")
text = msgbox ("Alla din bas är hör hemma till oss", 16, "Åtkomst nekad")
text = msgbox ("Vänta medan viruset är klonade upprepade gånger", 16, "kloning Virus")
WshShell.Runshutdown.exe "message.bat"
WshShell.Runshutdown.exe "batchfile.bat"
göra
text = msgbox ("Och jag vinna!", 16, "du förlorar")
loop

--------------------------------------------------------
virus.bat:

utanför
titeln All Your Base är hör hemma till oss
färg 0a
CD...
CD...
CD...
: 1
dir/s
gå till 1

--------------------------------------------------------
Message.bat:

ECHO off
titeln hälsningar, offer
färg 04
göra
ECHO du har ett Virus
pinga localhost -n.5 > nul
loop
pausa

-------------------------------------------------------
batchfile.bat:

Starta batchfile.bat

-------------------------------------------------------

Obs: Detta har det som jag varnade dig, börja batchfile.bat i batchfile.bat. Bara köra detta om du vet vad du gör! BTW, cd... i virus.bat går filen upp en katalogsökväg i cmd, vilket innebär att du breddar din räckvidd. Detta kommer att loopa igenom alla filer och mappar på datorn kontinuerligt. Mycket irriterande, men det kommer inte att skada något. Och kom ihåg detta är alla separata filer i samma mapp. Det första detta tilltag virus gör är också ghost typ "Alla din bas är tillhöra oss", även med ett stavfel och vissa Backsteg att rätta till det, gör det mer trovärdigt som ditt offer var hackad. Det har också varierande räntesatser för att skriva, vilket framgår av de olika värdena för sömn.

Exempel 2:

prank2.vbs:

sätta wshshell = wscript. CreateObject("wscript.shell")
MsgBox "Inte"
MsgBox "Du"
MsgBox "Hat"
MsgBox "Det"
MsgBox "När"
MsgBox "Detta"
MsgBox "Händer?"
WshShell.Runshutdown.exe "test.vbs"

----------------------------------------------------
test.vbs:

strSoundFile = "C:\fakevirusprank2\magicwrd.wav"
Ange objShell = CreateObject("Wscript.Shell")
text = msgbox ("Vill du ha en valp?", 52, "Gratis valp")
göra
strCommand = "sndrec32 /play" & chr(34) & strSoundFile & chr(34)
objShell.Run strCommand, 0, falskt
Wscript.Sleep 500
text = msgbox ("Du inte sa det magiska ordet", 16, "Du vill inte få en valp")
loop

--------------------------------------------------
Obs: Katalogen på den första raden i test.vbs är där din ljudfil är. Min fil är Jurassic Park "Uhn uhn uhn, du glömde att säga det magiska ordet", och det loopar, så det är verkligen roligt och irriterande. Den första delen visar en meddelanderuta, olika varje gång de klickar du på ok eller stänga fönstret, sedan går den andra filen. Den andra filen frågar offer om de vill ha en valp, oavsett vad de klickar på, ja, nej, eller nära, de får Jurassic Park wave ljudfilen och ett motsvarande meddelande.

Okej, om du vill inaktivera den första en, håller utan tvekan den farligaste av två, först du ned ctrl + c rätt efter cmd Fönstren börja fylla skärmen. Dröjsmål och du kan vara för sent på vissa äldre datorer. En gång den stoppas. Stäng alla cmd fönster individuellt och öppna Aktivitetshanteraren. Du kommer att behöva avsluta processen kallas "wscript.exe" som jag nämnde tidigare. Stäng sedan något annars fortfarande öppen, och du behöver inte spara textfilen ;)

Om du vill inaktivera det andra, bara öppna task manager och slutet wscript.exe. Stäng allt som är öppen. Piece of cake.