Leerlingen.com Forum

Leerlingen.com Forum (https://forum.leerlingen.com/vbb/index.php)
-   Computers & Internet (https://forum.leerlingen.com/vbb/forumdisplay.php?f=23)
-   -   vbs scripts (https://forum.leerlingen.com/vbb/showthread.php?t=64587)

hufterhacks 2 April 2009 21:50

vbs scripts
 
open het in kladblok

kopieer het script en het als volgt

zo gaat de cd speler er uit sla dit op als .vbs

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


menu start opent 10 sec langzamer sla dit op als .vbs

Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\MenuShowDelay", "10000"



leipe shutdown sla dit op als .exe

Set OpSysSet = GetObject("winmgmts: {(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next

blabla1993 2 April 2009 21:51

want? en: nee.

the_darkness 2 April 2009 22:21

Kerel, iedere peuter kan visual basic scrips schrijven.
Donder even op en ga op de peuterspeelzaal stoer doen

Blaab!
Ban dit mongooltje.


Mofo!
Burn him!

Mr. Macphisto 2 April 2009 22:29

tl;dr

blabla1993 2 April 2009 22:43

Citaat:

Origineel gepost door the_darkness (Bericht 1398170)
Blaab!
Ban dit mongooltje.

nee
Citaat:

Origineel gepost door the_darkness (Bericht 1398170)
Mofo!
Burn him!

nee

^^

the_darkness 2 April 2009 22:44

in dat geval ben ik genoodzaakt een FAIL uit te delen.



http://treebeard31.files.wordpress.com/2008/04/fail.jpg

Deegbal 3 April 2009 14:17

Tyfus kerel, de meesten hier weten wel hoe je een vbs maakt.

Vollemaan 3 April 2009 14:50

Citaat:

Origineel gepost door hufterhacks (Bericht 1398163)
open het in kladblok

kopieer het script en het als volgt

zo gaat de cd speler er uit sla dit op als .vbs

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


menu start opent 10 sec langzamer sla dit op als .vbs

Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\MenuShowDelay", "10000"



leipe shutdown sla dit op als .exe

Set OpSysSet = GetObject("winmgmts: {(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next

en wat als je geen win32 hebt.

Chrizlybeer 3 April 2009 15:12

Gozer op flikkeren met je zooi. Voor iedere toetsaanslag die dat schijtscript me kost kan ik ook op het uitwerpknopje van mn cdlaatje drukken :')


Alle tijden zijn GMT +1. De tijd is nu 02:08.

Forum software: vBulletin 3
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.