Newsgroup: it.comp.lang.visual-basic
Titolo: SMS seguito

Sono ancora io!!!!
che mi sto adoperando circa l'invio di messaggi SMS con un programmino
scritto in VB che si interfacci via HTTP con un centro invio messaggi
gratuiti!!
molti di voi pensano forse che la mia è un'impresa ardua se non impossibile
:))) be !! qualcosa sono riuscito a trovare su un sito sparso nel mondo :))
hahahah!!
ho del codice che dovrebbe fare quello che cerco ma si interfaccia ad un
centro messaggi fuori servizio c'è qualcuno che può mettere del suo in
questo codice per risolvere il mio problema?
ecco il codice:
'**************************************
' Name: Send SMS message via Http for fr
'     ee
' Description:Sends an SMS message to a
'     cell phone for free. Makes use of the XM
'     LHTTPRequest object contained in msxml.d
'     ll. Uses the free German Web service www
'     .
billiger-telefonieren.de
. Sorry but thi
'     s service has been cancelled. But the th
'     e code still shows the principle. If you
'     know a working Web service for sending S
'     MS, let me know.
Depending on the provider, you can send SMS messages to cell phone by
sending an email to the appropriate address (e.g. 
0171...@t-d1-sms.de
). But
this bills the receiver with a fee.
' By: Klemens Schmid
'
'
' Inputs:1. Message text (up to 160 char
'     s)
2. Phone number (e.g. +49171xxxxxx)
'
' Returns:None
'
'Assumes:I used it with Microsoft XML, v
'     ersion 2. Hopefully also works with vers
'     ion 1.
'
'Side Effects:None
'
'Warranty:
'Code provided by Planet Source Code(tm)
'     (
http://www.Planet-Source-Code.com
) 'as
'     is', without warranties as to performanc
'     e, fitness, merchantability,and any othe
'     r warranty (whether expressed or implied
'     ).
'Terms of Agreement:
'By using this source code, you agree to
'     the following terms...
' 1) You may use this source code in per
'     sonal projects and may compile it into a
'     n .exe/.dll/.ocx and distribute it in bi
'     nary format freely and with no charge.
' 2) You MAY NOT redistribute this sourc
'     e code (for example to a web site) witho
'     ut written permission from the original
'     author.Failure to do so is a violation o
'     f copyright laws.
' 3) You may link to this code from anot
'     her website, provided it is not wrapped
'     in a frame.
' 4) The author of this code may have re
'     tained certain additional copyright righ
'     ts.If so, this is indicated in the autho
'     r's description.
'**************************************
Option Explicit
'This code fires off an SMS message to t
'     he given phone number
'It makes use of the German service "www
'     .
billiger-telefonieren.com
"
'This service allows to send about 20 SM
'     S messages per user per day.
'Counting is done via a cookie.
'Your browser needs to have cookies enab
'     led.
Private Sub cmdSubmit_Click()
    Dim strText As String
    Dim strPhoneNo As String
    Dim oHttp As Object
    'make use of the XMLHTTPRequest object c
    '     ontained in msxml.dll
    Set oHttp = CreateObject("Microsoft.XMLHTTP")
    'enter your data
    strText = InputBox("Text:", "Send Text via SMS", "Test")
    strPhoneNo = InputBox("Phone Number:", "Send Text via SMS")
    'fire of an http request
    oHttp.open "POST",
"
http://www05.billiger-telefonieren.de/sms/send.php3
", False
    oHttp.setRequestHeader "Content-Type",
"application/x-www-form-urlencoded"
    oHttp.send "action=send&number=" & strPhoneNo & "&email=&message=" &
strText
    'check the feedback
    Debug.Print oHttp.responseText
End Sub
Vi ringrazio anticipatamente!!!

 wrote in message 8s1ag0$ioa$1...@nslave3.tin.it...


Ciao.
Lo posteresti sul NG o anche a me .. Thanks
Ciaps
Stracca
http://www.stracca.net
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------

non mi è arrivato ancora nulla!!!
se puoi ripostare mi fai un grande favore grazie!!


Kepperkaso il moderatore taglia tutti gli allegati!!!!!

Kepperkaso il moderatore taglia tutti gli allegati!!!!!
  Questo newsgroup non e' moderato, gli allegati vengono eliminati da
un apposito robot.
  Ciao :-)
  Massimo
  Nell'indirizzo, inserire una "h" tra la "t" e la "u"
  In the address, insert an "h" between the "t" and the "u"

...


o almeno da me c'e'
  Probabilmente l'hai scaricato subito dopo averlo postato, prima che
il robot provvedesse alla cancellazione.
