anywherets.r2.sourceforge/VBDLL/wizardSupport.vb

Imports System.IO
Imports System.CodeDom.Compiler
' -------------------------------------
' Support routines for the wizard form
' -------------------------------------

Public Module wizardSupport
    Public Enum PXEBootTask 'Types of media
        PXE_Boot_Floppy
        PXE_Boot_CD
    End Enum
    Public PXEBootType As PXEBootTask ' Startup mode for wizard, as defined in WizardTask
    Dim response As MsgBoxResult
    Dim msg As String
    Dim title As String
    Dim style As MsgBoxStyle

    Public Sub PXEBoot()
        If PXEBootType = PXEBootTask.PXE_Boot_Floppy Then 'create a PXE Floppy
            Dim response As MsgBoxResult
            msg = "Creates a floppy that can be used on computers that do not have support for PXE boot in BIOS. Please insert a blank floppy disk in drive A:"   ' Define message.
            style = MsgBoxStyle.OkCancel
            title = "Create a PXE boot floppy"   ' Define title.
            response = MsgBox(msg, style, title)
            If response = MsgBoxResult.Ok Then   ' User chose OK.
                Shell(Globals.strAppdir + "\diskwrite\DiskWrite.exe " + Globals.strAppdir + "\data\netboot.img", AppWinStyle.NormalFocus, False)
            End If
        ElseIf PXEBootType = PXEBootTask.PXE_Boot_CD Then 'Create a PXE boot CD
            Dim isoName As String
            msg = "Creates a CD-image that can be used to create a PXE BOOT-CD for computers that do not have support for PXE boot in BIOS."   ' Define message.
            style = MsgBoxStyle.OkCancel
            title = "Create a PXE boot CD"   ' Define title.
            response = MsgBox(msg, style, title)
            If response = MsgBoxResult.Ok Then   ' User chose OK.
                Dim objDialog As New SaveFileDialog
                isoName = "Netboot"
                objDialog.Filter = "CD-R ISO images (*.iso)|*.iso"
                objDialog.DefaultExt = "iso"
                objDialog.FileName = isoName
                If objDialog.ShowDialog() = DialogResult.OK Then
                    isoName = objDialog.FileName
                End If
                File.Copy(Globals.strAppdir + "\data\netboot.iso", isoName, True)
            End If
        End If
    End Sub

    ' Does a look-up in the file strFile on the line numbered by intIndex (zero based), then skips the first parameter on the line,
    ' and interprets all the following parameters on the row as files to be copied from strSourcePath to strDestPath
    Sub CopyFiles(ByVal strDriver As String, ByVal strFile As String, ByVal strSourcePath As String, ByVal strDestPath As String, ByVal objTempRoot As TempFileCollection)
        Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(strFile)
            MyReader.TextFieldType = FileIO.FieldType.Delimited
            MyReader.SetDelimiters(";")
            Dim intRow As Integer
            Dim currentRow As String()
            ReDim currentRow(1) 'Initialise so that we can run the loop below first time.
            'Read rows until we found the row
            While Not MyReader.EndOfData AndAlso currentRow(1) <> strDriver
                Try
                    currentRow = MyReader.ReadFields()
                Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
                    MsgBox("Error in file " & strFile & ", line: '" & ex.Message & "'is not valid and will be skipped.")
                End Try
                intRow = intRow + 1
            End While
            ' We have found the right row
            Dim i As Integer
            For i = 2 To currentRow.GetUpperBound(0)
                File.Copy(strSourcePath & "\" & currentRow(i), strDestPath + "\" + currentRow(i), True)
                Try
                    objTempRoot.AddFile(strDestPath + "\" + currentRow(i), False)
                Catch
                End Try
            Next
        End Using
    End Sub

    ' Copies all files specified in strFile from strSourcePath to strDestPath.
    ' The first paramter on each line is skipped the following parameters on the line is iterpreted as file names
    Sub CopyAllFiles(ByVal strFile As String, ByVal strSourcePath As String, ByVal strDestPath As String, ByVal objTempRoot As TempFileCollection)
        Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(strFile)
            MyReader.TextFieldType = FileIO.FieldType.Delimited
            MyReader.SetDelimiters(";")
            Dim intRow As Integer
            Dim currentRow As String()
            While Not MyReader.EndOfData
                Try
                    currentRow = MyReader.ReadFields()
                    Dim i As Integer
                    For i = 2 To currentRow.GetUpperBound(0)
                        If Not File.Exists(strDestPath + "\" + currentRow(i)) Then
                            File.Copy(strSourcePath & "\" & currentRow(i), strDestPath + "\" + currentRow(i), True)
                            Try
                                objTempRoot.AddFile(strDestPath + "\" + currentRow(i), False)
                            Catch
                            End Try
                        End If
                    Next
                Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
                    MsgBox("Error in file " & strFile & ", line: '" & ex.Message & "'is not valid and will be skipped.")
                End Try
                intRow = intRow + 1
            End While
        End Using
    End Sub
    ' Does a look-up in the file strFile on the line numbered by intIndex (zero based), and returns the name of the first file specified on that line.
    Function LookupFile(ByVal intIndex As Integer, ByVal strFile As String) As String
        Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(strFile)
            MyReader.TextFieldType = FileIO.FieldType.Delimited
            MyReader.SetDelimiters(";")
            Dim intRow As Integer
            Dim currentRow As String()
            While Not MyReader.EndOfData AndAlso intRow < intIndex
                Try
                    currentRow = MyReader.ReadFields()
                Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
                    MsgBox("Error in file " & strFile & ", line: '" & ex.Message & "'is not valid and will be skipped.")
                End Try
                intRow = intRow + 1
            End While
            Try
                currentRow = MyReader.ReadFields()
                Return currentRow(1)
            Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
                MsgBox("Error in file " & strFile & ", line: '" & ex.Message & "'is not valid and will be skipped.")
                Return ""
            End Try
        End Using
    End Function
    Public Sub AnywhereTSHomepage()
        '****************************************************
        '* Denna metod opens the AnywhereTS homepage        *
        '****************************************************
        On Error GoTo useie
        'Try letting system select browser
        System.Diagnostics.Process.Start("http://anywhereTS.com")
        On Error GoTo -1
        Return
useie:  On Error GoTo -1
        'Failed, use IE
        System.Diagnostics.Process.Start("IExplore.exe", "http://anywhereTS.com")
    End Sub
    Public Function IsValidIPAddress(ByVal strIPAddress As String) As Boolean
        On Error GoTo Handler
        Dim varAddress As Object, n As Long, lCount As Long
        varAddress = Split(strIPAddress, ".", , vbTextCompare)
        '//
        If IsArray(varAddress) Then
            For n = LBound(varAddress) To UBound(varAddress)
                lCount = lCount + 1
                varAddress(n) = CByte(varAddress(n))
            Next
            '//
            IsValidIPAddress = (lCount = 4)
        End If
        '//
Handler:
    End Function
    Public Sub LoadComboBoxFromFile(ByRef cboList As ComboBox, ByVal strFile As String)
        cboList.Items.Clear()
        Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(strFile)
            MyReader.TextFieldType = FileIO.FieldType.Delimited
            MyReader.SetDelimiters(";")
            Dim currentRow As String()
            While Not MyReader.EndOfData
                Try
                    currentRow = MyReader.ReadFields()
                    cboList.Items.Add(currentRow(0))
                Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
                    MsgBox("Error in file " & strFile & ", line: '" & ex.Message & "'is not valid and will be skipped.")
                End Try
            End While
        End Using
        cboList.SelectedIndex = 0
    End Sub

End Module
Revision:	5
Committed:	Wed Jul 11 15:09:09 2012 UTC (10 years, 11 months ago) by william
File size:	8881 byte(s)
Log Message:	Created branch: anywherets.r2.sourceforge Snapshot of: https://anywherets.svn.sourceforge.net/svnroot/anywherets/trunk/ at Revision 2
#	User	Rev	Content
1	william	4	Imports System.IO
2			Imports System.CodeDom.Compiler
3			' -------------------------------------
4			' Support routines for the wizard form
5			' -------------------------------------
6
7			Public Module wizardSupport
8			Public Enum PXEBootTask 'Types of media
9			PXE_Boot_Floppy
10			PXE_Boot_CD
11			End Enum
12			Public PXEBootType As PXEBootTask ' Startup mode for wizard, as defined in WizardTask
13			Dim response As MsgBoxResult
14			Dim msg As String
15			Dim title As String
16			Dim style As MsgBoxStyle
17
18			Public Sub PXEBoot()
19			If PXEBootType = PXEBootTask.PXE_Boot_Floppy Then 'create a PXE Floppy
20			Dim response As MsgBoxResult
21			msg = "Creates a floppy that can be used on computers that do not have support for PXE boot in BIOS. Please insert a blank floppy disk in drive A:" ' Define message.
22			style = MsgBoxStyle.OkCancel
23			title = "Create a PXE boot floppy" ' Define title.
24			response = MsgBox(msg, style, title)
25			If response = MsgBoxResult.Ok Then ' User chose OK.
26			Shell(Globals.strAppdir + "\diskwrite\DiskWrite.exe " + Globals.strAppdir + "\data\netboot.img", AppWinStyle.NormalFocus, False)
27			End If
28			ElseIf PXEBootType = PXEBootTask.PXE_Boot_CD Then 'Create a PXE boot CD
29			Dim isoName As String
30			msg = "Creates a CD-image that can be used to create a PXE BOOT-CD for computers that do not have support for PXE boot in BIOS." ' Define message.
31			style = MsgBoxStyle.OkCancel
32			title = "Create a PXE boot CD" ' Define title.
33			response = MsgBox(msg, style, title)
34			If response = MsgBoxResult.Ok Then ' User chose OK.
35			Dim objDialog As New SaveFileDialog
36			isoName = "Netboot"
37			objDialog.Filter = "CD-R ISO images (.iso)\|.iso"
38			objDialog.DefaultExt = "iso"
39			objDialog.FileName = isoName
40			If objDialog.ShowDialog() = DialogResult.OK Then
41			isoName = objDialog.FileName
42			End If
43			File.Copy(Globals.strAppdir + "\data\netboot.iso", isoName, True)
44			End If
45			End If
46			End Sub
47
48			' Does a look-up in the file strFile on the line numbered by intIndex (zero based), then skips the first parameter on the line,
49			' and interprets all the following parameters on the row as files to be copied from strSourcePath to strDestPath
50			Sub CopyFiles(ByVal strDriver As String, ByVal strFile As String, ByVal strSourcePath As String, ByVal strDestPath As String, ByVal objTempRoot As TempFileCollection)
51			Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(strFile)
52			MyReader.TextFieldType = FileIO.FieldType.Delimited
53			MyReader.SetDelimiters(";")
54			Dim intRow As Integer
55			Dim currentRow As String()
56			ReDim currentRow(1) 'Initialise so that we can run the loop below first time.
57			'Read rows until we found the row
58			While Not MyReader.EndOfData AndAlso currentRow(1) <> strDriver
59			Try
60			currentRow = MyReader.ReadFields()
61			Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
62			MsgBox("Error in file " & strFile & ", line: '" & ex.Message & "'is not valid and will be skipped.")
63			End Try
64			intRow = intRow + 1
65			End While
66			' We have found the right row
67			Dim i As Integer
68			For i = 2 To currentRow.GetUpperBound(0)
69			File.Copy(strSourcePath & "\" & currentRow(i), strDestPath + "\" + currentRow(i), True)
70			Try
71			objTempRoot.AddFile(strDestPath + "\" + currentRow(i), False)
72			Catch
73			End Try
74			Next
75			End Using
76			End Sub
77
78			' Copies all files specified in strFile from strSourcePath to strDestPath.
79			' The first paramter on each line is skipped the following parameters on the line is iterpreted as file names
80			Sub CopyAllFiles(ByVal strFile As String, ByVal strSourcePath As String, ByVal strDestPath As String, ByVal objTempRoot As TempFileCollection)
81			Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(strFile)
82			MyReader.TextFieldType = FileIO.FieldType.Delimited
83			MyReader.SetDelimiters(";")
84			Dim intRow As Integer
85			Dim currentRow As String()
86			While Not MyReader.EndOfData
87			Try
88			currentRow = MyReader.ReadFields()
89			Dim i As Integer
90			For i = 2 To currentRow.GetUpperBound(0)
91			If Not File.Exists(strDestPath + "\" + currentRow(i)) Then
92			File.Copy(strSourcePath & "\" & currentRow(i), strDestPath + "\" + currentRow(i), True)
93			Try
94			objTempRoot.AddFile(strDestPath + "\" + currentRow(i), False)
95			Catch
96			End Try
97			End If
98			Next
99			Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
100			MsgBox("Error in file " & strFile & ", line: '" & ex.Message & "'is not valid and will be skipped.")
101			End Try
102			intRow = intRow + 1
103			End While
104			End Using
105			End Sub
106			' Does a look-up in the file strFile on the line numbered by intIndex (zero based), and returns the name of the first file specified on that line.
107			Function LookupFile(ByVal intIndex As Integer, ByVal strFile As String) As String
108			Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(strFile)
109			MyReader.TextFieldType = FileIO.FieldType.Delimited
110			MyReader.SetDelimiters(";")
111			Dim intRow As Integer
112			Dim currentRow As String()
113			While Not MyReader.EndOfData AndAlso intRow < intIndex
114			Try
115			currentRow = MyReader.ReadFields()
116			Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
117			MsgBox("Error in file " & strFile & ", line: '" & ex.Message & "'is not valid and will be skipped.")
118			End Try
119			intRow = intRow + 1
120			End While
121			Try
122			currentRow = MyReader.ReadFields()
123			Return currentRow(1)
124			Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
125			MsgBox("Error in file " & strFile & ", line: '" & ex.Message & "'is not valid and will be skipped.")
126			Return ""
127			End Try
128			End Using
129			End Function
130			Public Sub AnywhereTSHomepage()
131			'****************************************************
132			'* Denna metod opens the AnywhereTS homepage *
133			'****************************************************
134			On Error GoTo useie
135			'Try letting system select browser
136			System.Diagnostics.Process.Start("http://anywhereTS.com")
137			On Error GoTo -1
138			Return
139			useie: On Error GoTo -1
140			'Failed, use IE
141			System.Diagnostics.Process.Start("IExplore.exe", "http://anywhereTS.com")
142			End Sub
143			Public Function IsValidIPAddress(ByVal strIPAddress As String) As Boolean
144			On Error GoTo Handler
145			Dim varAddress As Object, n As Long, lCount As Long
146			varAddress = Split(strIPAddress, ".", , vbTextCompare)
147			'//
148			If IsArray(varAddress) Then
149			For n = LBound(varAddress) To UBound(varAddress)
150			lCount = lCount + 1
151			varAddress(n) = CByte(varAddress(n))
152			Next
153			'//
154			IsValidIPAddress = (lCount = 4)
155			End If
156			'//
157			Handler:
158			End Function
159			Public Sub LoadComboBoxFromFile(ByRef cboList As ComboBox, ByVal strFile As String)
160			cboList.Items.Clear()
161			Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(strFile)
162			MyReader.TextFieldType = FileIO.FieldType.Delimited
163			MyReader.SetDelimiters(";")
164			Dim currentRow As String()
165			While Not MyReader.EndOfData
166			Try
167			currentRow = MyReader.ReadFields()
168			cboList.Items.Add(currentRow(0))
169			Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
170			MsgBox("Error in file " & strFile & ", line: '" & ex.Message & "'is not valid and will be skipped.")
171			End Try
172			End While
173			End Using
174			cboList.SelectedIndex = 0
175			End Sub
176
177			End Module