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

ارسال و استقبال قيم من موقع

بدأه AGSHAR في 12 مارس 2009 · 2 رد · 657 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكــم ورحمـة الله وبركاتــة ،،

عندي مشكله اني احاول ارسال Parameter لموقع في الانترنت عن طريق ال VB6 بدون استخدام اداة WebBrower

المشكله كالتالي

:

الموقع

http://localhost/sendme.aspx

القيمة :PhoneNo

لما نرسل القيمة لازم تكون كالتالي

http://localhost/sendme.aspx?phoneno=123455534

طبعا العملية سهله جدا عن طريق ال ASP.NET

بس المشكله اني احاول ان ارسل القيمة للموقع عن طريق VB6 و بدون ال Webbroswe و المشكله الثانيه اني استرجع القيمة من موقع نفسه

يعني لما استفسر من الرقم 123455534 راح يعطيني الاجابه Ahmad مثلا في ال Label1.caption

الموضوع في Pass Parameter to HTTP بس ما لقيت شرح للموضوع

يرجى المساعده

#2

وعليكــم السـلام ورحمة الله وبركاتـه..

هناك أكثر من حل من أجل الاستغناء عن أداة انترنت اكسبلورر

يمكن استعمال Microsoft Internet Transfert Control

dfgdgf.jpg

واستعمال الدالة openUrl من أجل استخلاص الرد

أو استعمال مرجع Microsoft Html Object

ومحاولة قراءة الرد أيضا

Dim objDoc As New HTMLDocument
Set objDoc = objMSHTML.createDocumentFromUrl("http://localhost/sendme.aspx?phoneno=123455534", vbNullString)
While objDoc.readyState <> "complete"
  DoEvents
Wend
aName =objDoc.body.innerHTML

وهناك طريقة أخرى عن طريق الxml

kuwhost-du3at_06.gif

#3

اشكرك على الرد

لقد وجدت الحل

و هو استخدام دالة WinhttpRequest

بهذه الطريقة ترسل و تستقبل البيانات للموقع

عن طرق ال GET و ال POST

و ترسلها عن طريق ال Send و تستقبل الرد عن طريق Respnsetext

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

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

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

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

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