Aviseringar
Rensa alla

Skoj Virus


Ämnesstartare

Hey!
Jag skulle vilja veta era bästa skämtvirus/snällvirus. Alltså INTE virus som skadar datorn, utan något som bara kan skrämma en ganska okunnig person.
(till exempel: mormor, småsyskon etc.)

OBS: I er förklaring ska ni även förklara hur man stänger av skämtviruset [no-no]

Mitt snällvirus: Det gör så att cdspelaren åker ut och in och loopar allt igen. För att se till att allt jävulskap slutar så är det bara att starta om datorn. Inget märkvärdigt alltså.

Set wmp = CreateObject("WMPlayer.OCX.7")
Set cdroms = wmp.cdromCollection

f=1

do While f=1
If cdroms.Count >= 1 then

For i = 0 to cdroms.Count - 1
cdroms.Item(i).Eject
Next

For i = 0 to cdroms.Count - 1
cdroms.Item(i).Eject
Next
End If
loop

Skriv in detta på anteckningar och spara som filnamn.vbs

Så visa er kreativitet nu! [smile]


   
Citera
Ämnesstartare

Kom igen nu då [mad] En sån här tråd är ju rolig ffs!


   
SvaraCitera
Ämnesstartare

määki:

Kom igen nu då [mad] En sån här tråd är ju rolig ffs!

Jag skulle nog inte kalla det där ett virus?


   
SvaraCitera
Ämnesstartare

Kan bara massa roliga .bat "virus" [crazy]

T.ex. få fram massa mappar över hela skrivbordet, kommer upp svarta rutor över hela skärmen som gör så att datorn laggar sönder och om man försöker klicka bort dom så förökar dom sig bara. osv.

Sen det gamla klassika som jag skulle tror de flesta kan:

shutdown -s -t 60 -c "Meddelande t.ex. virus detected"

[smile]


   
SvaraCitera
Ämnesstartare

aristoteles:

Jag skulle nog inte kalla det där ett virus?

määki:

skämtviruset


   
SvaraCitera
Ämnesstartare

:(){ :|:& };:


   
SvaraCitera
Ämnesstartare

aristoteles:

Jag skulle nog inte kalla det där ett virus?

Virus och virus.... "skämtvirus/snällvirus" tyckte jag att jag skrev.
Annars kan jag inget annat namn för det. [confused]


   
SvaraCitera

Forkbomber är kul, särskilt när man har osparade arbeten igång.

Edit: Attans, inte först. [sad]


   
SvaraCitera
Ämnesstartare

[blush] En till klassisk:

 @echo off color 0a shutdown -s -c "The HaxXxoR maN" 

Spara som filnamn.bat
För att stäng av kör cmd. Skriv sedan "shutdown -a".


   
SvaraCitera

Skulle inte kalla din kod ett virus men iaf, ett enklare sätt att stänga av .vbs loops är att öppna aktivitetshanteraren - processer - wscript - avsluta process. Slipper en onödig omstart.


   
SvaraCitera
Ämnesstartare

määki:

Skriv in detta på anteckningar och spara som filnamn.vbs

Så visa er kreativitet nu! [smile]

Programering är så jävla jobbigt!


   
SvaraCitera
Ämnesstartare

jedish:

Skulle inte kalla din kod ett virus

määki:

skämtvirus/snällvirus

Whatever.. du förstår vad jag menar hoppas jag [blush]


   
SvaraCitera

määki:

Whatever.. du förstår vad jag menar hoppas jag [blush]

Jorå, men lite petig måste man få vara ibland [crazy]

Här har du för övrigt en lite rolig vbs [wink]

MsgBox "Har du ingenstans att ställa din dricka ?",64,"Dricka"
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For a = 0 to 100
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
Next ' a
End If


   
SvaraCitera

määki:

Set wmp = CreateObject("WMPlayer.OCX.7")Set cdroms = wmp.cdromCollectionf=1do While f=1If cdroms.Count >= 1 thenFor i = 0 to cdroms.Count - 1cdroms.Item(i).EjectNextFor i = 0 to cdroms.Count - 1cdroms.Item(i).EjectNextEnd Ifloop

du den slutar aldrig, har startat om den o massor me skit [shake][shake] tur att d eär skolans dator [crazy]


   
SvaraCitera
Ämnesstartare

määki:

En till klassisk:

Holop:

Sen det gamla klassika som jag skulle tror de flesta kan:

shutdown -s -t 60 -c "Meddelande t.ex. virus detected

[no-no]


   
SvaraCitera