request.querystring i en vb.net winform
Hej.Jeg bruger denne kode til at lytte efter http requests:
Mit problem er at jeg ikke kan finde ud af hvordan jeg kan spørge på de forskellige variabler der bliver sendt med i http-strengen. f.eks: http://minserver.dk/test.asp?var1=hej&var2=du
Hvordan kan jeg spørge på var1 og var2 ...??
Imports System
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Module Module1
Sub Main()
Dim Server As New HttpServer
Server.Main()
End Sub
End Module
Public Class HttpServer
Public Shared Sub Main()
Dim server As TcpListener = New TcpListener(IPAddress.Any, 81)
server.Start()
While True
Try
Dim client As TcpClient = server.AcceptTcpClient
Dim rdr As StreamReader = New StreamReader(client.GetStream)
Dim wrt As StreamWriter = New StreamWriter(client.GetStream)
Dim request As String = rdr.ReadLine
Dim path As String = request.Split" ".ToCharArray)(1)
Dim line As String
line = rdr.ReadLine
While line <> ""
line = rdr.ReadLine
End While
Console.WriteLine(path)
wrt.WriteLine("HTTP/1.1 200 OK")
wrt.WriteLine("Content-Type: text/plain")
wrt.WriteLine()
wrt.WriteLine("Du bad om " + path)
wrt.Flush()
rdr.Close()
wrt.Close()
client.Close()
Catch e As Exception
Console.WriteLine(e)
End Try
End While
server.Stop()
End Sub
End Class