>oPhone=CREATEOBJECT('Form') >oPhone.AddObject('Phone','Olecontrol','MSCOMMLib.MSComm') >oPhone.Phone.Settings='9600,N,8,1' >WAIT WINDOW 'Setting up modem' TIMEOUT 1 >oPhone.Phone.CommPort=1 >WAIT WINDOW 'Setting up comm port' TIMEOUT 1 >oPhone.Phone.PortOpen=.T. >WAIT WINDOW 'Opening port' TIMEOUT 1 > >oPhone.Phone.Output='AT#CLS=8'+CHR(13) >WAIT WINDOW 'Initialization string 1' TIMEOUT 1 >oPhone.Phone.Output='AT#VRN=0'+CHR(13) >WAIT WINDOW 'Initialization string 2' TIMEOUT 1 >oPhone.Phone.Output='AT#VLS=6'+CHR(13) >WAIT WINDOW 'Initialization string 3' TIMEOUT 1 > >oPhone.Phone.Output='ATDT123-4567;'+CHR(13) >FOR lnCompteur=1 TO 37 > WAIT WINDOW 'Dialing '+ALLTRIM(STR(lnCompteur)) TIMEOUT 1 >NEXT * COMMENT OUT THIS LINE oPhone.Phone.Output='ATH'+CHR(13) >WAIT WINDOW 'Closing the connection' TIMEOUT 1 >oPhone.Phone.PortOpen=.F. >>