main.prg

短信源程序代码,请大家试用短信源程序代码,请大家试用短信源程序代码,请大家试用

Declare STRING Sms_Connection IN sms Integer Com_Port, Integer Com_BaudRate
Declare INTEGER Sms_Send 	   IN sms  String Sms_TelNum, String Sms_Text

Declare STRING Sms_Receive    IN sms
Declare INTEGER Sms_Delete 	   IN sms String Sms_Index
Declare INTEGER Sms_AutoFlag   IN sms
Declare INTEGER Sms_NewFlag    IN sms

Declare INTEGER Sms_Disconnection IN sms


*启动运行表单：
do form test
*do form dx_fs_upline
read events

close all
clear all
close procedure

*quit
return