Φίλοι μου γειά σας,
Πιστεύω ότι το θέμα μου απασχολεί πάρα πολλούς σχεδιαστές εφαρμογών και εάν και εφόσον βρούμε κάποια λύση αυτό θα βοηθήσει όλους.
Απο κάποιο provider μου έχει σταλεί ένας κώδικας .Net μέσω του οποίου μπορει κάποιος εφόσον δημιουργήσει λογαριασμό στην εν λόγο υπηρεσία να στέλνει μαζικά ή ένα-προς ένα αυτόματα SMS μεσω της Access. Προσπάθησα να προσαρμόσω τον κώδικα για να δουλέυει σε
VBA αλλά κάπου έχω κολλήσει....Επισυνάπτω την βάση μου και θα εκτιμήσω εάν κάποιος μπορέσει να με βοηθήσει για να δημιουργήσουμε μια λειτουργική μονάδα σε
VBA για να μπορεί τελικά να λειτουργεί.
Ευχαριστω εκ προτέρων
Παραθέτω επίσης αυτούσιο τον κωδικα ίσως και φανεί χρήσιμο
Dear George
I am sending you the
api manual as well as a piece of
vb code
‘’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim usr, psw, mobnu, title, message As String
usr = HttpUtility.UrlEncode("email@email.com")
psw = HttpUtility.UrlEncode("7fhd8y8erwe")
mobnu = HttpUtility.UrlEncode("35799999999")
title = HttpUtility.UrlEncode("Amlex")
message = HttpUtility.UrlEncode("Test
API")
send_sms("http://
api.microsms.net/sendapidirect.asp?usr=" & usr & "&psw=" & psw & "&dtype=1&title=" & title & "&mobnu=" & mobnu & "&message=" & message)
End Sub
Public Shared Function send_sms(pass_url As String)
Dim strurl As String
strurl = pass_url
Dim rtnvalue As String
Try
Dim s As HttpWebRequest
Dim enc As UTF8Encoding
Dim postdata As String
Dim postdatabytes As Byte()
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 = 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 result = s.GetResponse()
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.GetResponse Stream())
rtnvalue = responseReader.ReadToEnd()
Else
rtnvalue = "no return"
End If
Catch ex As Exception
rtnvalue = ex.ToString
'' Log_error("Err0663", "error in 'sendsmsmessage()' " & strurl, ex.Message.ToString(), "", "")
End Try
Catch ex As Exception
'' Log_error("Err0664", "error in 'sendsmsmessage()' " & strurl, ex.Message.ToString(), "", "")
End Try
Return rtnvalue
End Function
‘’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’