تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] عمل برنامج فحص الاميلات المتاحه في الهوتميل Check Email Hotmail
#1
السلام عليكم ورحمة الله وبركاته  Smile كيف حالكم اعضاء وزوار منتدئ فيجوال بيسك لكل العرب  Smile
اليوم اقدم لكم كوني عضو جديد في المنتدئ  Angel سورس فحص الاميلات المتاحه في الهوتميل :Smile
نبدأ علئ بركة الله .. تابعوو وياي :* 
اول خطوة نبدأ بتصميم الشكل الي راح نختاره الان  Sleepy
الادوات الي راح نستعمله 
1 WebBrowser
3 ListBox
4 Button
8 Timer
2 TextBox
ويصبح الشكل هكذا كما في الصوره :Smile

تمام الان نبدأ بمرحلة اضافة الاكواد وركز معي Rolleyes
كود التعريف 
كود :
  Imports System.IO

كود Form1
كود :
WebBrowser1.Navigate("https://login.live.com/ar")
       WebBrowser1.ScriptErrorsSuppressed = True

كود اضافة لستة 
كود :
On Error Resume Next
       Dim openfile As New OpenFileDialog
       ListBox1.Items.Clear()
       ListBox3.Items.Clear()
       openfile.Title = "Text |*.txt"
       openfile.ShowDialog()
       Dim txtline() As String = IO.File.ReadAllLines(openfile.FileName)
       ListBox1.Items.AddRange(txtline)

كود Timer1
كود :
On Error Resume Next
       If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
           ListBox1.SelectedIndex += 1
           Timer2.Start()
           Timer1.Stop()
       End If

كود Timer2
كود :
On Error Resume Next
       If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
           WebBrowser1.Document.GetElementById("loginfmt").InnerText = ListBox1.SelectedItem
           WebBrowser1.Document.GetElementById("passwd").InnerText = "Master1234hv"
           Timer4.Start()
           Timer2.Stop()
       End If

كود Timer3

كود :
 On Error Resume Next
       WebBrowser1.Navigate("https://login.live.com/ar")
       ListBox1.SelectedIndex -= 1
       Timer1.Start()
       Timer3.Stop()

كود Timer4

كود :
On Error Resume Next
       WebBrowser1.Document.GetElementById("idSIButton9").InvokeMember("Click")
       Timer5.Start()
       Timer6.Start()
       Timer7.Start()
       Timer8.Start()
       Timer4.Stop()
كود Timer5
كود :
Try
           TextBox2.Text = WebBrowser1.Document.GetElementById("usernameError").InnerText

           Try
               If TextBox2.Text.Contains("حساب Microsoft هذا غير موجود. أدخل حسابًا آخر أو") Then
                   ListBox2.Items.Add(ListBox1.SelectedItem)
                   ListBox3.Items.Add(ListBox1.SelectedItem)
                   TextBox2.Text = Nothing
                   WebBrowser1.Navigate("https://login.live.com/ar")
                   Timer1.Start()
                   Timer5.Stop()
               End If
           Catch ex As Exception
           End Try
           Try
               If TextBox2.Text.Contains("غير صحيح") Then
                   ListBox2.Items.Remove(ListBox1.SelectedItem)
                   ListBox3.Items.Add(ListBox1.SelectedItem)
                   TextBox2.Text = Nothing
                   WebBrowser1.Navigate("https://login.live.com/ar")
                   Timer1.Start()
                   Timer5.Stop()
               End If
           Catch ex As Exception
           End Try
           Try
               If TextBox2.Text.Contains("يرجى إدخال رقم هاتفك أو عنوان بريدك الإلكتروني بالتنسيق someone@example.com.") Then
                   ListBox2.Items.Remove(ListBox1.SelectedItem)
                   ListBox3.Items.Add(ListBox1.SelectedItem)
                   TextBox2.Text = Nothing
                   WebBrowser1.Navigate("https://login.live.com/ar")
                   Timer1.Start()
                   Timer5.Stop()
               End If
           Catch ex As Exception
           End Try
           Try
               If TextBox2.Text.Contains("حدثت مشكلة أثناء البحث عن حسابك. اضغط على التالي لإعادة المحاولة.") Then
                   ListBox2.Items.Remove(ListBox1.SelectedItem)
                   ListBox3.Items.Add(ListBox1.SelectedItem)
                   TextBox2.Text = Nothing
                   WebBrowser1.Navigate("https://login.live.com/ar")
                   Timer1.Start()
                   Timer5.Stop()
               End If
           Catch ex As Exception
           End Try
       Catch ex As Exception
       End Try
