Πώς να Αποστολή & λάβετε ένα SMS Χρησιμοποιώντας VB 6

SMS μηνυμάτων , επίσης γνωστή ως ανταλλαγή μηνυμάτων κειμένου , συνεχίζει να αυξάνεται σε δημοτικότητα . Είναι πλέον χρησιμοποιείται σε συστήματα συναγερμού έκτακτης ανάγκης για τις πανεπιστημιουπόλεις κολλεγίων και τις πόλεις . Mobile Banking έχει επίσης ενσωματωθεί μηνυμάτων SMS . Οι προγραμματιστές υπολογιστών να βρουν πρόσβαση ολοένα και πιο σημαντικό SMS . Νέες βιβλιοθήκες που έχουν δημιουργηθεί για τη Visual Basic 6 ( VB 6 ) τον εξορθολογισμό της διαδικασίας της γραφής και λήψη μηνυμάτων SMS . Με τις υπηρεσίες SMS στη θέση του , οι προγραμματιστές μπορούν να ενσωματώσουν μηνύματα ως ένα νέο τρόπο διασύνδεσης για την επικοινωνία με τους χρήστες . Οδηγίες
Η

1 Κατεβάστε και εγκαταστήστε SMSLibx . Θα πρέπει να εγγραφείτε για έναν λογαριασμό πριν από την λήψη της βιβλιοθήκης SMS επιτρέπεται . Μετά την εγγραφή σας και να κατεβάσετε είναι πλήρεις , κάντε διπλό κλικ στο αρχείο για να ξεκινήσει ο οδηγός εγκατάστασης . Ακολουθήστε τις οδηγίες που εμφανίζονται στην οθόνη με τις προεπιλεγμένες ρυθμίσεις . 2

Εκκίνηση της Visual Basic Studios . Κάντε κλικ στο κουμπί " Έναρξη", " Όλα τα προγράμματα ", " Visual Basic Studios ", " Visual Basic. " Το λογισμικό επεξεργασίας κωδικός θα εμφανιστεί στην οθόνη .
Εικόνων 3

Δείτε τη βιβλιοθήκη SMS μέσω της λίστας αναφοράς . Κάντε κλικ στο κουμπί "Project ", "Αναφορές ", στη συνέχεια, επιλέξτε SMSLibx από τη λίστα αναφοράς και κάντε κλικ στο "OK".
Η 4

Δημιουργήστε το αντικείμενο modem μέσω SMS δήλωση VB 6 . Στο πρόγραμμα επεξεργασίας κώδικα , πληκτρολογήστε :

Δημόσια WithEvents Modem Όπως SMSModem
5

Δημιουργήστε μια λειτουργία για να στείλετε μηνύματα σε VB 6 . Στο πρόγραμμα επεξεργασίας κώδικα , κάτω από τη γραμμή από το προηγούμενο βήμα , Τύπος :

Private Sub nowSendSMSMessage ( PhoneNumber , MessageText )

« Ανοιχτή επικοινωνία modem

Set Modem = Νέα SMSModem

Modem.LogTrace = True

Modem.OpenComm ModemType , ModemPort , , smsNotifyAll

« Αποστολή μηνύματος

Καλέστε Modem.SendTextMessage ( PhoneNumber , MessageText )

End Sub
Η 6

Δημιουργήστε μια λειτουργία για να λαμβάνετε μηνύματα σε VB 6 . Στο πρόγραμμα επεξεργασίας κώδικα , κάτω από το μήνυμα στείλε κώδικα λειτουργίας , τύπου :

nowRecieiveSMSMessage Private Sub ( Μήνυμα Όπως SMSLibX.SMSDeliver )

MsgBox " Νέο μήνυμα που έλαβε από " & Message.Originator & " : " _

& vbCrLf & vbCrLf & Message.Body , _

vbInformation , " Νέο μήνυμα ελήφθη "

End Sub
Η 7

Αποθήκευση το έργο . Κάντε κλικ στο κουμπί "Project ", " Αποθήκευση ", πλοηγηθείτε στο " Documents " κατάλογο , στη συνέχεια, να δώσει ένα όνομα αρχείου και να το αποθηκεύσετε σε μορφή VB ( η επέκταση θα είναι . Vbscript ) . Για παράδειγμα , το όνομα θα μπορούσε να sms.vbscript .
8

Ξεκινήστε τη γραμμή εντολών . Κάντε κλικ στο κουμπί "Start ", " Run ", πληκτρολογήστε " CMD.EXE " και στη συνέχεια πατήστε το πλήκτρο " Enter".
Η 9

Αποστολή μηνύματος SMS μέσω VB 6 . Στη γραμμή εντολών , για παράδειγμα, πληκτρολογήστε "c : \\ Documents \\ sms.vbscript nowSendSMSMessage ( '5555555555 », « αυτό είναι ένα μήνυμα ')" στη συνέχεια πατήστε " . Enter" Το μήνυμα θα σταλεί στον αριθμό .
Η 10

λάβετε μηνύματα SMS . Στη γραμμή εντολών, πληκτρολογήστε : " . Πληκτρολογήστε ", "c \\ Documents \\ sms.vbscript nowReceiveSMSMessage ( ) " και στη συνέχεια πιέστε Ο υπολογιστής θα περιμένει για ένα μήνυμα SMS που θα εμφανίζεται .
Η
εικόνων