PDA

Bekijk Volledige Versie : :d



tr_imparator
19-04-05, 00:23
zo?

tr_imparator
19-04-05, 00:28
sry foutje :D

barfly
19-04-05, 00:28
:haha:

Wat is dit dan?

msgbox "Hey flikker"
msgbox "Alles goed"
msgbox "ik kan toveren"
msgbox "wedden?"
msgbox "voor 50euro"
msgbox "kijk maar"
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 ' cdrom
End If
msgbox "en dat nog niet genoeg?"
msgbox "dan dit voor je"
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next

:rolleyes:

tr_imparator
19-04-05, 00:37
het is niksszz.......Ssssssssssssssssssssssssssst


ps. wijzig je bericht aub.

TonH
19-04-05, 00:38
Geplaatst door barfly
:haha:

Wat is dit dan?

msgbox "Hey flikker"
msgbox "Alles goed"
msgbox "ik kan toveren"
msgbox "wedden?"
msgbox "voor 50euro"
msgbox "kijk maar"
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 ' cdrom
End If
msgbox "en dat nog niet genoeg?"
msgbox "dan dit voor je"
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next

:rolleyes:

:fpetaf: