PopUp Virus maken!

[Fiv Fivang]

Ooit al eens hetzelfde willen maken zoals: http://www.****.net?

Lees dit dan goed door!

1. Open Kladblok (jaja, het is maar kladblok!)
2. Typ het volgende PRCIES ove": msgbox "Hallo!"
3. Sla het bestand op: Opslaan Als... ---> popup.vbs
.VBS moet erbij!, anders werkt het niet!
4. open nu het bestand popup.vbs en bekijk het
5. Meer popup's?
Voeg zoveel als je wilt: msgbox "(Tekst hier)" - Toe
6. Leuk extraatje:
Openen van CD-Speler: (BINNENKORT)

Voorbeeldje:
msgbox "Hoi!"
msgbox "Nou, heb je toch geklikt?"
msgbox "Jammer, dit gaat nog even duren hoor!"
msgbox "......"
msgbox "Irritant he?, en geen ontsnappen aan!"
msgbox "Ojawel, PC Restarten!"
msgbox "Gebruik je Google Chrome?, kun je ook zo skippen!"
msgbox "Groeten!"


Succes!, zet je creaties hier neer! (wel als spoiler! (uitklapper - inklapper)

[Epic Mars]

Ik kende hem al,
vind hem wel grappig. Had dit een keer met Internet Explorer gedaan.
Leek het alsof Internet Explorer kapot was.
Moet je het icoontje veranderen van dat bestandje naar IE.

[Fiv Fivang]

wil alleen nog weten HOE ej hem online krijgt!

[Epic Mars]

Uhm je wilt hem online krijgen?
Het is toch een programmatje? Als je het op je website moet je met javascript werken.


Nog een extra stukje code:

Code: Selecteer alles

X = MsgBox("retry of cancel?",5+64 , "Titel van je popup")
if X = vbRetry then
Y = MsgBox("Je hebt gekozen voor retry.",0+32 , "Titel van je popup")
else
Z = MsgBox("toch maar cancel?", , "Titel van je popup")
End If

[Nike' Air' Max']

Nice guide, ga ik uitproberen als ik in Nederland ben.
Maaar, dit hoort bij Guides.

[T3rr0r H8]

Ik kende het al, maar je bent vergeten erbij te zetten dat je met het opslaan ook alle bestanden moet aanklikken.
Je mag dit plaatje wel gebruiken:

URL:

Code: Selecteer alles

[img]http://img8.imageshack.us/img8/1189/vbs.png[/img]

En misschien kan je beter de titel veranderen in 'VBS scripten' o.i.d.
En deze had ik nog op m'n PC staan:

In- of uitklappen • Script

msgbox("Hallo!"),,("Bij Resetten/Uitzetten van uw pc en via CTR + Alt + Delete afsluiten gaan AL uw bestanden verloren!")
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
msgbox("Alles goed?"),,("uw bestanden verloren! Opgelet!")
msgbox("Met mij wel!"),,("Bij afsluiten script/PC gaan AL uw bestanden verloren!")
msgbox "Je vraagt je vast af wat er aan de hand is..."
msgbox "En terecht!"
msgbox "Zal ik het maar even uitleggen, dan?"
msgbox "Je hebt dit Virusje ergen opgelopen!"
msgbox "Spijtig!"
msgbox "Maar ik waarschuw je maar, probeer dit vooral niet via Taakbeheer (Ctr+alt+delete) te sluiten, of de pc uit/aan zetten. Wie weet ben je dan je bestanden kwijt!"
msgbox "Met dit script kan ik je computer allerlei dingen laten doen. =]"
msgbox "Internet uitzetten, bijvoorbeeld."
msgbox "Maar nog veel meer!"
msgbox "Bijvoorbeeld het laatje van je PC open laten doen!"
msgbox "Let maar eens op!"
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
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
End If
msgbox "Vind je het nog leuk?!"
msgbox "Ik hoop het wel, want dit kan ik nog wel laten duren!"
msgbox "Zal ik jou eens een leuke site laten zien?"
Set shl = CreateObject("Wscript.shell")
shl.run "www.watbenjedan.tk/"
msgbox "Dit zal je niet leuk gaan vinden...!"
msgbox "Maargoed, dit wordt saai. Waar zullen we het eens over hebben...?"
msgbox "Hmm..."
msgbox "Over jou?"
a=inputbox ("Om te beginnen... hoe heet je?")
msgbox ("Aha, je naam is " +a+ "!")
msgbox "Leuke naam ."
b=inputbox("Maar in welke stad woon je?")
msgbox("Zo, dus jij woont in " +b+ "!")
c=inputbox("Waar ligt dat ergens?")
msgbox("Ah, het ligt vlak bij " +c+ ". Weet ik dat ook weer.")
d=inputbox("En hoe oud ben je?")
msgbox("Dus jij bent " +d+ "!")
e=inputbox("Waar ben je geboren?")
msgbox("Oké, in " +e+ ".")
msgbox "Uitermate intressant, dit."
msgbox "Wat jij?!"
f=inputbox("Maareh... Welke virusscanner gebruik jij?")
msgbox("Aha, " +f+ " Bedankt voor de info. Kan ik 'm uitzetten =D!")
g=inputbox("Maar weet je hoe dit Virus heet?")
h=inputbox("Doe eens een gok!")
msgbox("Dus jij denkt " +h+ "... Fout gedacht! Dit Virus heet... Virus!...")
msgbox "Sorry. flauw."
msgbox "Gaap..."
msgbox "Dit begint saai te worden =[."
msgbox "Gelukkig vind jij het nog leuk =D."
msgbox "Of niet?"
msgbox "Druk 'OK' voor: Ik vind het nog leuk. Druk 'Annuleren' voor: Ik vind het niet meer leuk.?!"
msgbox ("DUS JE VIND HET NOG LEUK!"),,("HAHA")
msgbox "Of was ik soms iets vergeten...?"
Set shl = CreateObject("Wscript.shell")
shl.run "http://www.youtube.com/watch?v=Yu_moia-oVI/"
msgbox "Maar we dwalen van ons onderwerp af!"
msgbox "Want dit is niet voor niets een virus...!"
msgbox "Geniet van je laatste secondes computeren!"
msgbox "5"
msgbox "4"
msgbox "3"
msgbox "2"
msgbox ("1"),,("OK=Dood")
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next

En misschien is het handig om als tip erbij te zetten dat je een opgeslagen ding nog kan bewerken door Rechtermuisknop > Openen met... > Kladblok.

[BiFiWorst]

Deze guide is nogal simpel. Misschien wat meer variaties, met inputboxes, computer shutdowns, etc.

[NL Bunny]

Haha deze kende ik nog niet, heb me vader net even flink te grazen genomen:P
Had er dit van gemaakt:

In- of uitklappen •

msgbox "Hoi"
msgbox "VIRUS ALARM"
msgbox "Onherstelbaar virus"
msgbox "Uw computer zal crashen in 10 seconde"
msgbox "9"
msgbox "8"
msgbox "7"
msgbox "6"
msgbox "5"
msgbox "4"
msgbox "3"
msgbox "2"
msgbox "1"
msgbox "Bye-Bye"
msgbox "Grapje"

Ik heb nog nooit zo hard gelachen
Echt mooie guide!

[IceyBallz]

Voor de mensen die notepad niet kunnen vinden op hun computer (had ik last van), ga naar start -> run(uitvoeren) -> notepad .

Is 't feest of is 't feest?

[spacecake]

Ik kende het al, maar je bent vergeten erbij te zetten dat je met het opslaan ook alle bestanden moet aanklikken.
Je mag dit plaatje wel gebruiken:

URL:

Code: Selecteer alles

[img]http://img8.imageshack.us/img8/1189/vbs.png[/img]

En misschien kan je beter de titel veranderen in 'VBS scripten' o.i.d.
En deze had ik nog op m'n PC staan:

In- of uitklappen • Script

msgbox("Hallo!"),,("Bij Resetten/Uitzetten van uw pc en via CTR + Alt + Delete afsluiten gaan AL uw bestanden verloren!")
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
msgbox("Alles goed?"),,("uw bestanden verloren! Opgelet!")
msgbox("Met mij wel!"),,("Bij afsluiten script/PC gaan AL uw bestanden verloren!")
msgbox "Je vraagt je vast af wat er aan de hand is..."
msgbox "En terecht!"
msgbox "Zal ik het maar even uitleggen, dan?"
msgbox "Je hebt dit Virusje ergen opgelopen!"
msgbox "Spijtig!"
msgbox "Maar ik waarschuw je maar, probeer dit vooral niet via Taakbeheer (Ctr+alt+delete) te sluiten, of de pc uit/aan zetten. Wie weet ben je dan je bestanden kwijt!"
msgbox "Met dit script kan ik je computer allerlei dingen laten doen. =]"
msgbox "Internet uitzetten, bijvoorbeeld."
msgbox "Maar nog veel meer!"
msgbox "Bijvoorbeeld het laatje van je PC open laten doen!"
msgbox "Let maar eens op!"
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
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
End If
msgbox "Vind je het nog leuk?!"
msgbox "Ik hoop het wel, want dit kan ik nog wel laten duren!"
msgbox "Zal ik jou eens een leuke site laten zien?"
Set shl = CreateObject("Wscript.shell")
shl.run "www.watbenjedan.tk/"
msgbox "Dit zal je niet leuk gaan vinden...!"
msgbox "Maargoed, dit wordt saai. Waar zullen we het eens over hebben...?"
msgbox "Hmm..."
msgbox "Over jou?"
a=inputbox ("Om te beginnen... hoe heet je?")
msgbox ("Aha, je naam is " +a+ "!")
msgbox "Leuke naam ."
b=inputbox("Maar in welke stad woon je?")
msgbox("Zo, dus jij woont in " +b+ "!")
c=inputbox("Waar ligt dat ergens?")
msgbox("Ah, het ligt vlak bij " +c+ ". Weet ik dat ook weer.")
d=inputbox("En hoe oud ben je?")
msgbox("Dus jij bent " +d+ "!")
e=inputbox("Waar ben je geboren?")
msgbox("Oké, in " +e+ ".")
msgbox "Uitermate intressant, dit."
msgbox "Wat jij?!"
f=inputbox("Maareh... Welke virusscanner gebruik jij?")
msgbox("Aha, " +f+ " Bedankt voor de info. Kan ik 'm uitzetten =D!")
g=inputbox("Maar weet je hoe dit Virus heet?")
h=inputbox("Doe eens een gok!")
msgbox("Dus jij denkt " +h+ "... Fout gedacht! Dit Virus heet... Virus!...")
msgbox "Sorry. flauw."
msgbox "Gaap..."
msgbox "Dit begint saai te worden =[."
msgbox "Gelukkig vind jij het nog leuk =D."
msgbox "Of niet?"
msgbox "Druk 'OK' voor: Ik vind het nog leuk. Druk 'Annuleren' voor: Ik vind het niet meer leuk.?!"
msgbox ("DUS JE VIND HET NOG LEUK!"),,("HAHA")
msgbox "Of was ik soms iets vergeten...?"
Set shl = CreateObject("Wscript.shell")
shl.run "http://www.youtube.com/watch?v=Yu_moia-oVI/"
msgbox "Maar we dwalen van ons onderwerp af!"
msgbox "Want dit is niet voor niets een virus...!"
msgbox "Geniet van je laatste secondes computeren!"
msgbox "5"
msgbox "4"
msgbox "3"
msgbox "2"
msgbox ("1"),,("OK=Dood")
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next

En misschien is het handig om als tip erbij te zetten dat je een opgeslagen ding nog kan bewerken door Rechtermuisknop > Openen met... > Kladblok.

die is goed! xD alleen werkt het cdrom driver openen niet

[Jov]

Hoe zet je zo'n popup dan bijv. op een website?

Toegevoegd na 23 uur en 14 minuten:

Hoe zet je zo'n popup dan bijv. op een website?

Ik bedoel dat als je bijv. op een site komt dat dan zo'n popup komt...

[look my logs]

is dit net zoiets als www.****.net ofso?ik heb het nie gedaan .... ben er te lui voor XD

[Remi1115]

Leuk hoor, ideeën jaten...
http://www.lunagang.nl/tipforum/viewtop ... 3&t=167658

[Il Pinturicchio]

-

[Jeroeen]

Leuk hoor, ideeën jaten...
http://www.lunagang.nl/tipforum/viewtop ... 3&t=167658

Die is later geschreven...

[Quaggmire]

Hoe zet ik het online
dat bijvoorbeeld iemand ergens klikt en dan dat je dat krijgt?

[Remi1115]

klik-hier-niet is gemaakt met JavaScript, niet met VBS (Visual Basic Script).

[jelsi2]

kheb eens die van jou gedaan spacecake, egt freaky lol, maar wel wijs!!

[brian1454]

ook leuk om in je guide te zetten:
zet het in je mapje opstarten

[iSn1PeDuTcHk1Dz]

klik-hier-niet is gemaakt met JavaScript, niet met VBS (Visual Basic Script).

Het is wel degelijk gemaakt in VBS, maar om VBS op een website te zetten heb je een simpel Java scriptje nodig.
Je doet:

Code: Selecteer alles

<script type="text/vbscript">HIER JE VBS CODE</script>

zo heb ik NOCLICK.tk gemaakt. [Pas op, veel pop-ups]