VBScripting~~~ /\ 1600 looks 100 reacties!~~

Hier staan alle guides die niets met RuneScape te maken hebben.
Forumregels
Wil je zelf een guide schrijven? Kijk dan hier!
Gebruikersavatar
iNiek
Berichten: 720
Lid geworden op: zaterdag 18 april 2009, 14:16
Oude naam: P1nkp0pp3R

VBScripting~~~ /\ 1600 looks 100 reacties!~~

Bericht door iNiek »

Afbeelding
MSGBOX (Nep)virus guide

Inlading
Ik ga jullie uitleggen hoe je met Notepad/kladblok een zelfgemaakt virus kan maken. De basis is zeer makkelijk dus haak niet gelijk af :tssk:

De basis
-open Notepad/kladblok. (Start-> Uitvoeren -> notepad)
Afbeelding

-typ: msgbox "test"
Afbeelding

-Sla het bestand op als: "test.vbs", als alle bestanden en op je bureaublad
Afbeelding

Op je bureaublad zal nu een soort wit groen icoontje komen te staan met de titel "test"

-open het bestand en je zult dit krijgen:
Afbeelding
Zo nu weet je wat de basis is. Je kunt behalve dit: "msgbox "test" " nog meer regels er onder zetten.
-Bewerk het bestand op je bureaublad
-typ nog meer tekst, bv:

msgbox "hoi"
msgbox "dit is een virus"
msgbox "vind je het leuk?"
msgbox "Mag ik je computer afsluiten?" (scroll omlaag)
msgbox "Of je cd laatje openen? (scroll omlaag)
msgbox "Nouja dan doe ik het niet!

Geavanceerdere pop-ups (met icoontjes)
-Typ in je kladblok dit: MsgBox "Test", 48, "Virus"
-open het weer en je krijgt dit te zien:
Afbeelding
-"test" kun je veranderen in je eigen tekst bv: "LET OP VIRUS ALERT!!"
-"Virus" is de titel, die kun je veranderen bv "Dangerous here!?"
-het getal (48 hier) dient voor het icoontje, dit kun je veranderen:

0 = niks
16= rode cirkel met kruis
32= vraagteken
48= het uitroepteken ^
68= uitroepteken
4096= het venster blijft op voorgrond
Afbeelding

Een vraag stellen
Om een vraag te stellen heb je ook een code nodig.

Code: Selecteer alles

a=inputbox("Welke kleur is je haar?")
msgbox "Jij hebt een rare kleur haar! je kleur haar is:"+a 
als je dit in notepad plakt en het weer opslaat en gewoon weer opent dan zal er dit komen:
Afbeelding

Als je rood in typt slaat het script dit zeg maar op en zegt er iets over bv:
Afbeelding

Een ja/nee vraag stellen
Dit is gewoon het ja/nee systeem. Als je op nee drukt zal er iets anders gebeuren dan wanneer je op ja drukt :shock:
kopieer deze code:

Code: Selecteer alles

if msgBox("Wil je dat ik je pc afsluit?", vbYesNo, "vraag") = vbYes then
msgbox "WTF, dat is schadelijk hoor"
else
msgbox "Ik had echt niet anders gedacht hoor:P!"
end if 
Sla het zoals gewoonlijk weer op en je zult dit krijgen:
Afbeelding

-Je kunt natuurlijk de vraag: "Wil je dat ik je pc afsluit?" aanpassen
-Je kunt de antwoorden aanpassen ("WTF, dat is schadelijk hoor" , "Ik had echt niet anders gedacht")

(Schade)leuke codes

Er zijn codes die geen tekst laten zien, maar iets openen of iets wijzigen, etc.

Cd laatje open en dicht

Code: Selecteer alles

Dim oWMP
Dim colCDROMs, i
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
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
oWMP.close
Set colCDROMs = Nothing
Set oWMP = Nothing
De meeste mensen hebben een andere code hiervoor maar deze werkt ook!

Computer afsluiten

Code: Selecteer alles

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

Een heel raar piepje uit je systeemkast laten komen

Let op dit is niet schadelijk, al lijkt het dat wel!

Code: Selecteer alles

Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
Tip: doe dit heel veel achter mekaar en laat iemand schrikken!

Engels spreker

Code: Selecteer alles

Set vo = CreateObject("SAPI.SpVoice")
vo.speak "Hello"
""hello"" kun je veranderen in een ander engels woord

Windows tovenaar!!?
deze meneer kennen vele van jullie nog niet.

Code: Selecteer alles

