Ga naar inhoud
Log in om dit te volgen  
verwijderd090614

[TUT] vbs script

Aanbevolen berichten

BRON: google zoeken
VBScript is een scripttaal, ontwikkeld door Microsoft. De taal is een subset van Visual Basic (VB). VBScript werd vooral aangewend door systeembeheerders die in de taal een krachtiger hulpmiddel vinden voor automatisering dan de batch-bestanden die sinds de jaren 70 bestaan.

VBScript kan worden gebruikt in Active Server Pages in een webomgeving. De code kan ook op zichzelf worden uitgevoerd op het Windows-platform met behulp van wscript.exe in een GUI-omgeving of cscript.exe op een opdrachtregel. De broncode wordt typisch opgeslagen in bestanden met extensie ".vbs". Tenslotte kan de taal ook gebruikt worden in de webbrowser Internet Explorer als alternatief voor Javascript. De laatste versie van VBScript is versie 6.

En nu veel suc6 met vbs tut 1!
TUT 1
Tut 1 vbs.
Wat is vbs?
vbs is visual basis script.
vbs lijkt heel spreekent op javascript.
mnaar tog net iets anders.
mensen die javascript zeer goed kennen kennen vbs zeker ook zeer goed.
in deze les ga je leren hoe je een cd opent. 2. hoe je een boodschap doorgeeft en de leukste dat is 3: hoe je iemands pc afsluit.

Beginnen met VBScript:

Je zal een texteditor nodig hebben, bijvoorbeeld:

-Notepad 3.4 (handig bij VBS)
http://prdownloads.source....4.Installer.exe?download

-Notepad
-Wordpad
(handig kan hoef niet!)

1 open 3 kladbloken
2. laat het zo even staan.

---------------------------------------------------------------------------------------------------------------------
1. cd drive opent.
nouja makkelijk klik en hij gaat open?
neej andere manier!
als je wilt kan je het doorgeven zie (3) (dadelijk)

okej je hebt 1 kladblok: dit moet je onthouden handig om nog 1 kladblok te maken en een lijst maken met wat je al weet.
de volgende zit dit in van de kladblok:
Codeblok:
1
2
3
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(i).Eject

en opslaan

daarna gaan we naam wijzigen!

wijzig bijv. de naam lol.
maar dan lol.vbs
voor de duidelijk het met punt!

Test het dan even en als het goed is gaat je cd-drive open!

taadaah
dat was 1
hup naar 2!
---------------------------------------------------------------------------------------------------------------------
2. doe alles hetzelfde aleen dan dit erin:
Codeblok:
1
msgbox "Je boodschap" je boodschap is je tekst!


stap 3!
---------------------------------------------------------------------------------------------------------------------
welkom bij de leukste!!
3. pc uitschakelen van iemand anders kan niej in een keer.
dus bedenkt gwn een smoes
tijp in een nieuwe kladblok:
Codeblok:
1
2
3
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next
doe hetzelfde opslaan als vbs
---------------------------------------------------------------------------------------------------------------------
EXTRA!! je zien allemaal 1 ding in 1 kladblok.
maar als je daar geen zin hebt kan je het 3 en zelfs meer gewoon doen in een keer!
EXTRA ZEER HANDIG JE hebt gezien deze tut. ( vrij makkelijk neem ik aan ) als je het echt niet kan onthouden maak een speciale kladblok en kopier het gewoon van mijn lessen de vbs!!

TUT 2
LET OP!
In Deze TUT leer een virus taal.
dus er is oowk virus.
maar let op!
als je het opent.
kan je het krijgen dus open het maar niet zal ik zeggen
okeej we gaan beginenn!
---------------------------------------------------------------------------------------------------------------------nog 1 ding in deze tut ga je oowk meer dingen bijvoegen!!
.

dan typ je dit in
Code:

Codeblok:
1
msgbox"damn het werkt ook nog"



