/[AnywhereTS-MSSQL]/trunk/VBDLL/Globals.vb
ViewVC logotype

Annotation of /trunk/VBDLL/Globals.vb

Parent Directory Parent Directory | Revision Log Revision Log


Revision 4 - (hide annotations) (download)
Wed Jul 11 14:19:13 2012 UTC (7 years, 11 months ago) by william
File size: 1910 byte(s)
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
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

  ViewVC Help
Powered by ViewVC 1.1.22