الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ارسل قيم متغيرات من البرنامج الى صفحة انترنت

مغلق
بدأه Romantic_touch في 14 نوفمبر 2005 · 2 رد · 474 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

كيف اقوم بارسال معلومات من نموذج في برنامجي الى صفحة الانترنت؟

اي فرضا لدي نموذج فيه اسم المستخدم وكلمة المرور يقوم المستخدم بادخالها ثم

يرسلها الى صفحة انترنت وتقوم هذه الصفحة بالرد عليه ب true او false ؟

انا استخدمت الاتي

 Dim HttpWReq As HttpWebRequest '= _
        HttpWReq = CType(WebRequest.Create(SPSC.VarlabbaikServerURL + "/doLogin.asp"), HttpWebRequest)
        HttpWReq.Method = "POST"
        Dim postData As String = "userId" + ChrW(61) + txtServerUserID.Text + "&password=" + ChrW(61) + txtServerPassword.Text

ولكن وقفت هنا ولا ادري كيف الباقي ولا ادري هل ما عملته خطأ ام صحيح؟ فهل هنا من يفيدني؟

تم تعديل هذه المشاركة بواسطة Romantic_touch في 14 نوفمبر 2005 في 17:06

<span style='color:green'>سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)</span>

#2

وين الناس وين الخبراء؟؟

انا وصلت لثلثين الحل :)

بس باقي الثلث الآخير

الثلثين هم كيف ارسل بطريقة GET وليس POST وايضا كيف اقراء القيمة الراجعة من الصفحة وايضا كيف اقراء محتويات HEADER

وباقي طريقة ال POST !!

<span style='color:green'>سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)</span>

#3

طيب بعد جهد جهيد لقيت الحل

وشكرا لمن حاول

وماتوفيقي الا بالله

Dim myHttpWebRequest As HttpWebRequest = _

CType(WebRequest.Create("http://www.localhost/test.asp"), HttpWebRequest)

myHttpWebRequest.Method = "POST"

Dim inputData As String = "Your Data that will sent"

Dim XmlStream As New StreamReader(inputData )

Dim inputData As String = XmlStream.ReadToEnd

Dim postData As String = "Data" + ChrW(61) + inputData

Dim encoding As New ASCIIEncoding

Dim byte1 As Byte() = encoding.GetBytes(postData)

' Set the content type of the data being posted.

myHttpWebRequest.ContentType = "application/x-www-form-urlencoded"

' Set the content length of the string being posted.

myHttpWebRequest.ContentLength = postData.Length

Dim newStream As Stream = myHttpWebRequest.GetRequestStream()

newStream.Write(byte1, 0, byte1.Length)

newStream.Close()

Dim HttpWResp As HttpWebResponse = _

CType(myHttpWebRequest.GetResponse(), HttpWebResponse)

' Insert code that uses the response object.

Dim s As New StreamReader(HttpWResp.GetResponseStream)

MessageBox.Show(s.ReadToEnd)

HttpWResp.Close()

Catch ex As WebException

MessageBox.Show(ex.Message)

End Try



and the asp page contain one line is
<%
response.write request.form("Data")
%>

<span style='color:green'>سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)</span>

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…