Hallo,
Vandaag leer ik je kennismaken met VBS, VBS staat voor Visual Basic Script. Dit is een codetaal waarmee bijvoorbeeld de i love you virus is geschreven. Ook wordt VBS gebruikt door programmeurs.
Maar we zijn hier natuurlijk om dingen te leren, namelijk VBS.
Uitleg
Open kladblok, plak daar alle vbs codes en sla het op als bestand.vbs, daarna kun je het openen maar pas op, er kunnen ook vervelende dingen voor je computer gebeuren, zoals je C: schijf wordt gewist.
Basis
De basis, in een schermpje wat tekst laten weergeven is erg gemakkelijk, we doen dat met de volgende code:
Dit zal de tekst Mijn eerste VBS script laten zien. Maar met VBS kunnen we natuurlijk nog veel meer.
We kunnen ook antwoord mogelijkheden maken, en dat gaan we nu precies doen, neem de volgende code over:
Als allereerst zal er een invulvak verschijnen met Wat is je naam, vervolgens vul jij je naam in en komt er een bericht: Zo kun je je kind toch echt niet noemen zeg.. Trouwens dag [INGEVULDENAAM]. Dat betekent dat "+a de informatie laat verschijnen uit invulvakken.
Met VBS is het ook mogelijk om bestanden aan te laten maken. Zelfs met tekst en al erin, zullen we het even proberen?
Bij de code: Set a = fs.CreateTextFile("C:vbslerenl.txt") kunnen we het doelpad neerzetten, in dit geval zal ons text bestand in C:vbslerenl.txt te komen staan, en daarin zul je deze tekst zien: Ook leuk dat je een tutorial leest van iemand op one2xs, heel erg schattig.
Maar we kunnen nog meer, we kunnen zelfs gehele computers afsluiten:
Deze code sluit een computer af, probeer maar eens.
Heb je ook een hekel aan Internet Explorer? Dan kun je de naam van internet explorer veranderen via deze code:
In mijn geval zal dit script de naam van IE veranderen naar Hatelijke Internet Explorer, en ja hoor het werkt.
Je kunt ook je startpagina van internet veranderen door deze code te gebruiken:
Mijn startpagina is nu one2xs.com!
Je kunt ook je CD rom dingen openen door deze code te gebruiken:
Je kunt ook je muis blokkeren:
Beter probeer je dit zelf niet!
Je kunt ook je toetsenbord blokkeren:
Binnenkort meer!
Coding@ under_rap
Text and more @ Rick (Ezeltje)
Vandaag leer ik je kennismaken met VBS, VBS staat voor Visual Basic Script. Dit is een codetaal waarmee bijvoorbeeld de i love you virus is geschreven. Ook wordt VBS gebruikt door programmeurs.
Maar we zijn hier natuurlijk om dingen te leren, namelijk VBS.
Uitleg
Open kladblok, plak daar alle vbs codes en sla het op als bestand.vbs, daarna kun je het openen maar pas op, er kunnen ook vervelende dingen voor je computer gebeuren, zoals je C: schijf wordt gewist.
Basis
De basis, in een schermpje wat tekst laten weergeven is erg gemakkelijk, we doen dat met de volgende code:
msgbox"Mijn eerste VBS script"Dit zal de tekst Mijn eerste VBS script laten zien. Maar met VBS kunnen we natuurlijk nog veel meer.
We kunnen ook antwoord mogelijkheden maken, en dat gaan we nu precies doen, neem de volgende code over:
a=inputbox("Wat is je naam?")
msgbox "Zo kun je je kind toch echt niet noemen zeg.. Trouwens dag "+aAls allereerst zal er een invulvak verschijnen met Wat is je naam, vervolgens vul jij je naam in en komt er een bericht: Zo kun je je kind toch echt niet noemen zeg.. Trouwens dag [INGEVULDENAAM]. Dat betekent dat "+a de informatie laat verschijnen uit invulvakken.
Met VBS is het ook mogelijk om bestanden aan te laten maken. Zelfs met tekst en al erin, zullen we het even proberen?
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("C:vbslerenl.txt")
a.WriteLine ("Ook leuk dat je een tutorial leest van iemand op one2xs, heel erg schattig.")
a.CloseBij de code: Set a = fs.CreateTextFile("C:vbslerenl.txt") kunnen we het doelpad neerzetten, in dit geval zal ons text bestand in C:vbslerenl.txt te komen staan, en daarin zul je deze tekst zien: Ook leuk dat je een tutorial leest van iemand op one2xs, heel erg schattig.
Maar we kunnen nog meer, we kunnen zelfs gehele computers afsluiten:
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
nextDeze code sluit een computer af, probeer maar eens.
Heb je ook een hekel aan Internet Explorer? Dan kun je de naam van internet explorer veranderen via deze code:
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainWindow Title","Hatelijke Internet Explorer"In mijn geval zal dit script de naam van IE veranderen naar Hatelijke Internet Explorer, en ja hoor het werkt.
Je kunt ook je startpagina van internet veranderen door deze code te gebruiken:
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainStart Page","http://one2xs.com"Mijn startpagina is nu one2xs.com!
Je kunt ook je CD rom dingen openen door deze code te gebruiken:
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 IfJe kunt ook je muis blokkeren:
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunDisableMouse", "Rundll32.exe Mouse,Disable"Beter probeer je dit zelf niet!
Je kunt ook je toetsenbord blokkeren:
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunDisableKeyboard", "Rundll32.exe Keyboard,DisableBinnenkort meer!
Coding@ under_rap
Text and more @ Rick (Ezeltje)
)
,
,
.
