sms

[Gigi84]

Basta impostare una connessione MSComm con il centro servizi del gestore ed il gioco è fatto...

ciao Wild!! hai della documentazione, link o qualcosa a riguardo??

Ciao e grazie!!

[Wild78]

Cerca in google...


Il Ng è it.comp.lang.visual-basic

[r0x]

Ormai pochi siti supportano l'invio di SMS totalmente gratuito, però alcuni ancora lo permettono, seppur in numero limitato. Una volta trovato l'host che fa al caso tuo puoi stabilire una connessione via socket e ingegnarti un po' utilizzando i dati che il socket ti manda. Cmq il problema non è fare il programma... è trovare il sito, ormai non ce ne sono quasi più!!

Altro consiglio: c'è un programma (mi pare su www.pizzairc.it) che, se non ricordo male, manda SMS illimitati. Magari vedi che gestore usa quel programma e stai a posto!

Ciao.

[Wild78]

inserisci in un form 2 text box + un command

## IMPORTANTE ##
Includi nei Riferimenti Microsoft XML ver 3.0
è difficile che tu abbia questa Dll, dunque scaricatela dal Sito :
http://msdn.microsoft.com/downloads/...le.asp?url=/MS
DN-FILES/027/001/548/msdncompositedoc.xml

Private Sub Cmd_InviaSMS_click()

    Dim Messaggio As String
    Dim n°_Telefonico As String

    Dim ServerSMS As ServerXMLHTTP
    Set ServerSMS = CreateObject("msxml2.serverXMLHTTP")

    Messaggio = Text1.Text
    n°_Telefonico = CStr(Text2.Text)

    ServerSMS.open "GET", "Indirizzo HTTP Per L'invio degli SMS +
action=accept", False
    ServerSMS.send

    Debug.Print ServerSMS.responseText ' esito del server

    ServerSMS.open "POST", "Indirizzo HTTP Per L'invio degli SMS", False
    ServerSMS.setRequestHeader "Content-Type",
"application/x-www-form-urlencoded"
    ServerSMS.send "action=send&number=" & n°_Telefonico &
"&email=&message=" & Messaggio

    Debug.Print ServerSMS.responseText ' esito del servere


End Sub

[r0x]

Se gli fai la pappa pronta non credo che imparerà o si documenterà mai su come si utilizza un socket...

[Wild78]

Lo so...

E' stato il mio motto su questo forum per un mese e più...



Ma questo è solo un metodo, ed il più difficile...

[Trinity_np]

Ragazzi aiutatemi!Sono esasperato!
Devo assolutamente completare il programma di invio di sms.
Avevo deciso di utilizzare come server http://www.vizzavi.it (oppure www.enel.it).
In teoria saprei come inviarlo ma non so come fare in pratica!

Ecco si potrebbe fare.

Diciamo che utilizziamo un oggetto winsock (chiamato winsock1).
a questo punto quando il programma parte
(come esempio usiamo il vb):

Private Sub Form_Load()
Winsock1.RemoteHost = "www.vizzavi.it"
'sono incerto tra www.vizzavi.it e sms.vizzavi.it
Winsock1.RemotePort = 80

Winsock1.Connect
End Sub

a questo punto vizzavi nella home page presenta dei vari campi per l'invio dell'sms:

<input type="hidden" name="txtMsg" value="testo del msg">
<input type="hidden" name="txtTel" value="1234567">
<input type="hidden" name="selPref" value="333">
<input type="hidden" name="TypeOpen" value="1">
<input type="hidden" name="Counter" value="">

Il problema e' settarli e chiamare la pagina di conferma.

WILL! Aiutami (dato che ho visto che mi stai avvicinando alla risoluzione)!
-------
Sarei davvero riconoscente a chi mi aiutasse!
Vi prego!Ho pochi giorni per completare il programma!
Contattatemi pure via email
(trinity_93@libero.it - trinity_np@hotmail.com)
AIUTATEMI!VI PREGO!!
Grazie, Trinity

[Mychy]

Originariamente inviato da Wild78
Paghi la telefonata, secondo quanto stabilito dal tuo contratto telefonico Verso Cellulari.

Questo è stato sempre un mio dubbio.

Mettioamo che io ho gia il programma, mi connetto ad internet e spedisco il messaggio, in questo caso pagherei la mia normale tariffa internet, la tariffa verso i cellulari o altro?

[Wild78]

Se chiami un numero cellulare, la tariffa è, ovviamente verso cellulari... :quipy:

[niccolo78]

qualcuno di voi è cosi gentile da spiegarmi per benino cos'è un socket?ringrazio gia da ora ki vorra rendere una persona meno ignorante..