求助串口程序

private dh dh=space(15) @10,10 say "请输入电话号码:" get dh read wait windows "请打开Modem,按任意键开始拨号!" dh=alltrim(dh) !mode com1:2400,n,8,1 hd=fopen("com1",12) if ferror()=-1 wait windows "无法打开通讯口!" return endif =fputs(hd,"atdt"+dh) wait widnows "按任意键取消与Modem的联接并退出!" =fputs(hd,"atzh") =fclose(hd) return

[此贴子已经被作者于2004-11-09 10:07:58编辑过]