'------------------------------------------------------------------------------ ' ' This code was generated by a tool. ' Runtime Version:4.0.30319.235 ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. ' '------------------------------------------------------------------------------ Option Strict On Option Explicit On Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) #Region "My.Settings Auto-Save Functionality" #If _MyType = "WindowsForms" Then Private Shared addedHandler As Boolean Private Shared addedHandlerLockObject As New Object _ Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) If My.Application.SaveMySettingsOnExit Then My.Settings.Save() End If End Sub #End If #End Region Public Shared ReadOnly Property [Default]() As MySettings Get #If _MyType = "WindowsForms" Then If Not addedHandler Then SyncLock addedHandlerLockObject If Not addedHandler Then AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings addedHandler = True End If End SyncLock End If #End If Return defaultInstance End Get End Property _ Public Property Mail() As String Get Return CType(Me("Mail"),String) End Get Set Me("Mail") = value End Set End Property _ Public Property Password() As String Get Return CType(Me("Password"),String) End Get Set Me("Password") = value End Set End Property _ Public Property HotelDomain() As Integer Get Return CType(Me("HotelDomain"),Integer) End Get Set Me("HotelDomain") = value End Set End Property _ Public Property Remember() As Boolean Get Return CType(Me("Remember"),Boolean) End Get Set Me("Remember") = value End Set End Property _ Public Property ClientSniff() As Boolean Get Return CType(Me("ClientSniff"),Boolean) End Get Set Me("ClientSniff") = value End Set End Property _ Public Property ServerSniff() As Boolean Get Return CType(Me("ServerSniff"),Boolean) End Get Set Me("ServerSniff") = value End Set End Property _ Public Property ReplaceCHR() As Boolean Get Return CType(Me("ReplaceCHR"),Boolean) End Get Set Me("ReplaceCHR") = value End Set End Property _ Public Property Split() As Boolean Get Return CType(Me("Split"),Boolean) End Get Set Me("Split") = value End Set End Property _ Public Property DefaultHabbo() As Boolean Get Return CType(Me("DefaultHabbo"),Boolean) End Get Set Me("DefaultHabbo") = value End Set End Property _ Public Property SCKServerSynt() As Boolean Get Return CType(Me("SCKServerSynt"),Boolean) End Get Set Me("SCKServerSynt") = value End Set End Property _ Public Property SCKClientSynt() As Boolean Get Return CType(Me("SCKClientSynt"),Boolean) End Get Set Me("SCKClientSynt") = value End Set End Property _ Public Property ProgramWelcomer() As Boolean Get Return CType(Me("ProgramWelcomer"),Boolean) End Get Set Me("ProgramWelcomer") = value End Set End Property _ Public Property LogFormat32() As Integer Get Return CType(Me("LogFormat32"),Integer) End Get Set Me("LogFormat32") = value End Set End Property _ Public Property LogFormat64() As String Get Return CType(Me("LogFormat64"),String) End Get Set Me("LogFormat64") = value End Set End Property _ Public Property AutoLogin() As String Get Return CType(Me("AutoLogin"),String) End Get Set Me("AutoLogin") = value End Set End Property _ Public Property SmartID() As String Get Return CType(Me("SmartID"),String) End Get Set Me("SmartID") = value End Set End Property _ Public Property DomainCheck() As String Get Return CType(Me("DomainCheck"),String) End Get Set Me("DomainCheck") = value End Set End Property End Class End Namespace Namespace My _ Friend Module MySettingsProperty _ Friend ReadOnly Property Settings() As Global.Ihabbox.My.MySettings Get Return Global.Ihabbox.My.MySettings.Default End Get End Property End Module End Namespace