使用HttpWebRequest提交表单数据

14 篇文章 0 订阅
7 篇文章 0 订阅

刚才回复别人的,发一份上Blog备用

         ' 本程序仅供参考,请勿用于非法用途
         Dim  strId  As   String   =   " lishewen "
        
Dim  strPassword  As   String   =   " 123456 "

        
' 定义编码器
         Dim  encoding  As   New  ASCIIEncoding()

        
Dim  postData  As   String   =   " userid= "   +  strId
        postData 
+=  ( " &password= "   +  strPassword)

        
Dim  data  As   Byte ()  =  encoding.GetBytes(postData)

        
' 获得HttpWebRequest对象
         Dim  myRequest  As  HttpWebRequest  =   DirectCast (WebRequest.Create( " http://www.lishewen.com/login.asp " ), 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  myResponse  As  HttpWebResponse  =   DirectCast (myRequest.GetResponse(), HttpWebResponse)
        
Dim  reader  As   New  StreamReader(myResponse.GetResponseStream(), System.Text.Encoding.[ Default ])
        
Dim  content  As   String   =  reader.ReadToEnd()
        Console.WriteLine(content)

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值