Simulate submitting a form in web form in window form

Simulate submitting a form in web form in window form

Below is a normal form submission without File Upload!

 

Public   Function postdate () Function Postdate ( Byval URL As   String , Byval Postdata () As   String ) As   String
Dim Post As   String   =   " "
For   Each S As   String   In Postdata
Post + = S +   " &"
Next
Post = Post. substring ( 0 , Post. Length -   1 )
Dim Html As   String   =   " "

Dim Encoding As Encoding = Encoding. getencoding ( " Gb2312 " )
Dim Data As   Byte () = Encoding. getbytes (post)
Dim Myrequest As Httpwebrequest =   Ctype (Webrequest. Create (URL), httpwebrequest)
Myrequest. Method =   " Post"
Myrequest. contenttype =   " Application/X-WWW-form-urlencoded"


Myrequest. contentlength = Data. Length
Dim Newstream As Stream = Myrequest. getrequeststream ()
Newstream. Write (Data, 0 , Data. length)
Newstream. Close ()
Dim Resp As Httpwebresponse =   Ctype (Myrequest. getresponse (), httpwebresponse)
Dim Sr As Streamreader =   New Streamreader (resp. getresponsestream (), system. Text. encoding. Default )
Html = Sr. readtoend ()

Return Html
End Function

Usage:
Dim postdata as string () = {"id = luajiu", "PW = XXXX", "ipmask = 0 "}

Dim strurl as string = "http://bbs.cau.edu.cn/wusetu.cn/bbslogin"

Dim sessionhtml as string = postdate (strurl, postdata)

Files uploaded

 

 

Dim Mywebclient As   New WebClient
Dim Responsearray As   Byte () = Mywebclient. uploadfile (uristring, " Post " , Filename)
Dim Html As   String = Encoding. Default . Getstring (responsearray)