(Nov 17, 2014 06:05 AM)$lick Wrote: For those not wanting to execute a project file;
CodePublic 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!
