SMS API απο .Net σε VBA

[γιώργοςΚ]

Τάσο καλημέρα και ευχαριστω πολϋ για την βοήθεια,

Δυστυχώς εχω κανει τις απαιτούμενες αλλαγές οπως τις παραθέτεις αλλα ο κωδικας κτυπά στο σημειο της Function που φαίνεται στην φωτο που επισυνάπτω. Πάντως, πιστεύω ότι εϊμαστε κοντά στην λύση του προβλήματος αφου και με την βοηθεια και του φϊλου Γιώργου Βραχνάκη (τον οποίο ευχαριστω ξανά) μεταφράστηκε ο κώδικας απο .Net σε VBA και κατορθώσαμε να στέλνουμε κανονικά μηνύματα με αγγλικούς αγγλικούς χαρακτήρες.

Σημειώστε ότι έχω και σήμερα μιλήσει πάλι με τον παροχέα ο οποίο επιμένει ότι είναι εφικτή η αποστολή μηνυμάτων με ελληνικούς χαρακτήρες και το μόνο που πρέπει να γίνει είναι τα όσα έχω ήδη παραθέση στο προηγούμενο μου Post.

Τάσο, παραθετω αυτούσια την βάση που δουλεύει ως προς την αποστολή αγγλικων χαρακτήρων και στην οποία έχω προσαρμόσει τον κώδικα οπως μας έχει επισυνάψει. Δυστυχώς κολλάει...

Γιώργο, έχω αναβάσει την πρώτη version της βάση που αποστέλνει ένα-προς ένα μηνύματα ετσι ωστε να απολοποιήσω το ζητούμενο και όταν και εφόσον και με την βοήθεια του Τάσου αλλα και την δικιά σου φτάσουμε στην λύση του προβλήματος με τα εληνικά, τότε φίλε μου θα επιχειρήσω να τα προσαρμόσω και στην δεύτερη version που στέλνει μαζικά σε όλους τους πελάτες sms.

Σε κάθε περίπτωση Τάσο και Γιώργο εύχομαι Καλό Πάσχα σε εσας και στις οικογένειες σας, και Τάσο θα ειναι χαρά μου να τα πουμε και πάλι όποτε νιώσεις έτοιμος όπως και πιο παλιά.

Ευχαριστω και Καλές Γιορτές

[γιώργοςΚ]

Λάβετε υπόψη οτι λαβάνω και το πιο πανω σφάλμα

[γιώργοςΚ]

Τάσο επανέρχομαι με ευχάριστα,

Εχω τροποποιήσει λίγο ακυρώνωντας απλά την Function δίνει error και τώρα στέλνει κανονικά και ελληνικά, απλά ειναι πάντα ολα κεφαλαία και δεν αναγνωρίζει εάν δώσεις ελληνικό Title..

Παραθέτω την βαση για να της ρίξεις μια ματια μπας και βρούμε άκρη

ευχαριστω παλι

[Tasos]

Καλημέρα σε όλους! Χριστός Ανέστη!

Γιώργο φρόντισε να προσθέσεις την αναφορά Microsoft WinHTTP Services, Version x,x στον VBE για να λειτουργήσει ο κώδικας.

Εναλλακτικά μπορείς να χρησιμοποιήσεις την παρακάτω συνάρτηση:

Public Function URLEncode(strText As String) As String
    Dim i As Integer
    Dim iLen As Integer
    Dim strTemp As String
    i = 1: iLen = Len(strText) + 1
    While i < iLen
        Select Case Asc(Mid(strText, i, 1))
            Case 48 To 57, 65 To 90, 97 To 122
                strTemp = strTemp & Mid(strText, i, 1)
            Case 32
                    strTemp = strTemp & "%" & Hex(32)
            Case Else
                strTemp = strTemp & "%" & Format(Hex(Asc(Mid(strText, i, 1))), "00")
        End Select
        i = i + 1
    Wend
    URLEncode = strTemp
End Function

Με εκτίμηση

Τάσος

[γιώργοςΚ]

Αρχική Δημοσίευση από Tasos

Καλημέρα σε όλους! Χριστός Ανέστη!

