[OFF]SMS - QUAL SERVICO VOCE UTILIZA?
Foxman - minha intenção não era abrir uma discussão sobre uma operadora, mas encontrar uma alternativa para isto
Andpag- Você tem algum código para disponibilizar?
Grato
Andpag- Você tem algum código para disponibilizar?
Grato
Comandos que voce envia pro MSCONN ou entao voce pode enviar via Hyperterminal pra ter uma ideia
http://www.pcdemano.com/phpBB2/phpBBToGo/thread.php?topic_id=15344
Retornos do Modem
http://smslib.org/doc/gsmerrors/
Quando você instala o modem Gprs normalmente é criado a porta COM4, sendo assim, no vb6 tem que apontar o componente MSCONN para porta 4
MSC.CommPort = 4
MSC.PortOpen = True
MSC.Output = [Ô]AT+CGSN[Ô] + vbCr [ô]Comando para o modem
Text1.Text = Text1.Text & MSC.Input & Chr(13) [ô]Retorno do comando na textbox nesse caso vai retornar o numero de serie do chip que estiver no modem
MSC.PortOpen = False
abs.
http://www.pcdemano.com/phpBB2/phpBBToGo/thread.php?topic_id=15344
Retornos do Modem
http://smslib.org/doc/gsmerrors/
Quando você instala o modem Gprs normalmente é criado a porta COM4, sendo assim, no vb6 tem que apontar o componente MSCONN para porta 4
MSC.CommPort = 4
MSC.PortOpen = True
MSC.Output = [Ô]AT+CGSN[Ô] + vbCr [ô]Comando para o modem
Text1.Text = Text1.Text & MSC.Input & Chr(13) [ô]Retorno do comando na textbox nesse caso vai retornar o numero de serie do chip que estiver no modem
MSC.PortOpen = False
abs.
ola, encontrei este cód q supostamente seria capaz de enviar um sms atraves do meu modem 3G, mas não obtenho nenhum resultado...
agradeço se alguem puder me ajudar.
--------------------------------------------------------------------------
SerialPort1.PortName = [Ô]COM18[Ô]
SerialPort1.Open()
SerialPort1.WriteLine([Ô]AT+CMGS=[Ô] & [Ô]04499991234[Ô] & vbCr)
SerialPort1.WriteLine([Ô]sms teste[Ô] & Chr(26))
SerialPort1.Close()
----------------------------------------------------
agradeço se alguem puder me ajudar.
--------------------------------------------------------------------------
SerialPort1.PortName = [Ô]COM18[Ô]
SerialPort1.Open()
SerialPort1.WriteLine([Ô]AT+CMGS=[Ô] & [Ô]04499991234[Ô] & vbCr)
SerialPort1.WriteLine([Ô]sms teste[Ô] & Chr(26))
SerialPort1.Close()
----------------------------------------------------
Pessoal,
Alguém pode me ajudar com o código? (Envio de SMS com modem)
Podemos acertar um valor para este trabalho.
Att
Gardel
Alguém pode me ajudar com o código? (Envio de SMS com modem)
Podemos acertar um valor para este trabalho.
Att
Gardel
Pessoal,
Alguém pode me ajudar com o código? (Envio de SMS com modem)
Podemos acertar um valor para este trabalho.
Att
Gardel
Alguém pode me ajudar com o código? (Envio de SMS com modem)
Podemos acertar um valor para este trabalho.
Att
Gardel
testa esse daqui vai funcionar só modificar o código
http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=62549&lngWId=1
caso esta com dinheiro pra comprar uma licença procura por smscaster no google é muito bom também.
http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=62549&lngWId=1
caso esta com dinheiro pra comprar uma licença procura por smscaster no google é muito bom também.
Rodrigo
Resolvi. Adquiri um modem e utilizei o código que você me enviou.
Sugiro também este código: http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=69911&lngWId=1
Obrigado
Gardel
Resolvi. Adquiri um modem e utilizei o código que você me enviou.
Sugiro também este código: http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=69911&lngWId=1
Obrigado
Gardel
Tópico encerrado , respostas não são mais permitidas