قم بانشاء كلاً من:
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
يارب يكون الشرح مبسط
تحياتى لك وتمنياتى لك التوفيق
يمكنك عند اختبار البرنامج المرفق لتجربة الاسم التالى للتاكد من الاسماء العربية والمسافات
صورة الاختبار لدى
تحياتى الخاصة
لكل من يقوم بالمساهمة
