怎么用vb编写杀毒软件？？？？？

Question

今天竟然发现我手头的杀毒软件不能杀死我机器里的病毒，
但是我又不想format，不然我机子里面我欣欣苦苦下回来的好几百兆软件都玩完
请问有谁可以告诉我，怎么用vb编写杀毒软件？？？？？
没有人会吗？

Answer 1

大概是vb编的杀毒软件运行太慢吧,不过我也很有兴趣!!!
我下载了一个vb写的病毒源码,要的话留下e-mail.(qq也好)

Answer 2

CForce:
[email protected]
41785691
如果是 Open Filename For Binary as #1 的话：
Dim a() As Byte
Dim b
Get 1,,a
b = ""
c = 病毒体
For i = 1 To LOF(1) - Len(c)
For j = i To i + Len(c)
b = b & a(j)
Next j
Next i
If b = c Then MsgBox "此文件中毒。"