可以使用mscomm32.ocx控件． 财 软联盟 fs119.net

　　脚本如下：

　　Stringls_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) 财软,联盟,fs119.net

　　//等待数据。
　　Do
　　Yield()
　　//从Com端口取数据
　　ls_data=ole_1.object.Input
　　LOOPUntil(Pos(ls_data,"OK"char(13)char(10))>0)

财软联,盟,fs119.net

　　//向Com端口发送数据使用Output方法
　　ole_1.Object.Output=ls_data 财管.家园.fs119.net

　　//关闭端口。
　　ole_1.object.PortOpen=FALSE

财.管家园.fs119.net