+- Support Forums (https://www.supportforums.net)
+-- Forum: Categories (https://www.supportforums.net/forumdisplay.php?fid=87)
+--- Forum: Coding Support Forums (https://www.supportforums.net/forumdisplay.php?fid=18)
+---- Forum: Visual Basic and the .NET Framework (https://www.supportforums.net/forumdisplay.php?fid=19)
+---- Thread: [Release] Google Account Checker (/showthread.php?tid=18851)
Pages:
1
2
[Release] Google Account Checker - euverve - 05-19-2011
Here's my Google account checker. Plain UI is used.
Only @gmail is supported.
Screenshot:
![[Image: 3e7fK.png]](http://i.imgur.com/3e7fK.png)
Download:
Code:
http://www.fileserve.com/file/bgp2wQeFor text file:
Email@gmail.com
asswordEmail@gmail.com
asswordEmail@gmail.com
asswordEmail@gmail.com
asswordEmail@gmail.com
asswordNote: The software is for account checker only and not an account stealer.
RE: [Release] Google Account Checker - iCrack - 05-19-2011
Did you use GetElementById and WebBrowser or Webrequest?
Seems good bro...
RE: [Release] Google Account Checker - euverve - 05-19-2011
I just used test mails, hehehe. If the email can't send or log in then it is invalid.
RE: [Release] Google Account Checker - Injection - 05-19-2011
Been looking for this for awhile mate!
RE: [Release] Google Account Checker - euverve - 05-20-2011
(05-20-2011, 01:54 AM)besimbicer Wrote: its and love you
edit : opps its only apps :S need source file ;)
And you are in doubt of it, since it deals with accounts. hahaha
Here it is:
Full Form Codes:
Code:
Imports System.IO
Public Class Form1
Private Sub Button1_Click(sender As System.Object, _
e As System.EventArgs) Handles Button1.Click
bgw2.RunWorkerAsync()
End Sub
Private Sub Button2_Click(sender As System.Object, _
e As System.EventArgs) _
Handles Button2.Click
Using ofd As New OpenFileDialog() With {.Multiselect = True, _
.Filter = "Txt files |*.txt"}
Dim dialog As OpenFileDialog = ofd
If (dialog.ShowDialog = DialogResult.OK) Then
Dim fileName As String = dialog.FileName
Me.TextBox3.Text = fileName
displayallaccounts(fileName)
End If
End Using
End Sub
Private Sub Button3_Click(sender As System.Object, _
e As System.EventArgs) _
Handles Button3.Click
If checkemail(TextBox4.Text) = True Then
bgw1.RunWorkerAsync()
Else
MsgBox("Destination email is invalid.", _
MsgBoxStyle.Information, "Error")
End If
End Sub
Private Sub Button4_Click(sender As System.Object, _
e As System.EventArgs) Handles Button4.Click
bgw1.CancelAsync()
End Sub
Private Sub Form1_Load(sender As System.Object, _
e As System.EventArgs) Handles MyBase.Load
System.Windows.Forms.Form.CheckForIllegalCrossThreadCalls = False
End Sub
Private Sub displayallaccounts(ByVal File As String)
Try
Dim sr As StreamReader
Dim fs As FileStream
fs = New FileStream((File), FileMode.OpenOrCreate)
sr = New StreamReader(fs)
Dim line As String
line = sr.ReadLine
While Not line = Nothing
Dim split As String() = line.Split(New [Char]() {":"})
Dim email As String = split(0)
Dim pass As String = split(1)
If checkemail(email) = True Then
If isgmail(email) = True Then
ListView1.Items.Add(email)
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(pass)
Else
'If not Gmail
End If
Else
'If not valid email
End If
line = sr.ReadLine
End While
sr.Close()
fs.Close()
Catch ex As System.Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try
End Sub
Private Sub bgw1_DoWork(sender As System.Object, _
e As System.ComponentModel.DoWorkEventArgs) _
Handles bgw1.DoWork
EmailValid.Text = 0
Dim lvi As ListViewItem
For Each lvi In ListView1.Items
If bgw1.CancellationPending Then
e.Cancel = True
Else
Dim email As String = lvi.Text
Dim pass As String = lvi.SubItems(1).Text()
Dim destination As String = TextBox4.Text
Status.Text = "Checking: "
EmailCheck.Text = email
If testgmail(email, pass, destination) = True Then
ListView2.Items.Add(email)
ListView2.Items(ListView2.Items.Count - 1).SubItems.Add(pass)
EmailValid.Text += 1
End If
End If
Next
Status.Text = "Status: "
EmailCheck.Text = "Ready"
MsgBox("Email checker completed." & vbNewLine & _
"Found valid emails: " & EmailValid.Text, _
MsgBoxStyle.Information, "Completed")
End Sub
Private Sub bgw2_DoWork(sender As System.Object, _
e As System.ComponentModel.DoWorkEventArgs) _
Handles bgw2.DoWork
Try
EmailValid.Text = 0
Status.Text = "Checking: "
EmailCheck.Text = TextBox1.Text
If checkemail(TextBox4.Text) = True Then
If testgmail(TextBox1.Text, TextBox2.Text, TextBox4.Text) = True Then
Status.Text = "Status: "
EmailCheck.Text = "Ready"
EmailValid.Text += 1
MsgBox(TextBox1.Text & " is valid.", _
MsgBoxStyle.Information, "Success")
Else
MsgBox(TextBox1.Text & " is invalid", _
MsgBoxStyle.Information, "Error")
End If
Else
'Invalid email
MsgBox("Destination email is invalid.", _
MsgBoxStyle.Information, "Error")
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Error")
End Try
End Sub
End ClassModule Codes:
Code:
Imports System.IO
Public Class Form1
Private Sub Button1_Click(sender As System.Object, _
e As System.EventArgs) Handles Button1.Click
bgw2.RunWorkerAsync()
End Sub
Private Sub Button2_Click(sender As System.Object, _
e As System.EventArgs) _
Handles Button2.Click
Using ofd As New OpenFileDialog() With {.Multiselect = True, _
.Filter = "Txt files |*.txt"}
Dim dialog As OpenFileDialog = ofd
If (dialog.ShowDialog = DialogResult.OK) Then
Dim fileName As String = dialog.FileName
Me.TextBox3.Text = fileName
displayallaccounts(fileName)
End If
End Using
End Sub
Private Sub Button3_Click(sender As System.Object, _
e As System.EventArgs) _
Handles Button3.Click
If checkemail(TextBox4.Text) = True Then
bgw1.RunWorkerAsync()
Else
MsgBox("Destination email is invalid.", _
MsgBoxStyle.Information, "Error")
End If
End Sub
Private Sub Button4_Click(sender As System.Object, _
e As System.EventArgs) Handles Button4.Click
bgw1.CancelAsync()
End Sub
Private Sub Form1_Load(sender As System.Object, _
e As System.EventArgs) Handles MyBase.Load
System.Windows.Forms.Form.CheckForIllegalCrossThreadCalls = False
End Sub
Private Sub displayallaccounts(ByVal File As String)
Try
Dim sr As StreamReader
Dim fs As FileStream
fs = New FileStream((File), FileMode.OpenOrCreate)
sr = New StreamReader(fs)
Dim line As String
line = sr.ReadLine
While Not line = Nothing
Dim split As String() = line.Split(New [Char]() {":"})
Dim email As String = split(0)
Dim pass As String = split(1)
If checkemail(email) = True Then
If isgmail(email) = True Then
ListView1.Items.Add(email)
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(pass)
Else
'If not Gmail
End If
Else
'If not valid email
End If
line = sr.ReadLine
End While
sr.Close()
fs.Close()
Catch ex As System.Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try
End Sub
Private Sub bgw1_DoWork(sender As System.Object, _
e As System.ComponentModel.DoWorkEventArgs) _
Handles bgw1.DoWork
EmailValid.Text = 0
Dim lvi As ListViewItem
For Each lvi In ListView1.Items
If bgw1.CancellationPending Then
e.Cancel = True
Else
Dim email As String = lvi.Text
Dim pass As String = lvi.SubItems(1).Text()
Dim destination As String = TextBox4.Text
Status.Text = "Checking: "
EmailCheck.Text = email
If testgmail(email, pass, destination) = True Then
ListView2.Items.Add(email)
ListView2.Items(ListView2.Items.Count - 1).SubItems.Add(pass)
EmailValid.Text += 1
End If
End If
Next
Status.Text = "Status: "
EmailCheck.Text = "Ready"
MsgBox("Email checker completed." & vbNewLine & _
"Found valid emails: " & EmailValid.Text, _
MsgBoxStyle.Information, "Completed")
End Sub
Private Sub bgw2_DoWork(sender As System.Object, _
e As System.ComponentModel.DoWorkEventArgs) _
Handles bgw2.DoWork
Try
EmailValid.Text = 0
Status.Text = "Checking: "
EmailCheck.Text = TextBox1.Text
If checkemail(TextBox4.Text) = True Then
If testgmail(TextBox1.Text, TextBox2.Text, TextBox4.Text) = True Then
Status.Text = "Status: "
EmailCheck.Text = "Ready"
EmailValid.Text += 1
MsgBox(TextBox1.Text & " is valid.", _
MsgBoxStyle.Information, "Success")
Else
MsgBox(TextBox1.Text & " is invalid", _
MsgBoxStyle.Information, "Error")
End If
Else
'Invalid email
MsgBox("Destination email is invalid.", _
MsgBoxStyle.Information, "Error")
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Error")
End Try
End Sub
End ClassIt's up to you how you will judge it, hehehe. As what I said, it is for checking only.
I am working for a nice UI for this app.
RE: [Release] Google Account Checker - stephen5565 - 05-20-2011
Nice share OP, this is so cool, the first thing I had ever seen
. Thanks for sharing mate vouch for you
RE: [Release] Google Account Checker - Fragma - 05-20-2011
It seems decent enough, but I can't think of what it would be useful for?
RE: [Release] Google Account Checker - Hell Guardian - 05-20-2011
I made something similar to HF from sometime now
But this one look good
RE: [Release] Google Account Checker - kickapooh - 05-27-2011
Is there a way to save the good accounts after it checks them?
RE: [Release] Google Account Checker - G0dfath3r - 05-27-2011
Looks like you have done good job.I'm also learning vb and surely will try for some useful software.btw thanks for sharing with us.