UFT/QTP 委托系统通过委托结果文本内容断言结果

UFT/QTP 委托系统通过委托结果文本内容断言结果

分享与学习，最原始与本质的快乐！
– alonefox

相对而言UFT的资料比较少，找资料花了点时间。写完了给有需求有缘人。性能应该不是最优，望指导！

Dim start_index,num
str = ""
str_qt1 = ""

i = 0
Do
	Wait 1
	i = i +1
	If i = 3 Then
		Exit do
	End If
Loop While not Window("网上股票交易系统").Dialog("提示").Exist

While Window("网上股票交易系统").Dialog("提示").Exist
	If Window("网上股票交易系统").Dialog("提示").Page("Page").Exist Then
		RunAction "基金提示 [基金提示]", oneIteration
	Else
		str = Window("网上股票交易系统").Dialog("提示").Static("提示信息").GetROProperty("text")
		'确认提示
		If instr(str,"委托确认") > 0 Then
			If Window("网上股票交易系统").Dialog("提示").Static("提示信息_其他").Exist Then
				str_qt = Window("网上股票交易系统").Dialog("提示").Static("提示信息_其他"