vb

  Function URLEncode(ByVal EncodeStr As String) As String
        Dim i As Integer
        Dim erg As String
        erg = EncodeStr
        ' *** First replace '%' chr
        erg = Replace(erg, "%", Chr(1))
        ' *** then '+' chr
        erg = Replace(erg, "+", Chr(2))
        For i = 0 To 255
            Select Case i
                ' *** Allowed 'regular' characters
                Case 37, 43, 48 To 57, 65 To 90, 97 To 122
                Case 1  ' *** Replace original %
                    erg = Replace(erg, Chr(i), "%25")
                Case 2  ' *** Replace original +
                    erg = Replace(erg, Chr(i), "%2B")
                Case 32
                    erg = Replace(erg, Chr(i), "+")
                Case 3 To 15
                    erg = Replace(erg, Chr(i), "%0" & Hex(i))
                Case Else
                    erg = Replace(erg, Chr(i), "%" & Hex(i))
            End Select
        Next
        URLEncode = erg
    End Function

    Private Sub PostData()
        Dim URL As String
        Dim myData As String
        URL = "http://localhost/latihan_vb/"
        myData = "email=" & URLEncode(Me.TextBox1.Text) & "&kode_unik=" & URLEncode(Me.TextBox2.Text)
        On Error GoTo Hell
        Dim objXMLHttp As New XMLHTTP
        objXMLHttp.open("POST", URL, False)
        objXMLHttp.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
        objXMLHttp.send(myData)
        'MsgBox(objXMLHttp.responseText)
        objXMLHttp = Nothing
        Exit Sub
Hell:
        MsgBox("Ada Masalah Dalam Pengiriman Data ke Internet")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim READER As MySqlDataReader
        Try
            Dim QUERY As String
            QUERY = "email=" & URLEncode(Me.TextBox1.Text) & "&password=" & URLEncode(Me.TextBox2.Text)
            COMMAND = New MySqlCommand(QUERY)
            READER = COMMAND.ExecuteReader
            Dim count As Integer
            count = 0
            While READER.Read
                id_user = READER("id_user").ToString()
                email = READER("email").ToString()
                nama_lengkap = READER("nama_lengkap").ToString()
                count = count + 1
            End While
            Dim objXMLHttp As New XMLHTTP
            If objXMLHttp.responseText = "1" Then
                MessageBox.Show("Login Berhasil")
                InsertDL(id_user, email, nama_lengkap)
                Me.Hide()
                Form2.id_user = id_user
                Form2.email = email
                Form2.nama_lengkap = nama_lengkap
                Form2.Show()
            ElseIf objXMLHttp.responseText > "1" Then
                MessageBox.Show("Email And Password Duplikat")
                TextBox1.Focus()
            Else
                MessageBox.Show("Email And Password Salah")
                TextBox1.Focus()
                TextBox1.Clear()
                TextBox2.Clear()
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message & " - " & ex.StackTrace)
        Finally
            'MySqlConn.Dispose()
        End Try
End Sub