[ابو روضة]

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

أريد تحويل هذا الكود لو سمحتم 

بحيث يكون هناك زر يتم من خلاله تنفيذ الكود

ومعذرة لآنى بعدت جدا عن البرمجة الفترة السابقة

كود :

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");
   }
}

[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

[ابو روضة]

(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

شكرا لك أخى الكريم...

هناك خطأ بسيط 

[Ahmads]

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

[نيمو]

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

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

[ابو روضة]

(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")

[Ahmads]

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

[نيمو]

اذا لم تجد المكتبة 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

[نيمو]

(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")

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

[ابو روضة]

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