WebClient VB Post Data to Webpage

[Ben]

Hi

I have the two funcions below, login_web that posts data to a webpage and
fcn_parseviewst ate that parses the viewstate data for the post.

I have a problem with the strPostData, I have been testing this using a HTTP
Debugging Proxy, when I post the page manually using a browser it posts the
below data and is successful, if I copy this data into strPostData and post
it using the code below it posts successfully:
strPostData =
"__VIEWSTATE=dD w0NzU3NTEyMjk7O z4eJhsIFXbxP7On 1dC%2BEy1wFpRZK g%3D%3D&txtCmd= &txtData=INSERT +INTO+tblMatter s+%28matterdesc ription%29+VALU ES+%28%27descri ption%27%29&pos t=Button"

Broken Down into:
__VIEWSTATE=dDw 0NzU3NTEyMjk7Oz 4eJhsIFXbxP7On1 dC%2BEy1wFpRZKg %3D%3D
txtCmd=
txtData=INSERT+ INTO+tblMatters +%28matterdescr iption%29+VALUE S+%28%27descrip tion%27%29
post=Button

BUT
My when my program posts the data normally (without copying the above data)
program posts the data in this format:
......
txtData=INSERT INTO tblMatters (MatterDescript ion) VALUES ('TESTING')
......

This means that the post fails...

How can i convert INSERT INTO tblMatters (MatterDescript ion) VALUES
('TESTING') TO
INSERT+INTO+tbl Matters+%28matt erdescription%2 9+VALUES+%28%27 description%27% 29

Thanks

B

Private Function web_login() As Boolean
On Error GoTo err_web_login

Dim strURL As String

Dim strPostData As String

Dim byteResponse() As Byte

Dim i As Integer

Dim strViewState As String

strURL = strHttpLocation & "sync.aspx?u=si monfinn&p=1234"

REM ** Download Viewstate Data

byteResponse = gobjWebClient.D ownloadData(str URL)

strViewState = System.Text.Enc oding.ASCII.Get String(byteResp onse)

strViewState = fcn_ParseViewSt ate(strViewStat e)

'strPostData = "VIEWSTATE= " & strViewState & "&txtCmd=&txtDa ta=" & "INSERT
INTO tblMatters (MatterDescript ion) VALUES ('TESTING')" & "&post=Butt on"

strPostData = "VIEWSTATE= " & strViewState & "&txtCmd=&txtDa ta=" & "INSERT
INTO tblMatters (MatterDescript ion) VALUES ('TESTING')" & "&post=Butt on"

gobjWebClient.H eaders.Add("Con tent-Type",
"applicatio n/x-www-form-urlencoded")

byteResponse = gobjWebClient.U ploadData(strUR L, "POST",
System.Text.Enc oding.ASCII.Get Bytes(strPostDa ta))

TextBox1.Text = System.Text.Enc oding.ASCII.Get String(byteResp onse)

web_login = True

REM ** err_web_login

Exit Function

err_web_login:

'Return Error

web_login = False

End Function

Private Function fcn_ParseViewSt ate(ByVal strSource As String) As String

REM ** Declarations

Dim intViewStatePos ition As Integer

Dim intViewStateEnd Position As Integer

REM ** Parse Viewstate Start Posision + 20 Chars for End

intViewStatePos ition = strSource.Index Of("__VIEWSTATE ") + 21

REM ** Parse Viewstate End Posision

