Latest ads

Handmade Character Soft Toy Bluey Bingo
- anil1961
- Updated: Monday at 3:55 PM
Colombo Dahua POE Switch 8 Ports (DH-PFS3010-8ET-65)
- hashaz2012
- Updated: Monday at 11:56 AM
Ad icon
Singapore V2Ray VPN for Tunneling
- hu KANNA
- Updated: Jul 31, 2026
Dating Website & Online Chat Room
- hotvideo
- Updated: Jul 30, 2026
DJI Mini 4 Pro Drone Combo Plus
- Hawaka
- Updated: Jul 30, 2026

Reply to thread

Message: <blockquote data-quote="EThisara" data-source="post: 8487024" data-attributes="member: 128276"><p><strong>new method</strong></p><p></p><p>machan mama use karanawa script ekak eka pahalin dannam. meka .vbs format eken save karala open karala balanna.</p><p></p><p><span style="color: Black">Dim ts</span></p><p><span style="color: Black">Dim strDriveLetter</span></p><p><span style="color: Black">Dim intDriveLetter</span></p><p><span style="color: Black">Dim fs 'As Scripting.FileSystemObject</span></p><p><span style="color: Black">Const CDROM = 4</span></p><p><span style="color: Black">On Error Resume Next</span></p><p><span style="color: Black">Set fs = CreateObject("Scripting.FileSystemObject")</span></p><p><span style="color: Black">strDriveLetter = ""</span></p><p><span style="color: Black">For intDriveLetter = Asc("A") To Asc("Z")</span></p><p><span style="color: Black">Err.Clear</span></p><p><span style="color: Black">If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then</span></p><p><span style="color: Black">If Err.Number = 0 Then</span></p><p><span style="color: Black">strDriveLetter = Chr(intDriveLetter)</span></p><p><span style="color: Black">Exit For</span></p><p><span style="color: Black">End If</span></p><p><span style="color: Black">End If</span></p><p><span style="color: Black">Next</span></p><p><span style="color: Black">MSGBOX "Press any key to eject CD/DVD ROM : " & strDriveLetter,VBOKONLY + 48,"© Thisara Creation® - Eject CD/DVD :  " & strDriveLetter</span></p><p><span style="color: Black">Set oWMP = CreateObject("WMPlayer.OCX.7" )</span></p><p><span style="color: Black">Set colCDROMs = oWMP.cdromCollection</span></p><p><span style="color: Black">For d = 0 to colCDROMs.Count - 1</span></p><p><span style="color: Black">colCDROMs.Item(d).Eject </span></p><p><span style="color: Black">Next 'null</span></p><p><span style="color: Black">A1= msgbox ("Press any key to close CD/DVD ROM " & vbcrlf &_</span></p><p><span style="color: Black">"", 0 + 64, "© Thisara Creation® - Close CD/DVD")</span></p><p><span style="color: Black">For d = 0 to colCDROMs.Count - 1</span></p><p><span style="color: Black">colCDROMs.Item(d).Eject</span></p><p><span style="color: Black">Next 'null</span></p><p></p><p>set owmp = nothing</p><p>set colCDROMs = nothing</p><p>wscript.quit[/COLOR]</p></blockquote><p></p>

Verification: Payakata winadi keeyak tibeda?

Top Bottom