vb.net提交按键 vb发送按键

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.Type = FormName Then

objTag.Click

End If

End Select

Case "TEXTAREA"

Set objTag = objDoc.All(i)

Select Case FormType

Case 2

objTag.Value = Value

End Select

End Select

Next

End Sub

这个是 VB6的代码的

我的.NET 出问题了 要不就帮改过来了

你要想用的话 增加一个 WebBrowser

一个 文本框 两个按钮 试试吧 应该很容易的

VB.NET中的按键定义问题

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

if Me.TextBox1.Text = "信息" Then Me.TextBox1.Text ="社会" Else Me.TextBox1.Text = "信息"

Me.Button10.Text = "下一步"

End Sub

程序自动点击网页按钮，自动填写网页表单。使用VB.NET编程。有哪位VB大侠会。 在线等。

需要引用：Microsoft HTML Object Library

在webbrowser的状态为ready的时候，执行:

'取得要填写的表单名称，并定义为一个html元素变量text

Dim text As HtmlElement = WebBrowser1.Document.GetElementById("表单字段名id")

'给表单元素text赋值

text.InnerHtml = “张三”

'找到提交按钮

Dim btnSubmit As HtmlElement = WebBrowser1.Document.GetElementById("提交按钮id")

'执行点击动作

btnSubmit.InvokeMember("click")

VB.net的快捷键

1． F12：转到定义；Shift+F12：转到引用

2． F5：启动；Ctrl+F5：开始执行（不调试）；Shift+F5：停止调试

3． F7：查看代码；Shift+F7：查看视图设计器

4． Ctrl+Alt+L：解决方案资源管理器

5． Ctrl+Alt+J：对象浏览器

6． F4：显示属性窗口

7． Ctrl+Alt+X：工具箱

8． Ctrl+Alt+C类视图

9． Alt+Enter：查看属性

10．F10：逐过程调试

11．F11：逐语句调试

12．Ctrl+B：新断点

13．Ctrl+Shift+F9：清除所有断点

14．Ctrl+Shift+B生成解决方案

15．Shift+Alt+Enter：全屏

16．大纲显示：Ctrl+M, Ctrl+M：切换大纲显示展开；Ctrl+M, Ctrl+L：切换所有大纲显示；Ctrl+M,Crtl+P停止大纲显示；Ctrl+M, Ctrl+O：折叠到定义

17．智能感知：Ctrl＋J：列出成员；Ctrl+Shift+空格：参数信息； Ctrl+K,Ctrl+I：快速信息；Alt+右箭头键：完成单词

vb.net 网页提交表单

发送页面：

用get传值 如 点击button时 response.redirect（"接受页面的url"?canshu=textbox.text）

在接受页面：

用Request.QueryString["canshu"].toString（）； 这样就接受到textbox里的值了。

然后根据这个值到数据库里查询就行了。