189 8069 5689

关于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://cdxtjz.cn/article/hphopc.html

其他资讯