- 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
loop දැන් anything.vbs කියල save කරන්න.
ඒක ඕපන් කරල බලන්න. - Ctrl + Alt + Delete ඔබල Task Manager ඕපන් කරගන්න.
- Process යටතේ wscriptයන්න තොරා End Process කරන්න
0 comments:
Post a Comment