27-05-20, 11:18 PM
(19-02-17, 02:10 AM)Master Hacker كتب : السلام عليكم ورحمة الله وبركاته كيف حالكم اعضاء وزوار منتدئ فيجوال بيسك لكل العرب
اليوم اقدم لكم كوني عضو جديد في المنتدئ سورس فحص الاميلات المتاحه في الهوتميل :
نبدأ علئ بركة الله .. تابعوو وياي :*
اول خطوة نبدأ بتصميم الشكل الي راح نختاره الان
الادوات الي راح نستعمله
1 WebBrowser
3 ListBox
4 Button
8 Timer
2 TextBox
ويصبح الشكل هكذا كما في الصوره :
تمام الان نبدأ بمرحلة اضافة الاكواد وركز معي
كود التعريف
كود :
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
كود Timer5كود :
On Error Resume Next
WebBrowser1.Document.GetElementById("idSIButton9").InvokeMember("Click")
Timer5.Start()
Timer6.Start()
Timer7.Start()
Timer8.Start()
Timer4.Stop()
كود Timer6كود :
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
كود Timer7كود :
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
كود Timer8كود :
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
كود التشغيل او البدأكود :
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
وهكذا قمنا بأكمال البرنامج ونجربه
كما تشاهدون البرنامج شغال 100%
لتحميل الاكواد
عراقي انا
ولتحميل المشروع بالكامل
مبرمج العراق
ولمشاهدة الفيديو علئ اليوتيوب
اضغط هناا
الئ هنا انتهئ الشرح
اتمنئ ان ينال اعجابكم ^_^
في امان الله وحفظه
صديقي هل في طريقه اخلي البرنمج يفحص ايملات+بسوردات
قل لن يصيبنا الا ماكتب الله لنا