كود Timer6
كود :
 Try
           TextBox2.Text = WebBrowser1.Document.GetElementById("idTD_Error").InnerText
           Try
               If TextBox2.Text.Contains("تسجيل الدخول محظور") Then
                   ListBox2.Items.Remove(ListBox1.SelectedItem)
                   ListBox3.Items.Add(ListBox1.SelectedItem)
                   TextBox2.Text = Nothing
                   WebBrowser1.Navigate("https://login.live.com/ar")
                   Timer1.Start()
                   Timer6.Stop()
               End If
           Catch ex As Exception
           End Try
           Try
               If TextBox2.Text.Contains("حدث شيء ما خطأ ولا يمكننا تسجيل دخولك الآن. برجاء تكرار المحاولة لاحقاً") Then
                   TextBox2.Text = Nothing
                   Timer3.Start()
                   Timer6.Stop()
               End If
           Catch ex As Exception
           End Try
       Catch ex As Exception
       End Try
كود Timer7

كود :
Try
           TextBox2.Text = WebBrowser1.Document.GetElementById("hipServerError").InnerText
           Try
               If TextBox2.Text.Contains("غير صحيحة") Then
                   ListBox2.Items.Remove(ListBox1.SelectedItem)
                   ListBox3.Items.Add(ListBox1.SelectedItem)
                   TextBox2.Text = Nothing
                   WebBrowser1.Navigate("https://login.live.com/ar")
                   Timer1.Start()
                   Timer7.Stop()
               End If
           Catch ex As Exception
           End Try
       Catch ex As Exception
       End Try
كود Timer8
كود :
 Try
           TextBox2.Text = WebBrowser1.Document.GetElementById("passwordDesc").InnerText
           Try
               If TextBox2.Text.Contains("أدخل") Then
                   ListBox2.Items.Remove(ListBox1.SelectedItem)
                   ListBox3.Items.Add(ListBox1.SelectedItem)
                   TextBox2.Text = Nothing
                   WebBrowser1.Navigate("https://login.live.com/ar")
                   Timer1.Start()
                   Timer8.Stop()
               End If
           Catch ex As Exception

           End Try
       Catch ex As Exception

       End Try
كود التشغيل او البدأ 
كود :
On Error Resume Next
       WebBrowser1.Navigate("https://login.live.com/ar")
       Timer1.Start()
كود الايقاف 
كود :
 Timer1.Stop()
       Timer2.Stop()
       Timer3.Stop()
       WebBrowser1.Navigate("google.iq")
كود حفظ الاميلات 
كود :
On Error Resume Next
       Dim SetSave As SaveFileDialog = New SaveFileDialog
       Dim i As Integer
       SetSave.Title = "Save SET.txt"
       SetSave.Filter = "SET.txt File (*.txt)|*.txt"
       If SetSave.ShowDialog = Windows.Forms.DialogResult.OK Then
           Dim s As New IO.StreamWriter(SetSave.FileName, True)
           For i = 0 To ListBox2.Items.Count - 1
               s.WriteLine(ListBox2.Items.Item(i))
           Next
           s.Close()
       End If

وهكذا قمنا بأكمال البرنامج ونجربه  Cool

كما تشاهدون البرنامج شغال 100%  Shy Shy Shy Shy
            لتحميل الاكواد 
               عراقي انا
     ولتحميل المشروع بالكامل 
             مبرمج العراق
  ولمشاهدة الفيديو علئ اليوتيوب 
             اضغط هناا
Shy Shy Shy Shy Shy Shy Shy
الئ هنا انتهئ الشرح 
اتمنئ ان ينال اعجابكم ^_^
في امان الله وحفظه
الرد }}}}
تم الشكر بواسطة: khodor1985 , محمد سالم المحترف
#2
وعليكم السلام ورحمة الله وبركاته

اهلا وسهلا بك اخي

وشكرا جزيلا على هذا الابداع صراحتاً

ولكن ظهورك المفاجئ ... اسمك مستر هكر ... تخوف اعذرني اللي ما يعرفك يجهلك.

لم اجرؤ على الضغط على الروابط

