تقييم الموضوع :
  • 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
الئ هنا انتهئ الشرح 
اتمنئ ان ينال اعجابكم ^_^
في امان الله وحفظه
الرد }}}
#2
وعليكم السلام ورحمة الله وبركاته

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

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

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

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

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

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

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

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

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

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

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

الله يجعل ذلك في ميزان حسناتك .
حبيبي الغالي اشكرك علئ ردك الرائع ولكن ليس كل من يسمي بهذا الاسم يكون مخيف في عمله هذا الاسم اختاروه اصدقائي لانه يليق بي :Smile
ويستطيع الادمن فحص الروابط للتاكد :Smile*
الرد }}}
تم الشكر بواسطة: asemshahen5
#4
اهلا وسهلا بك مرة اخرى بين اخوانك
الرد }}}
تم الشكر بواسطة: asemshahen5
#5
(19-02-17, 11:17 PM)sendbad100 كتب : اهلا وسهلا بك  مرة اخرى    بين اخوانك

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

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

Instgram : up.2.dates
الرد }}}
تم الشكر بواسطة: asemshahen5
#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
#8
(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

ارسل ملف كامل وبنساعدك
الرد }}}
تم الشكر بواسطة:
#9
(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

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

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

هاد المشروع


الملفات المرفقة
.rar   EX_01.rar (الحجم : 75.75 ك ب / التحميلات : 52)
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#10
بارك الله فيك و لك و جزاك خير الجزاء
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو


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

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


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