تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عمل عضوية لاكثر من شخص
#1
السلام عليكم ورحمة الله وبركاته...
كي اضيف عدة اشخاص فى الاستضافة كى يتمكنو من تشغيل البرنامج ؟
حيث اننى ضايف اسم العميل فى استضافة  pastebin
والبرنامج الان اخذه عشر اشخاص مثلا فكيف اضيفهم بجانب الاسم الاول كى
كل من يشغل البرنامج من هؤلاء العشرة يشتغل معهم ؟
وهذا هو الكود لشخص واحد

كود :
Dim web As String = ("https://pastebin.com/raw/3DTnjmJc")
       Dim webclint As New Net.WebClient
       Dim html As String = webclint.DownloadString(web)
       Dim us As String = TextBoxX1.Text
       If Not us = html Then
           Label1.Text = ("غير صحيح")
       Else
           Label1.Text = (" صحيح")
       End If
الرد
تم الشكر بواسطة:
#2
قم بانشاء كلاً من:
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

يارب يكون الشرح مبسط
تحياتى لك وتمنياتى لك التوفيق

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

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

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


الملفات المرفقة
.rar   Program.rar (الحجم : 7.29 ك ب / التحميلات : 2)
.rar   WindowsApplication1.rar (الحجم : 65 ك ب / التحميلات : 4)
.txt   CheckUsers.txt (الحجم : 72 بايت / التحميلات : 7)

{ وَقُل رَّبِّ زِدْنِي عِلْمًا }

مبارك عليكم شهر رمضان المبارك { وكل عام وانتم بخير }

