منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ممكن طريقة لتحويل هذا الكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ممكن طريقة لتحويل هذا الكود (/showthread.php?tid=41692)

ممكن طريقة لتحويل هذا الكود - ابو روضة - 09-06-22

السلام عليكم ورحمة الله وبركاته.
أريد تحويل هذا الكود لو سمحتم 
بحيث يكون هناك زر يتم من خلاله تنفيذ الكود
ومعذرة لآنى بعدت جدا عن البرمجة الفترة السابقة

كود :
namespace Namespace {
   
   using requests;
   
   public static class Module {
       
       public static object response = requests.post("https://graph.facebook.com/5/photos? url=https://i.imgur.com/DjS9556hQ.jpg & message= خطوة خطوة تتحقق أمانيك ! &access_token=EAAHnfIin3bIBAA0TBTifp44ZCQv73dSppZB9xPMhZBkBA6vpZCHeyL6BT7kFt3Snx7NqKvCc5ezQ8Ta0EchLcV8BNTaevRosZBmK3ixqiCSqQPK8fgPCOb");
   }
}


RE: ممكن طريقة لتحويل هذا الكود - Ahmads - 09-06-22

ضعه في حدث الضغط على زر
كود :
Dim response As Object = requests.post("https://graph.facebook.com/5/photos? url=https://i.imgur.com/DjS9556hQ.jpg & message= خطوة خطوة تتحقق أمانيك ! &access_token=EAAHnfIin3bIBAA0TBTifp44ZCQv73dSppZB9xPMhZBkBA6vpZCHeyL6BT7kFt3Snx7NqKvCc5ezQ8Ta0EchLcV8BNTaevRosZBmK3ixqiCSqQPK8fgPCOb")
لكن هو يحتاج للمكتبه او الكلاس requests

RE: ممكن طريقة لتحويل هذا الكود - ابو روضة - 09-06-22

(09-06-22, 07:31 PM)Ahmads كتب : ضعه في حدث الضغط على زر
كود :
Dim response As Object = requests.post("https://graph.facebook.com/5/photos? url=https://i.imgur.com/DjS9556hQ.jpg & message= خطوة خطوة تتحقق أمانيك ! &access_token=EAAHnfIin3bIBAA0TBTifp44ZCQv73dSppZB9xPMhZBkBA6vpZCHeyL6BT7kFt3Snx7NqKvCc5ezQ8Ta0EchLcV8BNTaevRosZBmK3ixqiCSqQPK8fgPCOb")
لكن هو يحتاج للمكتبه او الكلاس requests

شكرا لك أخى الكريم...
هناك خطأ بسيط 



RE: ممكن طريقة لتحويل هذا الكود - Ahmads - 09-06-22

ذكرت لك تحتاج المكتبه requests وليست Resources

RE: ممكن طريقة لتحويل هذا الكود - نيمو - 09-06-22

لاتوجد مكتبة requests اصلا

لكن توجد WebRequest اعتقد تقوم بنفس العمل
ابحث عن مكتبة requests من نفس المصدر اللي اخذت الكود منه

RE: ممكن طريقة لتحويل هذا الكود - ابو روضة - 09-06-22

(09-06-22, 10:22 PM)Ahmads كتب : ذكرت لك تحتاج المكتبه requests وليست Resources

(09-06-22, 11:02 PM)نيمو كتب : لاتوجد مكتبة requests اصلا

لكن توجد WebRequest  اعتقد تقوم بنفس العمل
ابحث عن مكتبة requests  من نفس المصدر اللي اخذت الكود منه

جربت هذا ولن ينفع

كود :
 Dim httpRequest As HttpRequest = New HttpRequest()
       httpRequest.Post("https://graph.facebook.com/102516665400042/photos? url=https://i.imgur.com/88541266.jpg & message= خطوة خطوة تتحقق أمانيك ! &access_token=EAAHnfIin3bu6czvXOY27HGxRfRmLihZAPnOnkDgQ")


RE: ممكن طريقة لتحويل هذا الكود - Ahmads - 09-06-22

اخي الكريم
المكتبه requests هي مكتبه خاصه موجوده في المشروع الاصلي الذي اخذت منه الكود
وقد قام بالايضاح عن ذلك ايضا الاخ نيمو

RE: ممكن طريقة لتحويل هذا الكود - نيمو - 10-06-22

اذا لم تجد المكتبة requests جرب الفكشن ذا


كود :
Public Function test(ByVal url As String) As Boolean
       Dim Requ As HttpWebRequest = WebRequest.Create(url)
       Requ.Method = "POST"
       Try
           Dim Resp As HttpWebResponse = (Requ.GetResponse)
           Return (Resp.StatusCode.ToString = "OK")
       Catch
           Return False
       End Try
   End Function


RE: ممكن طريقة لتحويل هذا الكود - نيمو - 10-06-22

(10-06-22, 12:12 AM)Ahmads كتب : جرب هذه الطريقه المختصره
مع التاكد من ان access_token صحيح
كود :
Dim response As Object = New Net.WebClient().DownloadString("https://graph.facebook.com/5/photos? url=https://i.imgur.com/DjS9556hQ.jpg & message= خطوة خطوة تتحقق أمانيك ! &access_token=EAAHnfIin3bIBAA0TBTifp44ZCQv73dSppZB9xPMhZBkBA6vpZCHeyL6BT7kFt3Snx7NqKvCc5ezQ8Ta0EchLcV8BNTaevRosZBmK3ixqiCSqQPK8fgPCOb")

اتصور مش مسالة داون لود

RE: ممكن طريقة لتحويل هذا الكود - ابو روضة - 10-06-22

شكرا لكم اخوتى وجزاكم كل خير...