Reply to thread

Message: <blockquote data-quote="strsraj" data-source="post: 8315156" data-attributes="member: 291851">SUFIRI TRICK 2 UPDATED GUYS.....!!!!!!!Hi my Friendz I'm BACK.........!!!!!අද මම ඔයාලට කියන්න යන්නෙ තවත් මරු Trick එකක්..අපි හැමෝම ගාව CD ROM or DVD  ROM හරි තියෙනවනෙ..ඉතින් මම අද කියන්න යන්නෙ අපේ ROM එක EJECT වෙන්න NOTE එකක් ලියාගන්නෙ කොහොමද..මෙන්න මෙච්චරයි කරන්න තියෙන්නෙ..මේ CODE එක NOTEPAD එකක COPY කරගන්න..Dim tsDim strDriveLetterDim intDriveLetterDim fs 'As Scripting.FileSystemObjectConst CDROM = 4On Error Resume NextSet fs = CreateObject("Scripting.FileSystemObject")strDriveLetter = ""For intDriveLetter = Asc("A") To Asc("Z")Err.ClearIf fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM ThenIf Err.Number = 0 ThenstrDriveLetter = Chr(intDriveLetter)Exit ForEnd IfEnd IfNextMSGBOX "YOUR CD IS: " & strDriveLetter,VBOKONLY + 48,"CDROM=> " & strDriveLetterSet oWMP = CreateObject("WMPlayer.OCX.7" )Set colCDROMs = oWMP.cdromCollectionFor d = 0 to colCDROMs.Count - 1colCDROMs.Item(d).Eject Next 'nullA1= msgbox ("Press key To Close Cd SHIWANTHA" & vbcrlf &_" The Cd Will Close", 0 + 64, "Open Close Cd Tray")For d = 0 to colCDROMs.Count - 1colCDROMs.Item(d).EjectNext 'nullset owmp = nothingset colCDROMs = nothingwscript.quitදැන් තමන්ට ඕන නමකින් SAVE කරන්න..හැබැයි මොක දැම්මත් අවසානෙට .vbs කියල දාන්න අමතක කරන්න එපා..හරිනෙ????????NOW OPEN THE SAVED FILE & ENJOY.......!!!!!තව මරු මරු CODES ඔයාලට ඉස්සරහට දෙන්නම්...Comment & Rep++ දාල යන්න OK.......??????<img src="/styles/default/xenforo/smilies/default/yes.gif"  class="smilie" loading="lazy" alt=":yes:" title="Yes    :yes:" data-shortname=":yes:" /> <img src="/styles/default/xenforo/smilies/default/yes.gif"  class="smilie" loading="lazy" alt=":yes:" title="Yes    :yes:" data-shortname=":yes:" /> <img src="/styles/default/xenforo/smilies/default/yes.gif"  class="smilie" loading="lazy" alt=":yes:" title="Yes    :yes:" data-shortname=":yes:" />THANK U MS48MAIL..</blockquote>

Verification: Dahaya deken beduwama keeyada?

Top Bottom