腳本如下:
String ls_data
//使用COM1端口。
ole_1.object.CommPort = 1
//設置速率爲9600,無奇偶校驗,8 位數據,一個停止位。
ole_1.object.Settings = "9600,N,8,1"
//讀入整個緩衝區的數據。
ole_1.object.InputLen = 0
打開端口
ole_1.object.PortOpen = True
//發送attention命令
ole_1.object.Output = "ATV1Q0" + char(13)
//等待數據。
Do
Yield()
//從Com端口取數據
ls_data += ole_1.object.Input
LOOP Until(Pos(ls_data, "OK" + char(13) + char (10)) > 0)
//向Com端口發送數據使用Output方法
ole_1.Object.Output = ls_data
//關閉端口。
ole_1.object.PortOpen = FALSE