21-02-17, 01:48 AM
(آخر تعديل لهذه المشاركة : 21-02-17, 01:52 AM {2} بواسطة Master Hacker.)
السلام عليكم ورحمة الله وبركاتة
اسعد الله اوقاتكم في كل يوم <3
رجعت وياكم بدرس جديد :
مقدم من حسين احمد او مستر هكر
درس اليوم كيفية عمل برنامج صانع لستات ويوزرات
نبدأ علئ بركة الله
نختار الشكل الي نريده
المتطلبات
2 TextBox
1 Timer
4 Button
1 NumericUpDown
1 ListBox
ويصبح المشروع بهذا الشكل
![[صورة مرفقة: p_416bqoom1.png]](http://a.top4top.net/p_416bqoom1.png)
الان نبدا مرحت الاكواد وركز وياي
______________________________
كود Start
كود Stop
كود الحفظ Save
كود الحذف Clear
كود Timer
الئ هنا انتهت مرحت الاكواد قم بتشغيل المشروع
وسيظهر علئ هذه الطريقه عند التشغيل
![[صورة مرفقة: p_416eaa1g1.png]](http://c.top4top.net/p_416eaa1g1.png)
وتم العمل بنجاح
لتحميل المشروع بالكامل
عراقي رفعت راس
ولتحميل الاكواد فقط
اضغط هنااا
ولمشاهدة الفيديو
انقر هنا
الئ اللقاء كان معكم
#حسين احمد او مستر هكر
بااااي
اسعد الله اوقاتكم في كل يوم <3
رجعت وياكم بدرس جديد :

مقدم من حسين احمد او مستر هكر
درس اليوم كيفية عمل برنامج صانع لستات ويوزرات
نبدأ علئ بركة الله
نختار الشكل الي نريده
المتطلبات
2 TextBox
1 Timer
4 Button
1 NumericUpDown
1 ListBox
ويصبح المشروع بهذا الشكل
![[صورة مرفقة: p_416bqoom1.png]](http://a.top4top.net/p_416bqoom1.png)
الان نبدا مرحت الاكواد وركز وياي

______________________________
كود Start
كود :
Timer1.Start()
Timer1.Interval = 1كود :
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كود :
ListBox1.Items.Clear()كود :
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)الئ هنا انتهت مرحت الاكواد قم بتشغيل المشروع
وسيظهر علئ هذه الطريقه عند التشغيل
![[صورة مرفقة: p_416eaa1g1.png]](http://c.top4top.net/p_416eaa1g1.png)
وتم العمل بنجاح
لتحميل المشروع بالكامل
عراقي رفعت راس
ولتحميل الاكواد فقط
اضغط هنااا
ولمشاهدة الفيديو
انقر هنا
الئ اللقاء كان معكم
#حسين احمد او مستر هكر
بااااي
