VBScripting, een (nep)virus maken

[imRobert7]

VBScripting, een (nep)virus maken

Voorwoord
Hallo mensen. Je krijgt misschien soms een pop-up dat je iets niet kan starten of als je iets met Word hebt gedaan en je gaat zonder te saven weg dan vraagt Word of je je document wil opslaan of niet of je wilt doorgaan. Dat ga ik jullie in deze guide uitleggen. Ik heb alleen een Engelse computer dus je zult dingen in het Engels zien staan.

Inleiding
Deze guide gaat dus over het maken van pop-up. Het is erg makkelijk en als je denkt: oh nee, dat is toch lastig?! Dan heb je ongelijk. Het is erg leuk en je kan er zelf bepalen wat je er in zet.

Inhoud
1.Basis
2. Icoontjes
3a. Vragen stellen
3b. Ja/Nee vragen stellen
4. Grappige codes


1.Basis
Je hoeft helemaal niks te installeren(!). Je hoeft alleen maar kladblok te hebben .
Open kladblok en typ dit: msgbox "test test test"

Save het bestand zoals je wilt, ik doe het met test test test. Save het bestand op DESKTOP!!
En let op! Save het als ALLE BESTANDEN en na test test test MOET je .VBS doen.
Dan krijg je een nieuw icoontje op je bureaublad. Die moet je hebben, als je daar op klikt, krijg je dit:


Dus dat is de basis. Je kan test test test veranderen in een ander woord en nog veel meer zinnen er onder zetten. Maar je moet niet dubbelklik op het icoontje klikken om op kladblok te komen, maar zo:

Dus eerst rechtermuisknop op het icoontje, dan open with en daarna notepad.


2. Icoontjes
Typ dit is in je kladblok: msgbox “test test test”, 16, “Waarschuwing”
Save het en open het, dan krijg je dit te zien:

De 16 staat voor dat rode rondje met wit kruis erin. Je hebt ook andere cijfers voor zoiets.
0. niks
16. rood rondje met wit kruis
32. vraagteken
48. geel driehoek met zwart uitroepteken
68. praatwolkje met i
4096. blijft op de voorgrond staan


3a. Vragen Stellen
Je kan ook vragen stellen met VBScripting. Dit is de code daarvoor:

Code: Selecteer alles

a=inputbox("Wat is je hobby?")
msgbox "Jij hebt een stomme hobby! je hobby is:"+a

3b. Ja/nee vraag stellen
Een ja/nee vraag stellen is dat je een vraag stelt en dat je ja of nee kan antwoorden, en dat als je op ja klikt bijv. krijgt: Domkop! Zou ik nooit doen. En als je op nee klikt dat je dan krijgt: Dat zou ik ook niet doen. Dit is de code daarvoor(met dezelfde antwoorden):

Code: Selecteer alles

if msgBox("zou jij je computer kapotslaan als hij sloom doet?", vbYesNo, "vraag") = vbYes then
msgbox "Domkop! Zou ik nooit doen."
else
msgbox "Dat zou ik ook niet doen."
end if

Je kan ook natuurlijk de vraag en antwoorden veranderen. Dan is het voor jezelf leuker om het te doen


4. Grappige codes

Je hebt ook naast de gewone codes die tekst laten zien, ook codes die iets openen, wijzigen, of iets laten horen. Dit zijn de codes die ik op internet gevonden heb.
Cdlaatje open/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

Raar piepje uit systeemkast laten komen
Het lijkt misschien schadelijk, maar dat is niet zo!

Code: Selecteer alles

Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True

Windows tovernaar
Windows tovenaar is vrijwel onbekend, dus je moet met VBScripting ervaren zijn om het te kennen(voor deze guide:P).

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

“Hello, I’m a big fat wizard” Kan je eventueel veranderen in iets anderen

Computer uitzetten

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

Engels spreker

Code: Selecteer alles

Set vo = CreateObject("SAPI.SpVoice")
vo.speak "Hello"

Hello kan je veranderen in een ander Engels word

Iets oneidig laten herhalen

Code: Selecteer alles

do 
msgbox"dit bericht komt steeds weer" 
loop

Iemands MSN naam veranderen

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..)"

De MSN naam kan je natuurlijk aanpassen naar wat je wilt.