On Error Resume Next
StrAgentName2 = "MERLIN"
StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"
Set objAgent2 = CreateObject("Agent.Control.2")
ObjAgent2.Connected = TRUE
ObjAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)
ObjPeter.MoveTo 700,300
ObjPeter.Show
ObjPeter.Play "GetAttention"
ObjPeter.Play "GetAttentionReturn"
ObjPeter.Speak("Hello, I'm a big fat wizard")
wscript.sleep 10000
Afbeelding

""Hello, i'm a big fat wizard"" kun je natuurlijk aanpassen

Iemands msn naam veranderen

Laat iemand dit openen en zijn msn naam wordt aangepast. JIJ KAN DIT DUS NIET DOEN VANAF JE EIGEN COMPUTER.

Code: Selecteer alles

Set WshShell = CreateObject("Wscript.shell") 
WshShell.Run ("msnmsgr.exe") 
Wscript.Sleep 1200 
WshShell.sendkeys "%x" 
WshShell.sendkeys "O" 
WshShell.sendkeys "(Msn Naam..)"
-Dat ""msn naam"" pas je aan zoals je wilt!!
-Je moet aangemeld zijn

LET OP!!
Werkt niet altijd :?

iets oneindig herhalen

Code: Selecteer alles

do 
msgbox"dit bericht komt steeds weer" 
loop 
startpagina veranderen van je browser

Code: Selecteer alles

Set shl = CreateObject("Wscript.shell") 
Shl.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainStart Page","http://warezheaven.nl"

naam van internet explorer veranderen

Code: Selecteer alles

Set shl = CreateObject("Wscript.shell") 
Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","de naam" 
De computer de tijd weer laten geven
je computer kan ook de tijd zeggen:

Code: Selecteer alles

msgbox"het is:," & now & ",toch?"
Je kunt "now" aanpassen:
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

oneindig het caps lock lichtje uit en aan laten gaan

Code: Selecteer alles

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
-openen op eigen risico
-om te stoppen volg de volgende stappen:
1. ga naar taakbeheer
2. dan naar processen
3. delete alles met wscript.exe PAS OP als je andere processen verwijdert kunnen programma's afsluiten

oneindig de enter in laten drukken

Code: Selecteer alles

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
- hier kom je niet vanaf, tenzij je de pc afsluit


oneindig de backspace in laten drukken

Code: Selecteer alles

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop

een weppagina openen

Code: Selecteer alles

Set shl = CreateObject("Wscript.shell")
shl.run "www.google.nl/"
tip: doe dit heel veel achter mekaar, maar niet van die vieze site's hè kindertjes.. :P

taakbalk laten verdwijnen

Code: Selecteer alles

Set shl = CreateObject("Wscript.shell") 
Shl.RegWrite 

"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSetTaskbar","1"
icoontjes van je bureaublad laten verdwijnen

Code: Selecteer alles

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

kladblok automatisch laten openen en iets laten typen

Code: Selecteer alles

  Set WshShell = WScript.CreateObject ("WScript.Shell")
      WshShell.Run ("notepad.exe")
      WScript.Sleep 1000
      WshShell.SendKeys "O"
      WScript.Sleep 500
      WshShell.SendKeys "M"
      WScript.Sleep 500
      WshShell.SendKeys "G{enter}"
      WScript.Sleep 1000
      WshShell.SendKeys "Ik "
      WScript.Sleep 200
      WshShell.SendKeys "own "
      WScript.Sleep 150
      WshShell.SendKeys "je!"
Je kan natuurlijk de tekst aanpassen


geen menu onder je rechtermuisknop meer zien

Code: Selecteer alles

Set shl = CreateObject("Wscript.shell")
Shl.RegWrite

"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu","1"
Laatst gewijzigd door iNiek op zondag 17 januari 2010, 9:41, 17 keer totaal gewijzigd.
Daan
Bouillonblokje
Berichten: 40330
Lid geworden op: zaterdag 18 april 2009, 17:26

Re: Nep virus maken met Kladblok! (nieuw)

Bericht door Daan »

Mag dit.
GoldenZerk
Berichten: 1274
Lid geworden op: donderdag 18 juni 2009, 20:18
Clan: Black Plague

Re: Nep virus maken met Kladblok! (nieuw)

Bericht door GoldenZerk »

Dfm555 schreef:Mag dit.
Nepvirus

Gl met afmaken als ie af is ga ik gebruiken
Afbeelding
rikvdb2
Berichten: 1371
Lid geworden op: vrijdag 27 februari 2009, 15:10
RS: Gestopt

Re: Nep virus maken met Kladblok! (nieuw)

