一、利用ＡＰＩ取得視窗的標題ば陸ù疤澹疲錚潁恚焙桶磁ィ茫錚恚恚幔睿洌豹ぴ詖疤迥？櫓刑砑尤縵麓碼：
ＯｐｔｉｏｎＥｘｐｌｉｃｉｔ
ＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏ ｎＧｅ４ＷｉｎｄｏｗＴｅｘｔＬｉｂ＂ｕｓ—
ｅｒ３２＂Ａｌｉａｓ＂ＧｅｔＷｉｎｄｏｗＴｅｆｔ９＂（Ｃｙｄ
Ｌｏｎｇ，ＢｙＶａｌｌｐＳｔｒｉｎｇＡｓＳｔｌｈ｢
Ｌｏｎｇ）ＡｓＬｏｎｇ
＇在窗體聲明節中加入ＡＰＩ函數「ＧｅｔＷｉｎｄｏｗＴｅｘｔ」的說明
＇函數將向ｌｐｓｔｒｉｎｇ中載入
ＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ１＿Ｃｌｉｋ（）
ＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇ
ＤｉｍｃａｐｔｅｘｔＡｓＳｔｒｉｎｇ
ＤｉｍｃａｐｌｅｎＡｓＬｏｎｇ
ｃａｔｅｘｔ＝Ｓｔｒｉｎｇ＄（１００，０）
ｃａｐｌｅｎ＝９９
ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＷｉｎｄｏｗＴｅｙｔ（Ｂｙ
ＢｙＶａｌｃａｐｔｅｘｔ，ＢｙＶａｌｃａｐｌｅｎ）
ｐｒｉｎｔｒｅｔｕｒｎｃｏｄｅ
Ｐｒｉｎｔｃａｐｔｅｘｔ
Ｐｒｉｎｔｃａｐｌｅｎ
ＥｎｄＳｕｂ
二、取得滑鼠在目前視窗（顧客區）的螢幕座標そ立一新項目窗體ｆｏｒｍ１並加入控製文字方塊Ｔｅｘｔ１、Ｔｅｘｔ２ぴ詢疤？櫓惺淙耄邯
ＯｐｔｉｏｎＥｘｐｌｉｃｉｔ
ＰｒｉｖａｔｅＤｅｃｌｏｎ ＧｅｔＣｕｒｓｏｒＰｏｓＬｂｂ＂ｕｓｅｒ３２＂
（ｌｐＰｏｉｎｔＡｓＰＯＩＮＴＡＰＩ）ＡｓＬｏｎｇ
ＰｒｉｖａｔｅＴｙｐｅＰＯＩＮＴＡＰＩ
ＸＡｓＬｏｎｇＹＡｓＬｏｎｇ
ＥｎｄＴｙｐｅ
ＤｉｍｐｔＡｓＰＯＩＮＴＡＰＩ
ＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇ
ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）
Ｔｅｘｔ１． Ｔｅｘｔ＝＂＂
Ｔｅｘｔ２． Ｔｅｘｔ＝＂＂
ＭａｘＢｕｔｔｏｎ＝Ｆａｌｅ
ＭｉｎＢｕｔｔｏｎ＝Ｆａｌｅ
Ｆｏｒｍ１． ＷｉｎｄｏｗＳｔａｔｅ＝２
ＥｎｄＳｕｂ
ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｍｏｕｓｅ Ｍｏｖｅ（ＢｕｔｔｏｎＡｓＩｎｔｅｇｅｒ，
ＳｈｉｆｔＡｓＩｎｔｅｇｅｒ，ＸＡｓＳｉｎｇｌｅ，ＹＡｓＳｉｎｇｌｅ）
＇注意ｐｔ結構是按引用傳遞的
ｒｅｕｒｎｃｏｄｅ＝ＧｅｔＣｕｒｓｏＰｏｓ（ｐｔ）
Ｔｅｘｔ１． Ｔｅｘｔ＝ｐｔ． Ｘ
Ｔｅｘｔ２． Ｔｅｘｔ＝ｐｔ． １
ＥｎｄＳｕｂ
三、記錄Ｗｉｎｄｏｗｓ使用時間
建立新專案視窗ｆｏｒｍ１，輸入代碼：
ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）
ｆｏｒｍ１． ｖｉｓｉｂｌｅ＝ｆａｌｓｅ
Ｏｐｅｎａｐｐ． ｐａｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｑＡｐｐｅｎｄＡ｡１
Ｐｒｉｎｔ＃１，＂啟動ｗｉｎｄｏｗｗ：＂＆ＣＳｔｒ（Ｎｏｗ）
Ｃｌｏｓｅ＃１
ＥｎｄＳｕｂ
ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｕｎｌｏａｄ（ＣａｎｃｅｌＡｓＩｎｔｅｇｅｒ）
Ｏｐｅｎａｐｐ． ｐａｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｑＡｐｐｅｎｄＡ｡１
Ｐｒｉｎｔ＃１，＂關閉ｗｉｎｄｏｗｗ：＂＆ＣＳｔｒ（Ｎｏｗ）
Ｃｌｏｓｅ＃１
Ｅｎｄ
ＥｎｄＳｕｂ
最後將此程序加入啟動組即可。 （->