51Testing软件测试论坛

标题: 批量重载的问题。。。。 [打印本页]

作者: wshyzhywx 时间: 2010-4-13 23:04
标题: 批量重载的问题。。。。
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 时间: 2010-4-14 22:31
RegisterUserFunc "sSubKey", "TOMethodName", "FunctionName" 放外边..

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)