(16-05-18, 10:52 PM)elgokr كتب :

قم بانشاء كلاً من:

textbox1 || textbox2  ||  button1

قم بتنفيذ كلا من التالى على textbox2

كود :

Multiline = True
Visible = False

داخل كود الـ Button ضع الكود التالى

كود :

GetDataUser(TextBox1.Text)

وقم بادراج كود SUB التالى

كود :

Sub GetDataUser(ByVal username_ As String)
       Dim web As String = ("http://www.alremalco.com/CheckUsers.txt")
       Dim webclint As New Net.WebClient
       Dim html As String = webclint.DownloadString(web)
       TextBox2.Text = html                                '-- تنبيه اسم textbox2 --'   منطة تخزين محتوى الرابط
       Dim Lines As String() = TextBox2.Lines              '-- تنبيه اسم textbox2 --'    تحديد كل سطر على حدى
       Dim dt As New DataTable
       Dim row(1) As String
       Dim run As String = ""
       For i As Integer = 0 To Lines.Length - 1
           Dim line As String = Lines(i).ToString.Trim
           If line.StartsWith("#DATATableUser") Then
               row(0) = line.Replace("#UserID:- ", "").Trim
           ElseIf line.StartsWith("u:") Then
               row(1) = line.Trim
           End If
           If "u:" & username_ = row(1) Then
               run = " صحيح"                       ' نص الرسالة
               ' يمكنك تغيير السطر بكود يفتح فورم اخر وما شبه
               ' انشاء ما تريد من كود هنا عند تحقق المستخدم
               Exit For
           Else
               run = "غير صحيح"                    ' نص الرسالة
           End If
       Next
       MsgBox(run)
   End Sub

مرفق فى المرفقات السورس مع برنامج الاختبار

يمكنك اختبار الاسماء التالية

كود :

Username1
Username2

صيغة الكتابة داخل ملف text

كود :

#DATATableUser
#UserID:- 001
u:Username1
#UserID:- 002
u:Username2

عند انشاء اسم مستخدم جديد فقط ضيف

كود :

#UserID:- 003
u:Username3

غير جملة (Username3) بالاسم المستخدم المطلوب

كود :

جملة :
row(0)
تشير الى رقم العضوية اذا كنت حاجة الى الاستخدام وسيعرض 001
وجملة:
row(1)
تشير الى اسم المستخدم والناتج
u:Username1

يارب يكون الشرح مبسط

تحياتى لك وتمنياتى لك التوفيق

---

يمكنك عند اختبار البرنامج المرفق لتجربة الاسم التالى للتاكد من الاسماء العربية والمسافات

كود :

رمضان كريم

صورة الاختبار لدى

تحياتى الخاصة

(17-05-18, 01:42 AM)ابو روضة كتب :

الله يسعدك دنيا وآخرة أستاذى الجميل ماشاء الله ابداع والله...

لكن ممكن لو تكرمت تعمله على الموقع اللى فى موضوعى ويكون باسماء عربية.

الله يكرم اصلك يارب

(17-05-18, 01:51 AM)elgokr كتب :

(17-05-18, 01:42 AM)ابو روضة كتب :

الله يسعدك دنيا وآخرة أستاذى الجميل ماشاء الله ابداع والله...

لكن ممكن لو تكرمت تعمله على الموقع اللى فى موضوعى ويكون باسماء عربية.

الله يكرم اصلك يارب

كل ما تحتاجه تغيير هذا الرابط

كود :

http://www.alremalco.com/CheckUsers.txt

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

وبخصوص الاسماء باللغة العربية

لو تلاحظ باخر الرد موضح ذلك

فقط قم بانشاء اسم عضوية بتلك الطريقة

كود :

#UserID:- 003
u:مسلم
#UserID:- 004
u:رمضان كريم
#UserID:- 005
u:مبارك عليكم الشهر

لا يهم التعديل على 001 و 002 الخ

فقط قمت باضافتها فى حال كنت بحاجة لها

(17-05-18, 02:17 AM)ابو روضة كتب :

والله يا اخى عندى سؤال ومحروج اسالة لكن هاسأل وأمرى الى الله..

ازاى اضيف مستخدم جديد أخى يعنى كيف اضيفه فى المشروع او الموقع وسمحنى الله يعزك

وكل عام وانت بكل خير

(17-05-18, 02:25 AM)elgokr كتب :

(17-05-18, 02:17 AM)ابو روضة كتب :

والله يا اخى عندى سؤال ومحروج اسالة لكن هاسأل وأمرى الى الله..

ازاى اضيف مستخدم جديد أخى يعنى كيف اضيفه فى المشروع او الموقع وسمحنى الله يعزك

وكل عام وانت بكل خير

بالمرفقات بالاعلى يوجد ملف باسم

PHP كود :

 CheckUsers.txt 


كل ما هو مطلوب منك
اضافة الاسماء الجديدة أو المطلوب استخدامها ليصبح محتوى الملف بالداخل بهذا المثال للمحتوى

كود :

#DATATableUser
#UserID:- 001
u:محمد احمد
#UserID:- 002
u:على صلاح
#UserID:- 003
u:ايهاب جلال
#UserID:- 004
u:سعد سمير
#UserID:- 005
u:سعد سعود
#UserID:- 006
u:ابو روضة

من ثم م بحفظ الملف ورفعه على موقع لتحصل على رابط مباشر على سبيل المثال

PHP كود :

htp://exlink/namefile.txt 


ثم قم بوضع الرابط خاص الملف بدلاً من الرابط

كود :

http://www.alremalco.com/CheckUsers.txt

وقم بحفظ المشروع واستخراج البرنامج منه

بعد كده كلما احببت اضافة مستخدم او حذف او تعديل مستخدم

سيكون كل تعاملك مع ملف txt دون الحاجة للرجوع للمشروع

اتمنى يكون الشرح مبسط

تحياتى لك

(17-05-18, 05:05 AM)elgokr كتب :

الموقع الذى قمت باستخدامه للتجربة فقط وهو موقع خاص

يمكنك عمل استضافة مجانية أو معرفة موقع قوم برفع الملفات بروابط مباشرة

حتى تتمكن من التعامل ولكن تذكر بان الاستضافة المكانية لا تتجاوز العام بحد اقصي

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

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

تحياتى لك