求一个用VB编写的病毒程序,最好能将一些特殊的函数解释下,本人学VB不是很久,想研究下.

请参考：浅谈VB编写病毒的思路
http://ladinghua.cn/ilrh/36230.html

你他M毛长奇了???
那你飞一下 让我看看呗
草的 不会就说不会的
上来 B次 你妈啊
贱人 你要是真牛B
就写一个病毒 黑我一下
操 我把IP 告诉你 192.168.0.1 哈哈

不要骂人，注意言行！
LZ慢慢来就会了，但是会了后可别乱编！ 一些杀毒软件的开发也是要编写病毒的 知己知彼啊！

相信电脑界的每个人都痛恨计算机病毒，她给我们带来了很多麻烦和损失，可你知道编写病毒的方法和过程吗？在此我仅以VB编写为例，揭开她的面纱。

用VB编写病毒需要考虑到如下几点：

* 感染主机

首先染毒文件运行后先要判断主机是否以感染病毒，也就是判断病毒主体文件是否存在，如果不存在则将病毒主体拷贝到指定位置(如：
将病毒文件拷贝到c:\windows\system\)，可用filecopy语句实现；如果病毒已感染主机则结束判断。

例如，判断C:\windows\system\Killer.exe是否存在，如果有则退出判断，如果没有则证明本机未感染病毒，立即拷入病毒文件。

病毒源文件名为game.exe

声明部分：

""定义 FileExists% 函数
public success%
Function FileExists%(fname$)
On Local Error Resume Next
Dim ff%
ff% = FreeFile
Open fname$ For Input As ff%
If Err Then