الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة login with txt

بدأه belal200898 في 20 يناير 2014 · 4 رد · 504 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

 

شباب عندي كود login بطريقة مميزة بستخدام ملف txt يعني اليوزر والباسورد يكون في الtxt المهم المشكلة هي يعتمد على يوز واحد اني اريد اضيف اكثر من يوز ارجوكم المساعدة والكود هذا 

 

 

 

Imports System.Net, Microsoft.Win32
Imports System.Management
Imports System.IO
Imports System.Security.Cryptography
Imports System.Text
Imports System.Threading 
Dim username As String Dim all As String Dim logins As String = 0 
Private Sub LoginButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoginButton.Click 
Dim Name As String = True 

logins = logins + 1 
If logins = 4 Then 
MsgBox("You have failed 3 times!") 
Application.Exit() 
Exit Sub 
End If 

Dim web As New WebClient() Dim i As String = textbox1.Text & ":" & textbox2.Text 

Dim response As String = web.DownloadString("YOUR DROPBOX ACCOUNT.txt") 
If response.Contains(i) Then 
Else : MsgBox("Invalid Login", MsgBoxStyle.Information) 
Exit Sub 
End If 
If textbox1.Text = "" Or textbox2.Text = "" Then 
MsgBox(" Error ") 
Else 
MsgBox("Welcome Member : " + textbox1.Text)
Me.Hide() 

End If 

End Sub

ارجو المساعدة وملف txt يكون هكذا

اسم المستخدم:الباسورد
#2

السلام عليكم أخي العزيز ..

 

هناك خاصية تسمى split للمتغيرات النصية ..

 

وطريقة الإستعمال :

Dim X As String() = "Hello - World".split("-")

ووضعنا أمر لإظهار المصفوفة X (العنصرين 0 و 1)

MsgBox("Item 0 : " + X(0)) MsgBox("Item 1 : " + X(1))

فسيكون الناتج :

OutPut:
------------------------
|                  | X |
|        Hello         |
|      |   OK   |      |
------------------------

------------------------
|                  | X |
|         _World_      |
|       |   OK     |   |
------------------------

إستفد من هذه الدالة ..

 

تحياتي  ^_^

تم تعديل هذه المشاركة بواسطة bahbah في 20 يناير 2014 في 10:30

رجعت ومازال الفريق خاملاَ  :( 


 


abPuw.1.gif

#3

ماعرفت قصدك بس ياريت توضح بتعديلك على الكود اللي وضعة وشكرا على الرد السريع


#4

أنا ما وضعت الرد السابق .. إلا لكي تفكر في الحل أخي العزيز ..

 

توضيح الرد السابق كما تريد ..

 

فلنقل أن الملف النصي .. يحتوي على أكثر من عضوية .. صحيح ؟؟

 

وأن الفاصلة بين كل عضوية وآخرى هي سطر جديد أي في الـvb ---> vbNewLine ...

 

نقوم بعمل مصفوفة تحتوي على الملف النصي :

Dim XUsers As String() = web.DownloadSting("TextFile.txt").split(vbNewLine)

ومن ثم نعرف متغير نصي جديد داخل حلقة أو .. نقوم بإستعمال For Each للدخول في بيانات المصفوفة كاملةً ..

ثم نقارن بين اسم المستخدم وكلمة المرور التي أدخلها المستخدم وبين البيانات الموجودة في الملف النصي ..

 

تحياتي  ^_^

رجعت ومازال الفريق خاملاَ  :( 


 


abPuw.1.gif

#5

ملاحظة : لا تستعمل الخاصية Contains ...

 

هل جربتها عندما تقوم فقط بكتابة الحرف الأول من كلمة السر .. والاسم صحيح ؟؟

 

معنى كلمة Contains هي الإحتواء .. أي أن مجرد حرف واحد موجود في المستند نصي .. فوراً سيقوم بتسجيل الدخول ..

 

تحياتي  ^_^

رجعت ومازال الفريق خاملاَ  :( 


 


abPuw.1.gif

مواضيع مشابهة