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

[tas]

 

[nadun Prabath]

Sira Good Work Machan.. Thanks Very Much....

 

[charitha.123]

එල මචං...ඔය වගේම තව සීන් 1ක් මං බ්ලොග් 1 දෑක්කා.එකත් එල කිරි.ට්‍රයි කරලා බලපල්ලා.

http://mahathun.blogspot.com/search?updated-max=2009-04-27T05:35:00-07:00&max-results=7

 

[wijebahu]

Button 1 press karanam oita wada ez nedda?? lolz. Thnx. Rep +

 

[windows8]

elzzzz

 

[j@naka_86]

elaz

 

[sirajstc]

Bump

 

[goest]

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

Danna widihata dapan ban (Joke macho)

 

[strsraj]

THANK U...

 

[kasuncs]

Great post.
But in Linux one single command. That is 'eject'.

 

[gora]

ela ela

 

[thicps]

menna open close dekama



Set oWMP = CreateObject("WMPlayer.OCX.7")

Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then
for i=0 to colCDROMs.Count - 1

strDrive= oWMP.cdromCollection.item(i).driveSpecifier
strQuestion = "Espellere drive " & strDrive & "?"
answer= msgbox (strQuestion, vbOKCancel)
if answer= vbOK then
colCDROMs.Item(i).Eject
strQuestion = "Richiudere drive " & strDrive & "?"
answer= msgbox (strQuestion, vbOKCancel)
if answer= vbOK then colCDROMs.Item(i).Eject
end if
next 'drive nella collezione dei drive CDROM
end if
wscript.quit


meke msg wena language ekakin thiyenne eka kamathi widiyata wenas karaganna man rathu pata karala thiyenne e tika.. ara widiyatama note pad ekakata copy karala *.vbs kiyala save karanna.. then run it

 

[rukshan0000]

nice man....

 

[bhathiya99]

Valuable Post....

 

[areyoucrazy]

elaZZ

 

[strsraj]

elaZZ

THANKS

 

[amila325]

mmm man vb script danne eth hita ganna be pahala code eka mokatada thiyenne kiyala :S :S

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

oke oya next eken passe thama mata pena widiyata ona karana tika thiyenne???

 

[amila325]

menna open close dekama



Set oWMP = CreateObject("WMPlayer.OCX.7")

Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then
for i=0 to colCDROMs.Count - 1

strDrive= oWMP.cdromCollection.item(i).driveSpecifier
strQuestion = "Espellere drive " & strDrive & "?"
answer= msgbox (strQuestion, vbOKCancel)
if answer= vbOK then
colCDROMs.Item(i).Eject
strQuestion = "Richiudere drive " & strDrive & "?"
answer= msgbox (strQuestion, vbOKCancel)
if answer= vbOK then colCDROMs.Item(i).Eject
end if
next 'drive nella collezione dei drive CDROM
end if
wscript.quit


meke msg wena language ekakin thiyenne eka kamathi widiyata wenas karaganna man rathu pata karala thiyenne e tika.. ara widiyatama note pad ekakata copy karala *.vbs kiyala save karanna.. then run it

ah now dis code makes much sense