السلام عليكم ورحمة الله وبركاته.
أريد تحويل هذا الكود لو سمحتم
بحيث يكون هناك زر يتم من خلاله تنفيذ الكود
ومعذرة لآنى بعدت جدا عن البرمجة الفترة السابقة
كود :
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");
}
}
ضعه في حدث الضغط على زر
كود :
Dim response As Object = requests.post("https://graph.facebook.com/5/photos? url=https://i.imgur.com/DjS9556hQ.jpg & message= خطوة خطوة تتحقق أمانيك ! &access_token=EAAHnfIin3bIBAA0TBTifp44ZCQv73dSppZB9xPMhZBkBA6vpZCHeyL6BT7kFt3Snx7NqKvCc5ezQ8Ta0EchLcV8BNTaevRosZBmK3ixqiCSqQPK8fgPCOb")
لكن هو يحتاج للمكتبه او الكلاس requests
ذكرت لك تحتاج المكتبه requests وليست Resources
لاتوجد مكتبة requests اصلا
لكن توجد WebRequest اعتقد تقوم بنفس العمل
ابحث عن مكتبة requests من نفس المصدر اللي اخذت الكود منه
اخي الكريم
المكتبه 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
شكرا لكم اخوتى وجزاكم كل خير...