Startpagina van je browser veranderen

Code: Selecteer alles

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

Site kan je natuurlijk veranderen


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","blablabla"

Computer tijd laten weergeven(etc.)

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

Eeuwig Capslichtje aan/uit laten gaan

Code: Selecteer alles

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

Je moet het alleen openen op eigen risico.
Je moet het volgende doen om het te sluiten:
1. Open taakbeheer(ctrl-alt-delete)
2. Dan naar processen
3. En dan alle processen met wscript.exe
PAS OP: kijk goed uit dat je niet andere processen verwijdert, dan sluit je andere programma’s mee.
Tip: zet het scriptje op een USB, zet het op de computer van je zus(je)/broer(tje) en open het, haal de USB weg. Als je zus/broer binnenkomt en ze merkt het. Kom naar binnen en vraag wat ze zit te doen met het capslichtje. Als ze zegt dat ze het niet weet, haal je vader/moeder erbij die veel van computers af weet. Die weten zeker niet dat jij het hebt gedaan. Dan gaan ze het proberen weg te halen en intussen zit jij -AHEM- zogenaamd heel hard na te denken hoe je dat weg kan halen, dan weet je het Opeens en dan sluit je de processen en dan hang je de held uit!

Oneindig enter in laten drukken
Pas op: Openen op eigen Risico!! Kan schadelijk zijn voor de pc.

Code: Selecteer alles

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop

Dit keer moet je de pc aflsuiten om er van af te komen.



Oneindig backspace in laten drukken

Code: Selecteer alles

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

Moet je ook pc afsluiten of de stappen van het oneindig het capslichtje aan/uit laten gaan.

Site openen

Code: Selecteer alles

Set shl = CreateObject("Wscript.shell")
shl.run http://www.google.nl/

Een tip: doe dit vaak achter elkaar.

In- of uitklappen • Openen op eigen risico! Kan niet zo makkelijk weer terug te draaien zijn!

Taakbalk laten verdwijnen

Code: Selecteer alles

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

In- of uitklappen • Openen op eigen risico! Kan niet zo makkelijk weer terug te draaien zijn!

Icoontjes van taakbalk laten verdwijnen

Code: Selecteer alles

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

Kladblok laten openen en iets 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!"

