FoxPro for Windows 远程拨号通讯功能的设计与实现

][HJ1.6mm]?
*调用Write函数拨号?
*[CDD19*2][CDD19*2][HJ1.6mm]?
Restcall=CallFn(Write,Com2,Telno,len(Telno))\=
If Restcall＜0?
Wait Window "传输故障，请检查线路!"?
Endif\=
*[CDD19*2]?[CDD19*2][HJ1.6mm]?
*调用Write函数结束传输?
*[CDD19*2]?[CDD19*2][HJ1.6mm]?
S="ATHO"+chr(13)\=
Restcall=CallFn(Write,Com2,S,len(S))\=
If Restcall＜0?
Wait Window "传输故障，请检查线路!"?
Endif\=
Restcall=CallFn(Close,Com2)=
If Restcall＜0?
Wait Window "线路关闭故障，请检查线路!"?
Endif?
6.结束语?
根据上述的设计思想，我们可以

实现基本的计算机远程拨号通讯功能。文中所述在中文Wind ows 3.2环境下，用FoxPro for Windows 2.5b程序设计语言实现并通过。 ?

《FoxPro for Windows 远程拨号通讯功能的设计与实现(第2页)》