成人午夜视频全免费观看高清-秋霞福利视频一区二区三区-国产精品久久久久电影小说-亚洲不卡区三一区三区一区

vb.net處理post vbnet post json

vb.net通過按鈕POST數(shù)據(jù)

Private Sub Command1_Click() ReferForm "WebBrowser1", 2, "message", Text1.Text End Sub Private Sub Command2_Click() ReferForm "WebBrowser1", 8, "submit" End Sub Private Sub Form_Load() WebBrowser1.Navigate (" ") End Sub '************************************************************************* '**函 數(shù) 名:ReferForm '**中文意譯:表單提交 '**輸 入:ByVal WebbrowserA(String) - webbrowser控件名 '** :ByVal FormType(Integer) - 集合 表單類型 '** Text = 0; password = 1; textarea = 2; Hidden = 3; CheckBox = 4; submit = 8; button = 9 '** :Optional FormName(String) - 表單名[可選] '** :Optional Value(String = "") - 表單值[可選] '**輸 出:無 '**功能描述: '** : '**作 者:最恨VB '**日 期:2008-01-31 07:46:14 '************************************************************************* Sub ReferForm(ByVal Webbrowser$, ByVal FormType%, Optional FormName$, Optional Value$ = "") If FormType 0 Or FormType 9 Then Exit Sub End If Dim objDoc, objTag Set objDoc = Me.Controls(Webbrowser).Document For i = 0 To objDoc.All.length - 1 Select Case UCase$(objDoc.All(i).tagName) Case "INPUT" Set objTag = objDoc.All(i) Select Case FormType Case 0, 1 If objTag.Name = FormName Then objTag.Value = Value End If Case 3 Case 4 If objTag.Name = FormName Then objTag.Click End If Case 8 If objTag.Type = FormName Then objTag.Click End If Case 9 If objTag.Typ

創(chuàng)新互聯(lián)-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價(jià)比南城網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式南城網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們,業(yè)務(wù)覆蓋南城地區(qū)。費(fèi)用合理售后完善,十多年實(shí)體公司更值得信賴。

如何用vb.net上傳post數(shù)據(jù)給服務(wù)器

圖有點(diǎn)模糊。

服務(wù)器端要有方法接收,接收的參數(shù)要看方法的定義。

Controller A里面假設(shè)有這個(gè)get Action

httppost

function get(frm as formcollection) as actionresult

dim a as string=frm("keyword")

return content(a)

end function

頁面View 中

@Using FormBegin("get","A","POST")

@div

input name="keyword" type="text"/

Input type="submit" value="提交"/

end using

你在頁面上點(diǎn)擊按鈕“提交”后,就會(huì)把表單的中keyword文本框的內(nèi)容賦值給a.

這里我用的是MVC..前端用的VB Razor.

vb.net/.net怎樣使用http協(xié)議的get和post?

不想一點(diǎn)一點(diǎn)寫了,粘貼給你吧

使用 HttpWebRequest 向網(wǎng)站提交數(shù)據(jù)

HttpWebRequest 是 .net 基類庫中的一個(gè)類,在命名空間 System.Net 下面,用來使用戶通過 HTTP 協(xié)議和服務(wù)器交互。

HttpWebRequest 對 HTTP 協(xié)議進(jìn)行了完整的封裝,對 HTTP 協(xié)議中的 Header, Content, Cookie 都做了屬性和方法的支持,很容易就能編寫出一個(gè)模擬瀏覽器自動(dòng)登錄的程序。

程序使用 HTTP 協(xié)議和服務(wù)器交互主要是進(jìn)行數(shù)據(jù)的提交,通常數(shù)據(jù)的提交是通過 GET 和 POST 兩種方式來完成,下面對這兩種方式進(jìn)行一下說明:

1. GET 方式。 GET 方式通過在網(wǎng)絡(luò)地址附加參數(shù)來完成數(shù)據(jù)的提交,比如在地址 中,前面部分 表示數(shù)據(jù)提交的網(wǎng)址,后面部分 hl=zh-CN 表示附加的參數(shù),其中 hl 表示一個(gè)鍵(key), zh-CN 表示這個(gè)鍵對應(yīng)的值(value)。程序代碼如下:

HttpWebRequest req = (HttpWebRequest) HttpWebRequest.Create( "" );

req.Method = "GET";

using (WebResponse wr = req.GetResponse())

{

//在這里對接收到的頁面內(nèi)容進(jìn)行處理

}

2. POST 方式。 POST 方式通過在頁面內(nèi)容中填寫參數(shù)的方法來完成數(shù)據(jù)的提交,參數(shù)的格式和 GET 方式一樣,是類似于 hl=zh-CNnewwindow=1 這樣的結(jié)構(gòu)。程序代碼如下:

string param = "hl=zh-CNnewwindow=1";

byte[] bs = Encoding.ASCII.GetBytes(param);

HttpWebRequest req = (HttpWebRequest) HttpWebRequest.Create( "" );

req.Method = "POST";

req.ContentType = "application/x-www-form-urlencoded";

