CreateObject("WScript.Shell")出错!

zy7747

运行Set WshShell = CreateObject("WScript.Shell")

提示ActiveX部件不能创建对象.

缺啥啊?求助!

lotustower

Option Explicit

---

Sub Example_From_747()
    '設定引用項目 Windows Script Host Object Model
    Dim myWsh   As IWshRuntimeLibrary.WshShell
    Dim myExec  As IWshRuntimeLibrary.WshExec
    Dim myTimer As Single
    Set myWsh = CreateObject("Wscript.Shell")
    Set myExec = myWsh.Exec("Notepad")      '指定要啟動的應用程式
    myTimer = Timer + 5                     '指定結束時間
    Do Until myTimer < Timer
        DoEvents
    Loop
    myExec.Terminate
    Set myExec = Nothing                    '物件的釋放
    Set myWsh = Nothing
End Sub

zy7747

嘿嘿,好久不见emily,我这就去试试,先谢过.

zy7747

不行啊,用户定义类型未定义.

Dim myWsh   As IWshRuntimeLibrary.WshShell

这一句出错.

lotustower

QUOTE:

以下是引用zy7747在2006-8-23 16:46:01的发言：

不行啊,用户定义类型未定义.

Dim myWsh   As IWshRuntimeLibrary.WshShell

这一句出错.

設定引用項目 Windows Script Host Object Model

 

 

sqquNT6U.zip (30.52 KB, 下载次数: 19)

2006-8-23 16:51 上传

点击文件名下载附件

[此贴子已经被作者于2006-8-23 16:51:55编辑过]

zy7747

依旧提示ActiveX部件不能创建对象.[em06]

可能只有重装系统了.

还是很感谢emily......

hhzjxss

谢谢了，看了半天才看懂！