intViewStateEnd Position = Mid(strSource, intViewStatePos ition).IndexOf( "
/") - 1

REM ** Return Viewstate only

fcn_ParseViewSt ate = Mid(strSource, intViewStatePos ition,
intViewStateEnd Position)

End Function

[Sergey Poberezovskiy]

You can use System.Web.Http Utility.HtmlEnc ode Shared
function to produce the string ready to be transmitted
via Http

-----Original Message-----
Hi

I have the two funcions below, login_web that posts data to a webpage andfcn_parseviews tate that parses the viewstate data for the post.
I have a problem with the strPostData, I have been testing this using a HTTPDebugging Proxy, when I post the page manually using a browser it posts thebelow data and is successful, if I copy this data into strPostData and postit using the code below it posts successfully:
strPostData =
"__VIEWSTATE=d Dw0NzU3NTEyMjk7 Oz4eJhsIFXbxP7O n1dC% 2BEy1wFpRZKg%3D %
3D&txtCmd=&txtD ata=INSERT+INTO +tblMatters+%
28matterdescrip tion%29+VALUES+ %28%27descripti on%27%
29&post=Button "
Broken Down into:
__VIEWSTATE=dD w0NzU3NTEyMjk7O z4eJhsIFXbxP7On 1dC% 2BEy1wFpRZKg%3D %3DtxtCmd=
txtData=INSERT +INTO+tblMatter s+%28matterdesc ription% 29+VALUES+%28%2 7description%27 %29post=Button

BUT
My when my program posts the data normally (without copying the above data)program posts the data in this format:
......
txtData=INSE RT INTO tblMatters (MatterDescript ion) VALUES ('TESTING')......

This means that the post fails...

How can i convert INSERT INTO tblMatters (MatterDescript ion) VALUES('TESTING') TO
INSERT+INTO+tb lMatters+%28mat terdescription% 29+VALUES+% 28%27descriptio n%27%29
Thanks

B

Private Function web_login() As Boolean
On Error GoTo err_web_login

Dim strURL As String

Dim strPostData As String

Dim byteResponse() As Byte

Dim i As Integer

Dim strViewState As String

strURL = strHttpLocation & "sync.aspx?u=si monfinn&p=1234"

REM ** Download Viewstate Data

byteResponse = gobjWebClient.D ownloadData(str URL)

strViewState = System.Text.Enc oding.ASCII.Get String (byteResponse)
strViewState = fcn_ParseViewSt ate(strViewStat e)

'strPostData = "VIEWSTATE= " & strViewState & "&txtCmd=&txtDa ta=" & "INSERTINTO tblMatters (MatterDescript ion) VALUES ('TESTING')" & "&post=Butt on"
strPostData = "VIEWSTATE= " & strViewState & "&txtCmd=&txtDa ta=" & "INSERTINTO tblMatters (MatterDescript ion) VALUES ('TESTING')" & "&post=Butt on"
gobjWebClient. Headers.Add("Co ntent-Type",
"applicatio n/x-www-form-urlencoded")

byteResponse = gobjWebClient.U ploadData(strUR L, "POST",
System.Text.En coding.ASCII.Ge tBytes(strPostD ata))

TextBox1.Tex t = System.Text.Enc oding.ASCII.Get String (byteResponse)
web_login = True

REM ** err_web_login

Exit Function

err_web_logi n:

'Return Error

web_login = False

End Function

Private Function fcn_ParseViewSt ate(ByVal strSource As String) As String
REM ** Declarations

Dim intViewStatePos ition As Integer

Dim intViewStateEnd Position As Integer

REM ** Parse Viewstate Start Posision + 20 Chars for End

intViewStatePo sition = strSource.Index Of("__VIEWSTATE ") + 21
REM ** Parse Viewstate End Posision

intViewStateEn dPosition = Mid(strSource, intViewStatePos ition).IndexOf( "/") - 1

REM ** Return Viewstate only

fcn_ParseViewS tate = Mid(strSource, intViewStatePos ition,intViewStateEn dPosition)

End Function
.

[Ben]

Thanks

That worked perfectly

B
"Sergey Poberezovskiy" <an*******@disc ussions.microso ft.com> wrote in
message news:3b******** *************** *****@phx.gbl.. .

You can use System.Web.Http Utility.HtmlEnc ode Shared
function to produce the string ready to be transmitted
via Http

-----Original Message-----
Hi

I have the two funcions below, login_web that posts data

to a webpage and

fcn_parseview state that parses the viewstate data for

the post.

I have a problem with the strPostData, I have been

testing this using a HTTP

Debugging Proxy, when I post the page manually using a

browser it posts the

below data and is successful, if I copy this data into

strPostData and post

it using the code below it posts successfully:
strPostData =
"__VIEWSTATE= dDw0NzU3NTEyMjk 7Oz4eJhsIFXbxP7 On1dC%

2BEy1wFpRZKg%3D %
3D&txtCmd=&txtD ata=INSERT+INTO +tblMatters+%
28matterdescrip tion%29+VALUES+ %28%27descripti on%27%
29&post=Button "

Broken Down into:
__VIEWSTATE=d Dw0NzU3NTEyMjk7 Oz4eJhsIFXbxP7O n1dC%

2BEy1wFpRZKg%3D %3D

txtCmd=
txtData=INSER T+INTO+tblMatte rs+%28matterdes cription%

29+VALUES+%28%2 7description%27 %29

post=Button

BUT
My when my program posts the data normally (without

copying the above data)

program posts the data in this format:
......
txtData=INSER T INTO tblMatters (MatterDescript ion)

VALUES ('TESTING')

......

This means that the post fails...

How can i convert INSERT INTO tblMatters

(MatterDescript ion) VALUES

('TESTING') TO
INSERT+INTO+t blMatters+%28ma tterdescription %29+VALUES+%

28%27descriptio n%27%29

Thanks

B

Private Function web_login() As Boolean
On Error GoTo err_web_login

Dim strURL As String

Dim strPostData As String

Dim byteResponse() As Byte

Dim i As Integer

Dim strViewState As String

strURL = strHttpLocation & "sync.aspx?u=si monfinn&p=1234"

REM ** Download Viewstate Data

byteRespons e = gobjWebClient.D ownloadData(str URL)

strViewStat e = System.Text.Enc oding.ASCII.Get String

(byteResponse)

strViewStat e = fcn_ParseViewSt ate(strViewStat e)

'strPostDat a = "VIEWSTATE= " & strViewState

& "&txtCmd=&txtDa ta=" & "INSERT

INTO tblMatters (MatterDescript ion) VALUES ('TESTING')"

& "&post=Butt on"

strPostData = "VIEWSTATE= " & strViewState

& "&txtCmd=&txtDa ta=" & "INSERT

INTO tblMatters (MatterDescript ion) VALUES ('TESTING')"

& "&post=Butt on"

gobjWebClient .Headers.Add("C ontent-Type",
"applicatio n/x-www-form-urlencoded")

byteRespons e = gobjWebClient.U ploadData(strUR L, "POST",
System.Text.E ncoding.ASCII.G etBytes(strPost Data))

TextBox1.Te xt = System.Text.Enc oding.ASCII.Get String

(byteResponse)

web_login = True

REM ** err_web_login

Exit Function

err_web_login :

'Return Error

web_login = False

End Function

Private Function fcn_ParseViewSt ate(ByVal strSource As

String) As String

REM ** Declarations

Dim intViewStatePos ition As Integer

Dim intViewStateEnd Position As Integer

REM ** Parse Viewstate Start Posision + 20 Chars for End

intViewStateP osition = strSource.Index Of("__VIEWSTATE ")

+ 21

REM ** Parse Viewstate End Posision

intViewStateE ndPosition = Mid(strSource,

intViewStatePos ition).IndexOf( "

/") - 1

REM ** Return Viewstate only

fcn_ParseView State = Mid(strSource,

intViewStatePos ition,

intViewStateE ndPosition)

End Function
.