7ViYfFB5

1Imports System.Threading, System.Net, System.IO
2Public Class Form1
3    Dim T As New Thread(AddressOf StartBot)
4    Dim Started As Boolean = False
5    Delegate Sub AddListViewItem(ByVal username As String, ByVal password As String)
6    Dim HoolLVI As New AddListViewItem(AddressOf ALVI)
7
8    Sub ALVI(ByVal username As String, ByVal password As String)
9        If Me.InvokeRequired Then
10            Invoke(New AddListViewItem(AddressOf ALVI), username, password)
11        Else
12            Dim LVI As New ListViewItem(username)
13            LVI.SubItems().Add(password)
14            ListView1.Items.Add(LVI)
15        End If
16    End Sub
17    Sub StartBot()
18        Do
19            Try
20                Dim username As String = GenerateString(7, 0, 0) & "@gmail.com"
21                Dim password As String = GenerateString(7, 0, 0)
22
23                If New WebClient().DownloadString("https://www.mediafire.com/api/user/register.php?application_id=1000&email=" & username & "&password=" & password & "&version=1").Contains("Success") Then
24                    ALVI(username, password)
25                End If
26
27                FlatLabel8.Text = String.Format("Accounts[ " & ListView1.Items.Count & "]")
28            Catch ex As Exception
29
30            End Try
31        Loop
32
33    End Sub
34    Private Function GenerateString(ByVal length As Integer, ByVal content As Integer, ByVal casing As Integer) As String
35        Dim r, r1, r2 As New Random
36        Dim gString As String = String.Empty
37
38        Dim lowAlph As String = "abcdefghijklmnopqrstuvwxyz"
39        Dim uppAlph As String = lowAlph.ToUpper
40
41        Dim addLetter As Char
42
43        Do Until gString.Length = length
44            Select Case casing
45                Case 0
46                    Select Case r.Next(0, 2)
47                        Case 0
48                            addLetter = lowAlph.Substring(r.Next(0, 25), 1)
49                        Case 1
50                            addLetter = uppAlph.Substring(r1.Next(0, 25), 1)
51                    End Select
52
53                Case 1
54                    addLetter = uppAlph.Substring(r1.Next(0, 25), 1)
55
56                Case 2
57                    addLetter = lowAlph.Substring(r.Next(0, 25), 1)
58            End Select
59            Select Case content
60                Case 0
61                    Select Case r.Next(0, 2)
62                        Case 0
63                            gString &= addLetter
64                        Case 1
65                            gString &= r1.Next(0, 9)
66                    End Select
67                Case 1
68                    gString &= r1.Next(0, 9)
69                Case 2
70                    gString &= addLetter
71            End Select
72        Loop
73        Return gString
74    End Function