1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
| Imports System.Net
Imports System.IO
Public Class Generator
Private Sub Generator_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
MsgBox("30.04.2016 | **" & vbNewLine & "31.04.2016 | **", MsgBoxStyle.Information, "News")
End Sub
Sub New()
InitializeComponent()
wc = New WebClient
R = New Random
End Sub
Private Const test As String = "http://pastebin.com/raw/eRsDwaeM" 'Dein Pastebin Link
Private Const Spotify As String = "http://pastebin.com/raw/eRsDwaeM"
Private wc As WebClient
Private R As Random
Private Sub Gen_Click(sender As Object, e As EventArgs) Handles Gen.Click
username.ReadOnly = True
password.ReadOnly = True
End Sub
Private Sub btn_generate_Click(sender As Object, e As EventArgs) Handles btn_generate.Click
GenerateAccount()
End Sub
Sub GenerateAccount()
Select Case combo.SelectedItem
Case "test"
Dim Account As String() = wc.DownloadString(test).Split(Environment.NewLine)
ParseAccount(Account(R.Next(1, Account.Length)))
Case "Spotify"
Dim Account As String() = wc.DownloadString(Spotify).Split(Environment.NewLine)
ParseAccount(Account(R.Next(1, Account.Length)))
Case Else
MsgBox("S'il vous plaît choisir ce")
End Select
End Sub
Private Sub ParseAccount(ByVal Account As String)
username.Text = Account.Split(":")(0)
password.Text = Account.Split(":")(1)
End Sub
Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
My.Computer.Clipboard.SetText("" & username.Text)
MsgBox("Copier")
End Sub
Private Sub FlatButton3_Click(sender As Object, e As EventArgs) Handles FlatButton3.Click
My.Computer.Clipboard.SetText("" & password.Text)
MsgBox("Copier")
End Sub
End Class |
