AtomikDesktop- OpenSource?

Imports System.Net
Imports System****
Imports System.Net.NetworkInformation
Imports Gecko


Public Class Form1

    Dim scutSet As Boolean = False
    Dim EditMode As Boolean = False
    Dim VidLocation As String
    Dim Vidsrc As String
    Dim atom As String = "Config.xml"
    Dim WebAct As Boolean = False
    Dim PicLocation As String = "Picture_Location"
    Dim ADTheme As String = "Atomik_Desktop_Theme"
    Dim Counter As Integer
    Private Sub ButtonItem6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem6.Click
        Me.Close()
        Splash.Close()
    End Sub

    Private Sub ButtonItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem1.Click
        TabControl1.SelectedPanel = TabControlPanel1
        ButtonItem1.Enabled = False
        ButtonItem2.Enabled = True
        ButtonItem3.Enabled = True
        ButtonItem4.Enabled = True
        ButtonItem5.Enabled = True

    End Sub

    Private Sub ButtonItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem2.Click
        TabControl1.SelectedPanel = TabControlPanel2
        ButtonItem2.Enabled = False
        ButtonItem1.Enabled = True
        ButtonItem3.Enabled = True
        ButtonItem4.Enabled = True
        ButtonItem5.Enabled = True
    End Sub

    Private Sub ButtonItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem3.Click
        TabControl1.SelectedPanel = TabControlPanel3
        ButtonItem3.Enabled = False
        ButtonItem2.Enabled = True
        ButtonItem1.Enabled = True
        ButtonItem4.Enabled = True
        ButtonItem5.Enabled = True
    End Sub

    Private Sub ButtonItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem4.Click
        TabControl1.SelectedPanel = TabControlPanel4
        ButtonItem4.Enabled = False
        ButtonItem2.Enabled = True
        ButtonItem3.Enabled = True
        ButtonItem1.Enabled = True
        ButtonItem5.Enabled = True
    End Sub

    Private Sub ButtonItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem5.Click
        TabControl1.SelectedPanel = TabControlPanel11
        ButtonItem5.Enabled = False
        ButtonItem2.Enabled = True
        ButtonItem3.Enabled = True
        ButtonItem4.Enabled = True
        ButtonItem1.Enabled = True
    End Sub

    Private Sub ButtonX4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX4.Click
        Dim launch4 As String
        Dim xdoc As New Xml.XmlDocument
        Dim NewElement As Xml.XmlElement
        xdoc.Load(atom)
        Dim MainNode As Xml.XmlNode = xdoc.Item("Main")
        Dim menuNode As Xml.XmlNode = MainNode.Item("Menus")
        Dim HomeNode As Xml.XmlNode = menuNode.Item("Home")
        Try
            If EditMode = True Then
                Dim ofd As New OpenFileDialog
                If ofd.ShowDialog() = DialogResult.OK Then
                    launch4 = ofd.SafeFileName
                    ButtonX4.Text = "This works Great Now::Launch:: " + launch4

                    NewElement = xdoc.CreateElement("Item")
                    NewElement.SetAttribute("SCLink", ofd.FileName)
                    NewElement.SetAttribute("SCImg", "imageHere")
                    HomeNode.AppendChild(NewElement)
                    NewElement.InnerText = launch4
                    xdoc.Save(atom)
                End If


            Else
                launch4 = HomeNode.ChildNodes(0).InnerText
                ButtonX4.Text = "Launch ::" + " " + launch4 + " NOW"
                Process.Start(launch4)
            End If
        Catch ex As Exception
            MessageBox.Show("Unable to Launch You Must Enter a App to Launch Please go to Edit Mode")
        End Try

    End Sub

    Private Sub ButtonX15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX15.Click
        If EditMode = False Then
            EditMode = True
            ButtonX15.Text = "Edit Mode -ON-"
        Else
            EditMode = False
            ButtonX15.Text = "Edit Mode -OFF-"
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        loadHome()
        Timer1.Start()
    End Sub

    Public Sub loadHome()
        Dim xdoc As New Xml.XmlDocument
        Dim NewElement As Xml.XmlElement
        xdoc.Load(atom)
        Dim MainNode As Xml.XmlNode = xdoc.Item("Main")
        Dim menuNode As Xml.XmlNode = MainNode.Item("Menus")
        Dim HomeNode As Xml.XmlNode = menuNode.Item("Home")
        Try
            ButtonX1.Text = HomeNode.ChildNodes(0).InnerText
            ButtonX2.Text = HomeNode.ChildNodes(1).InnerText
            ButtonX3.Text = HomeNode.ChildNodes(2).InnerText
            ButtonX4.Text = HomeNode.ChildNodes(3).InnerText
            ButtonX5.Text = HomeNode.ChildNodes(4).InnerText
            ButtonX6.Text = HomeNode.ChildNodes(5).InnerText
            ButtonX7.Text = HomeNode.ChildNodes(6).InnerText
            ButtonX8.Text = HomeNode.ChildNodes(7).InnerText
            ButtonX9.Text = HomeNode.ChildNodes(8).InnerText
            ButtonX10.Text = HomeNode.ChildNodes(9).InnerText
            ButtonX11.Text = HomeNode.ChildNodes(10).InnerText
            ButtonX12.Text = HomeNode.ChildNodes(11).InnerText
            ButtonX13.Text = HomeNode.ChildNodes(12).InnerText
            ButtonX14.Text = HomeNode.ChildNodes(13).InnerText
        Catch ex As Exception
            MessageBox.Show("You must First go into Edit Mode to Enter all Your Home Shortcuts No Shortcuts will show up until all of them are Finished" + vbCrLf + "Click the Edit Mode button on top Menu", "Error Cannot start Desktop")
        End Try


    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
        LabelX5.Text = PerformanceCounter1.NextValue.ToString + "%"
    End Sub

    Private Sub ButtonX16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX16.Click
        loadVidSrc()
    End Sub

    Private Sub ButtonX54_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX54.Click
        TabControl1.SelectedPanel = TabControlPanel7
    End Sub

    Private Sub ButtonX56_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX56.Click
        FolderBrowserDialog1.ShowDialog()
        vidFold.Text = FolderBrowserDialog1.SelectedPath
    End Sub
    Private Sub ButtonX55_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX55.Click
        Dim xdoc As New Xml.XmlDocument
        Dim NewElement As Xml.XmlElement
        xdoc.Load(atom)
        Dim MainNode As Xml.XmlNode = xdoc.Item("Main")
        Dim menuNode As Xml.XmlNode = MainNode.Item("Menus")
        Dim MediaNode As Xml.XmlNode = menuNode.Item("Media")
        Dim VideoNode As Xml.XmlNode = MediaNode.Item("Videos")
        NewElement = xdoc.CreateElement("Item")
        NewElement.SetAttribute("VLink", vidFold.Text)
        VideoNode.AppendChild(NewElement)
        NewElement.InnerText = vidName.Text


        xdoc.Save(atom)
        loadVidSrc()
    End Sub
    Public Sub loadVidSrc()

        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
        ListBox3.Items.Clear()
        vidLoc.Items.Clear()

        Dim xdoc As New Xml.XmlDocument
        Dim Video As Xml.XmlElement
        xdoc.Load(atom)
        Dim MainNode As Xml.XmlNode = xdoc.Item("Main")
        Dim menuNode As Xml.XmlNode = MainNode.Item("Menus")
        Dim MediaNode As Xml.XmlNode = menuNode.Item("Media")
        Dim VideoNode As Xml.XmlNode = MediaNode.Item("Videos")
        For Each Video In VideoNode
            ListBox1.Items.Add(Video.InnerText)
            Dim vidF As String = Video.GetAttribute("VLink").ToString
            vidLoc.Items.Add(vidF)
        Next
        TabControl1.SelectedPanel = TabControlPanel6
    End Sub
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        vidLoc.SelectedIndex = ListBox1.SelectedIndex

        Dim VidFolder As String = vidLoc.SelectedItem
        Dim avi As String()
        Dim wmv As String()
        avi = Directory.GetFiles(VidFolder, "*.avi")
        wmv = Directory.GetFiles(VidFolder, "*.wmv")
        For Each video In avi
            ListBox2.Items.Clear()
            Dim filename As String
            filename = Path.GetFileName(video)
            ListBox2.Items.Add(filename)
            ListBox3.Items.Add(video)


        Next
        For Each video In wmv
            ListBox3.Items.Clear()
            Dim filename As String
            filename = Path.GetFileName(video)
            ListBox2.Items.Add(filename)
            ListBox3.Items.Add(video)
        Next

    End Sub

    Private Sub ButtonX57_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX57.Click
        PanelEx5.Visible = False
        VPlayer.Visible = True
        AxWindowsMediaPlayer1.URL = ListBox3.SelectedItem
    End Sub

    Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
        ListBox3.SelectedIndex = ListBox2.SelectedIndex
        MTitle.Text = ListBox2.SelectedItem
        PanelEx5.Visible = True
        AxWindowsMediaPlayer1.Ctlcontrols.stop()
        VPlayer.Visible = False


    End Sub

    Private Sub ButtonX60_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX60.Click
        TabControl1.SelectedPanel = TabControlPanel9
    End Sub
    Public Sub webVideo()
        webVids.Items.Clear()
        webPath.Items.Clear()
        Dim xdoc As New Xml.XmlDocument
        Dim Video As Xml.XmlElement
        xdoc.Load(atom)
        Dim MainNode As Xml.XmlNode = xdoc.Item("Main")
        Dim menuNode As Xml.XmlNode = MainNode.Item("Menus")
        Dim MediaNode As Xml.XmlNode = menuNode.Item("Media")
        Dim WebNode As Xml.XmlNode = MediaNode.Item("Web")
        For Each Video In WebNode
            webVids.Items.Add(Video.InnerText)
            Dim vidF As String = Video.GetAttribute("VLink").ToString
            webPath.Items.Add(vidF)
        Next

    End Sub

    Private Sub webVids_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles webVids.SelectedIndexChanged
        webPath.SelectedIndex = webVids.SelectedIndex
        AxWindowsMediaPlayer2.URL = webPath.SelectedItem
    End Sub

    Private Sub ButtonX58_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX58.Click
        TabControl1.SelectedPanel = TabControlPanel8
        webVideo()
    End Sub

    Private Sub ButtonX59_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX59.Click
        Dim xdoc As New Xml.XmlDocument

        Dim NewElement As Xml.XmlElement
        xdoc.Load(atom)
        Dim MainNode As Xml.XmlNode = xdoc.Item("Main")
        Dim menuNode As Xml.XmlNode = MainNode.Item("Menus")
        Dim MediaNode As Xml.XmlNode = menuNode.Item("Media")
        Dim WebNode As Xml.XmlNode = MediaNode.Item("Web")
        NewElement = xdoc.CreateElement("Item")
        NewElement.SetAttribute("VLink", webLink.Text)
        WebNode.AppendChild(NewElement)
        NewElement.InnerText = WebName.Text


        xdoc.Save(atom)
        TabControl1.SelectedPanel = TabControlPanel8
        webVideo()
    End Sub

    Private Sub ButtonX64_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX64.Click
        FolderBrowserDialog1.ShowDialog()
        picFolder.Text = FolderBrowserDialog1.SelectedPath

    End Sub

    Private Sub ButtonX63_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX63.Click
        Dim xdoc As New Xml.XmlDocument

        Dim NewElement As Xml.XmlElement
        xdoc.Load(atom)
        Dim MainNode As Xml.XmlNode = xdoc.Item("Main")
        Dim menuNode As Xml.XmlNode = MainNode.Item("Menus")
        Dim MediaNode As Xml.XmlNode = menuNode.Item("Settings")
        Dim imageNode As Xml.XmlNode = MediaNode.Item("Pictures")
        NewElement = xdoc.CreateElement(PicLocation)
        imageNode.AppendChild(NewElement)
        NewElement.InnerText = picFolder.Text

        xdoc.Save(atom)
        MessageBox.Show("Settings Saved", "Successfull")
    End Sub

    Private Sub ButtonX17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX17.Click
        loadPicsSrc()

    End Sub
    Public Sub loadPicsSrc()
        PicList.Items.Clear()
        Try
            Dim xdoc As New Xml.XmlDocument

            Dim image As Xml.XmlElement
            xdoc.Load(atom)
            Dim MainNode As Xml.XmlNode = xdoc.Item("Main")
            Dim menuNode As Xml.XmlNode = MainNode.Item("Menus")
            Dim MediaNode As Xml.XmlNode = menuNode.Item("Settings")
            Dim imageNode As Xml.XmlNode = MediaNode.Item("Pictures")
            For Each image In imageNode
                Dim AtomikPic As String()
                AtomikPic = Directory.GetFiles(image.InnerText)
                For Each ImG In AtomikPic

                    PicList.Items.Add(ImG)
                Next
            Next
            Counter = PicList.Items.Count - 1
            PicList.SelectedIndex = PicList.SelectedIndex + 1
            TabControl1.SelectedPanel = TabControlPanel10
            PictureBox1.Load(PicList.SelectedItem)
        Catch ex As Exception
            MessageBox.Show("You must Set your Picture Location First" + vbCrLf + "Use the Settings Tab and Set your Location Then you will be able to use the Pictures ", "ERROR")
        End Try

    End Sub

    Private Sub PicList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PicList.SelectedIndexChanged
        PictureBox1.Load(PicList.SelectedItem)
    End Sub

    Private Sub ButtonX62_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX62.Click
        If PicList.SelectedIndex = Counter Then
            PicList.SelectedIndex = 0
        Else
            PicList.SelectedIndex = PicList.SelectedIndex + 1
        End If
    End Sub

    Private Sub ButtonX61_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX61.Click
        If PicList.SelectedIndex = 0 Then
            PicList.SelectedIndex = Counter
        Else
            PicList.SelectedIndex = PicList.SelectedIndex - 1
        End If
    End Sub

    Private Sub PlayName_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayName.SelectedIndexChanged
        Playlist.SelectedIndex = PlayName.SelectedIndex
        Timer2.Start()

        AxWindowsMediaPlayer3.URL = Playlist.SelectedItem
        Label3.Text = PlayName.SelectedItem
    End Sub

    Private Sub ButtonX18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX18.Click
        TabControl1.SelectedPanel = TabControlPanel5
        AxWindowsMediaPlayer3.uiMode = "none"
    End Sub

    Private Sub ButtonItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem7.Click
        OpenFileDialog2.ShowDialog()
        For I As Integer = 0 To OpenFileDialog2.FileNames.Count - 1
            PlayName.Items.Add(OpenFileDialog2.SafeFileNames(I))
            Playlist.Items.Add(OpenFileDialog2.FileNames(I))
        Next
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Label3.Text = "Now Playing:: " + PlayName.SelectedItem
        Label3.Left -= 2
        If Label3.Left <= -Width Then
            Label3.Left = Width
        End If
    End Sub

    Private Sub ButtonX52_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX52.Click
        TabControl1.SelectedPanel = TabControlPanel12
        GeckoWebBrowser1.Navigate("http://youtube.com")
    End Sub
End Class