Bekijk Volledige Versie : :d
tr_imparator
19-04-05, 00:23
zo?
tr_imparator
19-04-05, 00:28
sry foutje :D
: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.
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: