关于vb.netpost的信息
vb.net post登录问题
验证码输入错误,就已经很明确了
创新互联10多年企业网站设计服务;为您提供网站建设,网站制作,网页设计及高端网站定制服务,企业网站设计及推广,对高空作业车租赁等多个领域拥有多年的营销推广经验的网站建设公司。
你post过去的验证码和你请求页面时候的验证码是不一样的
所以请检测你取验证码的方法
vb.net通过按钮POST数据
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 '************************************************************************* '**函 数 名: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
如何用vb.net上传post数据给服务器
图有点模糊。
服务器端要有方法接收,接收的参数要看方法的定义。
Controller A里面假设有这个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
你在页面上点击按钮“提交”后,就会把表单的中keyword文本框的内容赋值给a.
这里我用的是MVC..前端用的VB Razor.
分享文章:关于vb.netpost的信息
文章地址:http://scyanting.com/article/hphopc.html