Well, haven't done such thing in VB but isn't it that simple
Dim inputData As String = "[search-term]"
Dim postData As String = "param1=" + inputData
myHttpWebRequest.ContentType = "application/x-www-form-urlencoded"
Dim response As String = Encoding.UTF8.GetString(myHttpWebRequest.UploadData(url , "POST", Encoding.UTF8.GetBytes(postData)))
As WShell-Script I only have used this code, but it opens an IE window.
On Error Resume Next
strURL = "http://www.cover-paradies.to/?Module=SimpleSearch"
param2 = WScript.Arguments(0)
param3 = WScript.Arguments(1)
Set IE_Instanz = CreateObject("InternetExplorer.Application")
Do While IE_Instanz.Busy
Loop
IE_Instanz.Visible = 1
IE_Instanz.Navigate strURL
Do While IE_Instanz.ReadyState <> 4
Loop
Set IE_Doc = IE_Instanz.Document
IE_Doc.all.Page.value = "0"
IE_Doc.all.SearchString.value = param2
IE_Doc.all.Sektion.value = param3
IE_Doc.all.B1.Click
Set IE_Doc = Nothing
Set IE_Instanz = Nothing
in VBNet
Dim req As Net.HttpWebRequest
Dim resp As Net.HttpWebResponse
Dim str, str2 As IO.Stream
Dim cookies As Net.CookieContainer
Dim buffer As String
Dim data As Byte() = System.Text.Encoding.ASCII.GetBytes(*postdata*)
req = Net.WebRequest.Create(url)
req.CookieContainer = cookies
req.Method = "POST"
req.Accept = "*/*"
req.Headers.Add(Net.HttpRequestHeader.AcceptLanguage, "de")
req.Headers.Add("UA-CPU", "x86")
req.Headers.Add(Net.HttpRequestHeader.AcceptEncoding, "gzip, deflate")
'Fürn Post Request den ContentType & Lenght + Data
req.ContentType = "application/x-www-form-urlencoded"
req.ContentLength = data.Length
str2 = req.GetRequestStream()
str2.Write(data, 0, data.Length)
str2.Close()
resp = req.GetResponse
str = resp.GetResponseStream()
If (resp.ContentEncoding.ToLower().Contains("gzip")) Then
str = New IO.Compression.GZipStream(str, IO.Compression.CompressionMode.Decompress)
ElseIf (resp.ContentEncoding.ToLower().Contains("deflate")) Then
str = New IO.Compression.DeflateStream(str, IO.Compression.CompressionMode.Decompress)
End If
buffer = New IO.StreamReader(str, System.Text.Encoding.ASCII).ReadToEnd 'only for ASCII
Magic Script Bug?
Posted - 07 Apr 2011 : 10:01:30
