瑞星卡卡安全论坛

提示为发现未知木马病毒并阻止其运行


添加右键查找目标我是照的网上的自己也不懂

dim ws,objArgs,strPath
Set objArgs = WScript.Arguments
if objArgs.Count>0 then
        strPath=mid(objArgs(0),instr(objArgs(0),"/")+1,len(objArgs(0))-instr(objArgs(0),"/"))
end if
set ws=CreateObject("Wscript.Shell")
ws.run "Explorer /select, " & GetTargetPath(strPath)
Function GetTargetPath(LinkName)
      On Error Resume Next
      Dim Shortcut
      Set Shortcut = CreateObject("Wscript.Shell").CreateShortcut(LinkName)
      GetTargetPath = Shortcut.TargetPath
      Shortcut.Save
      Set Shortcut = Nothing
End Function


Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\lnkfile\shell\FindFile]
@="查找目标(&F)"
[HKEY_CLASSES_ROOT\lnkfile\shell\FindFile\command]
@="\"C:\\WINDOWS\\system32\\WScript.exe\" \"C:\\WINDOWS\\FindFile.vbs\" \"%1\""

用户系统信息：Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0)

lz如果可以确认这个vbs是正常的，建议将其加入木马行为防御白名单，具体可以参考此帖：http://bbs.ikaka.com/showtopic-8674956.aspx

每次都要点一下信任，按理说信任后不应该再出现这个框框

参考二楼的方法加入木马行为防御白名单试试呀。