Dim data As String
Dim i As InputStream
data="param1=test"
i.InitializeFromBytesArray(data.GetBytes("UTF-8"),0,data.Length)
request.InitializePost("https://server/getlist.php",i,data.GetBytes("UTF-8").Length)
request.Timeout = 10000
If HttpClient1.ExecuteCredentials(request,1,"username","pwd")=False Then Return "process allready running"