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
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!
Kom igen nu då En sån här tråd är ju rolig ffs!
määki:
Kom igen nu då En sån här tråd är ju rolig ffs!
Jag skulle nog inte kalla det där ett virus?
Kan bara massa roliga .bat "virus"
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"
aristoteles:
Jag skulle nog inte kalla det där ett virus?
määki:
skämtviruset
:(){ :|:& };:
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.
Forkbomber är kul, särskilt när man har osparade arbeten igång.
Edit: Attans, inte först.
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".
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.
määki:
Skriv in detta på anteckningar och spara som filnamn.vbs
Så visa er kreativitet nu!
Programering är så jävla jobbigt!
jedish:
Skulle inte kalla din kod ett virus
määki:
skämtvirus/snällvirus
Whatever.. du förstår vad jag menar hoppas jag
määki:
Whatever.. du förstår vad jag menar hoppas jag
Jorå, men lite petig måste man få vara ibland
Här har du för övrigt en lite rolig vbs
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
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 tur att d eär skolans dator
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