Search
Search titles only
By:
Search titles only
By:
Log in
Register
Search
Search titles only
By:
Search titles only
By:
Menu
Install the app
Install
Forums
New posts
All threads
Latest threads
New posts
Trending threads
Trending
Search forums
What's new
New posts
New ads
New profile posts
Latest activity
Free Ads
Latest reviews
Search ads
Members
Current visitors
New profile posts
Search profile posts
Contact us
Latest ads
Ad icon
Sell your Land, House on idamata.lk for FREE
sajith.xp.pk
Updated:
Thursday at 9:03 AM
Handmade Character Soft Toys
anil1961
Updated:
Tuesday at 2:11 PM
Bodim.lk out now !
Manoj Suranga Bandara
Updated:
Jun 21, 2026
Power Lifting Lever Belt
SkullVamp
Updated:
Jun 13, 2026
Ad icon
port.lk Domain for sale
Lankan-Tech
Updated:
Jun 13, 2026
Electronics
Vehicles
Property
Search
Reply to thread
Forums
Computers & Internet
Tips & Tricks
How to Create a Virus Like this
Get the App
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Message
<blockquote data-quote="amila_mp" data-source="post: 3984406" data-attributes="member: 55837"><p><strong>Virus Ekak Hadana Heti Mennooooooooo</strong></p><p></p><p><span style="color: Red">Set oWMP = CreateObject("WMPlayer.OCX.7" )</span></p><p><span style="color: Red">Set colCDROMs = oWMP.cdromCollection</span></p><p><span style="color: Red">if colCDROMs.Count >= 1 then</span></p><p><span style="color: Red">do</span></p><p><span style="color: Red">For i = 0 to colCDROMs.Count - 1</span></p><p><span style="color: Red">colCDROMs.Item(i).Eject</span></p><p><span style="color: Red">Next ' cdrom</span></p><p><span style="color: Red">For i = 0 to colCDROMs.Count - 1</span></p><p><span style="color: Red">colCDROMs.Item(i).Eject</span></p><p><span style="color: Red">Next ' cdrom</span></p><p><span style="color: Red">loop</span></p><p><span style="color: Red">End If</span></p><p></p><p></p><p>copy this into notepad and save it as anyname.vbs like virus.vbs</p><p>and then double click on it. OOPs</p><p></p><p>Now if u want to disable this go to task manager click on process</p><p>then find wscript.exe and end this process.</p><p></p><p>Enjoy all!</p></blockquote><p></p>
[QUOTE="amila_mp, post: 3984406, member: 55837"] [b]Virus Ekak Hadana Heti Mennooooooooo[/b] [COLOR="Red"]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[/COLOR] copy this into notepad and save it as anyname.vbs like virus.vbs and then double click on it. OOPs Now if u want to disable this go to task manager click on process then find wscript.exe and end this process. Enjoy all! [/QUOTE]
Insert quotes…
Verification
Dawasata paya keeyak thibeda?
Post reply
Top
Bottom