[vb_net]

حاولت ان اعمل لك طريقة تخزين البيانات في ملف تكست ونجحت العملية
ولكن تحتاج لكود لمقارنة اليوزر وكلمة السر عند ادخالهما هل موجودين بالملف

كود :

' اليوزر نيم في تكست بوكس 1
        Dim Name As String = TextBox1.Text

        ' الباسورد في تكست بوكس 2
        Dim Pass As String = TextBox2.Text

        ' مسار الملف الدي ستخزن فيه البيانات
        Dim filename As String = "D:\data.txt"

        ' متغير الدي سينقل البيانات الى ملف تكست
        Dim str As StreamWriter = New StreamWriter(filename, True)

        ' تاكد ان الملف موجود
        If File.Exists(filename) = True Then

            ' ادا كان موجود يقوم بكتابة البيانات فيه
            str.WriteLine("UserName: " & TextBox1.Text & vbNewLine & "Password: " & TextBox2.Text)

            ' واغلاق الملف بعد الكتابة
            str.Close()

        Else

            ' ادا لم يكن الملف موجود يتم انشائه
            Dim str1 As StreamWriter = New StreamWriter("D:\data.txt")

            ' يتم كتابة البيانات فيه الملف
            str.WriteLine("UserName: " & TextBox1.Text & vbNewLine & "Password: " & TextBox2.Text)

            ' اغلاق الملف بعد الكتابة
            str.Close()

        End If