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í)體公司更值得信賴。
圖有點(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.
不想一點(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)
猜你還喜歡下面的內(nèi)容