Home of the Buggenum City Crew

Dit VBS tutje heb ik gevonde op internet.

wat is vbs??
vbs is een script naam. met vbs kun je opdrachten aan je pc geven. er zijn heel veel verschillenden soorten scripten .

hoe maak je vbs??
je kan het uittypen in kladblok of in een ander programma. maar voor de beginner kun je het beste kladblok gebruiken. ik grebruik Notepad++ 2(http://sourceforge.net/projects/notepad-plus/''om te downloaden'')

nu maken we een begin met vbs

Open een kladblokje(of notepad) type in dit kladblokje:

msgbox"je text"

dat moet toch lukken he?

oke sla dit bestand op als hallo.vbs
LET OP ALS JE HET OPSLAAT MOET JE KIEZEN ALLE BESTANDEN!!

open hem nu en TADA!!!!!!!!

oke nu gaan we er een titeltje aan toevoegen
je moet typen(je typt dit weer in kladblok):
msgbox"hier je text",0,"titel"
sla dit op als berichtje.vbs
nu staat er een titel boven

wat weten we nu:

msgbox=messengerbox
,0,=van text overschakelen naar titel

oke we gaan verder
nu een vraag we nemen de vraag "wat is jouw naam?"
je typt:
a=inputbox("Wat is jouw naam?")
msgbox"jouw naam is dus:"+a

sla dit op als watisjouwnaam.vbs

wat weten we nu:
inputbox= zo'n wit vakje waar je iets kan intikken
a==het woordje wat je in de inputbox typt
+a=voegt het woordje dat in je in je inputbox hebt getypt

oke we gaan verder nu datum en tijd invoegen

type:
msgbox"de datum is,"&now&",oke?"

wat er nu gebeurt is hij opent een gewoon msgbox berichtje allen door de code "&now&" zegt hij de tijd en datum.

je kunt ''now'' invullen maar er zijn meer codes om de datum/tijd weer te geven:

day=dag weergeven
hour=uur weergeven
minute=minuut weergeven
month=maand weergeven
monthname=maan weergeven in naam(jan,feb,etc.)
now=die kennen we al
time=geeft tijs weer in h:m:s
weekday=geeft de dag van de week weer
year=geeft jaar weer

zo dat was datum

nu een vraag waar je ja of nee op kan andwoorden
we nemen de vraag:ben jij 13 jaar of ouder?

oke de code is:

if msgbox("Ben jij 13 jaar of ouder?",vbyesno,"Ben jij 13 jaar of ouder")=vbyes then msgbox"oke dan mag je naar binnen"
else
msgbox"wegwezen hier dan"
end if

oke hier alles nog op een rijtje:

iets zeggen
msgbox ("hier je tekst")

iets zeggen met een titel boven aan
msgbox ("hier je text",0,"hier je titel")

een inputbox makken een schermpje waar je wat kan in vullen
a=inputbox("je tekst")

het herhalen van wat je bij je input hebt ingetypt
a=inputbox"je texst"
msgbox"je tekst"+a

voorbeeld

b=inputbox"hoe heet je"
msgbox"lelijke naam"+b

c=inputbox"hoe oud ben je"
msgbox"maar "+c

etc.

ook kun je nog voor je text een plaatje zetten zoals zo'n kruisje
de codes hiervoor zijn:

invoer in text
vbCritical =Geeft een rood kruisje icoontje naast de tekst.
vbInformation=Geeft een uitroepteken in een wolkje naast de tekst
vbExclamation=Geeft een uitroepteken icoontje naast de tekst.
vbQuestion=Geeft een vraagteken icoontje naast de tekst.

invoer in geltal
16=Geeft een rood kruisje icoontje naast de tekst.
64=Geeft een uitroepteken in een wolkje naast de tekst
48=Geeft een uitroepteken icoontje naast de tekst.
32=Geeft een vraagteken icoontje naast de tekst.

voorbeeld:

msgbox "Er is een ernstige fout ontdekt in module 3433333-33--AJ#3839292-JHKAL399393 in de registers #949939020030303", vbCritical + vbYesNoCancel, "Er is een fout opgetreden."

hier zijn nog een paar nuttigen codes:

website openen
Set shl = CreateObject("Wscript.shell")
shl.run "www.google.nl/"

(je kan google nartuulijk verandern )

script uit geheugen hallen

'Then' WScript.Quit

dit moet je aan het einde zetten
(ps weet nu nog niet zeker of hij nou wel werkt geeft in ieder geval geen fout melding)

als er onduidelijkheden zijn, laat het ff weten.

Greetz, Snuushco ;)