تقييم الموضوع :
  • 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
وعليكم السلام ورحمة الله وبركاته

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

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

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

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

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

الله يجعل ذلك في ميزان حسناتك .
  Heart   الرجاء البحث قبل وضع السؤال  Heart

   كل عام وانتم بالف بخير.  
الرد
تم الشكر بواسطة:
#3
(19-02-17, 03:57 AM)sendbad100 كتب : وعليكم السلام ورحمة الله وبركاته

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

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

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

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

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

الله يجعل ذلك في ميزان حسناتك .
حبيبي الغالي اشكرك علئ ردك الرائع ولكن ليس كل من يسمي بهذا الاسم يكون مخيف في عمله هذا الاسم اختاروه اصدقائي لانه يليق بي :Smile
ويستطيع الادمن فحص الروابط للتاكد :Smile*
الرد
تم الشكر بواسطة:
#4
اهلا وسهلا بك مرة اخرى بين اخوانك
  Heart   الرجاء البحث قبل وضع السؤال  Heart

   كل عام وانتم بالف بخير.  
الرد
تم الشكر بواسطة:
#5
(19-02-17, 11:17 PM)sendbad100 كتب : اهلا وسهلا بك  مرة اخرى    بين اخوانك

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برنامج صانع الأكواد aber31 8 1,598 05-07-18, 01:14 PM
آخر رد: elgokr
  [سؤال] السلام عليكم ممكن كود برنامج يحول النصوص الي فيديو elokely 0 117 10-04-18, 10:53 PM
آخر رد: elokely
Star [درس فيديو] كود عمل برنامج وسائط لتشغيل الاصوات و الفيديوهات YousefOkasha 0 184 19-01-18, 02:27 PM
آخر رد: YousefOkasha
Smile [درس فيديو] صنع برنامج Auto Typer للكتابه السريعه YousefOkasha 0 141 19-01-18, 02:21 PM
آخر رد: YousefOkasha
  [سؤال] لماذا من الواجب تثبيث كريستال ريبورت 10 عند تنصيب برنامج ما محمد محمود الغرياني 4 309 20-12-17, 07:46 PM
آخر رد: عبد العزيز البسكري
  اريد كود برنامج لفتح روابط تلقائيا omarelmekawey 0 151 25-11-17, 01:15 AM
آخر رد: omarelmekawey
  [سؤال] اريد كود برنامج تعطيه الfacebook id وsesson id Mina Botros 0 348 05-07-17, 05:32 AM
آخر رد: Mina Botros
  [سؤال] اريد شخص يصنعلى برنامج به وظيفة الموقع Mina Botros 0 322 05-07-17, 05:28 AM
آخر رد: Mina Botros
  [سؤال] تصميم برنامج محادثه مثل واتس اب او فايبر MC-MeDo 4 966 24-06-17, 08:15 AM
آخر رد: Fantastico
  [VB.NET] عمل برنامج صانع لستات Master Hacker 3 796 24-02-17, 12:31 PM
آخر رد: Master Hacker

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


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