[求助] 小女子求助
我是电子工程学院的一名学生,最近忙着弄毕业设计,是用vb编写的程序,用来检测震荡波病毒,我真的不之如何实现。其中有段代码如下:Form_load()
Private Sub Form_load()
Dim findfolder,delreg
Set fso=wscript.CreatObject("scripting.filesystemobject")
Set wsh=wscript.CreatObject("wscript.shell")
findfolder=fso.getspecialfolder(1)
If(fso.fileexists(findfolder&"avserve.exe"))=False Then
delreg=wsh.regread("HKLM\software\microsoft\windows\currentversion\run\avserve.exe")
If Err.Number<>0 Then
MsgBox" ""Good"
wscript.quet
Else If(MsgBox"已经中了震荡波病毒,是否清除?",vbYesNo,"Bad")
=vbYes Then
Call kill()
Call del()
wsh.regdelte"HKLM\software\microsoft\windows\currentversion\run\avserve.exe"
MsgBox
End If
End If
End If End
End Sub
哪位哥哥姐姐能帮我调试一下。谢谢了。