Bericht door rikvdb2 »

nice, 8/10, al zie ik niet wat dit met een virus te maken heeft :P
hagemar
Berichten: 565
Lid geworden op: zaterdag 14 februari 2009, 19:29

Re: Nep virus maken met Kladblok! (nieuw)

Bericht door hagemar »

mooie guide ik ehb het zelf ook geprobeerd maar dan zegt de compuet dat het niet goed is als ik hyet open kan jij eve kijken:
msgbox "Warning.''
msgbox "Dit is het virusscanning programma.''
msgbox "Om je computer te beveiligen,zult u uw computer moeten uitschakelen.''
msgbox "Warning", 48, "Virus"
msgbox "Einde bericht''
Weesol
Berichten: 98
Lid geworden op: woensdag 2 juli 2008, 19:30
Clan: DRSF

Re: Nep virus maken met Kladblok! (nieuw)

Bericht door Weesol »

geniaal, 10/10 ';)
Afbeelding
AfbeeldingAfbeelding
brian1454
Berichten: 3087
Lid geworden op: vrijdag 31 augustus 2007, 21:05
Clan: -

Re: Nep virus maken met Kladblok! (nieuw)

Bericht door brian1454 »

haha hele leuke guide, heel gemakkelijk te doen 10/10! :D

msgbox "A virus has been detected on your computer.",16,"Warning!"
msgbox "Please restart your computer in BIOS-LDR",16,"Warning!"
msgbox "Your computer will now shutdown",16,"Warning!"

en dat dan 30x copy-pasten, ff bij mn zus uitproberen xD
Gebruikersavatar
iNiek
Berichten: 720
Lid geworden op: zaterdag 18 april 2009, 14:16
Oude naam: P1nkp0pp3R

Re: Nep virus maken met Kladblok! (nieuw)

Bericht door iNiek »

hagemar schreef:mooie guide ik ehb het zelf ook geprobeerd maar dan zegt de compuet dat het niet goed is als ik hyet open kan jij eve kijken:
msgbox "Warning.''
msgbox "Dit is het virusscanning programma.''
msgbox "Om je computer te beveiligen,zult u uw computer moeten uitschakelen.''
msgbox "Warning", 48, "Virus"
msgbox "Einde bericht''
Misschien ligt het aan de punten in je zinnen, maar dat denk ik niet
wat voor foutmelding krijg je?

Toegevoegd na 2 minuten:
Dfm555 schreef:Mag dit.
Dit is zeker niet illegaal,
Je maakt met kladblok een soort pop up
Als je vervelend wil zijn stuur je het door naar je vrienden, maar hotmail beschouwd zo'n vbs bestand verdacht
Het is gewoon voor eigen gebruik leuk! :bier:
T3rr0r H8
Berichten: 459
Lid geworden op: zaterdag 11 april 2009, 17:58
Clan: ...

Re: Nep virus maken met Kladblok! (nieuw)

Bericht door T3rr0r H8 »

Hier zijn al best veel guides overgeweest...
Ik weet niet hoever je het wilt gaan uitbreiden, maar zolang het niet wordt dat hij bijv. de C schijf wist, uitschakelt en dat alles in de opstart volgorde van Windows zet, is het nog niet echt een virus :-$ .
Maar gl met afmaken. (Als je wilt kan ik je miss wel helpen, pb maar als je hulp nodig heb.)
Oja, je kan er misschien nog even bij zetten dat dit VBS of VB Script(ing) heet.
Laatst gewijzigd door T3rr0r H8 op zondag 29 november 2009, 8:24, 1 keer totaal gewijzigd.
Joiper
Berichten: 634
Lid geworden op: woensdag 21 oktober 2009, 20:54

Re: Nep virus maken met Kladblok! (nieuw)

Bericht door Joiper »

Even voor onderons :P Je kan Enter gebruiken / Alt + F4 / Esc dacht ik ook.

Enter niet zo handig, want dan start je die progamma weer op ](*,)
Alt +F4 verwijderd het progamma als je ook nog op het laatste enter bij doet.
Dus esc is denk ik volgens mij het beste om als je een lange pop up hebt.

'Weg te laten gaan' :bier:
Gebruikersavatar
iNiek
Berichten: 720
Lid geworden op: zaterdag 18 april 2009, 14:16
Oude naam: P1nkp0pp3R

Re: Nep virus maken met Kladblok! (nieuw)

Bericht door iNiek »

