تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] عمل برنامج صانع لستات
#1
السلام عليكم ورحمة الله وبركاتة 
اسعد الله اوقاتكم في كل يوم <3 
رجعت وياكم بدرس جديد :Smile
مقدم من حسين احمد او مستر هكر  Sleepy
درس اليوم كيفية عمل برنامج صانع لستات ويوزرات  Smile 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 Smile Smile
وسيظهر علئ هذه الطريقه عند التشغيل 
[صورة مرفقة: p_416eaa1g1.png]
وتم العمل بنجاح  Rolleyes Rolleyes Shy
لتحميل المشروع بالكامل 
عراقي رفعت راس
ولتحميل الاكواد فقط 
اضغط هنااا
ولمشاهدة الفيديو 
انقر هنا
الئ اللقاء كان معكم 
#حسين احمد او مستر هكر 
بااااي  Cool Cool Cool  Cool
الرد }}}
#2
تسلم ياغالي يعطيك العافية وبارك الله فيك
Mish3l
الرد }}}
تم الشكر بواسطة:
#3
ممكن اعرف الهدف من البرنامج ده ايه (هذا سؤال)؟
الرد }}}
تم الشكر بواسطة:
#4
(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
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  إجراء تصحيح اسماء الصور ليتناسب مع برنامج ffmpeg justforit 0 461 19-10-25, 04:32 AM
آخر رد: justforit
Rainbow [VB.NET] برنامج صانع الاكواد النسخة المحدثة الاصدار الثالث aljzazy 28 22,584 25-05-25, 01:14 AM
آخر رد: pc_ndf
  طريقة عمل برنامج لارسال رسائل sms ryrryt22@gmail.com 3 3,935 06-11-20, 04:24 PM
آخر رد: kiki
  [VB.NET] عمل برنامج فحص الاميلات المتاحه في الهوتميل Check Email Hotmail Master Hacker 10 11,398 27-05-20, 11:18 PM
آخر رد: محمد ايمن
  [سؤال] تصميم برنامج محادثه مثل واتس اب او فايبر MC-MeDo 6 6,373 17-03-20, 01:22 PM
آخر رد: أمجد وضاح
  برنامج صانع الأكواد aber31 8 7,950 05-07-18, 01:14 PM
آخر رد: elgokr
  [سؤال] السلام عليكم ممكن كود برنامج يحول النصوص الي فيديو elokely 0 2,543 10-04-18, 10:53 PM
آخر رد: elokely
Star [درس فيديو] كود عمل برنامج وسائط لتشغيل الاصوات و الفيديوهات YousefOkasha 0 2,557 19-01-18, 02:27 PM
آخر رد: YousefOkasha
Smile [درس فيديو] صنع برنامج Auto Typer للكتابه السريعه YousefOkasha 0 2,625 19-01-18, 02:21 PM
آخر رد: YousefOkasha
  [سؤال] لماذا من الواجب تثبيث كريستال ريبورت 10 عند تنصيب برنامج ما محمد محمود الغرياني 4 4,682 20-12-17, 07:46 PM
آخر رد: عبد العزيز البسكري

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


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