Επικοινωνία με κάθε είδους σειριακή θύρα με Visual Basic 6.0

[firewalker]

Όσοι έχουν προσπαθήσει να φτιάξουν ένα πρόγραμμα επικοινωνίας με κάποια σειριακή θύρα του υπολογιστή με το εργαλείο MsComm της Microsoft σε Visual Basic 6 θα ξέρουν ότι μπορούν να χειριστούν θύρες μόνο μέχρι τον αριθμό 17. Αποτέλεσμα αυτού είναι να μην μπορούν να διαχειριστούν εικονικές θύρες από συσκευές όπως Bluetooth, Irda, Usb, Internal modems κ.λ.π. που σπάνια είναι κάτω από την com17. Ο μόνος τρόπος να γίνει κάτι τέτοιο είναι μέσω των Windows A.P.I. CreateFile, WriteFile κ.τ.λ. Πήρα την αφορμή να γράψω αυτό το πρόγραμμα από ένα φίλο που έψαχνε τρόπο να στείλει μηνύματα μέσω vb και του συνδεδεμένου στον υπολογιστή κινητού του μέσω Bluetooth. Το παρακάτω πρόγραμμα ανακαλύπτει κάθε σειριακή θύρα (εικονική ή πραγματική) από Com1 έως Com100 (ο αριθμός μπορεί να αυξηθεί κατά βούληση). Στην συνέχεια ο χρήστης έχει την δυνατότητα να συνδεθεί με την θύρα αυτή και να ανταλλάξει κάθε φύσεως δεδομένα. Στην προκειμένη περίπτωση "AT" εντολές με οποιοδήποτε modem (κανονικό ή gsm των κινητών). Για παράδειγμα με την εντολή ATD210xxxxxxx μπορούμε να πούμε στο κινητό μας να πάρει τηλέφωνο στον αριθμό 210xxxxxxx. Ή με την εντολή ΑΤΙ3 παίρνουμε το όνομα του modem του κινητού μας. Γνωρίζοντας τις AT εντολές που δέχεται το κάθε κινητό για να στείλει sms μπορούμε πολύ εύκολα να τροποποιήσουμε το πρόγραμμα για αυτόν τον σκοπό. Προσωπικά δοκίμασα το πρόγραμμα μέσω Bluetooth σε SE k700, k750 και μέσω Irda σε Nokia 6510 και SE k500.

 

 

 

Those who have tried to make a program to communicate with something on a serial port of a computer with the tool MsComm that Microsoft provides in Visual Basic 6 knows that they can handle doors only up to number 17. Result of this is that virtual port created from drivers of Bluetooths, Irda, Usb, Internal modems etc (in very rare occasions is under 17) arenʼt accessible by MsComm. The only way to communicate with a serial port of that kind is via the Windows A.P.I. CreateFile, WriteFile etc. I took the opportunity to write this program from a friend that asked for a way to send sms via vb and his mobile phone connected to his computer via Bluetooth. The following program discovers every serial port (virtual or real) from Com1 until Com100 (the number can be increased at will). Then the user has the possibility to connect to this port and to exchange every kind of datas. In this case AT commands with any modem (regular or gsm). As an example, with the command ATDxxxxxxxxxx we can "say" to the mobile to dial the number xxxxxxxxxx. OR with the command ATI3 we can take the name of the mobiles modem. Knowing the AT commands that each mobile accepts we can use that in order to send sms. We can very easily modify the program for this aim. Personally I tryed the program via Bluetooth in SE k700, k750 and via Irda in Nokia 6510 and SE k500.

Communications With Serial Ports Via API.zip

[Επισκέπτης]

Φίλε ...

Φτιάχνω Μιά Εφαρμογή Σε Vb Η Οποία Θά Αποστέλλει Μαζικως

SMS Στούς Εορτάζοντες Τίς Κάθε Ημέρας Στούς Εγγεγραμένους Χρήστες

Μίας Βάσεως Δεδομένων.

Η Αποστολή Τών SMS Θά Γίνετε Μέσω Ενός Κινητού Τηλεφώνου Πού

Θά Συνδέετε Στήν Εφαρμογή.

Η Ερωτήσεις Μού Είναι Οί Εξής :

1.Οί AT Commands Είναι Ίδιες Γιά Όλα Τά Κινητά Τηλέφωνα Πού Τίς

Υποστηρίζουν(Ανεξαρτήτως Κατασκευαστή Καί Μάρκας Κινητού) ;

2.Πού Μπορώ Νά Βρώ Αναλυτικό Οδηγό Γιά Τήν Περιγραφή Τής Κάθε

AT Commands ;

[firewalker]

