******Visual Basic 6 Codes ********

kasuncs

Well-known member
  • May 21, 2007
    3,590
    271
    83
    zed said:
    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






    save this as .vb




    PODI FUN PROGRAM 1KK (MATE OKE DUNNE "DILINESRI")

    NOT HARMFULL


    TO STOP THIS kill the process "wscript"
    vbs vidiyata save karanna one.