Code:
Imports System.Net
Imports System.IO
Public Class Form1
Dim Cookies As New CookieContainer
Dim Referer As String
Dim Response As String
Dim WaitTime As Integer
Dim TimeX As Date
Dim Current As Integer
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliXseconds As Long)
Private Function SendData(ByVal PostData As String, ByVal Site As String) As String
Try
Dim Request As HttpWebRequest = DirectCast(WebRequest.Create(Site), HttpWebRequest)
Request.Method = "POST"
Request.UserAgent = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)"
Request.ContentType = "application/x-www-form-urlencoded"
Request.Referer = Referer
Request.AllowAutoRedirect = True
Request.ServicePoint.Expect100Continue = False
Request.CookieContainer = Cookies
Request.ContentLength = PostData.Length
Using ReqStream As Stream = Request.GetRequestStream()
Dim Encoding As New System.Text.UTF8Encoding()
Dim PostBytes As Byte() = Encoding.GetBytes(PostData)
ReqStream.Write(PostBytes, 0, PostBytes.Length)
End Using
Dim Result As String = String.Empty
Using Response As HttpWebResponse = Request.GetResponse()
Cookies.Add(Response.Cookies)
Using RespStream As Stream = Response.GetResponseStream()
Using Reader As New StreamReader(RespStream)
Result = Reader.ReadToEnd()
End Using
End Using
End Using
Return Result
Catch ex As Exception
MsgBox(ex.Message)
Return "Error sending"
End Try
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ToolStripStatusLabel1.Text = "Status: Creating Accounts"
Current = 0
ToolStripProgressBar1.Value = 0
If CheckContinuous.Checked Then
WaitTime = 0
Timer1.Interval = 1
BackgroundWorker1.RunWorkerAsync()
Else
TimeX = Date.Now.AddMinutes(NumericUpDown1.Value)
Timer1.Interval = NumericUpDown1.Value * 60000
Timer1.Start()
Timer2.Start()
End If
End Sub
Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
UserList.Items.Remove(UserList.SelectedItem)
End Sub
Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
UserList.Items.Clear()
End Sub
Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
ImpUsrList.PerformClick()
End Sub
Private Sub ImpUsrList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImpUsrList.Click
OpenFileDialog1.Filter = "Text File|*.txt"
OpenFileDialog1.FileName = ""
OpenFileDialog1.Title = "Import Username List"
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName = Nothing Then Exit Sub
Dim filepath As String = OpenFileDialog1.FileName
Dim inputstream As New StreamReader(filepath)
Do Until inputstream.EndOfStream
UserList.Items.Add(inputstream.ReadLine())
Loop
inputstream.Close()
If CheckAutoShort.Checked Then
For i = 0 To UserList.Items.Count - 1
If UserList.Items.Item(i).Length > 12 Then
UserList.Items.Item(i) = UserList.Items.Item(i).Remove(12)
End If
Next
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SaveFileDialog1.Filter = "Text File|*.txt"
SaveFileDialog1.FileName = ""
SaveFileDialog1.Title = "Export Username List"
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName = Nothing Then Exit Sub
Dim filepath As String = SaveFileDialog1.FileName
Dim exportstream As New StreamWriter(filepath)
For i = 0 To ListBox1.Items.Count - 1
exportstream.WriteLine(ListBox1.Items.Item(i))
Next
exportstream.Close()
End Sub
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
CheckForIllegalCrossThreadCalls = False
ToolStripProgressBar1.Maximum = UserList.Items.Count
If CheckContinuous.Checked Then
WaitTime = 0
Else
WaitTime = NumericUpDown1.Value * 60000
End If
For i = 0 To UserList.Items.Count - 1
If BackgroundWorker1.CancellationPending Then Exit Sub
Response = SendData("address1=&address2=&agree_privacy=on&agree_terms=on&java=1.6.0&username=" & UserList.Items.Item(i) & "&password1=" & TextPassword.Text & "&password2=" & TextPassword.Text & "&day=1&month=0&year=1990&country=225", "https://secure.runescape.com/m=create/email_preferences.ws")
If Response.Contains("has now been created") Then
ToolStripStatusLabel1.Text = "Status: Created account " & UserList.Items.Item(i)
ListBox1.Items.Add(UserList.Items.Item(i) & " : " & TextPassword.Text)
End If
If Response.Contains("blocked from creating") Then
If MsgBox("You have been blocked from creating too many accounts, please try again in a few minutes." & vbNewLine & "Press OK to make more accounts after waiting, or cancel to end account creation.", MsgBoxStyle.OkCancel, "Notice") = MsgBoxResult.Cancel Then
ToolStripStatusLabel1.Text = "Status: Temp. blocked from creating more accounts."
Timer1.Stop()
Exit Sub
End If
End If
If Response.Contains("supply a valid username") Then
ToolStripStatusLabel1.Text = "Status: Failed creating " & UserList.Items.Item(i) & ". Username in use/invalid"
End If
If Response.Contains("Error sending") Then
ToolStripStatusLabel1.Text = "Status: Error creating account"
End If
ToolStripProgressBar1.Increment(1)
Next
End Sub
Public Sub Wait(ByVal TimeOut As Long)
Dim TimeNow As Long
TimeNow = timeGetTime()
Do
Application.DoEvents()
Loop While TimeNow + TimeOut > timeGetTime()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ToolStripStatusLabel1.Text = "Status: Idle"
BackgroundWorker1.CancelAsync()
MsgBox("Stopping...")
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckContinuous.CheckedChanged
If CheckContinuous.Checked Then
NumericUpDown1.Enabled = False
Else
NumericUpDown1.Enabled = True
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If ComboBox1.SelectedIndex = -1 Then
MsgBox("Choose root name as either a prefix or suffix")
Exit Sub
End If
NameGen.Show()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ToolStripProgressBar1.Maximum = UserList.Items.Count
If Current > UserList.Items.Count - 1 Then
ToolStripStatusLabel1.Text = "Status: Completed accounts, Idle"
Timer1.Stop()
Timer2.Stop()
End If
Response = SendData("address1=&address2=&agree_privacy=on&agree_terms=on&java=1.6.0&username=" & UserList.Items.Item(Current) & "&password1=" & TextPassword.Text & "&password2=" & TextPassword.Text & "&day=1&month=0&year=1990&country=225", "https://secure.runescape.com/m=create/email_preferences.ws")
If Response.Contains("has now been created") Then
ToolStripStatusLabel1.Text = "Status: Created account " & UserList.Items.Item(Current)
ListBox1.Items.Add(UserList.Items.Item(Current) & " : " & TextPassword.Text)
End If
If Response.Contains("blocked from creating") Then
If MsgBox("You have been blocked from creating too many accounts, please try again in a few minutes." & vbNewLine & "Press OK to make more accounts after waiting, or cancel to end account creation.", MsgBoxStyle.OkCancel, "Notice") = MsgBoxResult.Cancel Then
ToolStripStatusLabel1.Text = "Status: Temp. blocked from creating more accounts."
Timer1.Stop()
Exit Sub
End If
End If
If Response.Contains("supply a valid username") Then
ToolStripStatusLabel1.Text = "Status: Failed creating " & UserList.Items.Item(Current) & ". Username in use/invalid"
End If
If Response.Contains("Error sending") Then
ToolStripStatusLabel1.Text = "Status: Error creating account"
End If
Current += 1
ToolStripProgressBar1.Increment(1)
TimeX = Date.Now.AddMinutes(NumericUpDown1.Value)
Timer2.Start()
' Next
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If TimeX < Date.Now Then
Timer1.Start()
Timer2.Stop()
Else
Dim remainingTime As TimeSpan = Me.TimeX.Subtract(Date.Now)
ToolStripStatusLabel2.Text = " - " & String.Format("{0}:{1:d2}:{2:d2}", remainingTime.Hours, remainingTime.Minutes, _
remainingTime.Seconds)
End If
End Sub
End Class
Public Class NameGen
Private Sub NameGen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
For i = 0 To Form1.NumericUpDown2.Value - 1
If Form1.ComboBox1.SelectedIndex = 0 Then
RichTextBox1.AppendText(Form1.TextRootName.Text & i & vbCrLf)
ElseIf Form1.ComboBox1.SelectedIndex = 1 Then
RichTextBox1.AppendText(i & Form1.TextRootName.Text & vbCrLf)
End If
Next
SendKeys.Send("{BACKSPACE}")
End Sub
Private Sub ImpUsrList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImpUsrList.Click
Dim SaveDialog As New SaveFileDialog
SaveDialog.Filter = "Text File|*.txt"
SaveDialog.FileName = ""
SaveDialog.Title = "Export Username List"
SaveDialog.ShowDialog()
If SaveDialog.FileName = Nothing Then Exit Sub
Dim filepath As String = SaveDialog.FileName
Dim exportstream As New IO.StreamWriter(filepath)
For i = 0 To RichTextBox1.Lines.Length - 1
exportstream.WriteLine(RichTextBox1.Lines(i))
Next
exportstream.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
End Class
Download (attachments aren't working for me):
1.0
drop.io 37khlz0
1.1
http://drop.io/rgwo7ay
1.2
http://drop.io/f5efhnr