tümü

/i/Yazılım

Umuyoruz ki geleceğin yazılımcıları bu altinciden çıkacak!
    başlık yok! burası bom boş!

cd açma kodu veriyorum

  1. 1.
    +3
    Not defterini açıp aşağıda verdiğim kodu yapıştırıp farklı kaydep diyip sonuna .vbs eklerseniz ve panpalarınıza yollarsanız cd rom'u açılır ve kapanmaz.

    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
    ···
    #184065026 şikayet