【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