Keskustelu: Ohjelmointikysymykset: VB.NET: [VB .NET] HttpWebRequest

 ' frameset URL. Kirajutumisesta on saatu cookie ja maid-parametri
 URL = "https://intra.hva.dom/Serv/WrappedFramesetSub.aspx?HiddenFrame=True&LeftWidth=660&left=Dyn/Sup.aspx " & maid
 'Uusi haku salasanasuojatulle sivulle
 httpReq = CType(WebRequest.Create(URL), HttpWebRequest)
 httpReq.ClientCertificates.Add(certificate)
 'Aiemmin hankittu keksi
 httpReq.CookieContainer = cookie
 httpReq.AllowAutoRedirect = True
 'Luetaan sivu
 httpReq.KeepAlive = True
 'Luetaan sivu
 response = CType(httpReq.GetResponse(), HttpWebResponse)
 Str = New StreamReader(response.GetResponseStream()).ReadToEnd()
 Dim supermaid As String = ExtractMaid(Str ", "Dyn", "'")

 ' Haetaan haluttu tieto
 URL = "https://intra.hva.dom/Serv/" & supermaid
 'Uusi haku salasanasuojatulle sivulle
 httpReq = CType(WebRequest.Create(URL), HttpWebRequest)
 ‘Sivunston vaatima sertti pidetävä mukana
 httpReq.ClientCertificates.Add(certificate)
'Aiemmin kirjautumisesta saatu keksi
 httpReq.CookieContainer = cookie
  'Ilman tätä tulee Object moved
  httpReq.AllowAutoRedirect = True
 'Luetaan sivu
 response = CType(httpReq.GetResponse(), HttpWebResponse)
 Str = New StreamReader(response.GetResponseStream()).ReadToEnd()
 'Tallennetaan sivu
 Console.WriteLine("RequestUri:")
 Console.WriteLine(httpReq.RequestUri)
 Console.WriteLine("ResponseUri:")
 Console.WriteLine(response.ResponseUri)

'väännetty SharpDevelop 4.0:lla
Imports System
Imports System.Threading
Imports Microsoft.VisualStudio.OLE.Interop
Imports mshtml 'Microsoft.mshtml

Module Program

   'testi URL...
   Private baseUrl As String = _
   "http://www.elisanet.fi/nea.fi/frametest/" 'index.html

   Private objMSHTML As New HTMLDocument
   Private objDocument As IHTMLDocument2
   Private ips As IPersistStreamInit = _
   CType(objMSHTML, IPersistStreamInit)

   Sub Main()

      ips.InitNew
      objDocument = _
      objMSHTML.createDocumentFromUrl(baseUrl, "")

      While objDocument.readyState <> "complete"
         'Huom tuo refernssi System.Windows.Forms
         System.Windows.Forms.Application.DoEvents
         Thread.Sleep(100)
      End While

      Dim theDoc As HTMLDocument = _
      CType(objDocument, HTMLDocument)

      Dim htmlFrames As IHTMLElementCollection = _
      theDoc.getElementsByTagName("frame")

      If htmlFrames.length > 0 Then

         For i As Integer = 0 To htmlFrames.length - 1

            Dim frameNode As IHTMLDOMNode = _
            CType(htmlFrames.item(i),IHTMLDOMNode)
            Dim AttrColl As IHTMLAttributeCollection = _
            CType (frameNode.attributes, IHTMLAttributeCollection)
            Dim frameUrl As String = String.Empty

            For Each objItem As IHTMLDOMAttribute2 In AttrColl
               With objItem
                  If .name = "src" Then
                     If .value.Contains("://") Then
                        frameUrl = .value
                     Else
                        frameUrl = baseUrl + .value 'esim.
                     End If
                     Console.WriteLine(frameUrl)
                  End If
               End With
            Next objItem

            AttrColl = Nothing
            frameNode = Nothing

         Next i

      Else
         Console.WriteLine("Requested page has no frame elements!")
      End If

      htmlFrames = Nothing
      theDoc = Nothing
      ips = Nothing
      objDocument = Nothing
      objMSHTML = Nothing

      Console.Write("Press any key to continue . . . ")
      Console.ReadKey(True)

   End Sub

End Module

'ConsoleApp
Imports System.IO
Imports System.Text
Imports System.Net

Module Program

   Private baseURL As String = _
   "http://aspspider.net/neoweb/Serv/"

   Sub Main()

      Dim request As HttpWebRequest = _
      CType(WebRequest.Create(baseURL + _
      "WrappedFramesetSub.aspx"), HttpWebRequest)

      Dim response As HttpWebResponse = _
      CType(request.GetResponse(), System.Net.HttpWebResponse)

      Dim content As String = _
      New StreamReader(response.GetResponseStream()).ReadToEnd()
      response.Close()

      If content.ToUpper.Contains("FRAMESET") Then

         Dim strArray() As String = content.Split(CType("'", Char))
         Dim frameURL As String = String.Empty

         For i As Integer = 0 To strArray.Length -1
            If strArray(i).Contains("Dyn/") Then
               If strArray(i).Contains("://") Then
                  frameURL = strArray(i)
               Else
                  frameURL = baseURL + strArray(i)
               End If
               Exit For
            End If
         Next

         If frameURL = String.Empty
	    Console.WriteLine("No matching found")
            GoTo ExitProg
         End If

         Dim cookies As CookieContainer = New CookieContainer

         request = _
         CType(WebRequest.Create(frameURL), HttpWebRequest)

         Dim postData As String = "terve=moro&moro=terve"

         request.UserAgent = _
         "Mozilla/5.0 (Windows; U; Windows NT 5.1; fi; rv:1.9.0.5) " _
         + "Gecko/2008120122 Firefox/3.0.5 (.NET CLR 3.5.30729)"
         request.Method = "POST"
         request.AllowAutoRedirect = True
         request.ContentType = "application/x-www-form-urlencoded"
         request.CookieContainer = cookies
         request.ContentLength = postData.Length

         Dim requestStream As Stream = request.GetRequestStream()

         Dim postBytes As Byte() = _
         Encoding.Default.GetBytes(postData)
         requestStream.Write(postBytes, 0, postBytes.Length)
         requestStream.Close()
	 postBytes = Nothing
	 cookies = Nothing

         response = _
         CType(request.GetResponse(), HttpWebResponse)
         response.Close

         For Each item As Cookie In response.Cookies
            With item
               If .Name = "location" Then
                  Console.WriteLine(.Value): Exit For
               End If
            End With
         Next

      Else
         Console.WriteLine("Requested page has no frames")
      End If

ExitProg:

      response = Nothing
      request = Nothing
      Console.Write("Press any key to continue . . . ")
      Console.ReadKey(True)

   End Sub

End Module

<%@ Page Language="VB"%>
<%@ Import Namespace="System.Web" %>