Latest ads

Google Pixel 9 Pro
- vgp
- Updated: Yesterday at 5:57 PM
Ad icon
Jobreceive.com for sale
- Blogerwiki
- Updated: Tuesday at 8:55 PM
Post Your Vehicle for Sale — FREE! - https://libro.lk
- Kalu_Puth
- Updated: Tuesday at 7:38 PM
ඔයාගෙ Assignment හෝ Thesis එක හරියට හදාගමු
- ErMurazor
- Updated: Saturday at 10:52 PM
Ad icon
BlackWall V2ray servers
- hu KANNA
- Updated: Sep 23, 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: Dawasata paya keeyak thibeda?

Top Bottom