[ابو روضة]

(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

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

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

---

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

كود :

رمضان كريم

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

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

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

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

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