Question

如何检测系统是否禁用了VBS脚本

运行简游的时候提示我；创建失败，检测系统是否禁用了VBS脚本

Answer 1

打开任务管理器，转到进程管理面板，直接新建任务，输入：wscript.exe，看下面的任务进程里是否多了一个wscript.exe的进程，如果有的话，说明VBS没有被禁用，如果没有，就被禁用了。

追问

添加以后有了 但点击确认以后那个任务又没有了 是不是被禁用呢 如果被禁用 那要如何开启呢

追答

这是正常的，如果被禁用，你是调用不出来的。这说明你的VBS脚本没有禁用，可能是你的某些程序影响了你的程序运行。很多杀毒软件、安全防护软件会阻止某些类似病毒程序的运行，会误报把一些程序当做病毒。当初我玩《龙》，装的卡巴斯基就会阻止。你试试看把你的防护软件都禁用，试试

Answer 2

cmd /c echo msgbox "vbs没有被禁用">>c:\1.vbs|wscript c:\1.vbs

如果弹出消息框“vbs没有被禁用” 那么vbs没有被禁用

追问

那要如何开启呢

Answer 3

Private Sub HScroll1_Change()
ActiveSheet.Spinners.Add(57, 131.25, 76.5, 102).Select
Range("D11").Select
End Sub
Private Sub Label1_Click()
ActiveSheet.Labels.Add(272.25, 30.75, 102.75, 68.25).Select
ActiveSheet.Shapes("Label 4").Select
Selection.Characters.Text = "你是王八蛋吗"
Range("H3").Select
End Sub
Private Sub Picture1_Click()
Range("E9").Select
ActiveCell.FormulaR1C1 = "didengderenlei"
Range("E10").Select
End Sub
Private Sub Command1_Click()
Range("E9").Select
ActiveCell.FormulaR1C1 = "didengderenlei"
Range("E10").Select
End Sub
do Private Sub Command1_Click()
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Sheet1'!$A$2")
ActiveChart.ChartType = xlPie
ActiveChart.ClearToMatchStyle
ActiveChart.ChartStyle = 1
ActiveChart.ClearToMatchStyle
ActiveChart.ClearToMatchStyle
ActiveChart.ChartStyle = 2
ActiveChart.ClearToMatchStyle
ActiveChart.SeriesCollection(1).Select
ActiveSheet.ChartObjects("图表 1").Activate
ActiveChart.SeriesCollection(1).Points(1).Select
ActiveSheet.ChartObjects("图表 1").Activate
Range("C7").Select
ActiveCell.FormulaR1C1 = "asdzx"
ActiveSheet.ChartObjects("图表 1").Activate
ActiveChart.SeriesCollection(1).Select
Range("C8").Select
ActiveCell.FormulaR1C1 = "12+15"
Range("C9").Select
ActiveSheet.ChartObjects("图表 1").Activate
ActiveChart.SeriesCollection(1).Select
ActiveSheet.ChartObjects("图表 1").Activate
ActiveChart.SeriesCollection(1).Points(1).Select
ActiveSheet.ChartObjects("图表 1").Activate
End Sub
Private Sub Timer1_Timer()
Range("A2").Select
ActiveCell.FormulaR1C1 = "18:33"
Range("B2").Select
End Sub
这是啥啊

Answer 4

在第一行加上下面这句话：

on error resume next

追问

能说具体点吗 如果禁用了 那要如何开启呢