anywherets.r2.sourceforge/VBDLL/Globals.vb

Option Strict On
Imports System.Net

Public Module Globals
    Sub New()
        Settings.OpenRegistry()
    End Sub
    Public Enum WizardTask ' Wizard modes
        USER_SELECTED_DISTRIBUTION
        USER_SELECTED_DISTRIBUTION_DATA2
        DHCP_CONFIG
    End Enum

    Public strAppdir, strTFTPdir As String 'Path sets directory strAppdir=AnywhereTS root directory strTFTPdir=TFTP root directory
    Public Const strVersion As String = "2.20" ' The version string for AnywhereTS
    Public WizardMode As WizardTask ' Startup mode for wizard, as defined in WizardTask
    Public isPro As Boolean ' The program version. True = we are running the pro version.
    Public bolCheckForUpdates As Boolean ' True = Automatic update checking enabled
    Public bolDhcpNotInst As Boolean ' True = Run for the firs time
    Public intNoOfValidAdapters As Integer
    Public strComputerIPAddress As String              'This computer's IP address. If serveral, the one the user has selected.
    Public Sub WriteCheckUpdatesRegkey()
        Dim objRegkey As Microsoft.Win32.RegistryKey

        On Error GoTo NoRegWrite
        objRegkey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\AnywhereTS\ts-config", True)
        If (objRegkey Is Nothing) Then
            objRegkey = Microsoft.Win32.Registry.LocalMachine.CreateSubKey("SOFTWARE\AnywhereTS\ts-config")
        End If
        If (objRegkey Is Nothing) Then
            GoTo NoRegWrite
        End If

        If Globals.bolCheckForUpdates Then
            objRegkey.SetValue("CheckUpdate", 1)
        Else
            objRegkey.SetValue("CheckUpdate", 0)
        End If

        Return

NoRegWrite:
        On Error GoTo -1
        MessageBox.Show("Failed to write to registry. Aborting.", "AnywhereTS", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
        Application.Exit()
    End Sub
End Module
Revision:	4
Committed:	Wed Jul 11 14:19:13 2012 UTC (10 years, 10 months ago) by william
Original Path:	*trunk/VBDLL/Globals.vb*
File size:	1910 byte(s)
Log Message:	imported from https://anywherets.svn.sourceforge.net/svnroot/anywherets/trunk/ Revision: 1 Author: beartown Date: 3:10:40 AM, Monday, June 21, 2010 Message: First upload. Still todo in order to get a fully working product: Replace Thinstation images with vanilla Thinstation, modify ImageDesigntimeConfig.cs, ImageRuntimeConfig.cs in order to support the Thinstation image
#	User	Rev	Content
1	william	4	Option Strict On
2			Imports System.Net
3
4			Public Module Globals
5			Sub New()
6			Settings.OpenRegistry()
7			End Sub
8			Public Enum WizardTask ' Wizard modes
9			USER_SELECTED_DISTRIBUTION
10			USER_SELECTED_DISTRIBUTION_DATA2
11			DHCP_CONFIG
12			End Enum
13
14			Public strAppdir, strTFTPdir As String 'Path sets directory strAppdir=AnywhereTS root directory strTFTPdir=TFTP root directory
15			Public Const strVersion As String = "2.20" ' The version string for AnywhereTS
16			Public WizardMode As WizardTask ' Startup mode for wizard, as defined in WizardTask
17			Public isPro As Boolean ' The program version. True = we are running the pro version.
18			Public bolCheckForUpdates As Boolean ' True = Automatic update checking enabled
19			Public bolDhcpNotInst As Boolean ' True = Run for the firs time
20			Public intNoOfValidAdapters As Integer
21			Public strComputerIPAddress As String 'This computer's IP address. If serveral, the one the user has selected.
22			Public Sub WriteCheckUpdatesRegkey()
23			Dim objRegkey As Microsoft.Win32.RegistryKey
24
25			On Error GoTo NoRegWrite
26			objRegkey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\AnywhereTS\ts-config", True)
27			If (objRegkey Is Nothing) Then
28			objRegkey = Microsoft.Win32.Registry.LocalMachine.CreateSubKey("SOFTWARE\AnywhereTS\ts-config")
29			End If
30			If (objRegkey Is Nothing) Then
31			GoTo NoRegWrite
32			End If
33
34			If Globals.bolCheckForUpdates Then
35			objRegkey.SetValue("CheckUpdate", 1)
36			Else
37			objRegkey.SetValue("CheckUpdate", 0)
38			End If
39
40			Return
41
42			NoRegWrite:
43			On Error GoTo -1
44			MessageBox.Show("Failed to write to registry. Aborting.", "AnywhereTS", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
45			Application.Exit()
46			End Sub
47			End Module