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

[strsraj]

SUFIRI TRICK 2 UPDATED GUYS.....!!!!!!!

Hi my Friendz I'm BACK.........!!!!!



අද මම ඔයාලට කියන්න යන්නෙ තවත් මරු Trick එකක්..අපි හැමෝම ගාව CD ROM or DVD ROM හරි තියෙනවනෙ..ඉතින් මම අද කියන්න යන්නෙ අපේ ROM එක EJECT වෙන්න NOTE එකක් ලියාගන්නෙ කොහොමද..මෙන්න මෙච්චරයි කරන්න තියෙන්නෙ..


මේ CODE එක NOTEPAD එකක COPY කරගන්න..


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 SHIWANTHA" & vbcrlf &_
" The Cd Will Close", 0 + 64, "Open Close Cd Tray")
For d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next 'null

set owmp = nothing
set colCDROMs = nothing
wscript.quit



දැන් තමන්ට ඕන නමකින් SAVE කරන්න..හැබැයි මොක දැම්මත් අවසානෙට .vbs කියල දාන්න අමතක කරන්න එපා..හරිනෙ????????


NOW OPEN THE SAVED FILE & ENJOY.......!!!!!


තව මරු මරු CODES ඔයාලට ඉස්සරහට දෙන්නම්...Comment & Rep++ දාල යන්න OK.......??????

THANK U MS48MAIL..

 

[577]

 

[ElaKomiya]

Nice Post
Rep ++ Add

 

[dilrasan]

ela ela...

 

[Silver bird]

 

[Samantha567]

එලියට එන එක ඇතුලට දාගන්නත් එකක් දීපන්

 

[Nivinda]

ela ela
Thanks hode

 

[strsraj]

එලියට එන එක ඇතුලට දාගන්නත් එකක් දීපන්

අපෝ ඒකවත් දන්නැද්ද? හරිම හුරතල්..

 

[creativeN]

ela ela ... Niyamai

 

[vidura99]

එලියට එන එක ඇතුලට දාගන්නත් එකක් දීපන්

 

[chanaka chana]

+++ REP

macho thiyena okkoma ROM tika eliyata awa den athulata yawanna vidiyath kiyamu..

 

[strsraj]

හරි හරි මම අලුත් CODE එකක් ලියන්නම්කො එලියට ආපු එක ඇතුලට යන්නත්...මොකද කියන්නෙ ?????? මම ලියන්නද? ඔයාලා UP එක දෙනවනම් ලෝකෙ පෙරලෙන්න CODES හරි ලියන්නම්කො........

 

[stv]

Ela Ela

 

[Lalakajee]

dada monitor off karana ekak denna berida

 

[ranga_uoc]

Ela ela maxxa...

 

[coollifestyle4u]

ආහ්.. වැඩේ නියමයි..
ඉදිරියේදිත් මීට වඩා අලුත් දේවල් අපි බලාපොරොත්තු වෙනවා..

 

[strsraj]

ආහ්.. වැඩේ නියමයි..
ඉදිරියේදිත් මීට වඩා අලුත් දේවල් අපි බලාපොරොත්තු වෙනවා..

අනිවා අනිවා

 

[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

 

[strsraj]

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

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

 

[anuru_1]

ela ela...