Γιώργο φρόντισε να προσθέσεις την αναφορά Microsoft WinHTTP Services, Version x,x στον VBE για να λειτουργήσει ο κώδικας.

Εναλλακτικά μπορείς να χρησιμοποιήσεις την παρακάτω συνάρτηση:

Public Function URLEncode(strText As String) As String
    Dim i As Integer
    Dim iLen As Integer
    Dim strTemp As String
    i = 1: iLen = Len(strText) + 1
    While i < iLen
        Select Case Asc(Mid(strText, i, 1))
            Case 48 To 57, 65 To 90, 97 To 122
                strTemp = strTemp & Mid(strText, i, 1)
            Case 32
                    strTemp = strTemp & "%" & Hex(32)
            Case Else
                strTemp = strTemp & "%" & Format(Hex(Asc(Mid(strText, i, 1))), "00")
        End Select
        i = i + 1
    Wend
    URLEncode = strTemp
End Function

Με εκτίμηση

Τάσος

Καλημέρα Τάσο και Χριστός Ανέστη και Χρόνια Πολλά,

¨Εχω δοκιμασει τον κωδικα και έχω δηλώσει και την reference Microsoft WinHTTP Services αλλά δοκιμάζοντας το λαμβάνω και πάλι error στο σημείο που επισυνάπτω στην φωτο. Δεν ξέρω αν κάνω κάτι λάθος φίλε και δεν θέλω να ταλαιπωρώ και εσάς....Αν βρεθει κάποια λυση καλώς, διαφορετικά θα το δουλέψω με τα ελληνικά κεφαλαία που δούλεψε, και θα βάζω αγγλικό τίτλο μηνύματος.

Σε κάθε περίπτωση σε ευχαριστω πάρα πολύ για τον χρόνο σου και θα χαρώ να μιλήσουμε πάλι οποτε μπορεις

[alex]

Χριστός Ανέστη σε όλη την κοινότητα,
στους φίλους Τάσο Χρόνια Πολλά φίλε μου,
επίσης Γιώργο τα φιλιά στη Κύπρο.
Κοίταξε το συνημμένο αυτό που σου στέλνω αν σου δουλεύει αφού πρώτα βάλεις το όνομα χρήστη και κωδικό πρόσβασης της εταιρίας που αγοράζεις αλλά και τα αντίστοιχα website της εταιρίας που αγοράζεις πάλι τα δίνει δωρεάν το πρώτο είναι για την αποστολή μηνυμάτων και το δεύτερο για το υπόλοιπο μηνυμάτων. Μπορεί να σου δουλέψει. Αν βάλεις πολλά κινητά με διαχωριστικό ένα κομμα τότε θα μπορείς να στέλνεις αυτόματα πολλαπλά μηνύματα αλλα στον αποστολέα μπορείς να βάλεις και νούμερο και κείμενο.Οπότε δεν φαίνεται ο παραλήπτης του μηνύματος
Πρόσθεσε και το παρακάτω κώδικα: Άλλαξε Reference από το Microsoft XML V.6 σε Microsoft XML V,3

Private Sub btn1SendSMS_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    Dim data As String
    
    data = "username=" & Nz(Me.txtUsername) & _
           "&password=" & Nz(Me.txtPassword) & _
           "&from=" & Nz(Me.txtFrom) & _
           "&to=" & Nz(Me.txtTo) & _
           "&message=" & URLEncode(Nz(Me.txtMessage))
    
    Dim Result As String
    
    Result = WinHTTPPostRequest(Me.txtWebsite2, data)
    Me.Credits = Result
    'MsgBox result
End Sub]

' Επικύρωση πεδίων μηνυμάτων(SMS) (Validate SMS fields)
Private Function ValidateSMSFields() As Boolean
    If IsEmptyStr(txtMessage) Then MsgBox "Παρακαλώ εισάγετε το κείμενο του μηνύματος.", 
    vbExclamation: Exit Function
    If IsEmptyStr(txtTo) Then MsgBox "Παρακαλώ εισάγετε τον αριθμό τηλεφώνου του 
    παραλήπτη.", vbExclamation: Exit Function
    ValidateSMSFields = True
End Function

[Tasos]

Χριστός Ανέστη σε όλoυς!