Καταρχήν καλώς όρισες. Η εντολές AT είναι σχεδόν ίδιες για κάθε gsm moden. Το θέμα είναι είναι ότι για μερικά κινητά οι εντολές που στέλνουν μηνύματα μπορεί να μην είναι AT αλλά "ότι θέλει" ο κατασκευαστής. Τώρα από που θα βρεις τις εντολές αυτές εξαρτάται από την εταιρία. Για παράδειγμα η Sony Ericsson δίνει τα πάντα στο site της. Για Nokia μπορείς να δεις εδώ http://www.xored.dk/old/index.html

[Pleasure]

Φίλε ...

Φτιάχνω Μιά Εφαρμογή Σε Vb Η Οποία Θά Αποστέλλει Μαζικως

SMS Στούς Εορτάζοντες Τίς Κάθε Ημέρας Στούς Εγγεγραμένους Χρήστες

Μίας Βάσεως Δεδομένων.

Η Αποστολή Τών SMS Θά Γίνετε Μέσω Ενός Κινητού Τηλεφώνου Πού

Θά Συνδέετε Στήν Εφαρμογή.

Η Ερωτήσεις Μού Είναι Οί Εξής :

1.Οί AT Commands Είναι Ίδιες Γιά Όλα Τά Κινητά Τηλέφωνα Πού Τίς

Υποστηρίζουν(Ανεξαρτήτως Κατασκευαστή Καί Μάρκας Κινητού) ;

2.Πού Μπορώ Νά Βρώ Αναλυτικό Οδηγό Γιά Τήν Περιγραφή Τής Κάθε

AT Commands ;

 

Πως καταφέρνεις και κολάς το MSCOM σε φόρμα της Access? Δεν το έχω καταφέρει μέχρι τώρα. Αν έχεις καμια καλή ιδέα πές και σε μας τους άσχετους.

[Pleasure]

Βρε παιδιά και με τον αναλυτικό οδηγό για τα NOKIA δεν κατάφερα να βγάλω άκρη.

 

Μήπως γνωρίζει τα AT Commands για αποστολή SMS (ϊσως και λήψη) απλών TEXT ?

 

Ευχαριστώ προκαταβολικά ...

[Pleasure]

Λοιπόν παιδιά. Thanks to firewalker κατάφερα και έκανα μετατροπή το προγραμματάκι του σε μορφή Access 2000. Έτσι και ο φίλος nikirtsi θα μπορέσει να στέλνει πλέον μαζικά SMS από την Access με μικρές τροποποιήσεις.

 

Φυσικά θέλει βελτιώσεις όμως οι γνώσεις που είχα (στην μετατροπή αρκετών στοιχείων από τον κώδικα του firewalker όπως το timer και διάφορα άλλα) ΤΕΛΕΙΩΣΑΝ.

 

Θα ήθελα πολύ, εφόσον κλειδώνει το κινητό, να μπορούσε να παρακολουθεί τα νέα εισερχόμενα μηνύματα και αυτόματα να τα έδειχνε σε κάποιο Text box (και τον παραλήπτη σε κάποιο άλλο Text Box).

 

Αν ξέρει ο φίλος μας ο firewalker ας βοηθήσει. Επιτέλους ανοικτός κώδικας για όλο τον κόσμο. Το SMS θα δώσει σπουδαίες λύσεις στους Users - Programmers.

 

Συγχαρητήρια firewalker για την βοήθειά σου : +1000

TEST_SMS.zip

[firewalker]

Αυτό που ζητάς εξαρτάτε από το κινητό. Για παράδειγμα στα SE κάθε νέο εισερχόμενο μήνυμα αλλάζει την τιμή ενός register στην μνήμη του κινητού είτε το μήνυμα αποθηκεύετε στην sim είτε στο κινητό. Κάνοντας λοιπόν τον έλεγχο στον καταχωρητή αυτόν με τις κατάλληλες AT εντολές μπορείς να "τραβάς" κάθε μήνυμα στην εφαρμογή και μετά να δίνεις εντολή για να σβήσει το μήνυμα. Κάτι τέτοιο στα SE είναι αρκετά "εύκολο". Υπάρχει μία εφαρμογή που το κάνει για SE σε assembly βέβαια για μικροελεκτή AVR της Atmel. Η βασική ιδέα είναι ίδια. Θα προσπαθήσω όταν βρω χρόνο να το "δω" λίγο σε συνδιασμό με vb και vba.

 

http://www.serasidis.gr/circuits/smscontroller/smscontroller.htm

[Pleasure]

Thanks φίλε. Εύχομαι να μην το ξεχάσεις γιατί είναι πολυ σημαντικό για εμάς τους Low Level "προγραμματιστές".