Oi,
Usando o mscomm.
varporta=Createobj("mscommlib.mscomm") &&(Cria o Objeto Mscomm)
varposta.Commporta=1 &&Numero da Porta Comm a ser Utilizada
varporta.Settings="33600,N,8,1" && Seta a velocidade do Modem,Paridade,Stop Bit,etc)
Varporta=PortOpen=.t. && Abre a porta
varporta.Output="ATDT9992222"+chr(13) && Atdt=Tone Atdp=Pulse + telefone.Pode-se colocar um "0," para discar por ramal a "," da uma pausa antes de Discar
Varporta.Output="ATH0"+chr(13) && Hangup do modem
Varporta.PortOpen=.f. && fecha porta
Bom espero que ajude
FABIO B. DA SILVA
JMS ASSESSORIA E CONSULTORIA LTDA