السلام عليكم ورحمة الله وبركاته
لدي ملف تيكست مرفوع على دروب بوكس ..
ولدي مشروع صغير فيه خاصيتين
الخاصيه الاولى : textbox5.text
الخاصيه الثانيه : button
اريد عندما اكتب الكلام في textbox1.text واضغط على الزر
يقوم المشروع بتعديل على ملف تيكست المرفوع على dropbox
المشكلة ان الملف التيكست ليس لها توكن خاص .. كيف يمكنني ذلك ..
او توجد طريقه اخرى او موقع اخر .
كيف يكون ذلك نضرا لـ كلامك لم استخدم الكيت هاب نهائياً ولا اعرف ماهيه الفوارق ..
وكيف يكون ذلك ..
هل تستطيع مساعدتي ولك جزيل الشكر ..
وعليكم السلام ورحمة الله وبركاته
الافضل لك وانا استعمله شخصيا هو firebase قم بتسجيل الدخول الى firebase من اللينك ده
https://console.firebase.google.com/u/0
وقم بانشاء مشروع جديد وسميه اي اسم تحبه وبعدين عند انشائه قم بالدخول الى الواجهة
ستجد في قائمة Build في الشمال هتلاقى Realtime Database هتدوس عليها وتنشئ قاعدة
وبعدين هتلاقي الرابط موجود كدة مثلا
https://vb4arb-35ea7-default-rtdb.firebaseio.com/
هتعمل بيانات زي اللى في الصورة كدة بس سميها زي ما تحب
بعد انشاء القاعدة هتخش علي القايمة الجانبية تانى عند Project Overview هتلاقي علامة جنبها
ايقونة اعدادات هتضغط عليها وبعدين تختار Project Settings وبعدين Service accounts
وبعدين تختار Database Secrets هتلاقي المفتاح الخاص بيك تمام كدة بقي معاك الرابط والمفتاح
ده شكل الرابط مع تغير طبعا البيانات لي بياناتك اكيد
https://vb4arb-35ea7-default-rtdb.fireba...GPQpqZ5mUC
هشرحلك الكود
الرابط :
https://vb4arb-35ea7-default-rtdb.firebaseio.com
اسم القاعدة بتاعتك : vb4arb وطبعا في الكود هي json لان دي بتتعامل عن طريق json
وده طبعا : ?auth= ده المصادقة اللى هتحط بعدها الكود الخاص بيك
وده طبعا الكود بتاعك : jdKw5qxlOqu0IAwQIkGhrBmMzwP5thGPQpqZ5mUC
كدة كله تمام الكود اهو بقي اللى هضيفه في مشروعك
كود :
Imports System.Net.Http
Imports System.Text
Imports System.Threading.Tasks
Public Class Form1
Private Async Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
Dim url As String = "https://vb4arb-35ea7-default-rtdb.firebaseio.com/vb4arb.json?auth=jdKw5qxlOqu0IAwQIkGhrBmMzwP5thGPQpqZ5mUC"
Dim newCodeValue As String = txtCode.Text
Dim jsonData As String = "{""code"":""" & newCodeValue & """}"
Dim client As New HttpClient()
client.DefaultRequestHeaders.Accept.Clear()
client.DefaultRequestHeaders.Accept.Add(New System.Net.Http.Headers.MediaTypeWithQualityHeaderValue("application/json"))
Dim request As New HttpRequestMessage(New HttpMethod("PATCH"), url) With {
.Content = New StringContent(jsonData, Encoding.UTF8, "application/json")
}
Try
Dim response As HttpResponseMessage = Await client.SendAsync(request)
response.EnsureSuccessStatusCode()
Dim responseString As String = Await response.Content.ReadAsStringAsync()
MessageBox.Show("تم التحديث بنجاح: " & responseString)
Catch ex As Exception
MessageBox.Show("خطأ في التحديث: " & ex.Message)
End Try
End Sub
End Class
(09-08-24, 11:24 PM)ميدو الفنان كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
الافضل لك وانا استعمله شخصيا هو firebase قم بتسجيل الدخول الى firebase من اللينك ده
https://console.firebase.google.com/u/0
وقم بانشاء مشروع جديد وسميه اي اسم تحبه وبعدين عند انشائه قم بالدخول الى الواجهة
ستجد في قائمة Build في الشمال هتلاقى Realtime Database هتدوس عليها وتنشئ قاعدة
وبعدين هتلاقي الرابط موجود كدة مثلا
https://vb4arb-35ea7-default-rtdb.firebaseio.com/
هتعمل بيانات زي اللى في الصورة كدة بس سميها زي ما تحب
بعد انشاء القاعدة هتخش علي القايمة الجانبية تانى عند Project Overview هتلاقي علامة جنبها
ايقونة اعدادات هتضغط عليها وبعدين تختار Project Settings وبعدين Service accounts
وبعدين تختار Database Secrets هتلاقي المفتاح الخاص بيك تمام كدة بقي معاك الرابط والمفتاح
ده شكل الرابط مع تغير طبعا البيانات لي بياناتك اكيد
https://vb4arb-35ea7-default-rtdb.fireba...GPQpqZ5mUC
هشرحلك الكود
الرابط : https://vb4arb-35ea7-default-rtdb.firebaseio.com
اسم القاعدة بتاعتك : vb4arb وطبعا في الكود هي json لان دي بتتعامل عن طريق json
وده طبعا : ?auth= ده المصادقة اللى هتحط بعدها الكود الخاص بيك
وده طبعا الكود بتاعك : jdKw5qxlOqu0IAwQIkGhrBmMzwP5thGPQpqZ5mUC
كدة كله تمام الكود اهو بقي اللى هضيفه في مشروعك
كود :
Imports System.Net.Http
Imports System.Text
Imports System.Threading.Tasks
Public Class Form1
Private Async Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
Dim url As String = "https://vb4arb-35ea7-default-rtdb.firebaseio.com/vb4arb.json?auth=jdKw5qxlOqu0IAwQIkGhrBmMzwP5thGPQpqZ5mUC"
Dim newCodeValue As String = txtCode.Text
Dim jsonData As String = "{""code"":""" & newCodeValue & """}"
Dim client As New HttpClient()
client.DefaultRequestHeaders.Accept.Clear()
client.DefaultRequestHeaders.Accept.Add(New System.Net.Http.Headers.MediaTypeWithQualityHeaderValue("application/json"))
Dim request As New HttpRequestMessage(New HttpMethod("PATCH"), url) With {
.Content = New StringContent(jsonData, Encoding.UTF8, "application/json")
}
Try
Dim response As HttpResponseMessage = Await client.SendAsync(request)
response.EnsureSuccessStatusCode()
Dim responseString As String = Await response.Content.ReadAsStringAsync()
MessageBox.Show("تم التحديث بنجاح: " & responseString)
Catch ex As Exception
MessageBox.Show("خطأ في التحديث: " & ex.Message)
End Try
End Sub
End Class
ان شاء الله لما افرغ من العمل بطبقها شكرا لك على التعب .. الله يجزاك الخـير ..