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

(16-09-17, 02:44 PM)عبدالرحمن المكاوي كتب : [ -> ]

كود :

    dt.Columns.AddRange(New DataColumn() {New DataColumn("title"), New DataColumn("section"), New DataColumn("link")})

       Dim wc As New Net.WebClient()
       Dim src As String = wc.DownloadString("http://arab-live.ucoz.net/Test.txt")

       For Each str As String In src.Split(vbLf) '
           Dim splt() = Split(str, ",")
           Dim r As DataRow = dt.NewRow
           r.Item("title") = splt(0)
           r.Item("section") = splt(1)
           r.Item("link") = splt(2)
           dt.Rows.Add(r)
       Next

       TextBox1_TextChanged(Nothing, Nothing)
       Dim q = From x As DataRow In dt Select x.Item("section") Distinct
       ComboBox1.Items.AddRange(q.ToArray)
       ComboBox1.SelectedIndex = 0
       TextBox1.Focus()

معذرة اخي الكريم ...لم اجد شيء سبب لرسالة الخطا.

(16-09-17, 02:53 PM)سعود كتب : [ -> ]

(16-09-17, 02:44 PM)عبدالرحمن المكاوي كتب : [ -> ]

كود :

    dt.Columns.AddRange(New DataColumn() {New DataColumn("title"), New DataColumn("section"), New DataColumn("link")})

       Dim wc As New Net.WebClient()
       Dim src As String = wc.DownloadString("http://arab-live.ucoz.net/Test.txt")

       For Each str As String In src.Split(vbLf) '
           Dim splt() = Split(str, ",")
           Dim r As DataRow = dt.NewRow
           r.Item("title") = splt(0)
           r.Item("section") = splt(1)
           r.Item("link") = splt(2)
           dt.Rows.Add(r)
       Next

       TextBox1_TextChanged(Nothing, Nothing)
       Dim q = From x As DataRow In dt Select x.Item("section") Distinct
       ComboBox1.Items.AddRange(q.ToArray)
       ComboBox1.SelectedIndex = 0
       TextBox1.Focus()

معذرة اخي الكريم ...لم اجد شيء سبب لرسالة الخطا.

هل يمكن ان يكون السبب هو التشفير

(16-09-17, 04:50 PM)ابو روضة كتب : [ -> ]

طب حاول ان تأخذ المشروع الى القرص C  وشغله من هناك

نفس المشكلة --------- المشكلة اصلا ان البرنامج لا يعمل اذ كانت لغة التاريخ فرنسية او انجليزي
فهل يوجد كود لتحويلها لعربية

مرحبا اخى

الخطا حدث داخل الحدث Form1_Load اثناء تنفيذ WebClient.DownloadString ويشير الى خطا في مسار الرابط

إقتباس :هل يمكن ان يكون السبب هو التشفير

كيف تشفير؟!
ان كان القصد تشفير الاكواد فبلاشك قد(قد)يكون سبب.
جرب مثال بسيط بلا تشفير.

اشتغل بدون مشاكل نفس السورس بدون تشفير


بس لا يمكنني نشر البرنامج بدون تشفير هل لديكم تشفير اخر

(16-09-17, 07:13 PM)عبدالرحمن المكاوي كتب : [ -> ]اشتغل بدون مشاكل نفس السورس بدون تشفير


بس لا يمكنني نشر البرنامج بدون تشفير هل لديكم تشفير اخر

اخي الكريم لما لا تعمل مثال بسيط للتشفير الذي تقصده.
حتى نعرف هل بالامكان ام لا.

(17-09-17, 12:18 AM)سعود كتب : [ -> ]

(16-09-17, 07:13 PM)عبدالرحمن المكاوي كتب : [ -> ]اشتغل بدون مشاكل نفس السورس بدون تشفير


بس لا يمكنني نشر البرنامج بدون تشفير هل لديكم تشفير اخر

اخي الكريم لما لا تعمل مثال بسيط للتشفير الذي تقصده.
حتى نعرف هل بالامكان ام لا.

انا اشفر ببرنامج SuckmySourceCode نوع التشفير RC4

مرحبا اخى

لازم تفك التشفير عن الرابط عشان تضعه في WebClient.DownloadString