【QTP】函数指针的应用

使用这个方法，能将新的函数名指向一个原有的函数名

Dim new_aa
Set new_aa = GetRef("aa")     '使变量new_aa指向aa函数
Call new_aa()                 '这样new_aa就有了aa的功能

Function aa()
    msgbox "我是aa"
End Function

我的用法是，改写一些系统自带的函数

比如print，之前的print，只是打印在QTP自带的LOG里

用这个方法，可以将print改为msgbox的形式。

Dim print
Set print = GetRef("my_Print")
print "1234567"

Function my_Print(oSth)
	msgbox oSth
End Function