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里的值了。

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


网站栏目:vb.net提交按键 vb发送按键
分享网址:http://myzitong.com/article/hgejjh.html