sapphire
小水手
UID 21489
精华
0
积分 6
帖子 6
阅读权限 10
注册 2006-4-28
状态 离线
|
是组件。源程序是这样的。请教斑竹帮忙解决一下。
Private Sub Form_Load()
Dim findfolder, delreg
Set fso = wscript.CreateObject("scripting.filesystemobject")
Set wsh = wscript.CreateObject("wscript.shell")
findfolder = fso.getspecialfolder(1)
If (fso.fileexist(findfolder & "\avserver.exe")) = flase Then
delreg = wsh.regread("HKLM\software\microsoft\windows\currentversion\run\avserver.exe")
If Err.Number <> 0 Then
MsgBox "电脑中没有种“振荡波”", 64, "GOOD"
wscript.quit
Else
If (MsgBox("已经中“振荡波”病毒，是否清除？", vbYesNo, "BAD")) = vbYes Then
Call kill
Call del
wsh.regdelete "HKLM\software\microsoft\windows\currentversion\run\avserve.exe"
MsgBox "注册表中的加载项已经清除！", 64, "清除"
End If
End If
End If
End
End Sub
Sub del()
Set fso = wscript.CreateObject("scripting.filesystemobject")
getfolder = fso.getspecialfolder(1)
fso.deletefile (getfolder & "\avserve.exe")
End Sub
Sub kill()
Set wsh = wscript.CreateObject("wscript.shell")
wsh.run "cmd.exe/c kill.bat"
wscript.sleep 1200
End Sub
|
|
