88 lines
3.0 KiB
VB.net
88 lines
3.0 KiB
VB.net
Imports Microsoft.Win32
|
|
|
|
Public Class SettingsHelper
|
|
|
|
Public Shared Port As Integer
|
|
Public Shared ReadOnly SPL As String = "<XWormmm>"
|
|
Public Shared KEY As String
|
|
Public Shared IP As String
|
|
|
|
Public Shared NOTEF As Boolean
|
|
Public Shared User As String
|
|
|
|
Public Shared Screens As Boolean = False
|
|
|
|
Public Shared Online As New List(Of Client)
|
|
Public Shared Blocked As New List(Of String)
|
|
|
|
Public Shared RegSave As String = "Software\xXWormV6Xx"
|
|
|
|
Public Shared ListViewSafeThreading As Object = New Object
|
|
|
|
Public Shared LicenseExpire As String
|
|
|
|
Public Shared Received As Long = 0
|
|
Public Shared Sent As Long = 0
|
|
Public Shared MSGS As Integer = 0
|
|
|
|
Private Shared name As String
|
|
Private Shared ownerid As String
|
|
Private Shared secret As String
|
|
Private Shared version As String
|
|
|
|
Public Shared Function NerakarWashen(ByVal proj As String, ByVal key As String) As String
|
|
Dim Txt As String = ""
|
|
For i As Integer = 1 To proj.Length
|
|
Dim temp As Integer = AscW(GetChar(proj, i)) - AscW(GetChar(key, (i Mod key.Length) + 1))
|
|
Txt += ChrW(temp)
|
|
Next
|
|
Return Txt
|
|
End Function
|
|
|
|
Public Shared Sub SaveToRegistry()
|
|
Try
|
|
Dim rootKey As RegistryKey = RegistryKey.OpenBaseKey(RegistryHive.CurrentUser, RegistryView.Default)
|
|
Dim key As RegistryKey = rootKey.CreateSubKey(RegSave)
|
|
|
|
key.SetValue("IP", IP)
|
|
key.SetValue("Port", Port)
|
|
key.SetValue("User", User)
|
|
key.SetValue("LicenseExpire", LicenseExpire)
|
|
key.SetValue("AppName", name)
|
|
key.SetValue("OwnerId", ownerid)
|
|
key.SetValue("Secret", secret)
|
|
key.SetValue("Version", version)
|
|
|
|
key.Close()
|
|
rootKey.Close()
|
|
Catch ex As Exception
|
|
MsgBox("Failed to save settings to registry: " & ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Public Shared Sub LoadFromRegistry()
|
|
Try
|
|
Dim rootKey As RegistryKey = RegistryKey.OpenBaseKey(RegistryHive.CurrentUser, RegistryView.Default)
|
|
Dim key As RegistryKey = rootKey.OpenSubKey(RegSave)
|
|
|
|
If key IsNot Nothing Then
|
|
IP = key.GetValue("IP", "").ToString()
|
|
Port = Convert.ToInt32(key.GetValue("Port", 0))
|
|
User = key.GetValue("User", "").ToString()
|
|
LicenseExpire = key.GetValue("LicenseExpire", "").ToString()
|
|
name = key.GetValue("AppName", "").ToString()
|
|
ownerid = key.GetValue("OwnerId", "").ToString()
|
|
secret = key.GetValue("Secret", "").ToString()
|
|
version = key.GetValue("Version", "").ToString()
|
|
|
|
key.Close()
|
|
End If
|
|
|
|
rootKey.Close()
|
|
Catch ex As Exception
|
|
MsgBox("Failed to load settings from registry: " & ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
End Class
|