QTP的一些小用法

1. 通过IE打开URL。

   'testUrl  = "http://www.baidu.com/" 也可以参数化testurl

   testUrl = datatable.Value("testUrl",dtLocalSheet)

   SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE",testUrl

2. GetROProperty, Instr用法

 Errorinfo = Browser("Browser").Dialog("Microsoft Internet Explorer").WinButton("OK").GetROProperty("attached text")
 'msgbox  Errorinfo
 Pos0 = Instr(1,Errorinfo,"Record already exists.")

 If Pos0 > 0 Then

  action_Result = 0

  exitaction(action_Result)

 else

  action_Result = -1  

  exitaction(action_Result)       

end if