+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [VB.NET] عمل برنامج صانع لستات (/showthread.php?tid=19354)
عمل برنامج صانع لستات - Master Hacker - 21-02-17
السلام عليكم ورحمة الله وبركاتة
اسعد الله اوقاتكم في كل يوم <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)الئ هنا انتهت مرحت الاكواد قم بتشغيل المشروع
وسيظهر علئ هذه الطريقه عند التشغيل
وتم العمل بنجاح
لتحميل المشروع بالكامل
عراقي رفعت راس
ولتحميل الاكواد فقط
اضغط هنااا
ولمشاهدة الفيديو
انقر هنا
الئ اللقاء كان معكم
#حسين احمد او مستر هكر
بااااي
RE: عمل برنامج صانع لستات - tryold - 21-02-17
تسلم ياغالي يعطيك العافية وبارك الله فيك
RE: عمل برنامج صانع لستات - IBCompany - 23-02-17
ممكن اعرف الهدف من البرنامج ده ايه (هذا سؤال)؟
RE: عمل برنامج صانع لستات - Master Hacker - 24-02-17
(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