.vbs Kodları

1.Kapanmayan hata kodu

Do
X=MsgBox("MESAJINIZI YAZIN",0+16,"ERROR")
loop



2.Kapanmayan cd room kodu

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >=1 then
do
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If