Kiami_Desktop/Kiami_Desktop/Form1.vb



Public Class Form1
    Public Const sLoginString As String = "/index.php?a=checklogin"

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

        Form2.loadsettings()

        connect()

    End Sub


    Private Sub ConfigurationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConfigurationToolStripMenuItem.Click
        Form2.Show()
    End Sub

    Private Sub ConnectToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConnectToolStripMenuItem.Click
        connect()
    End Sub

    Public Sub connect()
        Dim sMyLoginName As String = "test"
        If Not Form2.getSettings.loginname = "" Then
            sMyLoginName = Form2.getSettings.loginname
        End If

        Dim sMyPassword As String = "test"
        If Not Form2.getSettings.loginpassword = "" Then
            sMyPassword = Form2.getSettings.loginpassword
        End If

        Dim parameters As String = String.Format("name={0}&password={1}", sMyLoginName, sMyPassword)

        Dim navigateURL As String = "http://123.123.123.123/test.php"
        If Not Form2.getSettings.server = "" Then
            navigateURL = Form2.getSettings.server + sLoginString
        End If

        Dim parameterbyte As Byte() = System.Text.Encoding.UTF8.GetBytes(parameters)
        WebBrowser1.ScrollBarsEnabled = False
        WebBrowser1.Navigate(New Uri(navigateURL), "_self", parameterbyte, "Content-Type: application/x-www-form-urlencoded")
    End Sub

End Class