استبدال القيم لارسال رسالة sms

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

اسعدالله اوقات الجميع
نموذج لارسال رسالة sms
المشكله هي كيفية استبدال القيم الموجوده بالكود بالقيم الموجوده بالحقول علماً قمت بعدة محاولات وهي وضع علامة تنصيص ثم علامة & ثم اسم الحقل ولكن لم تنجح 
بالمرفق موضح به المطلوب

Sample SMS.accdb

تم تعديل أكتوبر 6, 2020 بواسطه سلمان الشهراني

[ناقل]

عدل بهذه الطريقة ربما تفيد ...

sampleurl = "https://www.hisms.ws/api.php?send_sms&username=" & UserName & "&password=" & Password & "&numbers=" & numbers & "&sender=" & sender & "&msg=" & msg & ""

 

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

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

Sample SMS.accdb

تم تعديل أكتوبر 6, 2020 بواسطه سلمان الشهراني

[ناقل]

13 دقائق مضت, سلمان الشهراني said:

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

Sample SMS.accdbFetching info...

جرب ...

Me.txtSender.Value

 

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

الله يعطيك العافيه ماقصرت يالغالي
وكل شي تمام ما عدى هل الحقل الي مو راضي ياخذ اسم المرسل من الحقل المخصص له
دام يعطي الرمز 404 يعني مو شغال

تم تعديل أكتوبر 6, 2020 بواسطه سلمان الشهراني

[Mohameddd200300]

مرحبا  اخ سلمان    انا عندي نموذج لي ارسال الsms     هذا الجز الخاص بي الارسال اتمنا يفيدك

 قمت بتعديل الملف لديك   ولاكن يبدو ان الرصيد انتها    اتمنا تقوم بي مراجعة دليل الاخطاء في الموقع  حمل هذا الملف  اضغط هناء  

وقم بتحميل المرفق المعدل  تحياتي  

 

On Error GoTo MsgErr
'
If IsNull(Pass1) Or IsNull(username) Or IsNull(sender) Or IsNull(numbers) Then
MsgBox "ÊÃßÏ ãä ÇÏÎÇá ßÇÝÉ ÇáÈíÇäÇÊ", vbInformation + vbOKOnly, DLast("[ÇÓã ÇáãÍá]", "[ãÚáæãÇÊ ÇÓÇÓíå]") & Space(5)

'MsgBox "ÊÃßÏ ãä ÇÏÎÇá ßÇÝÉ ÇáÈíÇäÇÊ", vbCritical + vbOKOnly + vbMsgBoxRight
Exit Sub
End If
Dim User As String
Dim Pass As Double
Dim result As String
Dim myURL As String
Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
myURL = "http://www.kingsms.ws/api/sendsms.php?username=" & username & "&password=" & Pass1 & "&message=" & message & "&numbers=" & numbers & "&sender=" & sender & "&unicode=e&return=XML"
WinHttpReq.Open "post", myURL, False
WinHttpReq.Send
result = WinHttpReq.responseText
result = right(result, 3)
Select Case Val(result)

 

9 ساعات مضت, سلمان الشهراني said:

اسعدالله اوقات الجميع
نموذج لارسال رسالة sms
المشكله هي كيفية استبدال القيم الموجوده بالكود بالقيم الموجوده بالحقول علماً قمت بعدة محاولات وهي وضع علامة تنصيص ثم علامة & ثم اسم الحقل ولكن لم تنجح 
بالمرفق موضح به المطلوب

Sample SMS.accdb 864 kB · 1 download

 

Sample SMS.accdb

تم تعديل أكتوبر 7, 2020 بواسطه Mohameddd200300

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

تسلم حبيبنا وجميل ولكن تم التجربه ولكن لا يتم الارسال حتى ولو غيرت في الكود ووضعت اسم المرسل في الكود
ممكن يكون من الموقع