ولكن الشرح واضح وكامل ما يحتاج روابط

الله يجعل ذلك في ميزان حسناتك .
السلام عليكم  احبائي 
بسبب انشغالي  قل  عطائي  -- اعتذر منكم  --  وسال الله العلي القدير  ان لا يشغلنا الا بطاعته.
اشكر كل الاخوة في المنتدى الرائع الذين ساعدوني خاصة والذين يساعدون الجميع -- اسال الله العلي القدير ان يكتب اجرهم مضاعفا ويرزقهم الجنة.
الرد }}}}
تم الشكر بواسطة:
#3
(19-02-17, 03:57 AM)sendbad100 كتب : وعليكم السلام ورحمة الله وبركاته

اهلا وسهلا بك اخي

وشكرا جزيلا على هذا الابداع صراحتاً

ولكن ظهورك المفاجئ ... اسمك  مستر هكر  ... تخوف    اعذرني اللي ما يعرفك يجهلك.

لم اجرؤ على الضغط على الروابط

ولكن الشرح واضح وكامل  ما يحتاج روابط

الله يجعل ذلك في ميزان حسناتك .
حبيبي الغالي اشكرك علئ ردك الرائع ولكن ليس كل من يسمي بهذا الاسم يكون مخيف في عمله هذا الاسم اختاروه اصدقائي لانه يليق بي :Smile
ويستطيع الادمن فحص الروابط للتاكد :Smile*
الرد }}}}
تم الشكر بواسطة:
#4
اهلا وسهلا بك مرة اخرى بين اخوانك
السلام عليكم  احبائي 
بسبب انشغالي  قل  عطائي  -- اعتذر منكم  --  وسال الله العلي القدير  ان لا يشغلنا الا بطاعته.
اشكر كل الاخوة في المنتدى الرائع الذين ساعدوني خاصة والذين يساعدون الجميع -- اسال الله العلي القدير ان يكتب اجرهم مضاعفا ويرزقهم الجنة.
الرد }}}}
تم الشكر بواسطة:
#5
(19-02-17, 11:17 PM)sendbad100 كتب : اهلا وسهلا بك  مرة اخرى    بين اخوانك

تسلم حبيبي الغالي  Heart Heart Heart Heart
الرد }}}}
تم الشكر بواسطة:
#6
ماشاءالله جزاك الله خيرا
سبحان الله والحمدلله ولا إله إلا الله والله أكبر

 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Angel

Instgram : up.2.dates
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Star [درس فيديو] كود عمل برنامج وسائط لتشغيل الاصوات و الفيديوهات YousefOkasha 0 20 19-01-18, 02:27 PM
آخر رد: YousefOkasha
Smile [درس فيديو] صنع برنامج Auto Typer للكتابه السريعه YousefOkasha 0 32 19-01-18, 02:21 PM
آخر رد: YousefOkasha
  [سؤال] لماذا من الواجب تثبيث كريستال ريبورت 10 عند تنصيب برنامج ما محمد محمود الغرياني 4 147 20-12-17, 07:46 PM
آخر رد: عبد العزيز البسكري
  اريد كود برنامج لفتح روابط تلقائيا omarelmekawey 0 60 25-11-17, 01:15 AM
آخر رد: omarelmekawey
  [سؤال] اريد كود برنامج تعطيه الfacebook id وsesson id Mina Botros 0 227 05-07-17, 05:32 AM
آخر رد: Mina Botros
  [سؤال] اريد شخص يصنعلى برنامج به وظيفة الموقع Mina Botros 0 209 05-07-17, 05:28 AM
آخر رد: Mina Botros
  [سؤال] تصميم برنامج محادثه مثل واتس اب او فايبر MC-MeDo 4 786 24-06-17, 08:15 AM
آخر رد: Fantastico
  [VB.NET] عمل برنامج صانع لستات Master Hacker 3 549 24-02-17, 12:31 PM
آخر رد: Master Hacker
  [VB.NET] ماهي الطريقة للوصول لعناصر تحكم نافذة برنامج ما مفتوح rafaag777 3 532 11-11-16, 05:18 PM
آخر رد: ممدوح
  تعديل برنامج برود باند مفتوح المصدر اوبن سوس تشغيلو على الويندوز2016 الزمالك2 0 519 28-10-16, 05:27 AM
آخر رد: الزمالك2

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


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