SUFIRI TRICK 2.....!!!!!!!

[ms48mail]

THIS IS NOT WORKING BRO...U MEAN CD ROM CLOSE KARANNA PULUWAN KIYALADA MEKEN???

worked 4 me in xp

 

[December]

In windows 7 u can eject and close the tray just by right clicking on it....

 

[ms48mail]

Try this

Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs 'As Scripting.FileSystemObject
Const CDROM = 4
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
strDriveLetter = ""
For intDriveLetter = Asc("A") To Asc("Z")
Err.Clear
If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
If Err.Number = 0 Then
strDriveLetter = Chr(intDriveLetter)
Exit For
End If
End If
Next
MSGBOX "YOUR CD IS: " & strDriveLetter,VBOKONLY + 48,"CDROM=> " & strDriveLetter
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
For d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next 'null
'A1= msgbox ("Press key To Close Cd" & vbcrlf &_
' " The Cd Will Close", 0 + 64, "Open Close Cd Tray")
' For d = 0 to colCDROMs.Count 1
' colCDROMs.Item(0).Eject
'Next 'null

set owmp = nothing
set colCDROMs = nothing
wscript.quit

ahh sry bro anthima tika varadi eka nisa comment karalaa thyenne

'A1= msgbox ("Press key To Close Cd" & vbcrlf &_
' " The Cd Will Close", 0 + 64, "Open Close Cd Tray")
'     For d = 0 to colCDROMs.Count  1
'            colCDROMs.Item(0).Eject
'Next 'null

Correction:
Change those lines to...

A1= msgbox ("Press key To Close Cd" & vbcrlf &_
" The Cd Will Close", 0 + 64, "Open Close Cd Tray")
For d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next 'null

 

[TharinduNadunPerera]

tnx machoo..elazz

 

[windows8]

ela machan
thanks

 

[strsraj]

ahh sry bro anthima tika varadi eka nisa comment karalaa thyenne

'A1= msgbox ("Press key To Close Cd" & vbcrlf &_
' " The Cd Will Close", 0 + 64, "Open Close Cd Tray")
'     For d = 0 to colCDROMs.Count  1
'            colCDROMs.Item(0).Eject
'Next 'null

Correction:
Change those lines to...

GREAT......!!!!!!

 

[WwW.lk]

ela z++

 

[lakki]

ela.....ela

 

[WwW.lk]

ela ela wada

 

[anuru_1]

maxxa................

 

[pcguru]

thanx machan rep++

 

[Wthilina]

ela ela!!

 

[chamil32]

ela ela machoo niyama Trick ekak....

rep added.

 

[Priyankara90]

ela ela

 

[migaramk]

නියමයි, ඕක VB නේද...?
ඔයවගේ ඒවා පොඩි පොඩි ජෝක් වගේ දේවල් වලට ගන්න පුළුවන්
සින්හලෙන් දාපු එක ගැන සතුටුයි.
සීනීයර් මෙම්බර් කෙනෙක් වෙන්නත් ලඟයි, තව මේවගේ දේවල් දාන්න

 

[ms48mail]

GREAT......!!!!!!

vada neda machan

 

[strsraj]

vada neda machan

THANK U MACHAN..I UPDATED MY THREAD..AT THE END UR NAME Z BIENG CREDITED...

 

[urbanlogo]

nice post..thanx machan..rep added..

 

[flower123]

thanks

 

[ms48mail]

THANK U MACHAN..I UPDATED MY THREAD..AT THE END UR NAME Z BIENG CREDITED...

never mind machan. conrgz u have only one post left for senior member.