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

Contents of /trunk/VBDLL/Globals.vb

Parent Directory Parent Directory | Revision Log Revision Log


Revision 4 - (show annotations) (download)
Wed Jul 11 14:19:13 2012 UTC (8 years, 3 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 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