T3rr0r H8 schreef:Hier zijn al best veel guides overgeweest...
Ik weet niet hoever je het wilt gaan uitbreiden, maar zolang het niet wordt dat hij bijv. de C schijf wist, uitschakelt en dat alles in de opstart volgorde van Windows zet, is het nog niet echt een virus :-$ .
Maar gl met afmaken. (Als je wilt kan ik je miss wel helpen, pb maar als je hulp nodig heb.)
Oja, je kan er misschien nog even bij zetten dat dit VBS of VB Script(ing) heet.
Het is ook een nep virus :P
kafder2
Berichten: 273
Lid geworden op: vrijdag 24 juli 2009, 20:03

Re: Nep virus maken met Kladblok! (nieuw)

Bericht door kafder2 »

Oxy schreef:Niet echt een virus of iets in de buurt maar
Het is wel heel leuk :F

Deed zulke dingetjes altijd met een .bat file
En dan een icoon veranderen

(kan alleen als je toegang hebt tot computer)

Dan krijg je zoiets:

Afbeelding

xo, sites bestaan mogelijk niet.
ik weet nie tof je het weet maar fun.nl si een *ahum* site
Ppvloo7
Berichten: 317
Lid geworden op: zaterdag 22 november 2008, 11:07
Clan: Fun United
Contacteer:

Re: Nep virus maken met Kladblok! (nieuw)

Bericht door Ppvloo7 »

VB script is gewoon toegestaan hoor ;)
Helaas hebben ze bij ons op school die geblockt >.<
Maar verder een nice guide! 9/10!
Afbeelding
guus197
Berichten: 198
Lid geworden op: maandag 29 december 2008, 13:57

Re: Nep virus maken met Kladblok! (nieuw)

Bericht door guus197 »

ik zie ook niet wat dit met een virus te maken heeft. [-(
Afbeelding
SiM0`
Berichten: 6432
Lid geworden op: zaterdag 3 november 2007, 10:35
Contacteer:

Re: Nep virus maken met Kladblok! (nieuw)

Bericht door SiM0` »

Dit is grappig maar jammer genoeg houd mijn antivirus zulke dingen tegen. Dus ik moet eerst mijn virusscanner afzetten voordat het werkt, en dat is niet zo veilig. xD
Afbeelding
Soro
Berichten: 841
Lid geworden op: vrijdag 27 juni 2008, 11:24
RS: Aphelian (p2p)
Oude naam: Soro G

Re: Nep virus maken met Kladblok! (nieuw)

Bericht door Soro »

Geweldig! 9/10, omdattie nog niet helemaal af is, maar als je zo'n ja/nee vraag instelt is het volgende blokje ja of nee maar kun je dan ook weer nieuwe vragen stellen?
!~! Mankind is evil, The Pope, 1412 !~!

!~! Biggest b*llshit I ever heard, Soro, 2010 !~!
Gebruikersavatar
iNiek
Berichten: 720
Lid geworden op: zaterdag 18 april 2009, 14:16
Oude naam: P1nkp0pp3R

Re: Nep virus maken met Kladblok! (nieuw)

Bericht door iNiek »

Soro schreef:Geweldig! 9/10, omdattie nog niet helemaal af is, maar als je zo'n ja/nee vraag instelt is het volgende blokje ja of nee maar kun je dan ook weer nieuwe vragen stellen?
Ik ben er nog niet achter hoe het moet..
zoek is op google:
-msgbox script maken

-vbscript maken

-nepvirus maken
rikvdb2
Berichten: 1371
Lid geworden op: vrijdag 27 februari 2009, 15:10
RS: Gestopt

Re: Nep virus maken met Kladblok! (nieuw)

Bericht door rikvdb2 »

je kan ook de cd lade open doen :P

Code: Selecteer alles

 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 ' cdrom
End If
[/s]
soz heb je al #-o
Laatst gewijzigd door rikvdb2 op zondag 29 november 2009, 14:52, 1 keer totaal gewijzigd.
Gebruikersavatar
iNiek
Berichten: 720
Lid geworden op: zaterdag 18 april 2009, 14:16
Oude naam: P1nkp0pp3R

Re: Nep virus maken met Kladblok! (nieuw)

Bericht door iNiek »

Wie weet nog wat leuks wat ik er bij zou kunnen doen?
nikodinho
The-0wner
Berichten: 1494
Lid geworden op: zaterdag 27 juni 2009, 14:53

Re: Nep virus maken met Kladblok! (nieuw)

Bericht door The-0wner »

toch wat anders dan gedacht maar niet echt nieuw.. 6/10
Afbeelding
99 flechting since 07-02-12
Plaats reactie