FDaxBJcf

1Public Class Form1
2
3    Private Enum PlusTrickEnum
4        SequentialNumbers = 1
5        RandomNumbers = 2
6        RandomStrings = 3
7    End Enum
8
9    Private Function GmailPlusTrick(ByVal szEmail As String, ByVal iEmailCount As Integer, ByVal TrickType As PlusTrickEnum, Optional ByVal iRandomLen As Integer = 3) As List(Of String)
10        Dim iRandEnum As Integer
11        Dim iEmailEnum As Integer
12        Dim lsEmails As List(Of String) = New List(Of String)
13        Dim RandomClass As New Random()
14        Dim szRandom As String
15
16        'check if user accidently gave us the full gmail email
17        If szEmail.ToLower().EndsWith("@gmail.com") Then
18            'remove the @gmail.com end
19            szEmail = Mid(szEmail, 1, Len(szEmail) - 10)
20        End If
21
22        If TrickType = PlusTrickEnum.SequentialNumbers Then
23            'us gmail + trick to generate sequential numbers
24            For iEmailEnum = 1 To iEmailCount
25                lsEmails.Add(szEmail & "+" & iEmailEnum.ToString() + "@gmail.com")
26            Next
27        ElseIf TrickType = PlusTrickEnum.RandomNumbers Then
28            'use gmail + trick to generate random numbers
29            For iEmailEnum = 1 To iEmailCount
30                ' erase any previous random numbers
31                szRandom = ""
32
33                'generate random numbers
34                'length specified by iRandomLen, or default of 3
35                For iRandEnum = 1 To iRandomLen
36                    szRandom = szRandom & RandomClass.Next(0, 9).ToString()
37                Next
38
39                'add the email
40                lsEmails.Add(szEmail & "+" + szRandom & "@gmail.com")
41            Next
42
43        Else
44            'use gmail + trick to generate random strings
45            For iEmailEnum = 1 To iEmailCount
46                ' erase any previous random numbers
47                szRandom = ""
48                'length specified by iRandomLen, or default of 3
49                For iRandEnum = 1 To iRandomLen
50
51                    '97 - 122 are the ASCII number codes for a to z
52                    'example: hold down right alt on your keyboard, press 097 from the numpad keys on far right, and release
53                    'it should make an a, this is the ascii code for a, 098 is b, 121 is y, 122 is z
54                    szRandom = szRandom & Chr(RandomClass.Next(97, 122))
55                Next
56
57                'add the email
58                lsEmails.Add(szEmail & "+" + szRandom & "@gmail.com")
59            Next
60        End If
61
62        'done, return our emails we generated from above
63        Return lsEmails
64    End Function
65
66    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
67        Dim lsGenerateEmails As List(Of String)
68
69        'generate list of gmail plus trick emails using Sequential Numbers 
70        lsGenerateEmails = GmailPlusTrick("ArmyOfEchoes@gmail.com", 5, PlusTrickEnum.SequentialNumbers)
71        For Each szEmail As String In lsGenerateEmails
72            MsgBox(szEmail, MsgBoxStyle.Information, "Sequential number test")
73        Next
74
75        'generate list of gmail plus trick emails using Random Numbers 
76        lsGenerateEmails = GmailPlusTrick("ArmyOfEchoes", 5, PlusTrickEnum.RandomNumbers, 7) '7 is optional, specifies length of random number
77        For Each szEmail As String In lsGenerateEmails
78            MsgBox(szEmail, MsgBoxStyle.Information, "Random numbers test")
79        Next
80
81        'generate list of gmail plus trick emails using Random Strings 
82        lsGenerateEmails = GmailPlusTrick("ArmyOfEchoes", 5, PlusTrickEnum.RandomStrings, 5) '5 is optional, specifies length of random string
83        For Each szEmail As String In lsGenerateEmails
84            MsgBox(szEmail, MsgBoxStyle.Information, "Random numbers test")
85        Next
86    End Sub
87End Class