在WinRunner中识别Delphi控件

# 制作环境：

# WinRunner 7.0 以上都行 Build 7211

# Delphi 6.0 以下都行，其它的未试

# 使用方法：

# Step 1 拷贝本文档中所有内容

# Step 2 打开WinRunner\lib\vbinit中的script文件

# Step 3 将内容粘贴在段落“

# VisualBasic 4.0 Standart controls”之前

# Step 4 重新运行WinRunner

# Step 5 启动时装载VB Addin

# TBitBtn

set_class_map("tbitbtn", "push_button"); set_record_attr("tbitbtn", "class label x y", "MSW_id", "location");

# TButton

set_class_map("tbutton", "push_button"); set_record_attr("tbutton", "class label x y", "MSW_id", "location");

# TCheckBox

set_class_map("tcheckbox", "check_button"); set_record_attr("tcheckbox", "class label x y", "MSW_id", "location");

# TComboBox

set_class_map("TComboBox", "combobox");db2inst1 set_record_attr("TComboBox", "class attached_text x y", "MSW_id", "location");

# TDateTimePicker

set_class_map("tdatetimepicker", "sysdatetimepick32"); set_record_attr("tdatetimepicker", "class attached_text x y", "MSW_id", "location");

# TEdit

set_class_map("tedit", "edit"); set_record_attr("tedit", "class attached_text x y", "MSW_id", "location");

# TGroupButton

set_class_map("tgroupbutton", "radio_button"); set_record_attr("tgroupbutton", "class label x y", "MSW_id", "location");

# TListBox

set_class_map("TListBox", "listbox"); set_record_attr("TListBox", "class attached_text x y", "MSW_id", "location");

# TListView

set_class_map("TListView", "syslistview32"); set_record_attr("TListView", "class attached_text x y abs_x", "MSW_id", "location");

# TMaskEdit

set_class_map("TMaskEdit", "edit"); set_record_attr("TMaskEdit", "class attached_text x y", "MSW_id", "location");

# TMemo

set_class_map("tmemo", "edit"); set_record_attr("tmemo", "class attached_text x y", "MSW_id", "location");

# TMonthCalendar

set_class_map("TMonthCalendar", "sysmonthcal32"); set_record_attr("TMonthCalendar", "class attached_text x y", "MSW_id", "location");

# TRadioButton

set_class_map("TRadioButton", "radio_button"); set_record_attr("TRadioButton", "class label x y", "MSW_id", "location");

# TRickEdit

set_class_map("TRichEdit", "edit"); set_record_attr("TRichEdit", "class attached_text x y", "MSW_id", "location");

# TPageControl

set_class_map("tpagecontrol", "systabcontrol32"); set_record_attr("tpagecontrol", "class attached_text x y", "MSW_id", "location");

# TStaticText

set_class_map("TStaticText", "object"); set_record_attr("TStaticText", "class regexp_MSW_class label", "attached_text MSW_id MSW_class", "location");

# TTreeView

set_class_map("ttreeview", "systreeview32"); set_record_attr("ttreeview", "class attached_text", "MSW_id", "location");