Notepad එකෙන් පොඩි ආතල් එකක් ගමු....

යාලුවනේ....ඔන්න ටික දවසකට පස්සේ බ්ලොගිය පැත්තේ ආවා...අද අපි පොඩි විනෝද වැඩකට බහින්නයි යන්නේ.....මේක කරන්නේ Notepad එකෙන්.... මේකෙන් පුළුවනි මේක ක්‍රියාත්මක වෙන පරිගණකයේ CD rom එක ඇරෙනවා වැහෙනවා කරන්න...යාළුවෙකුට දෙන්න නියම තෑග්ග...මොකද මිනිහා ගිහින් මේක ඕපන් කලාම CD rom එක ඇරෙනවා වැහෙනවා වෙනවා...කොහොමද වැඩේ?යාලුවන්ව බය කරන්න කියාපුම ක්‍රමයක් නේද?හැබැයි Joke තේරෙන යාළුවෙක්ට විතරක් මේක දෙන්න.මොකද නැත්ත මිනිහට කේන්ති යයි.කතා කල මැදෑ දැන්...ඔන්න එහෙනම් වැඩේට බහිමු...

මුලින්ම  notepad එක open කරන් ඉන්න ඊට පස්සේ පහත සඳහන් කෝඩ්ස් කොපි කරලා නොට් පැඩ්  එකට පේස්ට් කරන්න....

Set oWMP = CreateObject(“WMPlayer.OCX.7?)

Set colCDROMs = oWMP.cdromCollection

do

if colCDROMs.Count >= 1 then

For i = 0 to colCDROMs.Count – 1

colCDROMs.Item(i).Eject

Next

For i = 0 to colCDROMs.Count – 1

colCDROMs.Item(i).Eject

Next

End If

wscript.sleep 5000

  
 දැන් මේක සෙවූ කරනකොට  මොකක් හරි නමක් ගහලා.VBS 
 
කියන එක ගහල සෙවූ කරන්න .. දැන් ඉතින් මේක වටේ ඇරලා
 
බලන්නකෝ.......

එහෙනම් COMMENT එකකුත් දාලා යන්න හොඳේ...