Jizargo |
08/19/15 07:12 PM |
Quote:
Originally Posted by Baertram
(Post 22785)
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.
|