Αλέξη μου ευχαριστώ για τις ευχές σου.

Γιώργο επισυνάπτω ένα αρχείο Zip που περιέχει μια μικρή εφαρμογή (SMS Center.exe) που απλά προϋποθέτει Microsoft .Net Framework 4.6.1 για να λειτουργήσει.

Η εφαρμογή τρέχει με διπλό κλικ χωρίς εγκατάσταση και βασίζεται στον κώδικα του πρώτου μηνύματος αυτού του θέματος.

Επίσης υπάρχουν τα κατάλληλα πεδία για να καταχωρήσεις τα στοιχεία χρήστη, τηλ. αριθμό, τίτλο και μήνυμα.

Θέλω να αποσυμπιέσεις και να τρέξεις την εφαρμογή.

Αν δεις ότι λειτουργεί όπως πρέπει τότε θα φτιάξουμε κάτι αντίστοιχο στην VBA.

Ο κώδικας που περιέχεται στη φόρμα της εφαρμογής είναι ο παρακάτω:

Imports System.Net
Imports System.Text
Imports System.Web

Public Class frmMain

    Public Function SendSMS(pass_url As String)

        Dim s As HttpWebRequest
        Dim enc As UTF8Encoding
        Dim postdata As String = ""
        Dim postdatabytes As Byte()
        Dim strurl As String
        strurl = pass_url
        Dim rtnvalue As String = ""
        Try
            s = HttpWebRequest.Create(strurl)
            enc = New System.Text.UTF8Encoding()
            Dim connection_guid, api_guid As String
            connection_guid = System.Guid.NewGuid.ToString()
            api_guid = "xxx_guid"
            postdata &= "&api_guid=" & api_guid
            postdata = postdata & "&connection_guid=" & connection_guid
            postdatabytes = enc.GetBytes(postdata)
            s.Method = "POST"
            s.ContentType = "application/x-www-form-urlencoded"
            s.ContentLength = postdatabytes.Length

            Try
                Using stream = s.GetRequestStream()
                    stream.Write(postdatabytes, 0, postdatabytes.Length)
                End Using
                Dim httpWebResponse As System.Net.HttpWebResponse = s.GetResponse()

                If httpWebResponse.StatusCode = System.Net.HttpStatusCode.OK Then

                    Dim responseReader As System.IO.StreamReader =
                        New System.IO.StreamReader(httpWebResponse.GetResponseStream)
                    rtnvalue = responseReader.ReadToEnd()

                Else
                    rtnvalue = "no return"
                End If
            Catch ex As Exception
                rtnvalue = ex.Message
            End Try
        Catch ex As Exception
            rtnvalue = ex.Message
        End Try
        Return rtnvalue
    End Function

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnSendSMS.Click
        Dim usr, psw, mobnu, title, message As String
        Dim emptyTextBoxes =
            From txt In Me.Controls.OfType(Of TextBox)()
            Where txt.Text.Length = 0 And txt.Tag <> ""
            Select txt.Tag

        If emptyTextBoxes.Any Then
            MsgBox(String.Format("Συμπληρώστε τα παρακάτω πεδία για να στνεχίσετε: {0}",
                    String.Join(", ", emptyTextBoxes)) & ".", MsgBoxStyle.Exclamation, "SMS Center")
            Return
        End If
        usr = HttpUtility.UrlEncode(txtUSR.Text.Trim) ' HttpUtility.UrlEncode("email@email.com")
        psw = HttpUtility.UrlEncode(txtPass.Text.Trim) 'HttpUtility.UrlEncode("7fhd8y8erwe")
        mobnu = HttpUtility.UrlEncode(txtMobilNumbers.Text.Trim) ' HttpUtility.UrlEncode("35799999999")
        title = HttpUtility.UrlEncode(txtTitle.Text) 'HttpUtility.UrlEncode("Amlex")
        message = HttpUtility.UrlEncode(txtBody.Text.Trim) 'HttpUtility.UrlEncode("Test API")
        txtResponse.Text = SendSMS("http://api.microsms.net/sendapidirect.asp?usr=" & usr _
            & "&psw=" & psw & "&dtype=1&title=" & title & "&mobnu=" & mobnu & "&message=" & message)
    End Sub

    Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.txtUSR.Text = My.Settings.USR
        Me.txtPass.Text = My.Settings.PASS
    End Sub

    Private Sub btnSaveSettings_Click(sender As Object, e As EventArgs) Handles btnSaveSettings.Click
        My.Settings.USR = Me.txtUSR.Text
        My.Settings.PASS = Me.txtPass.Text
        My.Settings.Save()
    End Sub
