Jump to content

.vbs


Mr. Psycho

Recommended Posts

Geplaatst:

heeft iemand van jullie ooit al eens moeten werken met een .vbs project, heeft zelf al iets ermee gemaakt, ...

Iedereen zegt dat .vbs virussen zijn, maar je kan er ook handige dingen mee maken, zoals op je bureaublad een bestandje waarmee je jezelf kan afmelden, computer kan afsluiten, cd-speler openen of sluiten,... Allemaal goed voor mensen die lui zijn of waarvan het knopje van hun computer of cd-/dvd-speler kapot is, ...

Heeft iemand er een paar goede codes voor, je mag het hier ook posten, Maar pas op!: hier worden geen codes geplaatst die kunnen leiden tot het creëren van VIRUSSEN!!!

Zelf heb ik de codes voor het openen van de CD-speler, voor het afsluiten van de computer (maar het werkt niet, er wordt alleen maar afgemeld), een bericht oproepen, ...

Heeft iemand nog codes die dit kunnen aanvullen?

Geplaatst: (bewerkt)
is dat Visual Basic ???
Niet helemaal. Het is VBScript, volgens Wikipedia een 'subset' van Visual Basic. Het is in elk geval een door Microsoft ontwikkelde scripttaal. Het wordt vaak gebruikt in .asp webpagina's, maar je kunt ook 'stand-alone' scriptjes maken met een .vbs extensie. Dit kun je door Windows gewoon laten uitvoeren door erop te dubbelklikken, vergelijkbaar met een .exe bestand. Als je meer wilt leren over VBScript zou je eens hier kunnen kijken.

Zelf heb ik nooit echt veel met VBScript gewerkt. Binnen webpagina's prefereer ik JavaScript boven VBScript en die .vbs bestandjes vind ik gewoon... lame.

(Edit: volgens mij ben ik VBScript bestandjes en 'Visual Basic for Applications Script' een beetje door elkaar aan het halen. Ik weet het zelf eventjes niet meer... Even uitzoeken hoe het ook al weer zit.)

Bewerkt: door K.O.
Geplaatst: (bewerkt)

Er is ook een Batch Scriptje voor je PC afsluiten :Y

SHUTDOWN /L /R /T:0 /Y

is een Batch Script voor Rebooten :Y Je kunt hier iets mee spelen om een Afsluit Script te creëren

Bewerkt: door zamg0d1
  • 3 maanden later...
Geplaatst:

Ik ben er momenteel mee bezig dus mocht je wat info nodig hebben pm mij . Enne .vbs is gewoon een extensie voor VBScript. Wat voor voor website word gebruik maar ook in microsoft zelf.

Ik post hier een script van mijzelf die ik aangepast heb en gemaakt heb.

