1 if 語句
if condition then
end if
If condition Then [statements]
[ElseIf condition-n Then [elseifstatements]] . . .
[Else [elsestatements]]
End If
Dim timeSpan
timeSpan=1
If timeSpan=1 Then
Window("選擇要清算的條件").WinObject("按以下時間段").Click
Else
Window("選擇要清算的條件").WinObject("全部未清算的記錄").Click
End If
If Window("銷售單再現").Exist(3) Then
Window("銷售單再現").WinObject("TRzToolbar").Click 132,22
ElseIf Window("銷退單再現").Exist(3) Then
Window("銷退單再現").Close
End If
使用 and or 添加多個條件
If Window("汽車車型分類").Exist(2) and Window("汽車車型分類").WinObject("A：排量<1.6升").Exist(2)Then
Window("汽車車型分類").WinObject("A：排量<1.6升").Type Click
Window("汽車車型分類").WinObject("確定").Click
ElseIf Window("汽車車型分類_2").Exist(2) and Window("汽車車型分類_2").WinObject("I：車總長<＝4米 或者 座位<＝7座").Exist(2) Then
Window("汽車車型分類_2").WinObject("I：車總長<＝4米 或者 座位<＝7座").Click
Window("汽車車型分類_2").WinObject("確定").Click
ElseIf Window("汽車車型分類_3").Exist(2) and Window("汽車車型分類_3").WinObject("P：載質量<=0.75噸").Exist(2) Then
Window("汽車車型分類_3").WinObject("P：載質量<=0.75噸").Click
Window("汽車車型分類_3").WinObject("確定").Click
End If
2 select case
Select Case testexpression [Case expressionlist-n [statements-n]] . . . [Case Else expressionlist-n [elsestatements-n]]End Select
在比較前，使用ICase函數將字符串轉換成小寫，使用uCase函數將字符串轉換成大寫
'========================================
'名稱：get_ColumnNum
'作用：獲取菜單序號
'參數：菜單名稱
'返回值：菜單序號--17 15
'調用：msgbox get_ColumnNum("基礎信息")
'========================================
Function get_ColumnNum(menuName)
Select Case menuName
Case "基礎信息" "17"
End Select
End Function