تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] عمل برنامج فحص الاميلات المتاحه في الهوتميل Check Email Hotmail
#7
ممكن شرح الاكواد
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
الرد }}}
تم الشكر بواسطة: asemshahen5


الردود في هذا الموضوع
RE: عمل برنامج فحص الاميلات المتاحه في الهوتميل Check Email Hotmail - بواسطة Abdo Dabak - 28-08-19, 10:16 AM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [VB.NET] برنامج صانع الاكواد النسخة المحدثة الاصدار الثالث aljzazy 27 17,942 13-10-23, 08:18 PM
آخر رد: senussi_gtR
  طريقة عمل برنامج لارسال رسائل sms ryrryt22@gmail.com 3 3,102 06-11-20, 04:24 PM
آخر رد: kiki
  [سؤال] تصميم برنامج محادثه مثل واتس اب او فايبر MC-MeDo 6 5,611 17-03-20, 01:22 PM
آخر رد: أمجد وضاح
  برنامج صانع الأكواد aber31 8 6,948 05-07-18, 01:14 PM
آخر رد: elgokr
  [سؤال] السلام عليكم ممكن كود برنامج يحول النصوص الي فيديو elokely 0 2,213 10-04-18, 10:53 PM
آخر رد: elokely
Star [درس فيديو] كود عمل برنامج وسائط لتشغيل الاصوات و الفيديوهات YousefOkasha 0 2,126 19-01-18, 02:27 PM
آخر رد: YousefOkasha
Smile [درس فيديو] صنع برنامج Auto Typer للكتابه السريعه YousefOkasha 0 2,176 19-01-18, 02:21 PM
آخر رد: YousefOkasha
  [سؤال] لماذا من الواجب تثبيث كريستال ريبورت 10 عند تنصيب برنامج ما محمد محمود الغرياني 4 4,213 20-12-17, 07:46 PM
آخر رد: عبد العزيز البسكري
  اريد كود برنامج لفتح روابط تلقائيا omarelmekawey 0 2,155 25-11-17, 01:15 AM
آخر رد: omarelmekawey
  [سؤال] اريد كود برنامج تعطيه الfacebook id وsesson id Mina Botros 0 1,961 05-07-17, 05:32 AM
آخر رد: Mina Botros

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


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