Public Sub UpdateFirmware(ByVal strUploadUPG As String, ByVal strUploadMD5 _
      As String, ByVal IP As String, ByVal user As String, ByVal passwort As _
      String)
        Dim url, objFileName, objFileName2, contenttype, contenttype2, Referer _
        As String
        url = "http://" & IP & "/cgi-bin/update?FIRMWARE_SAVE"
        objFileName = "URL_FIRMWARE_IMAGE"
        objFileName2 = "URL_FIRMWARE_MD5"
        contenttype = "application/x-gzip-compressed"
        contenttype2 = "application/octet-stream"
        Referer = "http://" & IP & "/cgi-bin/update?USER=" & user & "&PWD=" & _
          passwort & "&FIRMWARE"
 
        Dim postdata As String = ""
 
        Dim uri As New Uri(url + postdata)
        'generate a unique boundary
        Dim boundary As String
        Dim strTemp As String
        strTemp = DateTime.Now.Ticks.ToString("x")
        boundary = StrDup(39 - strTemp.Length, "-") & strTemp
        'webRequest POST header
        Dim webrequest As HttpWebRequest = CType(HttpWebRequest.Create(uri), _
          HttpWebRequest)
        webrequest.Accept = "image/jpeg, application/x-ms-application," & _
        "image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap," & _
        "application/x-shockwave-flash, application/vnd.ms-excel," & _
        "application/vnd.ms-powerpoint, application/msword, */*"
        webrequest.Referer = Referer
        webrequest.Headers.Add("Accept-Language", "de-AT")
        webrequest.UserAgent = "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT" & _
          "6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729;" & _
          ".NET CLR 3.0.30729; Media Center PC 6.0; .NET CLR 1.1.4322; Tablet" & _
          "PC 2.0; InfoPath.3)"
 
        webrequest.ContentType = "multipart/form-data; boundary=" + boundary
 
        webrequest.Headers.Add("Accept-Encoding", "gzip, deflate")
        'webrequest.Headers.Add("Host", IP)
        webrequest.KeepAlive = True
        webrequest.Headers.Add("Cache-Control", "no-cache")
        'webrequest.CookieContainer = cookies
        webrequest.Method = "POST"
        webrequest.ProtocolVersion = HttpVersion.Version11
        webrequest.AllowAutoRedirect = False
        'MIME Multipart Media Encapsulation
        Dim sb As New StringBuilder
        'sb.Append("--")
        sb.Append(boundary)
        sb.Append(vbCrLf)
        sb.Append("Content-Disposition: form-data; name=""")
        sb.Append(objFileName)
        sb.Append("""; filename=""")
        sb.Append(Path.GetFileName(strUploadUPG))
        sb.Append("""")
        sb.Append(vbCrLf)
        sb.Append("Content-Type: ")
        sb.Append(contenttype)
        sb.Append(vbCrLf)
        sb.Append(vbCrLf)
        Dim postHeader As String = sb.ToString()
        Dim postHeaderBytes As Byte() = Encoding.ASCII.GetBytes(postHeader)
 
        Dim sba As New StringBuilder
 
        sba.Append(vbCrLf)
        'sba.Append("--")
        sba.Append(boundary)
        sba.Append(vbCrLf)
        sba.Append("Content-Disposition: form-data; name=""")
        sba.Append(objFileName2)
        sba.Append("""; filename=""")
        sba.Append(Path.GetFileName(strUploadMD5))
        sba.Append("""")
        sba.Append(vbCrLf)
        sba.Append("Content-Type: ")
        sba.Append(contenttype2)
        sba.Append(vbCrLf)
        sba.Append(vbCrLf)
        Dim postHeadera As String = sba.ToString()
        Dim postHeaderBytesa As Byte() = Encoding.ASCII.GetBytes(postHeadera)
 
 
 
        Dim sb1 As New StringBuilder
 
        sb1.Append(vbCrLf)
        sb1.Append("--")
        sb1.Append(boundary)
        sb1.Append(vbCrLf)
        sb1.Append("Content-Disposition: form-data; name=""")
        sb1.Append("URL_FIRMWARE_SUBMIT")
        sb1.Append(Chr(34))
        sb1.Append(vbCrLf)
        sb1.Append(vbCrLf)
        sb1.Append("Apply")
        Dim postFoot As String = sb1.ToString()
        Dim postFootBytes As Byte() = Encoding.ASCII.GetBytes(postFoot)