[Jizargo]

Originally Posted by Baertram Could you tell us which development language you used and do we get insight into the source code? Thanks

Oh yeah sure, It's done in .NET with Visual Studio 2015 (not mac compatible). I'll upload to my github once I finish my GDI (lol) and just get the design all done. Programmatically everything is done, I mean there is somethings I can think of like saving data to resources to have extra information for addons instead of just their folders, and maybe a SavedVariable .lua deleter as well for corresponding addons but I'm not sure how I would determine it's for what addon unless it has the same name.

Here is the main functionality of the program, handling the usersettings info to replace certain values, as well as handling the addon folders and deleting them. As well as unzipping the .zip addon files (.NET 4.5 reference, but all users should be on windows7 or higher so it shouldnt be a problem)

   Dim UserSettingsLocation As String = "C:\Users\" & Environment.UserName & "\Documents\Elder Scrolls Online\live\UserSettings.txt"
    Dim USFile As String = UserSettingsLocation
    Dim TempInfo As String
    Dim Tempvalue As String
#Region "UserSettingsInfo"

    Function FindFoam() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "WATER_FOAM"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindCL() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "CHARACTER_LIGHTING"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function Finddist() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "DISTORTION"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindSoft() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "SOFT_ALPHA"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindDoF() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "DEPTH_OF_FIELD"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindBloom() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "BLOOM"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindAmb() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "AMBIENT_OCCLUSION"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindAA() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "ANTI_ALIASING_v2"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindGod() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "GOD_RAYS_v2"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindFlare() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "LENS_FLARE"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindColor() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "COLOR_CORRECTION"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindRain() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "RAIN_WETNESS"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindGPU() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "GPUSmoothingFrames"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindD2maps() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "DIFFUSE_2_MAPS"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindPart() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "ParticlesEnabled"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindFPS() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "MinFrameTime.2"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindMA() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "MAX_ANISOTROPY"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindReflection() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "REFLECTION_QUALITY_v3"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindHSShadow() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "HIGH_RESOLUTION_SHADOWS"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindShadow() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "SHADOWS"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindSub() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "SUB_SAMPLING"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindPD() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "PARTICLE_DENSITY"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindSMaps() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "SPECULAR_MAPS"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindNMaps() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "NORMAL_MAPS"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindDMaps() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "DETAIL_MAPS"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindPFXMax() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "PFX_GLOBAL_MAXIMUM"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindTextureQuality() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "MIP_LOAD_SKIP_LEVELS"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindLUAmemory() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "LuaMemoryLimitMB"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindViewDistance() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "VIEW_DISTANCE"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Function FindPFXDistance() As Array
        Dim Value As String = TextBox1.Text
        Dim arr As Array
        Dim Info As String = "PFX_SUPPRESS_DISTANCE_v2"
        Dim TextStep As String = Value.IndexOf("SET " & Info) : Dim TextStep2 As String = Value.Substring(TextStep, Value.Length - TextStep)
        Value = TextStep2 : Dim TextStep3 As String = Value.IndexOf(vbCrLf) : Dim TextStep4 As String = Value.Substring(0, TextStep3)
        Value = TextStep4 : Dim TextStep5 As String = Value.Replace("SET " & Info & " """, "")
        Value = TextStep5 : Dim TextStep6 As String = Value.Replace("""", "") : Value = TextStep6
        arr = {Value, Info}
        Return arr
    End Function
    Sub RedRight(ByVal Val As String)
        TextBox1.Text = TextBox1.Text.Replace("SET " & TempInfo & " """ & Tempvalue, "SET " & TempInfo & " """ & Val)
        Try
            If System.IO.File.Exists(USFile) = True Then
                File.WriteAllText(USFile, TextBox1.Text)
            End If
        Catch ex As Exception : End Try
    End Sub
#End Region
    Private Sub AddAllFolders()
        Dim FolderPath As String = "C: \Users\" & Environment.UserName & "\Documents\Elder Scrolls Online\live\AddOns\"
        Try
            For Each FolderNode As String In Directory.GetDirectories(FolderPath) 'Load All Sub Folders 
                Dim FolderName As String = FolderNode.Replace(FolderPath, "")
                ListBox1.Items.Add(FolderName)
            Next : Catch ex As Exception : End Try
    End Sub
    Private Sub DeleteFolder()

        Try
            Dim path As String = "C:\Users\" & Environment.UserName & "\Documents\Elder Scrolls Online\live\AddOns\" & ListBox1.SelectedItem.ToString
            System.IO.Directory.Delete(path, True)
            MsgBox("Deleted: " & ListBox1.SelectedItem.ToString)
            ListBox1.Items.Clear()
            AddAllFolders()

        Catch ex As Exception

        End Try
    End Sub

It's quite simple, I there is a few other minor things I've done like Calculating the FrameRate to get the Decimal value (1 divided by FrameRate). But really this is something anyone's kid could do, I need to learn about how Addons really work and maybe develop my own so I can make this like how the NexusMod Manager works. It has a .nmod or something file that grabs a picture and has all the addon info set up in it or something. I'm planning on doing this, as well as handling arguments for drag and dropping addons which is easy.

Really I made this in a day off after ESO had to be reinstalled because I was tired of manually opening my UserSettings turning the shadows and texture quality off / below lowest given options.