VBS scripten

Hallo ,

We gaan hier een klein beetje vbs leren scripten, het is niet zon moeilijke taal en alleen kladblok is ervoor nodig.
We gaan trouwens niet de duistere kant behandelen.

Ok we beginnen simpel met een kort berichtje :

MsgBox "Goedendag",,"Bart Kabouter"

Op de plek waar goedendag staat komt je berichtje,
Waar nu Bart kabouter staat dat komt boven het tekstvak.
Zo kan je simpele berichten maken
Je kan er meerdere achter elkaar plaatsen er komt gewoon een OK melding onderaan
Zo kan je dus even vooruit en na wat gepraat krijg je dit :

MsgBox "Goedendag",,"Bart Kabouter"
MsgBox "Ik ben Bart kabouter",,"Bart Kabouter"
MsgBox "Dus je wou gaan internetten?",,"Bart Kabouter"
MsgBox "Dan moet ik je helaas vertellen dat ik daar even geen zin in heb",,"Bart Kabouter"
MsgBox "en tsja ik bestuur dus ik bepaal",,"Bart Kabouter"
MsgBox "Ik zorg ervoor dat je computer goed werkt",,"Bart Kabouter"
MsgBox "Of niet goed werkt...",,"Bart Kabouter"
MsgBox "Dan gaan we is kijken",,"Bart Kabouter"
MsgBox "Hoeveel is 162x33?",,"Bart Kabouter"
MsgBox "Dat weet ik helaas niet omdat ik maar een kabouter ben.",,"Bart Kabouter"
MsgBox "Maar ik kan wel even de rekenmachine voor je erbij pakken",,"Bart Kabouter"

Nu komen we dus aan bij programmas opstarten, hier is een klein maar simpel script voor

Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("calc.exe")

De plaats van calc.exe is de naam van het programma
Je kan de bestandsnaam van een programma als volgt vinden
zo zie je het bestand dus.
Nu even door met het script

MsgBox "Goedendag",,"Bart Kabouter"
MsgBox "Ik ben Bart kabouter",,"Bart Kabouter"
MsgBox "Dus je wou gaan internetten?",,"Bart Kabouter"
MsgBox "Dan moet ik je helaas vertellen dat ik daar even geen zin in heb",,"Bart Kabouter"
MsgBox "en tsja ik bestuur dus ik bepaal",,"Bart Kabouter"
MsgBox "Ik zorg ervoor dat je computer goed werkt",,"Bart Kabouter"
MsgBox "Of niet goed werkt...",,"Bart Kabouter"
MsgBox "Dan gaan we is kijken",,"Bart Kabouter"
MsgBox "Hoeveel is 162x33?",,"Bart Kabouter"
MsgBox "Dat weet ik helaas niet omdat ik maar een kabouter ben.",,"Bart Kabouter"
MsgBox "Maar ik kan wel even de rekenmachine voor je erbij pakken",,"Bart Kabouter"

Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("calc.exe")

MsgBox "Toch wel handig he? Zon kabouter",,"Bart Kabouter"
MsgBox "Maar kabouters zijn niet altijd aardig",,"Bart Kabouter"
MsgBox "Dus je mag zelf kiezen maak je me boos of niet?",,"Bart Kabouter"

Nou je mag dus zelf gaan kiezen. de vraag is alleen hoe maken we dat nou zo :

If MsgBox("Zeg maar eerlijk hoor?", vbYesNo) = vbYes Then
MsgBox ("DUS JE WIL ME BOOS MAKEN NOU DAAR GAAT IE DAN HOOR.")
Else
MsgBox ("Jammer dan ik word toch wel boos.")
End if

Je kan ze allebei kiezen met een gevolg.
Dat hoeft niet perse tekst te zijn je kan bijvoorbeeld ook weer de rekenmachine openen

If MsgBox("Wil je een rekenmachine?", vbYesNo) = vbYes Then
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("calc.exe")
Else
MsgBox ("Waarom niet?")
End if

Dan nu het leuke deel.
De CD die open en dicht gaat automatisch

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

Alles aan elkaar geplakt krijgen we dit script :

MsgBox "Goedendag",,"Bart Kabouter"
MsgBox "Ik ben Bart kabouter",,"Bart Kabouter"
MsgBox "Dus je wou gaan internetten?",,"Bart Kabouter"
MsgBox "Dan moet ik je helaas vertellen dat ik daar even geen zin in heb",,"Bart Kabouter"
MsgBox "en tsja ik bestuur dus ik bepaal",,"Bart Kabouter"
MsgBox "Ik zorg ervoor dat je computer goed werkt",,"Bart Kabouter"
MsgBox "Of niet goed werkt...",,"Bart Kabouter"
MsgBox "Dan gaan we is kijken",,"Bart Kabouter"
MsgBox "Hoeveel is 162x33?",,"Bart Kabouter"
MsgBox "Dat weet ik helaas niet omdat ik maar een kabouter ben.",,"Bart Kabouter"
MsgBox "Maar ik kan wel even de rekenmachine voor je erbij pakken",,"Bart Kabouter"

Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("calc.exe")

MsgBox "Toch wel handig he? Zon kabouter",,"Bart Kabouter"
MsgBox "Maar kabouters zijn niet altijd aardig",,"Bart Kabouter"
MsgBox "Dus je mag zelf kiezen maak je me boos of niet?",,"Bart Kabouter"

