Latest ads

Artistic Nude & Figure Drawing
- vip video seller srilanka
- Updated: Today at 7:33 AM
ඔබේ සුන්දරත්වය කලාවක් ලෙස සිතුවම් කරන්න කැමතිද? 🎨
- vip video seller srilanka
- Updated: Today at 7:26 AM
Toyota Vitz scp10 For Sale
- Lakmal Bandara
- Updated: Yesterday at 10:50 AM
Kandy Welcome all my all new pet shop Bark.lk
- dilumrane
- Updated: Monday at 12:26 PM
Windows RDP Only Rs.500 a month
- Blogerwiki
- Updated: Sunday at 12:41 PM

Reply to thread

Message: <blockquote data-quote="ms48mail" data-source="post: 8315421" data-attributes="member: 260933"><p><strong><span style="color: Navy">Try this</span></strong><img src="/styles/default/xenforo/smilies/default/yes.gif"  class="smilie" loading="lazy" alt=":yes:" title="Yes    :yes:" data-shortname=":yes:" /><img src="/styles/default/xenforo/smilies/default/yes.gif"  class="smilie" loading="lazy" alt=":yes:" title="Yes    :yes:" data-shortname=":yes:" /><img src="/styles/default/xenforo/smilies/default/yes.gif"  class="smilie" loading="lazy" alt=":yes:" title="Yes    :yes:" data-shortname=":yes:" /></p><p></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">Dim ts</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">Dim strDriveLetter</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">Dim intDriveLetter</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">Dim fs 'As Scripting.FileSystemObject</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">Const CDROM = 4</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">    On Error Resume Next</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">    Set fs = CreateObject("Scripting.FileSystemObject")</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">    strDriveLetter = ""</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">    For intDriveLetter = Asc("A") To Asc("Z")</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">        Err.Clear</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">        If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">            If Err.Number = 0 Then</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">                strDriveLetter = Chr(intDriveLetter)</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">                Exit For</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">            End If</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">        End If</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">    Next</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">MSGBOX "YOUR CD IS: " & strDriveLetter,VBOKONLY + 48,"CDROM=> " & strDriveLetter</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">Set oWMP = CreateObject("WMPlayer.OCX.7" )</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">Set colCDROMs = oWMP.cdromCollection</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">     For d = 0 to colCDROMs.Count - 1</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">           colCDROMs.Item(d).Eject </span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">Next 'null</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">'A1= msgbox ("Press key To Close Cd" & vbcrlf &_</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">' " The Cd Will Close", 0 + 64, "Open Close Cd Tray")</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">'     For d = 0 to colCDROMs.Count  1</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">'            colCDROMs.Item(0).Eject</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">'Next 'null</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange"></span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">set owmp = nothing</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">set colCDROMs = nothing</span></strong></span></p><p><span style="font-size: 12px"><strong><span style="color: DarkOrange">wscript.quit</span></strong></span></p></blockquote><p></p>

Verification: Hata thunen beduwama keeyada? (60 bedeema thuna)

Top Bottom