الرد
#3
(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

يارب يكون الشرح مبسط
تحياتى لك وتمنياتى لك التوفيق

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

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

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


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

لكن ممكن لو تكرمت تعمله على الموقع اللى فى موضوعى ويكون باسماء عربية.
الله يكرم اصلك يارب
الرد
تم الشكر بواسطة:
#4
(17-05-18, 01:42 AM)ابو روضة كتب :
الله يسعدك دنيا وآخرة أستاذى الجميل ماشاء الله ابداع والله...

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


كل ما تحتاجه تغيير هذا الرابط
كود :
http://www.alremalco.com/CheckUsers.txt

بالرابط الخاص بك الذى سيقوم باستعادة الملف منه

وبخصوص الاسماء باللغة العربية
لو تلاحظ باخر الرد موضح ذلك

فقط قم بانشاء اسم عضوية بتلك الطريقة
كود :
#UserID:- 003
u:مسلم
#UserID:- 004
u:رمضان كريم
#UserID:- 005
u:مبارك عليكم الشهر

لا يهم التعديل على 001 و 002 الخ
فقط قمت باضافتها فى حال كنت بحاجة لها

{ وَقُل رَّبِّ زِدْنِي عِلْمًا }

مبارك عليكم شهر رمضان المبارك { وكل عام وانتم بخير }

الرد
تم الشكر بواسطة: ابو روضة
#5
(17-05-18, 01:51 AM)elgokr كتب :
(17-05-18, 01:42 AM)ابو روضة كتب :
الله يسعدك دنيا وآخرة أستاذى الجميل ماشاء الله ابداع والله...

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


كل ما تحتاجه تغيير هذا الرابط
كود :
http://www.alremalco.com/CheckUsers.txt

بالرابط الخاص بك الذى سيقوم باستعادة الملف منه

وبخصوص الاسماء باللغة العربية
لو تلاحظ باخر الرد موضح ذلك

فقط قم بانشاء اسم عضوية بتلك الطريقة
كود :
#UserID:- 003
u:مسلم
#UserID:- 004
u:رمضان كريم
#UserID:- 005
u:مبارك عليكم الشهر

لا يهم التعديل على 001 و 002 الخ
فقط قمت باضافتها فى حال كنت بحاجة لها

والله يا اخى عندى سؤال ومحروج اسالة لكن هاسأل وأمرى الى الله..
ازاى اضيف مستخدم جديد أخى يعنى كيف اضيفه فى المشروع او الموقع وسمحنى الله يعزك
وكل عام وانت بكل خير
الرد
تم الشكر بواسطة:
#6
(17-05-18, 02:17 AM)ابو روضة كتب :
والله يا اخى عندى سؤال ومحروج اسالة لكن هاسأل وأمرى الى الله..
ازاى اضيف مستخدم جديد أخى يعنى كيف اضيفه فى المشروع او الموقع وسمحنى الله يعزك
وكل عام وانت بكل خير

بالمرفقات بالاعلى يوجد ملف باسم

PHP كود :
 CheckUsers.txt 

كل ما هو مطلوب منك
اضافة الاسماء الجديدة أو المطلوب استخدامها ليصبح محتوى الملف بالداخل بهذا المثال للمحتوى

كود :
#DATATableUser
#UserID:- 001
u:محمد احمد
#UserID:- 002
u:على صلاح
#UserID:- 003
u:ايهاب جلال
#UserID:- 004
u:سعد سمير
#UserID:- 005
u:سعد سعود
#UserID:- 006
u:ابو روضة

من ثم م بحفظ الملف ورفعه على موقع لتحصل على رابط مباشر على سبيل المثال
PHP كود :
htp://exlink/namefile.txt 

ثم قم بوضع الرابط خاص الملف بدلاً من الرابط
كود :
http://www.alremalco.com/CheckUsers.txt

وقم بحفظ المشروع واستخراج البرنامج منه

بعد كده كلما احببت اضافة مستخدم او حذف او تعديل مستخدم
سيكون كل تعاملك مع ملف txt دون الحاجة للرجوع للمشروع

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

تحياتى لك

{ وَقُل رَّبِّ زِدْنِي عِلْمًا }

مبارك عليكم شهر رمضان المبارك { وكل عام وانتم بخير }

الرد
تم الشكر بواسطة: ابو روضة , عبد العزيز البسكري
#7
(17-05-18, 02:25 AM)elgokr كتب :
(17-05-18, 02:17 AM)ابو روضة كتب :
والله يا اخى عندى سؤال ومحروج اسالة لكن هاسأل وأمرى الى الله..
ازاى اضيف مستخدم جديد أخى يعنى كيف اضيفه فى المشروع او الموقع وسمحنى الله يعزك
وكل عام وانت بكل خير

بالمرفقات بالاعلى يوجد ملف باسم

PHP كود :
 CheckUsers.txt 

كل ما هو مطلوب منك
اضافة الاسماء الجديدة أو المطلوب استخدامها ليصبح محتوى الملف بالداخل بهذا المثال للمحتوى

كود :
#DATATableUser
#UserID:- 001
u:محمد احمد
#UserID:- 002
u:على صلاح
#UserID:- 003
u:ايهاب جلال
#UserID:- 004
u:سعد سمير
#UserID:- 005
u:سعد سعود
#UserID:- 006
u:ابو روضة

من ثم م بحفظ الملف ورفعه على موقع لتحصل على رابط مباشر على سبيل المثال
PHP كود :
htp://exlink/namefile.txt 

ثم قم بوضع الرابط خاص الملف بدلاً من الرابط
كود :
http://www.alremalco.com/CheckUsers.txt

وقم بحفظ المشروع واستخراج البرنامج منه

بعد كده كلما احببت اضافة مستخدم او حذف او تعديل مستخدم
سيكون كل تعاملك مع ملف txt دون الحاجة للرجوع للمشروع

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

تحياتى لك

الله يسعدك ويبارك بعمرك أخى الكريم....
نجحت الطريقة لكن الموقع اللى انا كتبته لا يقبل تقريبا العربية وموقع حضرتك لا يعمل
يقولون جارى التطوير فلو حصرتك تعرف موقع مثل هذه المواقع فأتمنى إدراجهم هنا
الرد
تم الشكر بواسطة:
#8
الموقع الذى قمت باستخدامه للتجربة فقط وهو موقع خاص
يمكنك عمل استضافة مجانية أو معرفة موقع يقوم برفع الملفات بروابط مباشرة
حتى تتمكن من التعامل بذلك ولكن تذكر بان الاستضافة المجانية لا تتجاوز العام بحد اقصي
وبذلك ستحتاج الى التعديل على البرنامج فى كل مرة
او يمكنك عمل استعادة رابط الملف من خلال ملف كاعدادات بجانب البرنامج وما شبه ذلك

تحياتى لك

{ وَقُل رَّبِّ زِدْنِي عِلْمًا }

مبارك عليكم شهر رمضان المبارك { وكل عام وانتم بخير }

الرد
تم الشكر بواسطة: ابو روضة
#9
(17-05-18, 05:05 AM)elgokr كتب :
الموقع الذى قمت باستخدامه للتجربة فقط وهو موقع خاص
يمكنك عمل استضافة مجانية أو معرفة موقع قوم برفع الملفات بروابط مباشرة
حتى تتمكن من التعامل ولكن تذكر بان الاستضافة المكانية لا تتجاوز العام بحد اقصي
وبذلك ستحتاج الى التعديل على البرنامج فى كل مرة
او يمكنك عمل استعادة رابط الملف من خلال ملف كاعدادات بجانب البرنامج وما شبه ذلك

تحياتى لك


elgokr
 فعلا انت فنان ومبدع

الرد
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] الاستعلام لاكثر من تاريخ محمد اسماعيل 2 108 31-03-18, 03:25 PM
آخر رد: محمد اسماعيل
  [VB.NET] عرض العملاء الى عملو تسجيل عضوية فى قاعدة البيانات mysql MOSTAFA.KAMEL 0 49 14-02-18, 09:32 PM
آخر رد: MOSTAFA.KAMEL
  [كود] مساعدة في عمل عضوية مميزة عبدالرحمن المكاوي 0 109 21-09-17, 05:51 PM
آخر رد: عبدالرحمن المكاوي
  عمل كود عضوية mo2013 3 330 20-07-16, 11:54 PM
آخر رد: الوادي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم