[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

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

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

---

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

كود :

رمضان كريم

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

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