Come inviare e ricevere un SMS che utilizza VB 6

June 11

Come inviare e ricevere un SMS che utilizza VB 6


la messaggistica SMS, noto anche come messaggi di testo, continua a crescere in popolarità. Ora è utilizzato in sistemi di allarme di emergenza per i campus universitari e nelle città. Mobile banking ha anche incorporato la messaggistica SMS. I programmatori stanno trovando accesso SMS sempre più importante. Le nuove librerie create per Visual Basic 6 (VB 6) snellire il processo di scrittura e la ricezione di messaggi SMS. Con i servizi SMS in atto, i programmatori possono integrare la messaggistica come una nuova interfaccia per comunicare con gli utenti.

istruzione

1 Scaricare e installare SMSLibX. Sarà necessario registrare un account prima che il download biblioteca SMS è permesso. Una volta che la registrazione e scaricare sono complete, fare doppio clic sul file per avviare la procedura guidata di installazione. Seguire le istruzioni sullo schermo con le impostazioni predefinite.

2 Avviare Visual Basic Studios. Fare clic su "Start", "Tutti i programmi", "Visual Basic Studios," "Visual Basic Editor". Il software di editing di codice viene visualizzato sullo schermo.

3 Accedere alla libreria di SMS tramite la lista di riferimento. Fai clic su "Progetto", "Riferimenti", quindi selezionare SMSLibX dalla lista di riferimento e fare clic su "OK".

4 Creare l'oggetto del modem SMS tramite una dichiarazione VB 6. Nel editor di codice, digitare:

Public WithEvents Modem Come SMSModem

5 Creare una funzione per inviare i messaggi in VB 6. Nel editor di codice, al di sotto della linea del passaggio precedente, digitare:

Private Sub nowSendSMSMessage (PhoneNumber, MessageText)

'Comunicazione aperta modem

Set Modem = Nuovo SMSModem

Modem.LogTrace = True

Modem.OpenComm ModemType, ModemPort,, smsNotifyAll

' Invia messaggio

Chiamare Modem.SendTextMessage (PhoneNumber, MessageText)

End Sub

6 Creare una funzione per ricevere i messaggi in VB 6. Nel editor di codice, sotto il messaggio di invio codice funzione, digitare:

Private Sub nowRecieiveSMSMessage (Messaggio Come SMSLibX.SMSDeliver)

MsgBox "Nuovo messaggio ricevuto da" & Message.Originator & ":" _

& vbCrLf & vbCrLf & Message.Body, _

vbInformation, "Nuovo messaggio ricevuto"

End Sub

7 Salvare il progetto. Fare clic su "Progetto", "Salva", accedere alla "cartella Documenti", quindi dare un nome al file e salvarlo in formato VB (l'estensione sarà .vbscript). Ad esempio, il nome potrebbe essere sms.vbscript.

8 Avviare il prompt dei comandi. Fare clic su "Start", "Esegui", digitare "cmd.exe", quindi premere "Invio".

9 Inviare un messaggio SMS tramite VB 6. Al prompt dei comandi, ad esempio, digitare "C: \ Documenti \ sms.vbscript nowSendSMSMessage ( '5555555555', 'questo è un messaggio')" ". Enter", quindi premere Il messaggio verrà inviato al numero.

10 Ricevere messaggi SMS. Al prompt dei comandi, digitare "C: \ Documenti \ sms.vbscript nowReceiveSMSMessage ()", quindi premere ". Enter" Il computer attenderà un messaggio SMS da visualizzare.

Consigli e avvertenze

  • Queste funzioni possono essere incorporate in applicazioni web per la comunicazione Streamline.