[VB.NET] عمل برنامج فحص الاميلات المتاحه في الهوتميل Check Email Hotmail

[VB.NET] عمل برنامج فحص الاميلات المتاحه في الهوتميل Check Email Hotmail - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] عمل برنامج فحص الاميلات المتاحه في الهوتميل Check Email Hotmail (/showthread.php?tid=19318)

الصفحات: 1 2

عمل برنامج فحص الاميلات المتاحه في الهوتميل Check Email Hotmail - Master Hacker - 19-02-17

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

الئ هنا انتهئ الشرح
اتمنئ ان ينال اعجابكم ^_^
في امان الله وحفظه

RE: عمل برنامج فحص الاميلات المتاحه في الهوتميل Check Email Hotmail - sendbad100 - 19-02-17

وعليكم السلام ورحمة الله وبركاته

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

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

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

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

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

الله يجعل ذلك في ميزان حسناتك .

RE: عمل برنامج فحص الاميلات المتاحه في الهوتميل Check Email Hotmail - Master Hacker - 19-02-17

(19-02-17, 03:57 AM)sendbad100 كتب : وعليكم السلام ورحمة الله وبركاته

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

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

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

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

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

الله يجعل ذلك في ميزان حسناتك .

حبيبي الغالي اشكرك علئ ردك الرائع ولكن ليس كل من يسمي بهذا الاسم يكون مخيف في عمله هذا الاسم اختاروه اصدقائي لانه يليق بي : Smile

ويستطيع الادمن فحص الروابط للتاكد : Smile

RE: عمل برنامج فحص الاميلات المتاحه في الهوتميل Check Email Hotmail - sendbad100 - 19-02-17

اهلا وسهلا بك مرة اخرى بين اخوانك

RE: عمل برنامج فحص الاميلات المتاحه في الهوتميل Check Email Hotmail - Master Hacker - 21-02-17

(19-02-17, 11:17 PM)sendbad100 كتب : اهلا وسهلا بك مرة اخرى بين اخوانك

تسلم حبيبي الغالي Heart

RE: عمل برنامج فحص الاميلات المتاحه في الهوتميل Check Email Hotmail - IBRA939 - 29-12-17

ماشاءالله جزاك الله خيرا

RE: عمل برنامج فحص الاميلات المتاحه في الهوتميل Check Email Hotmail - Abdo Dabak - 28-08-19

ممكن شرح الاكواد
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

RE: عمل برنامج فحص الاميلات المتاحه في الهوتميل Check Email Hotmail - عماني939 - 06-09-19

(28-08-19, 10:16 AM)Abdo Dabak كتب : ممكن شرح الاكواد
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

ارسل ملف كامل وبنساعدك

RE: عمل برنامج فحص الاميلات المتاحه في الهوتميل Check Email Hotmail - AbdoDabak - 16-09-19

(06-09-19, 04:56 PM)عماني939 كتب :
(28-08-19, 10:16 AM)Abdo Dabak كتب : ممكن شرح الاكواد
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

ارسل ملف كامل وبنساعدك

كيف يعني ملف كامل ؟
ما فهمتك اخي
الاكواد اللي كتبتها هي نفس الاكواد الموجودة في (برنامج فحص الاميلات المتاحه في الهوتميل)

هاد المشروع

RE: عمل برنامج فحص الاميلات المتاحه في الهوتميل Check Email Hotmail - عبد العزيز البسكري - 20-09-19

بارك الله فيك و لك و جزاك خير الجزاء