Quantcast Thinking about creating an ESO Addon manager / UserSettings editor - ESOUI
Thread Tools Display Modes
08/17/15, 09:31 PM   #1
Jizargo
AddOn Author - Click to view addons
Join Date: Aug 2015
Posts: 33
Thinking about creating an ESO Addon manager / UserSettings editor

I created a Addon manager for ESO right now it just unzips and makes new folders in addon folder of your addons and deletes them as well as deletes the SavedVariables for the addon. Now im thinking about making a UserSettings editor maybe display pictures to show the different resolutions with sampling and texture quality. Getting the pictures will be the hardest part to be honest, so if anyone is willing to help I'd appreciate it if you could take some pictures of the game for me.

Resolutions
Sub Sampling
Texture Quality

Gotta take a picture for each one, So Low texture quality with Low Sampling with 640x860, then all the other resolutions. Then do it again with Medium texture quality, low sampling and all the resolutions. Then do that for Medium and high sampling as well as the texture quality. This will be a huge help for me because It takes me for ever to load ESO settings, it will literally take me hours to get all the pictures done while doing the base coding not considering the gui is much quicker.

Just thought id make this thread here since I already got the program started. Just need a bit of help.
  Reply With Quote
08/18/15, 07:04 AM   #2
Ayantir
 
Ayantir's Avatar
AddOn Author - Click to view addons
Join Date: Jul 2014
Posts: 1,022
user settings can be managed with an addon, it has already been done.
__________________
Obsessive Compulsive Coder

My little french Guild: Cercle de l'Eveil
  Reply With Quote
08/18/15, 09:02 AM   #3
Baertram
 
Baertram's Avatar
AddOn Author - Click to view addons
Join Date: Mar 2014
Posts: 2,536
The addon is not showing the differences at the graphics, before you change it. But for me static images of graphic differences have never been enough.
I rather change the settings ingame and test the performance contra the visual differences, than relying on screenshots taken with graphic card A where I use graphic card Z instead.

So if I were you I wouldn't put so much effort into this and instead link to example screenshots from other games or the graphic card developers where they show you what a difference in the resolution or shader levels will be.

For the non-graphic settings like threads, size of lua memory etc. it would be a nice idea to have an external tool for this. But only if there are some well explained information texts so you know what you change, and maybe some profiles to save and load/restore different settings with 1 click.
  Reply With Quote
08/18/15, 04:57 PM   #4
Jizargo
AddOn Author - Click to view addons
Join Date: Aug 2015
Posts: 33
Right now I've finished most of the tedious programming work. All thats left is elaboration on settings, and pictures. I also have a Addon Manager as well that lists the addon folders and lets you add / delete them (as well as unzip)




I'm making this tool mainly to help people with bad performance out, I'll add presets as well for low end PCs and stuff.
  Reply With Quote
08/19/15, 01:47 AM   #5
Baertram
 
Baertram's Avatar
AddOn Author - Click to view addons
Join Date: Mar 2014
Posts: 2,536
Could you tell us which development language you used and do we get insight into the source code?
Thanks
  Reply With Quote
08/19/15, 07:12 PM   #6
Jizargo
AddOn Author - Click to view addons
Join Date: Aug 2015
Posts: 33
Originally Posted by Baertram View Post
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)

Code:
   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.
  Reply With Quote
08/20/15, 01:25 AM   #7
votan
 
votan's Avatar
AddOn Author - Click to view addons
Join Date: Oct 2014
Posts: 499
Hi Jizargo,

I just saw how you build your path to "MyDocuments" and would like to suggest to use this instead:
Code:
System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
Because C:\Users is not always true
__________________
@votan73 (EU - megaserver)
  Reply With Quote
08/20/15, 01:40 PM   #8
Jizargo
AddOn Author - Click to view addons
Join Date: Aug 2015
Posts: 33
Originally Posted by votan View Post
Hi Jizargo,

I just saw how you build your path to "MyDocuments" and would like to suggest to use this instead:
Code:
System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
Because C:\Users is not always true


Thanks, and thanks for the addons, I recently update/downloaded two that were from you.
  Reply With Quote

ESOUI » General Discussion » Chit-Chat » Thinking about creating an ESO Addon manager / UserSettings editor

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off