منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاتة
اسعد الله اوقاتكم في كل يوم <3
رجعت وياكم بدرس جديد : Smile

مقدم من حسين احمد او مستر هكر Sleepy

درس اليوم كيفية عمل برنامج صانع لستات ويوزرات Smile

نبدأ علئ بركة الله
نختار الشكل الي نريده
المتطلبات
2 TextBox
1 Timer
4 Button
1 NumericUpDown
1 ListBox
ويصبح المشروع بهذا الشكل
[صورة مرفقة: p_416bqoom1.png]

الان نبدا مرحت الاكواد وركز وياي Smile

______________________________
كود Start

كود :
Timer1.Start()

        Timer1.Interval = 1

كود Stop

كود :
Timer1.Stop()

كود الحفظ Save

كود :
On Error Resume Next

        Dim Iraq_Coder As SaveFileDialog = New SaveFileDialog

        Dim i As Integer

        Iraq_Coder.Title = "Save SET.txt"

        Iraq_Coder.Filter = "SET.txt File (*.txt)|*.txt"

        If Iraq_Coder.ShowDialog = Windows.Forms.DialogResult.OK Then

            Dim s As New IO.StreamWriter(Iraq_Coder.FileName, True)

            For i = 0 To ListBox1.Items.Count - 1

                s.WriteLine(ListBox1.Items.Item(i))

            Next

            s.Close()

        End If

كود الحذف Clear

كود :
ListBox1.Items.Clear()

كود Timer

كود :
 Dim Hussaien As New Random

        Dim RandomStrig As String = ""

        Dim Result As Integer

        Dim CharArray() As Char = TextBox1.Text.ToCharArray

        For i As Integer = 1 To NumericUpDown1.Value

            Result = Hussaien.Next(0, CharArray.Count)

            RandomStrig &= CharArray(Result)

        Next

        ListBox1.Items.Add(RandomStrig & TextBox2.Text & vbNewLine)

الئ هنا انتهت مرحت الاكواد قم بتشغيل المشروع Smile

وسيظهر علئ هذه الطريقه عند التشغيل
[صورة مرفقة: p_416eaa1g1.png]

وتم العمل بنجاح Rolleyes

لتحميل المشروع بالكامل
عراقي رفعت راس
ولتحميل الاكواد فقط
اضغط هنااا
ولمشاهدة الفيديو
انقر هنا
الئ اللقاء كان معكم
#حسين احمد او مستر هكر
بااااي Cool

تسلم ياغالي يعطيك العافية وبارك الله فيك

ممكن اعرف الهدف من البرنامج ده ايه (هذا سؤال)؟

(21-02-17, 09:33 PM)tryold كتب : [ -> ]تسلم ياغالي يعطيك العافية وبارك الله فيك

تدلل يا صديقي الله يعافيك <3

(23-02-17, 06:54 PM)IBCompany كتب : [ -> ]ممكن اعرف الهدف من البرنامج ده ايه (هذا سؤال)؟

صا صديقي الهدف من هذه البرنامج هيه لصنع الاميلات وتقوم بفحصها او تستطيع ان تضعها في طرق اخرى <3

(24-02-17, 12:31 PM)Master Hacker كتب : [ -> ]
(21-02-17, 09:33 PM)tryold كتب : [ -> ]تسلم ياغالي يعطيك العافية وبارك الله فيك

تدلل يا صديقي الله يعافيك <3

(23-02-17, 06:54 PM)IBCompany كتب : [ -> ]ممكن اعرف الهدف من البرنامج ده ايه (هذا سؤال)؟

يا صديقي الهدف من هذه البرنامج هيه لصنع الاميلات وتقوم بفحصها او تستطيع ان تضعها في طرق اخرى <3