vbs scripts

hufterhacks · 2 April 2009, 21:50

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

Blaab!
Ban dit mongooltje.

nee

Citaat:

Origineel gepost door the_darkness

Mofo!
Burn him!

nee

^^

the_darkness · 2 April 2009, 22:44

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

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

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

2 April 2009, 21:50	#1
hufterhacks Lid Geregistreerd op: 30 March 2009 Berichten: 34	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

2 April 2009, 22:21	#3
the_darkness F0rum God + Geregistreerd op: 12 December 2007 Berichten: 24.954	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! __________________ The GOD OF FAIL is here! The FAIL God now officially has 429 worshippers. Start worshipping me today and get a personal FAIL poem for free!

2 April 2009, 22:29	#4
Mr. Macphisto Lid Geregistreerd op: 16 June 2008 Locatie: Rome. Berichten: 10.493	tl;dr __________________ Alles heeft een eind en een worst wel twee.

2 April 2009, 22:44	#6
the_darkness F0rum God + Geregistreerd op: 12 December 2007 Berichten: 24.954	in dat geval ben ik genoodzaakt een FAIL uit te delen. __________________ The GOD OF FAIL is here! The FAIL God now officially has 429 worshippers. Start worshipping me today and get a personal FAIL poem for free!

3 April 2009, 14:17	#7
Deegbal Visitor Message Moderator Geregistreerd op: 29 September 2008 Locatie: Grunn, mien jong! Berichten: 17.275	Tyfus kerel, de meesten hier weten wel hoe je een vbs maakt. __________________ Luxus ductus a curiu crato.

2 April 2009, 21:51	#2
blabla1993 Super Lid Geregistreerd op: 1 October 2006 Berichten: 10.729	want? en: nee.

3 April 2009, 15:12	#9
Chrizlybeer Beheerder Geregistreerd op: 4 January 2003 Locatie: Hel Berichten: 4.989	Gozer op flikkeren met je zooi. Voor iedere toetsaanslag die dat schijtscript me kost kan ik ook op het uitwerpknopje van mn cdlaatje drukken __________________ Kijk.... Poep.... Poep is mooi.... Jij bent niet mooi....

Onderwerpopties
Onderwerp afdrukken Deze pagina e-mailen
Weergavemodus	Stem op dit onderwerp:
Lineaire modus Wijzigen in hybride modus? Verander naar Threaded Mode	Stem op dit onderwerp::