首先谢谢老师解答。我的代码如下

for i=1 TO 1000

If HMIRuntime.tags("kg"&CStr(I)).read=1 And HMIRuntime.tags("xiaoyin" ).read=0 Then’’变量I报警
Dim having‘’
If having=0 Then'如果声音报警没有进行，则进入

If WshShell =Nothing Then‘如果没有，则创建一个SHELL’
Set WshShell = CreateObject("WScript.Shell")'
 End If

WshShell.Run "wmplayer /play """ & mediafile & """", 0, 0'
having=1
End If

NEXT

现在情况是程序运行过程中，进程wmplayer内存占用越来越大，如果有报警，大概持续一天的样子，电脑死机。可以帮我分析一下原因吗？