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 |
Partager