189 8069 5689
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
一个 文本框 两个按钮 试试吧 应该很容易的
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
需要引用：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")
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+右箭头键：完成单词
发送页面：
用get传值 如 点击button时 response.redirect（"接受页面的url"?canshu=textbox.text）
在接受页面：
用Request.QueryString["canshu"].toString（）； 这样就接受到textbox里的值了。
然后根据这个值到数据库里查询就行了。