Private Sub hermanni(ByVal url As String)
      Dim browser As New WebBrowser
      browser.Navigate(url)

      While browser.IsBusy = True
         Application.DoEvents()
      End While

      Dim value = parsaa(browser.Document)
   End Sub

   Private Function parsaa(ByVal document As HtmlDocument) As String
      For Each Form As HtmlElement In document.Forms
         For Each Input As HtmlElement In Form.GetElementsByTagName("input")
            If Input.GetAttribute("type") = "hidden" And Input.GetAttribute("name") = "upload_id" And Input.GetAttribute("value").Length = 55 Then
               Return Input.GetAttribute("value")
            End If
         Next
      Next
      Return ""
   End Function