End Class

Καλή συνέχεια

Τάσος

[γιώργοςΚ]

Καλησπέρα, Χριστός Ανέστη και Χρόνια Πολλά σε όλους,

Θα ήθελα να ευχαριστήσω ολους σας αλλά και τον κάθε ένα ξεχωριστά (Τάσο, Γιώργο και Αλέξανδρο) για την πολύτιμη βοήθεια σας.


Τάσο ευχαριστω πολύ για την εφαρμογή, θα το δοκιμάσω και θα σε ενημερώσω αυριο κάποια στιμγή και θα σε ενημερώσω φίλε μου.

Αλέξανδρε ευχαριστω και εσένα προσωπικά για την λύση που προτείνεις την οποια θα μελετήσω επίσης και θα κάνω και τις δοκιμές μου αυριο.

Λέω οτι θα δοκιμάσω αυριο διότι ειμαι σε επαφή με το τεχνικό τμήμα της εταιρίας που αγοράζω την υπηρεσία SMS και με ενημέρωσαν ότι θα κάνουν κάποιες αλλαγές και οτι το προφιλ μου ειναι ανενεργο για την ώρα εως αυριο.

Παρόλα αυτά, επισυνάπτω ένα βοηθητικό αρχείου (τεχνικής υποστήριξης) που μου έστειλαν ετσι ωστε να επιλυθούν τα προβλήματα που υπάρχουν με την ελληνική γλώσσα αποστολής μηνυμάτων.

Σε καθε περίπτωση, σας ευχαριστω παρα πολύ όλους και θα τα πουμε

[γιώργοςΚ]

Καλημέρα σε όλους,

Τάσο έχω δοκιμάσει το προγραμματάκι που έστειλε (.exe file) και στέλνει κανονικά το μήυνημα όπως θα δεις και στις φωτογραφές που επισυνάπτω, μόνο που και πάλι τα ελληνικά τα κανει κεφαλαία...Επίσης απο την εταιρία μου έχουν στείλει σήμερα νέες ρυθμίσεις έτσι ώστε να μπορώ μέσω ενός νέου URL να βλέπω το υπόλοιπο του λογαριασμού μου. Επισυνάπτω τις φώτο 1 & 2 σχετικά με την αποστολή μηνύματος καθως και οτι μου έχουν στειλει απο την εταιρία σημερα.

Αλεξανδρε,
Εχω δοκιμασει να κανω τις αλλαγες που μου ειπες στην βαση που μου έστειλες αλλα δυστχως λαμβάνω καποια error στον κωδικα τα οποια επισυνάπτω στις φωτο 3 & 4.

Πάντως, θέλω ειλικρηνα να ευχαριστησω όλους για το ενδιαφέρον να βρούμε κάποια λύση και εκτιμω κάθε βοηθεια.

Οι ρυθμίσεις που μου έστειλαν απο την εταιρια σήμερα

Dear George,

I am sending you the information regarding Credit balance.

You will post an xml to http://api.microsms.net/GetNbOfCreditsByNameAndPwd.asp
request

<?xml version="1.0" encoding="UTF-8"?>
<XMLREQUEST>
<SMSUSERNAME>email@email.com</SMSUSERNAME>
<SMSPASSWORD>userpassword</SMSPASSWORD>
</XMLREQUEST>

And the system will reply
Reply

<?xml version="1.0" encoding="UTF-8"?>
<XMLREPLY>
<CREDITS>1000</CREDITS>
</XMLREPLY>

Have in mind that credits are calculated by current_balance / CY_rate (e.g if my current balance is 10 euro and the sms cost 1 cent then 10 / 0.01 = 1000 credits )

[alex]

