nextesttracker/nxtuitracker/Form4.vb

Public Class frm_changeui
    Dim skip As Boolean = False
    Dim status As Integer = 0
    Public targetui As String

    Private Sub frm_changeui_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        If status = 1 Then
            If vbNo = MsgBox("Change UI is still in progress." & vbNewLine & "Are you sure you want to cancel?" & vbNewLine & "(This may cause unexpected behavior)", vbYesNo + vbExclamation, "Confirm") Then
                e.Cancel = True
            Else
                status = 0
                Form1.WindowState = FormWindowState.Normal
            End If
        Else
            status = 0
            Form1.WindowState = FormWindowState.Normal
        End If

    End Sub

    Private Sub frm_changeui_Load(sender As Object, e As EventArgs) Handles Me.Load
        Form1.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub lbl_skip_MouseUp(sender As Object, e As MouseEventArgs)
        skip = True
    End Sub

    Private Sub change_ui()
        status = 1
        lbl_caldata.Text = "Copying ""caldata_" & targetui.Replace(".", "") & """ to ""caldata"""
        lbl_caldata_warning.Text = ""
        lbl_testhead_warning.Text = ""

        Label1.ForeColor = Color.Black
        lbl_caldata.ForeColor = Color.Gray
        Label3.ForeColor = Color.Gray
        Label4.ForeColor = Color.Gray

        Dim ping_result As Boolean = True
        Dim mod_ctr As UInt64 = 0
        While (skip = False And ping_result = True)
            If My.Computer.Network.IsAvailable And mod_ctr Mod 10 = 0 Then
                ping_result = My.Computer.Network.Ping("10.1.1.1")
            End If
            System.Threading.Thread.Sleep(100)
            Application.DoEvents()
            mod_ctr += 1
        End While

        If skip = True Then
            lbl_testhead_warning.Text = "Skipped"
            pic_chk1.BackColor = Color.Red
        Else
            pic_chk1.BackColor = Color.LimeGreen
        End If

        skip = False

        Label1.ForeColor = Color.Gray
        lbl_caldata.ForeColor = Color.Black
        Label3.ForeColor = Color.Gray
        Label4.ForeColor = Color.Gray

        Dim tempctr As Integer = 30
        While (tempctr > 0)
            System.Threading.Thread.Sleep(100)
            Application.DoEvents()
            tempctr -= 1
        End While

        'Copy caldata (Ugly code below, I know)
        Dim new_caldata_path As String = "c:\nextest\" & "caldata_" & targetui.Replace(".", "")
        Dim old_caldata_path As String = "c:\nextest\caldata"
        Dim def_caldata_path As String = "c:\nextest\" & "caldata_" & targetui.Substring(0, 2) & "xxx"
        Try
            If System.IO.Directory.GetFiles(new_caldata_path).Count > 0 Then

                If FileIO.FileSystem.DirectoryExists(old_caldata_path) Then
                    FileIO.FileSystem.DeleteDirectory(old_caldata_path, FileIO.DeleteDirectoryOption.DeleteAllContents)
                Else
                    FileIO.FileSystem.CreateDirectory(old_caldata_path)
                End If

                FileIO.FileSystem.CopyDirectory(new_caldata_path, old_caldata_path, True)
                pic_chk2.BackColor = Color.LimeGreen
            Else
                Try
                    If System.IO.Directory.GetFiles(def_caldata_path).Count > 0 Then
                        If FileIO.FileSystem.DirectoryExists(old_caldata_path) Then
                            FileIO.FileSystem.DeleteDirectory(old_caldata_path, FileIO.DeleteDirectoryOption.DeleteAllContents)

                        Else
                            FileIO.FileSystem.CreateDirectory(old_caldata_path)
                        End If

                        FileIO.FileSystem.CopyDirectory(def_caldata_path, old_caldata_path, True)
                        pic_chk2.BackColor = Color.LimeGreen
                        lbl_caldata.Text = "Copying from ""caldata_" & targetui.Substring(0, 2) & "xxx"" to ""caldata"""
                    Else
                        pic_chk2.BackColor = Color.Red
                        lbl_caldata_warning.Text = "No available caldata for " & targetui
                        Button1.Text = "Close"
                        status = 2
                        Exit Sub
                    End If
                Catch ex2 As Exception
                    pic_chk2.BackColor = Color.Red
                    lbl_caldata_warning.Text = "No available caldata for " & targetui
                    Button1.Text = "Close"
                    status = 2
                    Exit Sub
                End Try
            End If
        Catch ex1 As Exception
            Try
                If System.IO.Directory.GetFiles(def_caldata_path).Count > 0 Then
                    If FileIO.FileSystem.DirectoryExists(old_caldata_path) Then
                        FileIO.FileSystem.DeleteDirectory(old_caldata_path, FileIO.DeleteDirectoryOption.DeleteAllContents)

                    Else
                        FileIO.FileSystem.CreateDirectory(old_caldata_path)
                    End If

                    FileIO.FileSystem.CopyDirectory(def_caldata_path, old_caldata_path, True)
                    pic_chk2.BackColor = Color.LimeGreen
                    lbl_caldata.Text = "Copying from ""caldata_" & targetui.Substring(0, 2) & "xxx"" to ""caldata"""
                Else
                    pic_chk2.BackColor = Color.Red
                    lbl_caldata_warning.Text = "No available caldata for " & targetui
                    Button1.Text = "Close"
                    status = 2
                    Exit Sub
                End If
            Catch ex2 As Exception
                pic_chk2.BackColor = Color.Red
                lbl_caldata_warning.Text = "No available caldata for " & targetui
                Button1.Text = "Close"
                status = 2
                Exit Sub
            End Try
        End Try

        skip = False

        Label1.ForeColor = Color.Gray
        lbl_caldata.ForeColor = Color.Gray
        Label3.ForeColor = Color.Black
        Label4.ForeColor = Color.Gray
        tempctr = 30
        While (tempctr > 0)
            System.Threading.Thread.Sleep(100)
            Application.DoEvents()
            tempctr -= 1
        End While

        Me.WindowState = FormWindowState.Minimized

        'Run userel.bat
        If FileIO.FileSystem.FileExists("c:\nextest\" & targetui & "\utils\userel.bat") = True Then
            Shell("c:\nextest\" & targetui & "\utils\userel.bat", AppWinStyle.NormalFocus, True)
        End If
        pic_chk3.BackColor = Color.LimeGreen

        Me.WindowState = FormWindowState.Normal

        Label1.ForeColor = Color.Gray
        lbl_caldata.ForeColor = Color.Gray
        Label3.ForeColor = Color.Gray
        Label4.ForeColor = Color.Black

        tempctr = 30
        While (tempctr > 0)
            System.Threading.Thread.Sleep(100)
            Application.DoEvents()
            tempctr -= 1
        End While

        pic_chk4.BackColor = Color.LimeGreen

        Button1.Text = "Close"
        status = 2
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If status = 0 Then
            Button1.Text = "Cancel"
            Application.DoEvents()
            change_ui()
        Else
            Me.Close()
        End If

    End Sub
End Class