Set oExtern=CreateObject("Mercury.ExternObj")
oExtern.Declare miclong,"FindWindow","user32.dll","FindWindowA",micString,micString
hwndWindow=oExtern.FindWindow(vbNullString,"鏃犳爣棰�-璁颁簨鏈�")
MsgBox hwndWindow
Set oExtern=nothing
错误提示如下:
Microsoft VBScript 运行时错误 (4, 1) : ActiveX 部件不能创建对象: 'Mercury.ExternObj'
Microsoft VBScript 运行时错误 (5, 1) : 缺少对象: 'oExtern'
Microsoft VBScript 运行时错误 (6, 1) : 缺少对象: 'oExtern'