【QTP】函数指针的应用

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

Dim new_aaSet 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 printSet print = GetRef("my_Print")print "1234567"Function my_Print(oSth)msgbox oSthEnd Function