Notepad එකෙන් ආතල් 10ක්!

thalia

Well-known member
  • Sep 8, 2014
    1,173
    877
    113
    සයිබරේ තමා
    Notepad එකෙන් ආතල් 10ක්!

    ඔන්න ගෙනාව Notepad එකෙන් කරන්න පුලුවන් ආතල් වැඩ 10ක්

    පළවෙනි ආතල් එක

    මුලින්ම notepad එකක් open කරගෙන පහල code එක copy කරගෙන ඒකට paste කරන්න.ඊට පස්සෙ ඒකට කැමති නමක් දීල, .VBS එකක් විදිහට save කරන්න.
    දැන් හැදිච්ච file එක open කරන්න.Eg: note.vbs


    Set oWMP = CreateObject(“WMPlayer.OCX.7?)

    Set colCDROMs = oWMP.cdromCollection

    do

    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

    wscript.sleep 5000

    loop





    ඉතුරු ටික බලන්න මෙතනින් යන්න