批量重载的问题。。。。

wshyzhywx

Function RegisterUserFuncX(TOMethodName, FunctionName)
        Dim oRegistry, arrSubKeys, sSubKey, sKeyPath
        Const HKEY_LOCAL_MACHINE = &H80000002

        sKeyPath = "SOFTWARE\MERCURY INTERACTIVE\QuickTest Professional\MicTest\Test Objects"

        Set oRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\." &_
                                        "\root\default:StdRegProv")

        oRegistry.EnumKey HKEY_LOCAL_MACHINE, sKeyPath, arrSubKeys

        For Each sSubKey In arrSubKeys
                RegisterUserFunc sSubKey, TOMethodName, FunctionName
        Next

        Set oRegistry = Nothing
End Function


今天找资料看到这个函数介绍说可以实现批量重载 ，但是试了几下没成功， 哪位用过这个的么，能否指教下如何做

17800455

RegisterUserFunc "sSubKey", "TOMethodName", "FunctionName"  放外边..