如何使用 IBM Rational Robot 建立自動化功能測試框架

'打開文件
Dim sData() as string
InFileName = getExcelFileName
ReadExcelData InFileName, sData()

===============================

‘對文件中每一行
Select Case (sObjType)
Case "Button"
ProcessButton(sObjAction, sObjData, sData)
Case “EditBox”
ProcessEditBox(sObjAction, sObjData, sData)
Case “ComboBox”
ProcessComboBox(sObjAction, sObjData, sData)
Case “RadioButton”
ProcessRadioButton(sObjAction, sObjData, sData)

===============================

‘對按鈕執行的動作
Select Case(sObjAction)
Case “Click”
Window SetContext, "currentwindow", ""
PushButton Click, "Text=" & sObjData, ""

===============================

‘對文本框執行的動作
Select Case(sObjAction)
Case “Click”
EditBox Click, "Name=" & sObjData, ""
InputKeys "^+{HOME}{DELETE}"
InputKeys sData
===============================

‘對組合框執行的動作
Select Case(sObjAction)
Case “Click”
ComboBox Click, "Name=" & sObjData, ""
ComboListBox Click, "Name=" & sObjData, "Text=" & sData

===============================

‘對單選按鈕執行的動作
Select Case(sObjAction)
Case “Click”
RadioButton Click, "Name=" & sObjData