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