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
ويصبح المشروع بهذا الشكل
الان نبدا مرحت الاكواد وركز وياي
______________________________
كود Start
كود Stop
كود الحفظ Save
كود الحذف Clear
كود Timer
الئ هنا انتهت مرحت الاكواد قم بتشغيل المشروع
وسيظهر علئ هذه الطريقه عند التشغيل
وتم العمل بنجاح
لتحميل المشروع بالكامل
عراقي رفعت راس
ولتحميل الاكواد فقط
اضغط هنااا
ولمشاهدة الفيديو
انقر هنا
الئ اللقاء كان معكم
#حسين احمد او مستر هكر
بااااي
اسعد الله اوقاتكم في كل يوم <3
رجعت وياكم بدرس جديد :
مقدم من حسين احمد او مستر هكر
درس اليوم كيفية عمل برنامج صانع لستات ويوزرات
نبدأ علئ بركة الله
نختار الشكل الي نريده
المتطلبات
2 TextBox
1 Timer
4 Button
1 NumericUpDown
1 ListBox
ويصبح المشروع بهذا الشكل
الان نبدا مرحت الاكواد وركز وياي
______________________________
كود 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)
الئ هنا انتهت مرحت الاكواد قم بتشغيل المشروع
وسيظهر علئ هذه الطريقه عند التشغيل
وتم العمل بنجاح
لتحميل المشروع بالكامل
عراقي رفعت راس
ولتحميل الاكواد فقط
اضغط هنااا
ولمشاهدة الفيديو
انقر هنا
الئ اللقاء كان معكم
#حسين احمد او مستر هكر
بااااي