在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");