Het was mijn eerste script in vbs dus niet al te kritisch zijn. enne kheb wel met kladblok opende functie.

Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("notepad.exe")
msgbox "Hello",,"My First VBScript"
WshShell.SendKeys "_________________"
WshShell.SendKeys "{ENTER}|My First VBScript	|"
WshShell.SendKeys "{ENTER}|________________|"
WshShell.SendKeys "{ENTER}|								|"
WshShell.SendKeys "{ENTER}|			 Hello		   |"
WshShell.SendKeys "{ENTER}|		 _________	 |"
WshShell.SendKeys "{ENTER}|		   |	OK   |	   |"
WshShell.SendKeys "{ENTER}|		 -----------	   |"
WshShell.SendKeys "{ENTER}-----------------------"
WScript.Sleep 800
msgbox "Who are you",,"My First VBScript"
WshShell.SendKeys "{ENTER}_________________"
WshShell.SendKeys "{ENTER}|My First VBScript	|"
WshShell.SendKeys "{ENTER}|________________|"
WshShell.SendKeys "{ENTER}|								|"
WshShell.SendKeys "{ENTER}|	  Who are you	  |"
WshShell.SendKeys "{ENTER}|		 _________	 |"
WshShell.SendKeys "{ENTER}|		   |	OK   |	   |"
WshShell.SendKeys "{ENTER}|		 -----------	   |"
WshShell.SendKeys "{ENTER}-----------------------"
WScript.Sleep 800
msgbox "C'mon , It's me",,"My First VBScript"
WshShell.SendKeys "{ENTER}_________________"
WshShell.SendKeys "{ENTER}|My First VBScript	|"
WshShell.SendKeys "{ENTER}|________________|"
WshShell.SendKeys "{ENTER}|								|"
WshShell.SendKeys "{ENTER}|	  C'mon , It's me   |"
WshShell.SendKeys "{ENTER}|		 _________	 |"
WshShell.SendKeys "{ENTER}|		   |	OK   |	   |"
WshShell.SendKeys "{ENTER}|		 -----------	   |"
WshShell.SendKeys "{ENTER}-----------------------"
WScript.Sleep 800
msgbox "You LOSE",,"My First VBScript"
WshShell.SendKeys "{ENTER}_________________"
WshShell.SendKeys "{ENTER}|My First VBScript	|"
WshShell.SendKeys "{ENTER}|________________|"
WshShell.SendKeys "{ENTER}|								|"
WshShell.SendKeys "{ENTER}|		You LOSE	   |"
WshShell.SendKeys "{ENTER}|		 _________	 |"
WshShell.SendKeys "{ENTER}|		   |	OK   |	   |"
WshShell.SendKeys "{ENTER}|		 -----------	   |"
WshShell.SendKeys "{ENTER}-----------------------"
WScript.Sleep 800
msgbox "I Win",,"My First VBScript"
WshShell.SendKeys "{ENTER}_________________"
WshShell.SendKeys "{ENTER}|My First VBScript	|"
WshShell.SendKeys "{ENTER}|________________|"
WshShell.SendKeys "{ENTER}|								|"
WshShell.SendKeys "{ENTER}|			 I Win		   |"
WshShell.SendKeys "{ENTER}|		 _________	 |"
WshShell.SendKeys "{ENTER}|		   |	OK   |	   |"
WshShell.SendKeys "{ENTER}|		 -----------	   |"
WshShell.SendKeys "{ENTER}-----------------------"
WScript.Sleep 800
msgbox "1337 goes Europe",,"My First VBScript"
WshShell.SendKeys "{ENTER}_________________"
WshShell.SendKeys "{ENTER}|My First VBScript	|"
WshShell.SendKeys "{ENTER}|________________|"
WshShell.SendKeys "{ENTER}|								|"
WshShell.SendKeys "{ENTER}|  1337 goes Europe  |"
WshShell.SendKeys "{ENTER}|		 _________	 |"
WshShell.SendKeys "{ENTER}|		   |	OK   |	   |"
WshShell.SendKeys "{ENTER}|		 -----------	   |"
WshShell.SendKeys "{ENTER}-----------------------"
WScript.Sleep 800
msgbox "n00b goes Hell",,"My First VBScript"
WshShell.SendKeys "{ENTER}_________________"
WshShell.SendKeys "{ENTER}|My First VBScript	|"
WshShell.SendKeys "{ENTER}|________________|"
WshShell.SendKeys "{ENTER}|								|"
WshShell.SendKeys "{ENTER}|	 n00b goes Hell	|"
WshShell.SendKeys "{ENTER}|		 _________	 |"
WshShell.SendKeys "{ENTER}|		   |	OK   |	   |"
WshShell.SendKeys "{ENTER}|		 -----------	   |"
WshShell.SendKeys "{ENTER}-----------------------"
WScript.Sleep 800
msgbox "The End",,"My First VBScript"
WshShell.SendKeys "{ENTER}_________________"
WshShell.SendKeys "{ENTER}|My First VBScript	|"
WshShell.SendKeys "{ENTER}|________________|"
WshShell.SendKeys "{ENTER}|								|"
WshShell.SendKeys "{ENTER}|		   The End		|"
WshShell.SendKeys "{ENTER}|		 _________	 |"
WshShell.SendKeys "{ENTER}|		   |	OK   |	   |"
WshShell.SendKeys "{ENTER}|		 -----------	   |"
WshShell.SendKeys "{ENTER}-----------------------"
WScript.quit

En zonder kladblok is ie zo :

Set WshShell = WScript.CreateObject ("WScript.Shell")
msgbox "Hello",,"My First VBScript"
WScript.Sleep 800
msgbox "Who are you",,"My First VBScript"
WScript.Sleep 800
msgbox "C'mon , It's me",,"My First VBScript"
WScript.Sleep 800
msgbox "You LOSE",,"My First VBScript"
WScript.Sleep 800
msgbox "I Win",,"My First VBScript"
WScript.Sleep 800
msgbox "1337 goes Europe",,"My First VBScript"
WScript.Sleep 800
msgbox "n00b goes Hell",,"My First VBScript"
WScript.Sleep 800
msgbox "The End",,"My First VBScript"
WScript.quit

Als iemand wilt kan ik het hem uitleggen. Hoe VBScipt werkt.

Een reactie plaatsen

Je kan nu een reactie plaatsen en pas achteraf registreren. Als je al lid bent, log eerst in om met je eigen account een reactie te plaatsen.

Gast
Op dit onderwerp reageren...

×   Je hebt text geplaatst met opmaak.   Opmaak verwijderen

  Only 75 emoji are allowed.

×   Je link is automatisch ingevoegd.   In plaats daarvan weergeven als link

×   Je vorige bewerkingen zijn hersteld.   Alles verwijderen

×   You cannot paste images directly. Upload or insert images from URL.

  • Recent actief   0 leden

    • Er zijn hier geen geregistreerde gebruikers aanwezig.
×
×
  • Create New...