تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] عمل برنامج فحص الاميلات المتاحه في الهوتميل Check Email Hotmail
#11
(19-02-17, 02:10 AM)Master Hacker كتب : السلام عليكم ورحمة الله وبركاته  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
الئ هنا انتهئ الشرح 
اتمنئ ان ينال اعجابكم ^_^
في امان الله وحفظه

صديقي هل في طريقه اخلي البرنمج يفحص ايملات+بسوردات
Heart قل لن يصيبنا الا ماكتب الله لنا Heart
الرد }}}
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
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,607 17-03-20, 01:22 PM
آخر رد: أمجد وضاح
  برنامج صانع الأكواد aber31 8 6,941 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 ) ضيف كريم