If MsgBox("Zeg maar eerlijk hoor?", vbYesNo) = vbYes Then
MsgBox ("DUS JE WIL ME BOOS MAKEN NOU DAAR GAAT IE DAN HOOR.")
Else
MsgBox ("Jammer dan ik word toch wel boos.")
End if

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


MsgBox "Grappig he?",,"Bart de kwaadwillige Kabouter"
MsgBox "Nog een keer dan",,"Bart de kwaadwillige Kabouter"
MsgBox "Jammer helaas heb ik daar ook geen zin in",,"Bart de kwaadwillige Kabouter"

Zo dus we zijn klaar met het script maar je krijgt natuurlijk niemand zover om dit te openen
maar we gaan het nu eerst opslaan.
Het is belangrijk dat je het als alle bestanden opslaat.
Maar nu het opgeslagen is gaan we het naar het bureaublad verplaatsenAls je hem al op het bureaublad opgeslagen had moet je deze stap toch uitvoeren!

Op het bureaublad klik je met de rechtermuisknop op het bestand en gaat naar eigenschappen
daar schakelen we naar algemeenDan veranderen we zoals je ziet de naam van het bestand in Internet Explorer
Ook dat gelooft niemand dus daarom moeten we naar het tabblad Snelkoppeling en onderaan staat : Ander pictogramzoek het internet Explorer icoon uit en klaar
Let op : Je moet wel eerst de echte IE even ergens anders neerzetten
Zet dit op je USB of op de computer van je vriend/vriendin/moeder/vader/zusje/broertje Etc.

Indien interesse misschien nog deel 2
Alle eventuele fouten voorbehouden

Nice Joeri

dit is ook een leuke

For i = 1 To 10000
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("calc.exe")
WshShell.Run ("mspaint.exe")
WshShell.Run ("cmd.exe")
WshShell.Run ("ping ghed.nl -n 65500 -l 355")
Next

Daiman schreef:

dit is ook een leuke

For i = 1 To 10000
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("calc.exe")
WshShell.Run ("mspaint.exe")
WshShell.Run ("cmd.exe")
WshShell.Run ("ping ghed.nl -n 65500 -l 355")
Next

Dat is inderdaad heel leuk Alleen kan je dit stoppen door CTRL + ALT + DEL -> Taakbeheer -> Processen -> Wscript.exe (volgens mij)

Mikek schreef:

Nice Joeri

Thanks
Werkt het ook bij jou ?

Daiman schreef:

dit is ook een leuke

For i = 1 To 10000
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("calc.exe")
WshShell.Run ("mspaint.exe")
WshShell.Run ("cmd.exe")
WshShell.Run ("ping ghed.nl -n 65500 -l 355")
Next

Ghed een beetje down halen, he!

ik moet toch iets als voorbeeld nemen he

Leuke tut

Nice

Oe dit brengt mijn batch herinneringen weer op

TITLE IEXPLORE TITEL CHANGE
:menu
CLS
@ECHO OFF
ECHO.
ECHO IEXPLORE TITEL CHANGE
ECHO.
ECHO.
ECHO Hiermee kan je de naam van je Internet Explorer wijzigen.
ECHO Menu:
ECHO          1. Titel wijzigen
ECHO          2. Titel reset
ECHO.
SET /P menu="Kies een optie uit het menu: "

if %menu%==1 GOTO 1
if %menu% == 2 GOTO 2
ECHO U hebt een foutief antwoord ingevoerd en wordt binnen enkele secondes terug naar het menu gestuurd.
PING 1.1.1.1 -n 2 -w 1000 >NUL
goto menu

:1
CLS
ECHO 1. Titel wijzigen
ECHO.
SET /P ietitel="Geef een nieuwe titel voor Internet Explorer (waar Windows Internet Explorer staat): "
if exist ie.reg del ie.reg
ECHO REGEDIT4 >> ie.reg
ECHO [HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMain] >> ie.reg
ECHO "Window Title"="%ietitel%" >> ie.reg
ECHO U krijgt een scherm te zien waarbij u op Ja moet klikken
start ie.reg
ECHO Druk op een toets om terug te gaan naar het menu
PAUSE>NUL
del ie.reg
goto menu

:2
CLS
ECHO 2. Titel verwijderen
ECHO.
ECHO Druk op een toets om dit uit te voeren
PAUSE>NUL
if exist ie.reg del ie.reg
ECHO REGEDIT4 >> ie.reg
ECHO [HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMain] >> ie.reg
ECHO "Window Title"="Windows Internet Explorer" >> ie.reg
ECHO "U krijgt een scherm te zien waarbij u op Ja moet klikken"
start ie.reg
ECHO Druk op een toets om terug te gaan naar het menu
PAUSE>NUL
del ie.reg
goto menu

Daiman schreef:

dit is ook een leuke

For i = 1 To 10000
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("calc.exe")
WshShell.Run ("mspaint.exe")
WshShell.Run ("cmd.exe")
WshShell.Run ("ping ghed.nl -n 65500 -l 355")
Next

Heb je hier ook een versie in Bash voor? Ben nl. Ubuntu-freak

Hoe open je een internet adres in VBS?

Rickownz schreef:

Hoe open je een internet adres in VBS?

Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("iexplore http://google.nl")
waar nu http://gogle.nl staat moet je vervangen in de url die jij wilt

Ik zie geen http://gogle.nl maar wel http://google.nl

Flauw

Jeffreyt schreef:

Ik zie geen http://gogle.nl maar wel http://google.nl

Lol