sla je op als ( typ in wat bijv .vbs lol.vbs ( was ook in vorige tut!

En voer de script uit en er verschijnt een schermpje
met Damn het werkt ook nog.
uitleg.
msgbox staat voor Messagebox.
"damn het werkt ook nog" is dus de tekst in de popup scherm.

nu open je weer de klablok en voer je in.
Code:

Codeblok:
1
2
a=inputbox("gast wat is je naam")
msgbox "damn wie noemt zijn kind nouw " a



sla hem op als .vbs en open hem nu en zie werking ervan.
wat houden de codes allemaal in ?

Inputbox = is simpel weg je wat in laten voeren
a= = de waarde van de inputbox
msgbox "" = tekst laten zien
a = hij voegt bij msgbox dat gene wat je bij inputbox in vulde

Les 2

We gaan nu leren dingen op te starten en te maken.(dit klinkt leuk net of ik een leraar ben Lol )o

Oke hoef het nu niet meer te zeggen eigenlijks open kladblok
en voer dit er in
Code:

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("C:mijn bijbel.txt")
a.WriteLine ("Leer Tesamen en spiek als je kunt op een tetamen AMEN")
a.Close


voer de script uit en je ziet dat die een text file
in de c schijf maakt met de naam mijn bijbel
en met de tekst Leer Tesamen en spiek als je kunt op een tetamen AMEN
Uitleg

set fso=CreateObject("Scripting.FileSystemObject") roept een script file op.
set a=fso.CreateTextFile zegt dat het een textfile is.
("C:mijn bijbel.txt")geeft de locatie waar hij komt en de nieuwe filename aan
a.WriteLine wat tussen de haakjes staat typt hij in de file
a.Close sluit de text.

Deze manier zouden we dus ook batch bestanden kunnen maken
maar en ze ook op starten zo iets als hier onder.

Code:

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("C:batch.bat", True)
a.WriteLine ("@echo off")
a.WriteLine ("echo het werkt")
a.WriteLine ("pause")
a.Close
msgbox"ik ga een tekst laten zien"
Set shl = CreateObject("Wscript.shell")
shl.Run "c:batch.bat"



sla het op als een .vbs
en Zie het effect.
ff uitleg over de nieuwe codes.

Set shl = CreateObject("Wscript.shell") = geen flauw idee niet belangrijk zo lang
je dat maar voor die andere code doet.

shl.Run = shl is de waarde die je had gezet door die andere code
en die Run lijkt me vrij duidelijk he Biggrin Biggrin.
WAARSCHUWING: het bestand moet altijd 1 woord zijn
niet meerdere anders werkt het niet.

je kan nog meer doen met dat shl.Run zo als
batch commandos uitvoeren Biggrin

voorbeeld

Code:

Set a = CreateObject("WScript.Shell")
a.run ("csmileyindowsping.exe -t -l 1024 je doelwit")
end sub



deze script pingt dus wat jij bij je doelwit in vult
maar je kunt niet ping doen ofzo
je moet de hele bestand naam op geven
en alle dos commandos zitten in windows map
dus moet je ff de dos commando op zoeken
en de hele naam invullen om hem te laten werken.

handige script.

Deze script vond ik zeer handig hoe die werkt
geen zin in om uit te leggen Lol Biggrin
deze script maakt zo menu waar je uit
kan kiezen zeer handig

Code:

Dim strMsg,inp01,strTitle,strFlag

strTitle = "Answer Box"

strMsg = "Enter A for Alaska"

Deel dit bericht


Link naar bericht
Delen op andere sites
Ik heb gezien dat er op Zikle ook een topic over werdt gemaakt.
ben jij diezelfde misschien? smiley

Deel dit bericht


Link naar bericht
Delen op andere sites

Maak een account aan of log in om te reageren

Je moet lid zijn om een reactie te kunnen achterlaten

Account aanmaken

Maak een account aan in onze gemeenschap. Het is makkelijk!

Registreer een nieuw account

Aanmelden

Ben je al lid? Meld je hier aan.

Nu aanmelden
Log in om dit te volgen  

×