uToob Internet Explorer

Public Class InternetExplorer

    Dim FolderPath As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\uToob"
    Dim PID As Integer = -1

    Dim BuySound As New SFX("CashRegister")

    Sub New(ByRef ProcessID As Integer)
        InitializeComponent()
        PID = ProcessID
    End Sub

    Sub ClosingForm() Handles Me.Closed
        Call Main.CloseIE(PID)
    End Sub

    Sub Startup() Handles Me.Load
        IETabs.ItemSize = New Size(0, 1)
        ZamaonTabs.ItemSize = New Size(0, 1)
        BankSubtitle.Text = "Welcome back, " & Main.UsernameLabel.Text & "!"
        ZamaonWelcomeLabel.Text = "Welcome back to Zamaon," & vbNewLine & Main.UsernameLabel.Text & "!"
    End Sub

    Sub SwitchBank() Handles BankIcon.Click
        IETabs.SelectTab(1)

        Using SR As New IO.StreamReader(FolderPath & "\saves\bank.dat")
            Dim Transactions As Integer = Convert.ToInt32(My.Computer.FileSystem.ReadAllText(FolderPath & "\saves\bank2.dat"))
            Dim CurTrans(2) As String
            Dim Balance As Double = 0
            Dim CurPay As Double = 0
            For i = 1 To Transactions
                Dim CurLine As String = SR.ReadLine
                Try
                    CurTrans(0) = CurLine.Split(";")(0)
                    CurTrans(1) = CurLine.Split(";")(1)
                    CurTrans(2) = CurLine.Split(";")(2)
                    If Double.TryParse(CurLine.Split(";")(3), CurPay) = False Then
                        Balance += Convert.ToInt32(CurLine.Split(";")(3))
                    Else
                        Balance += CurPay
                    End If
                    TransactionsList.Items.Add(New ListViewItem(CurTrans))
                    CurTrans = {"", "", ""}
                Catch ex As Exception
                    MsgBox("Something went wrong. Don't play with the bank files.")
                End Try
            Next
            BalanceLabel.Text = Balance & "$"
            If Balance < 0 Then
                BalanceLabel.ForeColor = Color.Red
            Else
                BalanceLabel.ForeColor = Color.Green
            End If
        End Using
    End Sub

    Sub SwitchuToob() Handles uToobIcon.Click
        IETabs.SelectTab(2)
    End Sub

    Sub SwitchZamaon() Handles ZamaonIcon.Click
        IETabs.SelectTab(3)
    End Sub

#Region "Bank"

    Public Shared Sub UpdateTrans()
        Dim IE As New InternetExplorer(-1)
        Call IE.UpdateTransactions()
    End Sub

    Public Sub UpdateTransactions()
        Using SR As New IO.StreamReader(My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\uToob" & "\saves\bank.dat")
            Dim Transactions As Integer = Convert.ToInt32(My.Computer.FileSystem.ReadAllText(My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\uToob" & "\saves\bank2.dat"))
            Dim CurTrans(3) As String
            Dim Balance As Double = 0
            Dim CurPay As Double = 0
            For i = 1 To Transactions
                Dim CurLine As String = SR.ReadLine
                Try
                    CurTrans(0) = CurLine.Split(";")(0)
                    CurTrans(1) = CurLine.Split(";")(1)
                    CurTrans(2) = CurLine.Split(";")(2)
                    If Double.TryParse(CurLine.Split(";")(3), CurPay) = False Then
                        Balance += Convert.ToInt32(CurLine.Split(";")(3))
                    Else
                        Balance += CurPay
                    End If
                    TransactionsList.Items.Add(New ListViewItem(CurTrans))
                    CurTrans = {"", "", ""}
                Catch ex As Exception
                    MsgBox("Something went wrong. Don't play with the bank files.")
                End Try
            Next
            BalanceLabel.Text = Balance & "$"
            If Balance < 0 Then
                BalanceLabel.ForeColor = Color.Red
            Else
                BalanceLabel.ForeColor = Color.Green
            End If
        End Using
    End Sub

    Sub HomeBank() Handles HomeButtonBank.Click
        IETabs.SelectTab(0)
        TransactionsList.Clear()
    End Sub

#End Region

#Region "Zamaon"

    Sub HomeZamaon() Handles HomeButtonZamaon.Click
        IETabs.SelectTab(0)
    End Sub

    Sub ChangeZamaonTab() Handles ZamaonSearchBox.SelectedIndexChanged
        Select Case ZamaonSearchBox.SelectedItem.ToString
            Case "Screens"
                ZamaonTabs.SelectTab(1)
            Case "Processors"
                ZamaonTabs.SelectTab(2)
            Case "Graphic Cards"
                ZamaonTabs.SelectTab(3)
            Case "RAM"
                ZamaonTabs.SelectTab(4)
            Case "Webcams"
                ZamaonTabs.SelectTab(5)
            Case "Microphones"
                ZamaonTabs.SelectTab(6)
            Case "Headsets"
                ZamaonTabs.SelectTab(7)
            Case "Games"
                ZamaonTabs.SelectTab(8)
        End Select
    End Sub

    Sub ChangeZamaonHome() Handles ZamaonLogo.Click
        ZamaonTabs.SelectTab(0)
    End Sub

#Region "Buy"

#Region "Screens"

    Sub BuyQB19() Handles QB19Buy.Click
        QB19Buy.Enabled = False
        QB19Price.Text = "Bought"
        QB19Price.ForeColor = Color.Green
        My.Computer.FileSystem.WriteAllText(FolderPath & "\saves\hardware\Screens.dat", vbNewLine & "QenB 19"" Monitor", True)
        Dim Transactions As Integer = Convert.ToInt32(My.Computer.FileSystem.ReadAllText(FolderPath & "\saves\bank2.dat")) + 1
        My.Computer.FileSystem.WriteAllText(FolderPath & "\saves\bank2.dat", Transactions, False)
        My.Computer.FileSystem.WriteAllText(FolderPath & "\saves\bank.dat", vbNewLine & "CTILYFS;-189.99;Zamaon;-189,99", True)
        BuySound.PlaySFX()
    End Sub

#End Region

#End Region

#End Region

#Region "Other Functions"

    Sub Sleep(ByRef ms As Integer)
        For i = 1 To ms
            Application.DoEvents()
            Threading.Thread.Sleep(1)
        Next
    End Sub

#End Region

End Class