منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : معلومه ابحث عنها منذ شهور تخص السيرفر المحلي
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
لدي ملف php اريد ارفعه علي سيرفر محلي وليس هوست لاني عند الرفع علي الهوست تحدث به مشاكل
ولكن محتاج اتعامل معه من خلال الفيجوال بيسك حتي يستخدمه المستخدمون الاخرون بدون تنصيب اي برامج خارجيه 
تعبت من كتر البحث في المراجع والفديوهات دون فاده
(30-04-20, 02:54 PM)اليوم السابع كتب : [ -> ]لدي ملف php اريد ارفعه علي سيرفر محلي وليس هوست لاني عند الرفع علي الهوست تحدث به مشاكل
ولكن محتاج اتعامل معه من خلال الفيجوال بيسك حتي يستخدمه المستخدمون الاخرون بدون تنصيب اي برامج خارجيه 
تعبت من كتر البحث في المراجع والفديوهات دون فاده

1
(30-04-20, 02:54 PM)اليوم السابع كتب : [ -> ]لدي ملف php اريد ارفعه علي سيرفر محلي وليس هوست لاني عند الرفع علي الهوست تحدث به مشاكل
ولكن محتاج اتعامل معه من خلال الفيجوال بيسك حتي يستخدمه المستخدمون الاخرون بدون تنصيب اي برامج خارجيه 
تعبت من كتر البحث في المراجع والفديوهات دون فاده

2
اخي الكريم انظر لهذا الموضوع
http://vb4arb.com/vb/showthread.php?tid=27508
ما هي محتويات الملف ولماذا تريد استخدامه وما هو المطلوب بالضبط
هل تريد مجرد قراءة الملف بالفيجوال ستوديو
(01-05-20, 10:51 PM)سعود كتب : [ -> ]اخي الكريم انظر لهذا الموضوع
http://vb4arb.com/vb/showthread.php?tid=27508

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

(01-05-20, 11:25 PM)aljzazy كتب : [ -> ]ما هي محتويات الملف ولماذا تريد استخدامه وما هو المطلوب بالضبط
هل تريد مجرد قراءة الملف بالفيجوال ستوديو

اريد تنفيذ كود php ولكن من خلال الفيجوال بيسك
استخدم WebRequest

كود :
Dim errorString As String = "errorString=test string"
   Dim request As WebRequest = WebRequest.Create("http://127.0.0.1/test.php")

   request.Method = "POST"
   Dim byteArray As Byte() = Encoding.UTF8.GetBytes(errorString)
   request.ContentType = "application/x-www-form-urlencoded"
   request.ContentLength = byteArray.Length
   Dim dataStream As Stream = request.GetRequestStream()
   dataStream.Write(byteArray, 0, byteArray.Length)
   dataStream.Close()
   Dim response As WebResponse = request.GetResponse()
   dataStream = response.GetResponseStream()
   Dim reader As New StreamReader(dataStream)
   Dim responseFromServer As String = reader.ReadToEnd()
   reader.Close()
   dataStream.Close()
   response.Close()
   MsgBox(responseFromServer)
(02-05-20, 03:39 AM)aljzazy كتب : [ -> ]استخدم WebRequest

كود :
Dim errorString As String = "errorString=test string"
   Dim request As WebRequest = WebRequest.Create("http://127.0.0.1/test.php")

   request.Method = "POST"
   Dim byteArray As Byte() = Encoding.UTF8.GetBytes(errorString)
   request.ContentType = "application/x-www-form-urlencoded"
   request.ContentLength = byteArray.Length
   Dim dataStream As Stream = request.GetRequestStream()
   dataStream.Write(byteArray, 0, byteArray.Length)
   dataStream.Close()
   Dim response As WebResponse = request.GetResponse()
   dataStream = response.GetResponseStream()
   Dim reader As New StreamReader(dataStream)
   Dim responseFromServer As String = reader.ReadToEnd()
   reader.Close()
   dataStream.Close()
   response.Close()
   MsgBox(responseFromServer)

انا وضعت الملف بجانب المشروع
ولكن ظهر هذا الخطأ وغالبا بسبب ان انا ليس منصب اي برامج لعمل سيرفر محلي علي جهازي