ارسال رساله نصيه من الاكسس الى الجوال _ وتعريب النص

[سلمان الشهراني]

اخواني واساتذتي الاعزاء السلام عليكم ورحمة الله
اولاً اعتذر لانقطاعي عن الموقع لفتره وذلك لوجود ضرف لدي

ثانياً : لدي رابط ارسال لموقع رسائل كماهو موجود في ملف الوورد المرفق طبعا لمى تنسخ الرابط وتلصقه بالمتصفح مباشره راح يرسل الرساله الى الجوال
ولكن لمى حاولت اضيفه على البرنامج كماهو موجود بالمرفق (ملف اكسس) يظهر لي رسالة خطاء
اتمنى حل لهذه المشكله وشاكر لكم 
مرفق لكم ملف وورد وملف اكسس 
رابط موقع الرسائل 
https://oursms.com/

sms.accdb رابط الارسال مع التوضيح.docx

[دروب مبرمج]

تفضل التعديل

 

sms.accdb

[سلمان الشهراني]

الله يعطيك الف الف عافيه يالغالي
ولكن ارغب ان ياخذ اسم المستخدم والرقم السري واسم المرسل من الشاشه مباشره دون وضعها بالكود

[Abdullah Kazem]

تفضل التعديل

sms.accdb

[سلمان الشهراني]

الله يعطيك العافيه ويبيض وجهك انت وجميع الاخوان
ممتاز يعمل والحمدالله 
لازال هناك مشكله عدم ارسال النصوص العربيه وسوف يتم التواصل مع موقع الرسائل

[دروب مبرمج]

نعم النص العربي يحتاج الى تشفير لحظات و يكون عندك التعديل

تفضل التعديل 

و هذا هو كود التشفير المستخدم لتمرير النصوص عبر الويب

Function EncodeQP2(s As String) As String
    Dim i As Long
    Dim p1 As Long
    Dim p2 As Long
    Dim r As String
    Dim n As Long
    For i = 1 To Len(s)
        n = AscW(Mid(s, i, 1))
        If n < 128 Then
            r = r & "%" & Hex(n)
        ElseIf n < 2048 Then
            p1 = n \ 64
            r = r & "%" & Hex(p1 + 192)
            p2 = n Mod 64
            r = r & "%" & Hex(p2 + 128)
        Else
           
        End If
    Next i
    EncodeQP2 = r
End Function

 

sms (1).accdb

[سلمان الشهراني]

ياشيخ الله يسعدك دنيا واخره انت وجميع الاخوه
تمام 100%
الف شكر لك يالغالي وايضا الشكر للاخر Abdullah Kazem