Denial

Code: Select all

Public Class Form1
    Shared last As String = ""
    Shared ao As String = "VICE är väl redan öppet?"


    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If BackgroundWorker1.IsBusy Then Exit Sub

        Try
            Dim a As String = My.Computer.FileSystem.ReadAllText("vice\BGAMMONSAVED")
            If (a <> last) And (a <> "") Then
                go()
            End If
        Catch ex As Exception

        End Try

    End Sub

    Sub go()
        If Not BackgroundWorker1.IsBusy Then
            Me.Focus()
            Me.BringToFront()
            Me.WindowState = FormWindowState.Minimized
            Me.WindowState = FormWindowState.Normal
            Me.Update()
            BackgroundWorker1.RunWorkerAsync()
        End If
    End Sub

    Private Sub Form1_Shown(sender As System.Object, e As System.EventArgs) Handles MyBase.Shown
        Timer1.Enabled = True
        go()
    End Sub


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If BackgroundWorker1.IsBusy Then
            MsgBox(ao)
        Else
            go()
        End If
    End Sub

    Private Sub BackgroundWorker1_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

        My.Computer.Audio.Play("vice\bghelper.wav")
        Shell("vice\xvic.exe vice\boraygammon.prg", AppWinStyle.NormalFocus, True)
      
        Try
            last = My.Computer.FileSystem.ReadAllText("vice\BGAMMONSAVED")
            Me.WindowState = FormWindowState.Minimized
        Catch ex As Exception

        End Try
      
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        If Not My.Computer.Info.InstalledUICulture.DisplayName.ToLower.Contains("svenska") Then
            Button1.Text = "Open the game"
            Me.Text = "gammon help"
            ao = "VICE is already open?"
            RichTextBox1.Text = Form2.RichTextBox1.Text
        End If
    End Sub

End Class