تحويل كود الى الكود المستخدم في الأكسس

[Jafar121]

أخواني الأفاضل

عندي سؤال مهم بالنسبة لي

هل يستطيع أحدكم أحبائي تحويل الكود التالي الى كود الأكسس 

Imports System.Net

Imports System.IO

Public Class Form1

Private Sub

Send_SMS(ByVal sender As Object, ByVal phonenumber As Object, ByVal msg As Object, ByVal dc As Object)

Dim client As WebClient = New WebClient

Dim username = "USERNAME"

Dim password = "GENERATED_PASSWORD"

Dim baseurl As String = "https://put here website =" + phonenumber + "&sender=" + sender + "&sms=" + msg + "&binary=" + dc + "&username=" + username + "&password=" + password

Dim data As Stream = client.OpenRead(baseurl)

Dim reader As StreamReader = New StreamReader(data)

Dim s As String = reader.ReadToEnd()

'MsgBox(s)

data.Close()

reader.Close()

End Sub

End Class

 

أتمنى من كل قلبي أن أجد الحل

وكلي ثقة بأنه من يعرف الحل أن لا يتردد في مساعدتي

وله وكل من يساعد دعوة مني بأن يوفقه الله وأن يرحم والديه

[سعيد صواب]

حياك الله اخي الكريم ...

بحسب فهمي للكود أعلاه بأنك ترغب في ارسال رسائل من برنامجك الأكسس ..  الكود vb.net

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

http://www.officena.net/ib/topic/63036-نظام-إجازات-الكتروني/

واذا فهمتك خطاء اتمنى ان تعذرني ..

[Jafar121]

جزاك الله كل الخير أخي الفاضل

مشكلتي الآن انحصرت فقط في عدم استطاعتي ارسال الرسالة باللغة العربية

عند ارسالها تكون الحروف مبهمة

الذي عملته أنا فقط استبدال الموقع الذي ارسل منه الرسائل مع موقع بتلكو

والموقع الذي أرسل منه هو التالي

https://www.bahrainsms.net/api/?username=&password=&sms=HelloWorld&mobile=&binary=0

 

مع العلم أنه في موقعهم مكتوب أنك  اذا وضعت

binary = 0

للغة الانجليزية

binary=1

للغة العربية

قمت بتجربة ذلك فلم تنجح الطريقة

جزاك الله أخي (  آخر الأرض ) خير الجزاء ورحم الله والديك في الدنيا والآخرة

تم تعديل أغسطس 15, 2015 بواسطه Jafar121

[Jafar121]

شكرا جزيلا

تم حل المشكلة

تحياتي لك عزيزي " آخر الأرض"