RadioExt FM Creator

The Nexusmods system give me a false flag so i must contact the support. If you dont trust me because a new account maybe you trust me more on Elitepvpers ,  Hacktec is my Alias they if someone trust me more than here. over 10 Years.

Get the Utility at Elitepvpers

Move the exe to "bin\x64\plugins\cyber_engine_tweaks\mods\radioExt"

Dont Trust me ? Debug it self with Visual Studio .net

Imports System. IO

Imports System. Globalization

Public Class Form1

Private Sub Form1_Load(sender As System. Object, e As System. EventArgs) Handles MyBase. Load

Dim folderPath As String

Private Sub AdfdMusicFolder_Click(sender As System. Object, e As System. EventArgs) Handles AdfdMusicFolder. Click

Dim folderDialog As New FolderBrowserDialog()

If folderDialog. ShowDialog() = DialogResult. OK Then

folderPath = folderDialog. SelectedPath

MusicPath. Text = folderDialog. SelectedPath

Dim mp3Files() As String = Directory. GetFiles(folderPath, ".mp3")

For Each mp3File As String In mp3Files

MusicList. Items. Add(Path. GetFileName(mp3File))

Private Sub Button3_Click(sender As System. Object, e As System. EventArgs) Handles Button3. Click

If MusicList. SelectedItems. Count > 0 Then

' Schleife durch alle ausgewählten Elemente und sie aus der ListBox entfernen

For i As Integer = MusicList. SelectedItems. Count - 1 To 0 Step -1

MusicList. Items. Remove(MusicList. SelectedItems(i))

MessageBox. Show("you dont Selected some files.")

Private Sub Button1_Click(sender As System. Object, e As System. EventArgs) Handles Button1. Click

CreateMetadata()

Dim subfolderPath As String

Dim Installpath As String

Dim Installpathjson As String

Public Sub CreateMetadata()

subfolderPath = Path. Combine(Application. StartupPath, "radios")

Installpath = Path. Combine(Application. StartupPath, "radios", RadioDisplayName. Text)

Installpathjson = Installpath + "\metadata.json"

Dim ursprungstext As String = Blanko. Text

Dim platzhalterWerte As New Dictionary(Of String, String)()

platzhalterWerte. Add("StaticIcon", RadioIcon. Text)

Dim culture As CultureInfo = CultureInfo. InvariantCulture

platzhalterWerte. Add("StaticName", RadioDisplayName. Text)

platzhalterWerte. Add("StaticFM", Radiofm. Value. ToString("0. 00", culture))

platzhalterWerte. Add("StaticVolu