Καλησπέρα Γιώργο,
η δική μου βάση δεν στέλνει με τον internet explorer .Πρέπει να αλλάξεις τα δύο web site με τα αντίστοιχα της δικής σου εταιρίας. Κοίταξε το pdf που σου έστειλα. Αν και βλέπω είναι η ίδια εταιρία. Εάν μπεις στο link αυτό που σου στέλνω θα πάρεις πληροφορίες.
https://bulksmsn.gr/index.php αλλά είναι για Ελλάδα για Κύπρο μάλλον αλλάζει.Αν μπείς και κάνεις Login σου δίνει 5 μηνύματα και μπορείς να κάνεις δοκιμή.


Η Διασύνδεση SMS γίνεται Μέσω http API
Στο PDF από κάτω το Link που σου στέλνω έχει όλες τις πληροφορίες.

https://bulksmsn.gr/examples/http-api-bulksmsn.gr.pdf

απλά επειδή είναι Κύπρο υπάρχουν αλλαγές.Η εταιρία μάλλον είναι ίδια. Αλλά είναι API και όχι .NET. Αν βρεις τα αντίστοιχα στη Κύπρο για API και τα αντικαταστήσεις με τα τα δυο παρακάτω και βάλεις τα δικά σου.πρέπει να δουλέψει.
http://bulksmsn.gr/api/http/send.php
http://bulksmsn.gr/api/http/credits.php
εγώ πάντως έχω και δουλεύει. Αγοράζω 500 μηνύματα με 22 ευρώ χωρίς ΦΠΑ με ΦΠΑ 27.
Στην Κύπρο από ότι είδα η ίδια εταιρία τα δίνει φθηνότερα.

Είχε ξανά τεθεί το θέμα πάλι αυτό στο forum και είχαμε συζητήσει με το Τάσο αν ψάξει θα το βρείς. Δεν μπόρεσα και τότε να το κάνω με τον internet explorer αλλά το δούλεψα με το τρόπο αυτό με API.
Μπορείς να βάλεις και άλλα link να σου λέει την παράδοση των μηνυμάτων. Με λίγα λόγια μπορείς να κάνει διαχείριση μαζικής αποστολής μηνυμάτων. Εγώ δεν έκανα επέκταση γιατί δεν την χρειάστηκα.Αλλά είχα φτιάξει ένα πρόγραμμα μαζικής αποστολής μηνυμάτων και μαζικής αποστολής Emails και ενσωμάτωσα τους Μαθητές ή (πελάτες) με μία φόρμα με (Πίνακα) όπου περιλάμβανε όλα τα στοιχεία τηλέφωνα και emails και το κάθε πρόγραμμα (SMS ή EMAILS) τραβούσε τα δεδομένα από τον πίνακα. Μετά αυτό το ενσωμάτωσα σε μια βάση διαχείρισης του σχολείου που έκανα και έστελνα μηνύματα στους γονείς όταν ήταν ανάγκη για γρήγορη ενημέρωση γιατί το κινητό το βλέπει ο γονέας άμεσα ή emails στους γονείς όταν ήθελα να στείλω κάτι σε συνημμένο αρχείο.

KOITA TO ΚΩΔΙΚΑ ΤΗΣ ΑΛΕΞΙΑΣ ΑΠΟ ΤΟ ΦΟΡΟΥΜ
http://www.ms-office.gr/forum/access...po-access.html


ΚΟΙΤΑ ΤΟ ΘΕΜΑ ΠΟΥ ΕΙΧΑ ΠΑΛΙΑ ΜΕ ΤΟ ΤΑΣΟ
http://www.ms-office.gr/forum/access...stoli-sms.html

ΤΩΡΑ ΜΕ ΤΗΝ ΤΕΧΝΙΚΗ ΤΟΥ ΤΑΣΟΥ ΔΕΝ ΠΑΙΖΟΥΜΕ ΓΙΑΤΙ Ο ΤΑΣΟΣ ΕΙΝΑΙ ΕΝΑΣ ΚΑΙ ΜΟΝΑΔΙΚΟΣ!!!!!!!
ΟΠΟΤΕ ΠΕΡΙΜΕΝΟΥΜΕ ΝΑ ΔΟΥΜΕ ΚΑΤΙ ΣΕ ΝΕΤ.