Web post form

eksempel:

Imports System
imports System.IO
Imports System.Net

Module Main
    Sub Main()
        Dim url As String = "http://www.domain.dk/foobar.asp"
        Dim req As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
        req.Method = "POST"
        req.ContentType = "application/x-www-form-urlencoded"
        Dim post As StreamWriter = new StreamWriter(req.GetRequestStream)
        post.Write("field1=value1&field2=value2")
        post.Close()
        Dim resp As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
        Dim stm As Stream = resp.GetResponseStream
        Dim c As Integer
        Dim more As boolean = true
        While (more)
            c = stm.ReadByte
            If (c >= 0) Then
                Console.Write(Convert.ToChar(c))
            Else
                more = false
            End If
        End While
        stm.Close
        resp.Close
    End Sub
End Module

Det er

post.Write("field1=value1&field2=value2")

som sætter felterne (husk at URL encode hvis det ikke er rene bogstaver og tal)

Dim stm As Stream = resp.GetResponseStream
        Dim c As Integer
        Dim more As boolean = true
        While (more)
            c = stm.ReadByte
            If (c >= 0) Then
                Console.Write(Convert.ToChar(c))
            Else
                more = false
            End If
        End While
        stm.Close

bør iøvrigt laves som

Dim sr As StreamReader = New StreamReader(resp.GetResponseStream)
Console.WriteLine(sr.ReadToEnd)
sr.Close

men det har ikke så meget med POST at gøre

og et svar

det er jo bare SUPPER ;) så er det bare det svar igen som mangler, ligger du det ikke :)


og hvis jeg kunne lokke så se lige på http://www.eksperten.dk/spm/626530

ok. man skal jo også opdaterer sin browser ;)