req.ContentLength = bs.Length;

using (Stream reqStream = req.GetRequestStream())

{

reqStream.Write(bs, 0, bs.Length);

}

using (WebResponse wr = req.GetResponse())

{

//在這里對接收到的頁面內(nèi)容進(jìn)行處理

}

在上面的代碼中,我們訪問了 的網(wǎng)址,分別以 GET 和 POST 方式提交了數(shù)據(jù),并接收了返回的頁面內(nèi)容。然而,如果提交的參數(shù)中含有中文,那么這樣的處理是不夠的,需要對其進(jìn)行編碼,讓對方網(wǎng)站能夠識(shí)別。

3. 使用 GET 方式提交中文數(shù)據(jù)。 GET 方式通過在網(wǎng)絡(luò)地址中附加參數(shù)來完成數(shù)據(jù)提交,對于中文的編碼,常用的有 gb2312 和 utf8 兩種,用 gb2312 方式編碼訪問的程序代碼如下:

Encoding myEncoding = Encoding.GetEncoding("gb2312");

string address = "?" + HttpUtility.UrlEncode("參數(shù)一", myEncoding) + "=" + HttpUtility.UrlEncode("值一", myEncoding);

HttpWebRequest req = (HttpWebRequest)HttpWebRequest.Create(address);

req.Method = "GET";

using (WebResponse wr = req.GetResponse())

{

//在這里對接收到的頁面內(nèi)容進(jìn)行處理

}

在上面的程序代碼中,我們以 GET 方式訪問了網(wǎng)址 ,傳遞了參數(shù)“參數(shù)一=值一”,由于無法告知對方提交數(shù)據(jù)的編碼類型,所以編碼方式要以對方的網(wǎng)站為標(biāo)準(zhǔn)。常見的網(wǎng)站中, (百度)的編碼方式是 gb2312, (谷歌)的編碼方式是 utf8。

4. 使用 POST 方式提交中文數(shù)據(jù)。 POST 方式通過在頁面內(nèi)容中填寫參數(shù)的方法來完成數(shù)據(jù)的提交,由于提交的參數(shù)中可以說明使用的編碼方式,所以理論上能獲得更大的兼容性。用 gb2312 方式編碼訪問的程序代碼如下:

Encoding myEncoding = Encoding.GetEncoding("gb2312");

string param = HttpUtility.UrlEncode("參數(shù)一", myEncoding) + "=" + HttpUtility.UrlEncode("值一", myEncoding) + "" + HttpUtility.UrlEncode("參數(shù)二", myEncoding) + "=" + HttpUtility.UrlEncode("值二", myEncoding);

byte[] postBytes = Encoding.ASCII.GetBytes(param);

HttpWebRequest req = (HttpWebRequest) HttpWebRequest.Create( "" );

req.Method = "POST";

req.ContentType = "application/x-www-form-urlencoded;charset=gb2312";

req.ContentLength = postBytes.Length;

using (Stream reqStream = req.GetRequestStream())

{

reqStream.Write(bs, 0, bs.Length);

}

using (WebResponse wr = req.GetResponse())

{

//在這里對接收到的頁面內(nèi)容進(jìn)行處理

}

從上面的代碼可以看出, POST 中文數(shù)據(jù)的時(shí)候,先使用 UrlEncode 方法將中文字符轉(zhuǎn)換為編碼后的 ASCII 碼,然后提交到服務(wù)器,提交的時(shí)候可以說明編碼的方式,用來使對方服務(wù)器能夠正確的解析。

以上列出了客戶端程序使用 HTTP 協(xié)議與服務(wù)器交互的情況,常用的是 GET 和 POST 方式。現(xiàn)在流行的 WebService 也是通過 HTTP 協(xié)議來交互的,使用的是 POST 方法。與以上稍有所不同的是, WebService 提交的數(shù)據(jù)內(nèi)容和接收到的數(shù)據(jù)內(nèi)容都是使用了 XML 方式編碼。所以, HttpWebRequest 也可以使用在調(diào)用 WebService 的情況下。

分享題目:vb.net處理post vbnet post json
鏈接URL:http://jinyejixie.com/article2/ddoipoc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供響應(yīng)式網(wǎng)站、商城網(wǎng)站、網(wǎng)站制作網(wǎng)站導(dǎo)航、標(biāo)簽優(yōu)化、品牌網(wǎng)站制作

廣告

聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)

營銷型網(wǎng)站建設(shè)
临清市| 金阳县| 德保县| 沁水县| 临朐县| 临朐县| 手游| 密云县| 桑日县| 巫山县| 辽中县| 延边| 蒲江县| 抚顺市| 镇康县| 万安县| 布拖县| 读书| 临湘市| 龙胜| 普兰店市| 宕昌县| 朔州市| 莒南县| 花垣县| 遂溪县| 宁远县| 梅州市| 鹤壁市| 宜阳县| 辽阳市| 五大连池市| 墨竹工卡县| 西城区| 永平县| 邵阳市| 怀远县| 吴忠市| 荥阳市| 湘西| 卫辉市|