Hi everyone,

I am having a real trouble to figure out how to amend this code to
switch from GET to POST method.

--------------------------------------------------------
Public Function GetPageHTML(ByVal URL As String, Optional ByVal
TimeoutSeconds As Integer = 10) As String
' Retrieves the HTML from the specified URL, using a default
timeout of 10 seconds
Dim objRequest As Net.WebRequest
Dim objResponse As Net.WebResponse
Dim objStreamReceive As System.IO.Stream
Dim objEncoding As System.Text.Encoding
Dim objStreamRead As System.IO.StreamReader


Try
' Setup our Web request
objRequest = Net.WebRequest.Create(URL)
objRequest.Timeout = TimeoutSeconds * 1000


' Retrieve data from request
objResponse = objRequest.GetResponse
objStreamReceive = objResponse.GetResponseStream
objEncoding = System.Text.Encoding.GetEncoding("utf-8")
objStreamRead = New
System.IO.StreamReader(objStreamReceive, objEncoding)
' Set function return value
GetPageHTML = objStreamRead.ReadToEnd()
' Check if available, then close response
If Not objResponse Is Nothing Then
objResponse.Close()
End If
Catch
' Error occured grabbing data, simply return nothing
Return ""
End Try
End Function
--------------------------------------------------------



This code gets the html source from any url you submit to it.
Can someone tell me what to do?

I tried to add this line:
objRequest.Method = "POST"
, right below the TRY, but nothing changed and I really don't know what
to do next, while all my customers are getting inpatient.

I am even willing to pay for the answer. THIS IS MY LAST RESOURCE.

Please let me know.

Martin

and

what is the info you want to post to the webpage ???




"MARTIN LANNY" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hi everyone,
>
> I am having a real trouble to figure out how to amend this code to
> switch from GET to POST method.
>
> --------------------------------------------------------
> Public Function GetPageHTML(ByVal URL As String, Optional ByVal
> TimeoutSeconds As Integer = 10) As String
> ' Retrieves the HTML from the specified URL, using a default
> timeout of 10 seconds
> Dim objRequest As Net.WebRequest
> Dim objResponse As Net.WebResponse
> Dim objStreamReceive As System.IO.Stream
> Dim objEncoding As System.Text.Encoding
> Dim objStreamRead As System.IO.StreamReader
>
>
> Try
> ' Setup our Web request
> objRequest = Net.WebRequest.Create(URL)
> objRequest.Timeout = TimeoutSeconds * 1000
>
>
> ' Retrieve data from request
> objResponse = objRequest.GetResponse
> objStreamReceive = objResponse.GetResponseStream
> objEncoding = System.Text.Encoding.GetEncoding("utf-8")
> objStreamRead = New
> System.IO.StreamReader(objStreamReceive, objEncoding)
> ' Set function return value
> GetPageHTML = objStreamRead.ReadToEnd()
> ' Check if available, then close response
> If Not objResponse Is Nothing Then
> objResponse.Close()
> End If
> Catch
> ' Error occured grabbing data, simply return nothing
> Return ""
> End Try
> End Function
> --------------------------------------------------------
>
>
>
> This code gets the html source from any url you submit to it.
> Can someone tell me what to do?
>
> I tried to add this line:
> objRequest.Method = "POST"
> , right below the TRY, but nothing changed and I really don't know what
> to do next, while all my customers are getting inpatient.
>
> I am even willing to pay for the answer. THIS IS MY LAST RESOURCE.
>
> Please let me know.
>
> Martin
>

Url includes the name and password:

Using above code I would submit this url:

https://www.google.com/adsense/login.do?username=[E-MAIL]&password=[PASSWORD]

, but google won't let me in, because they switched from GET to POST
method.

Now my whole application is stuck as I have no luck amending my code to
use it as POST method.

Please let me know how to get around this.

Martin

well then this should do the trick

Imports System.Text

Imports System.Net

Imports System.Collections.Specialized

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim myWebClient As New WebClient

Dim myNameValueCollection As New NameValueCollection

myNameValueCollection.Add("username", "john doe")

myNameValueCollection.Add("password", "12345")

Dim responseArray As Byte() =
myWebClient.UploadValues("https://www.google.com/adsense/login.do", "POST",
myNameValueCollection)

MsgBox(Encoding.UTF8.GetString(responseArray))

End Sub





i do not have a username and password to test it but i believe it should
work



regards



Michel Posseth [MCP]








"MARTIN LANNY" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Url includes the name and password:
>
> Using above code I would submit this url:
>
> https://www.google.com/adsense/login.do?username=[E-MAIL]&password=[PASSWORD]
>
> , but google won't let me in, because they switched from GET to POST
> method.
>
> Now my whole application is stuck as I have no luck amending my code to
> use it as POST method.
>
> Please let me know how to get around this.
>
> Martin
>

Thanks to you, I have this code (below) to login to specified URL with
my username and
psw and get the resulting HTML code.
It's using "POST" method.


It works just fine when result (after login) is a page.


But in some cases, result isn't a page, but a download file.


In case the resulting page is a download file (csv file I am
downloading from google adsense) it will not read the response.
It gives me no result whatsoever.


Can someone tell me how to amend this code, so it also reads the
content of the file?


Public Function GetPageHTML(ByVal URL As String, Optional ByVal
TimeoutSeconds As Integer = 10) As String
Try
Dim myWebClient As New WebClient
Dim myNameValueCollection As New NameValueCollection
myNameValueCollection.Add("username", "joedoe")
myNameValueCollection.Add("password", "123456")
Dim responseArray As Byte() = myWebClient.UploadValues(URL,

"POST", myNameValueCollection)
GetPageHTML = Encoding.UTF8.GetString(responseArray)
Catch ex As Exception
' Error occured grabbing data, simply return nothing
Return ""
End Try
End Function


Thanks for every answer.
Martin