Home Upgrade Search Memberlist Extras Hacker Tools Award Goals Help Wiki Contact

.NET 

Minecraft Premium account checker

(Nov 17, 2014 06:05 AM)$lick Wrote:  For those not wanting to execute a project file;

Code
Public Class Form1
    Dim check As New System.Threading.Thread(AddressOf checker)
    Public Sub checker()
      For i = 0 To ListBox1.Items.Count - 1
      ListBox1.SelectedIndex = i 'Causes CrossThreadCalls error
      Dim s As String = New System.Net.WebClient().DownloadString("https://minecraft.net/haspaid.jsp?user=" & ListBox1.SelectedItem)
      If s.Contains("true") Then '<-- premium'
      ListBox2.Items.Add(ListBox1.SelectedItem)
      GoTo nextcheck '
      Else
      '<--failed'
      End If
nextcheck:
      Next i
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs)
      Me.Close()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      Control.CheckForIllegalCrossThreadCalls = False 'Ignore CrossThreadCalls error
      check.Start()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
      Dim load As New OpenFileDialog With { _
.AddExtension = True, _
.Filter = "txt files (*.txt)|*.txt", _
.FilterIndex = 0, _
.RestoreDirectory = True, _
.InitialDirectory = My.Application.Info.DirectoryPath}
      If load.ShowDialog = Windows.Forms.DialogResult.OK Then
      ListBox1.Items.Clear()
      ListBox1.Items.AddRange(IO.File.ReadAllLines(load.FileName))
      End If
    End Sub

    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
      Me.Close()
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
      Dim SetSave As SaveFileDialog = New SaveFileDialog
      Dim i As Integer
      SetSave.Title = "Export .txt"
      SetSave.Filter = ".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
    End Sub
End Class

Bro! the code will be working but the program made from it would be not stable as the program can't handle huge passwords wordlists which will cause the app to freeze!
i wrote 1 myself from a thread last week someone asked for about a onlins single checker ive updated it since with cape check, skin grabber and a few more things but heres the original rough draft.

http://uppit.com/3elt9votp456/Mc_Multi_Checker.rar <-- yes its exe but also virustotal scann is below too

https://www.virustotal.com/en/file/bb5b5...416533934/


Possibly Related Threads...
Thread / Author Replies Views Last Post
[Python] by bLUE sKIESOct 30, 2016 06:10 PM 11 1,382 Oct 30, 2016 06:10 PM
Last Post: Attix
[Python] by AuntJasonMar 3, 2016 10:15 AM 4 393 Mar 3, 2016 10:15 AM
Last Post: bet4r00t
[Python] by husky141Feb 22, 2016 09:10 AM 7 909 Feb 22, 2016 09:10 AM
Last Post: fairtexpro