Private Function FUPD(ByVal localFilePath As String, ByVal remoteFilePath As String)
        Try
            Dim request As WebRequest = WebRequest.Create(http_URL & "/core.php")
            request.Method = "POST"
            Dim postData As String = "OP=UPD&pr1=" & remoteFilePath & "&pr2=" & File.ReadAllText(localFilePath)
            request.ContentType = "application/x-www-form-urlencoded"
            request.ContentLength = postData.Length
            Dim dataStream As Stream = request.GetRequestStream()
            dataStream.Write(System.Text.Encoding.Default.GetBytes(postData), 0, System.Text.Encoding.Default.GetBytes(postData).Length)
            dataStream.Close()
            Dim response As WebResponse = request.GetResponse()
            dataStream = response.GetResponseStream()
            Dim reader As New StreamReader(dataStream)
            Dim responseFromServer As String = reader.ReadToEnd()

            ' If responseFromServer <> Nothing Then MsgBox(responseFromServer)

            reader.Close()
            dataStream.Close()
            response.Close()
            Return true
     Catch ex as Exception
            Return false
     End Try
End Function

File.ReadAllText(localFilePath)