(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
ارسل ملف كامل وبنساعدك
كيف يعني ملف كامل ؟
ما فهمتك اخي
الاكواد اللي كتبتها هي نفس الاكواد الموجودة في (برنامج فحص الاميلات المتاحه في الهوتميل)
هاد المشروع