[color=#FF8000]Geen menu bij rechtermuisknop[/color]
[code]Set shl = CreateObject("Wscript.shell")
Shl.RegWrite

"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu","1"[/code]

Gift van Denikids:

Een oneindig aantal piepjes uit systeemkast laten komen:

Code: Selecteer alles

do
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
loop

Nawoord
Ik vond het leuk om de guide te maken. Ik hoop dat jullie er van genoten en geef reactie’s en rate or hate!

Copyrights: Niets uit deze guide mag gekopieerd worden zonder toestemming van de auteur, wil je dat toch, neem dan contact op via pb. Alle rechten voorbehouden

[thijs-1-2-3]

mooie guide :p
ik krijg alleen dat icoontje niet + waar moet je VBS typen ?
8/10

+ support :p

[imRobert7]

mooie guide :p
ik krijg alleen dat icoontje niet + waar moet je VBS typen ?
8/10

+ support :p

Hier een plaatje:

Ik heb alleen in plekje weggelaten omdat dat nogal prive is
~Luc Dood Nek~

[thijs-1-2-3]

oke bedankt even testen

Toegevoegd na 4 minuten:

kan ik dit dan ook naar iemand anders sturen ?

[iNiek]

beetje erg rip van mijn guide?
http://www.lunagang.nl/tipforum/viewtop ... 3&t=167658

bij al die codes onderin de guide heb je gewoon gekopieerd en dan ander tekstje eronder gezet, maar bij sommige zelfs laten staan..

[fatjoe]

als je wilt kan ik je ook echte virussen leren maar daar heb je een aantal programmas voor nodig en wat ( veel ) kennis over computer.

je kan ook codes zoals ep400/cq gebruiken , als je dat doorsuurt zal de persoon die het opend per keer dat dit tussen de code staat 4000 keer zijn internet openen ( hier voor heb je een zeer grote en moeilijke code voor nodig maar dat ga ik je niet leren want dit zijn all kleine virussen)

Toegevoegd na 2 minuten:

het feit is dat jullie beginner hackers zijn en dat jullie het gewoon van het internet hebben want ik denk niet dat jullie die code zelf hebben geschreven want voor 1 code heb je toch al een tijdje nodig hoor. ( kleine script)

[Yves W]

als je wilt kan ik je ook echte virussen leren maar daar heb je een aantal programmas voor nodig en wat ( veel ) kennis over computer.

je kan ook codes zoals ep400/cq gebruiken , als je dat doorsuurt zal de persoon die het opend per keer dat dit tussen de code staat 4000 keer zijn internet openen ( hier voor heb je een zeer grote en moeilijke code voor nodig maar dat ga ik je niet leren want dit zijn all kleine virussen)

Toegevoegd na 2 minuten:

het feit is dat jullie beginner hackers zijn en dat jullie het gewoon van het internet hebben want ik denk niet dat jullie die code zelf hebben geschreven want voor 1 code heb je toch al een tijdje nodig hoor. ( kleine script)

Rofl?
Coden is echt niet moeilijk hoor, ik kan bijv. redelijk goed java coden =x.

[fatjoe]

serieus denk je nu echt dat die hier allebei aan hebben werken, heb je ooit eens een rs / wow script geschreven ?

[imRobert7]

beetje erg rip van mijn guide?
http://www.lunagang.nl/tipforum/viewtop ... 3&t=167658

bij al die codes onderin de guide heb je gewoon gekopieerd en dan ander tekstje eronder gezet, maar bij sommige zelfs laten staan..

wist niet eens dat jij een guide had en dat jij op Lunatip was geregistreerd, en dan heb ik die codes van internet en van mijn vader, want die werkt zelf met pc's
~Luc Dood Nek~

[fatjoe]

zie die codes vind je overall

[imRobert7]

daarom, dus het kan best dat ik hetzelfde heb getypt, wil niet zeggen dat ik kopieeër.
~Luc Dood Nek~

[Chris]

Deze codes zijn inderdaad het zelfde maar daarmee betekent het nog niet dat hij ze geript heeft.

[iNiek]

oke, oke

maar je guide is wel nice 8/10

[fatjoe]

die codes vind men veel op internet dus er is geen bewijs da hij het heeft gestolen

[imRobert7]

oke bedankt even testen

Toegevoegd na 4 minuten:

kan ik dit dan ook naar iemand anders sturen ?

Ik heb het ooit geprobeerd naar mijn vader, met MSN. Maar dan zegt ie dat er virussen in kunnen zitten. Daar is MSN de fout in gegaan omdat te laten toestaan, nu kan dat niet meer
~Luc Dood Nek~

[fatjoe]

je kan dit soort script door sturen , maar dan moet je het wel aanpassen. Je kan wel "shut down" koppeling op de computer van je zus zetten / broer om hem te pesten. Je geef de shutdown koppeling het icoontje van messenger / internet explorer en zet het op het tablad maar je verwijdert de echte internet explorer. Dus als je broer / zus op internet klick komt er een tekst ( kan je zelf verzinnen ) en komt er de over hoeveel minuten de computer afsluit ( als je onder 1 minuut neemt komt er dan :" sluit af in minder dan 1 minuut").

[Veloxraptor]

Veel stukken tekst zijn ook hetzelfde... beetje vreemd. Maar wel een leuke guide om iemand eens te foppen

[imRobert7]

waarom komen er opeens geen reactie's meer binnen?
~Luc Dood Nek~

[De beste 95]

sorry hoor, maar ik vind het wel echt hetzelfde als die andere guide. de opstelling enzo, zelfde soort codes
dan kan je wel zeggend at je het van internet hebt, maar dan kan eht zijn dat jullie gewoon allebij het precies hebben overgenomen van een andere site dus nog steeds een rip... ik geef dit niet echt een kans
en fatjoe, je kan ook overdrijven. je moet de codes een beetje begrijpen en een beetje code schrijven is dan niet zo moeilijk (niet hierop gaan flamen dat ik er geen verstand van heb etc, ik heb echt wel verstand van die dingen )

[Yves W]

3/4 ript het eigenlijk wel, gewoon omdat ze te lui zijn om het te snappen.
Maar .bat en .ahk zijn inderdaad heel simpel.