Fun Virus එකක්..(නොනවත්තා ROM එක Eject / Close වෙයි )
මේකයි කරන්න ඕනි ...මේ script එක notepad එකක copy කර ගන්න...
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If
ඊට පස්සේ File - Save Ass...ගිහින්
එක rename කරගන්න
.vbs format එකට
EX: Virus.vbs
එට පස්සේ save කර ගන්න
දැන් ඒ file එක double click කරලා බලන්න.
දැන් ඉතින් එක නතර කර ගන්නත් ඕනෙනේ..
එතකොට කරන්න තියෙන්නේ Task Manager ගිහින් එකේ run වෙන wscript.exe එක end process කරන්න ...
වැඩ කලොත් රේප් එකකුත් දෙන්න..
මේකයි කරන්න ඕනි ...මේ script එක notepad එකක copy කර ගන්න...
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If
ඊට පස්සේ File - Save Ass...ගිහින්
එක rename කරගන්න
.vbs format එකට
EX: Virus.vbs
එට පස්සේ save කර ගන්න
දැන් ඒ file එක double click කරලා බලන්න.
දැන් ඉතින් එක නතර කර ගන්නත් ඕනෙනේ..
එතකොට කරන්න තියෙන්නේ Task Manager ගිහින් එකේ run වෙන wscript.exe එක end process කරන්න ...
වැඩ කලොත් රේප් එකකුත් දෙන්න..
