Imports System
Imports System.net
Imports System.IO
Imports System.Text
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Call Senden()
    End Sub
 
    Private Sub Senden()
        Dim strSenden As String
 
        strSenden = "Testing=1&CUPPath=" & System.Web.HttpUtility.UrlEncode( _
          "C:\CUP")
 
        Dim b() As Byte
        b = System.Text.Encoding.Default.GetBytes(strSenden)
        [u]SimplePostRequest("http://192.168.0.166:3000", b)
 
    End Sub
 
    Private Function SimplePostRequest(ByVal url As String, ByVal data() As _
      Byte) As String
        Dim req As HttpWebRequest = CType(WebRequest.Create(url), _
        HttpWebRequest)
        req.Timeout = 30000
 
        req.Method = "POST"
        req.ContentType = "application/x-www-form-urlencoded"
        req.ContentLength = data.Length
        req.KeepAlive = False
 
        Dim out As Stream = req.GetRequestStream()
        out.Write(data, 0, data.Length)
        out.Close()
 
        Dim resp As WebResponse = req.GetResponse()
        Dim sr As New StreamReader(resp.GetResponseStream())
        Dim res As String = sr.ReadToEnd()
        sr.Close()
        resp.Close()
        Return res
    End Function
 
    Private Function SimpleGetRequest(ByVal url As String) As String
        Dim req As WebRequest = WebRequest.Create(url)
        req.Method = "GET"
        Dim resp As WebResponse = req.GetResponse()
        Dim sr As New StreamReader(resp.GetResponseStream())
        Dim res As String = sr.ReadToEnd()
        sr.Close()
        resp.Close()
        Return res
    End Function
 
End Class