vb.net调用ie获取 vb调用浏览器打开网页

VB.NET 如何获取网页中的数据

Public Function webCaptureContent(ByVal mWebsiteUrl As String, ByVal mWebsiteType As Boolean) As String

创新互联从2013年创立，先为乐都等服务建站，乐都等地企业，进行企业商务咨询服务。为乐都企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

'启动一次具体的数据采集工作,返回采集到的HTML内容:要求必须输入带://的全地址数据

On Error Resume Next

Dim Str_WebContent As String = "请输入查找网站地址."

Dim wb As WebClient = New WebClient() '//创建一个WebClient实例

If mWebsiteUrl.IndexOf("://") 0 Then

'//获取或设置用于对向 Internet 资源的请求进行身份验证的网络凭据。（可有可无）

wb.Credentials = CredentialCache.DefaultCredentials

'//从资源下载数据并返回字节数组。（加@是因为网址中间有"/"符号）

Dim pagedata As Object = wb.DownloadData(mWebsiteUrl)

'//转换字符

If mWebsiteType Then

Str_WebContent = Encoding.Default.GetString(pagedata)

Else

Str_WebContent = Encoding.UTF8.GetString(pagedata)

End If

End If

Return Str_WebContent '提取出来新闻内容,删除Body前后的多余内容,同时补充上该 Body标记,形成完整的内容 Str_WebContent '

End Function

vb.net编的web程序如何生成并且发布在sever2003服务器上并且用IE浏览器访问

什么IIS架构。晕～～～

1.首先正式版本的发布你必须要Release，不要直接把Debug程序放上去。

2.将所有的.cs文件删除。vs.net有一个很方便的工具，“项目——复制项目”就ok了。

3.windows server2003上一定要安装了"Internet 信息服务(IIS)管理器",如果没有安装的话可以到“控制面板——添加或删除程序——添加\删除WINDOWS组件——应用程序服务器”如果“应用程序服务器”没有构选的话钩上，放入windows 2003的系统盘安装。

4.安装完成之后把项目靠到服务器上。简单一点的方法是右键点击项目文件夹，Web共享——共享文件夹。此时就算发布成功了。不过还有一些细节需要注意。如：IIS匿名访问等。那就是另外的问题了。呵呵。IIS设置很简单，可以在网上找些资料。

我想让vb能控制ie的按钮点击，读取ie窗口的数据，怎样做？

下文中找vSubmit.Click的部分即是按钮点击事件

VB6中采用WebBrowser自动填写并提交表单参考源码，已经可以实现自动填写并提交。对代码优化可以达到更好的效果。

Public Sub WebbFormEditing()

Dim i, j As Integer

Dim vForm, vSubmit

Dim vFrame

On Error Resume Next

Set vFrame = WebBrowser1.Document.frames

If IsEmpty(vFrame) Then GoTo ErrorFormEdit

For i = 0 To vFrame.length - 1

On Error Resume Next

vFrame(i).Document.body.innerHTML = tbHtml.Text

Next i

ErrorFormEdit:

On Error GoTo ErrorFormEditEnd

Set vForm = WebBrowser1.Document.Forms

If IsEmpty(vForm) Then GoTo ErrorFormEditEnd

Me.CurWebbState = 3 '填表单

For i = 0 To vForm.length - 1

On Error GoTo ErrorFormEditEnd

If InStr(1, vForm(i).name, "login", vbTextCompare) 0 Then '登录

ElseIf InStr(1, vForm(i).name, "search", vbTextCompare) 0 Or _

InStr(1, vForm(i).name, "find", vbTextCompare) 0 Then '搜索

Else '其他表单,先填了

On Error Resume Next

vForm(i).onSubmit = ""

For j = 0 To vForm(i).length - 1

If UCase(vForm(i)(j).tagName) = "INPUT" Then 'INPUT

Select Case LCase(vForm(i)(j).Type)

'********************text*********************

Case "text":

'1,链接

If InStr(1, vForm(i)(j).name, "url", vbTextCompare) 0 Or InStr(1, vForm(i)(j).name, "link", vbTextCompare) 0 Or _

InStr(1, vForm(i)(j).name, "home", vbTextCompare) 0 Or InStr(1, vForm(i)(j).name, "address", vbTextCompare) 0 Or _

InStr(1, vForm(i)(j).name, "tags", vbTextCompare) 0 Then

vForm(i)(j).Value = tbLink.Text

'EMail

ElseIf InStr(1, vForm(i)(j).name, "email", vbTextCompare) 0 Then

vForm(i)(j).Value = tbEmail.Text

'名称

ElseIf InStr(1, vForm(i)(j).name, "name", vbTextCompare) 0 Or InStr(1, vForm(i)(j).name, "user", vbTextCompare) 0 Or _

InStr(1, vForm(i)(j).name, "author", vbTextCompare) 0 Then

vForm(i)(j).Value = tbName.Text

'标题

ElseIf InStr(1, vForm(i)(j).name, "title", vbTextCompare) 0 Or InStr(1, vForm(i)(j).name, "topic", vbTextCompare) 0 Then

If Len(vForm(i)(j).Value) = 0 Then vForm(i)(j).Value = tbTitle.Text

'评论,摘要

ElseIf InStr(1, vForm(i)(j).name, "summary", vbTextCompare) 0 Or InStr(1, vForm(i)(j).name, "comment", vbTextCompare) 0 Or _

InStr(1, vForm(i)(j).name, "content", vbTextCompare) 0 Then

vForm(i)(j).Value = tbTextArea.Text

'QQ

ElseIf InStr(1, vForm(i)(j).name, "qq", vbTextCompare) 0 Or InStr(1, vForm(i)(j).name, "icq", vbTextCompare) 0 Then

vForm(i)(j).Value = tbQQ.Text

'验证码

ElseIf InStr(1, vForm(i)(j).name, "Random", vbTextCompare) 0 Then

Beep

End If

'****************text***************

Case "password"

Case "submit"

Set vSubmit = vForm(i)(j)

End Select

ElseIf UCase(vForm(i)(j).tagName) = "SELECT" Then

ElseIf UCase(vForm(i)(j).tagName) = "TEXTAREA" Then

vForm(i)(j).innerHTML = tbTextArea.Text

End If

Next j

' 当前表单填完,提交

If Not IsEmpty(vSubmit) Then

On Error GoTo ErrorFormEditEnd

Me.LbState.Caption = "提交"

Me.CurWebbState = 4

vSubmit.Click

End If

End If

Next i

If Me.CurWebbState 4 Then Me.CurWebbState = 5 '没有可提交的表单

Exit Sub '结束过程

'出错退出

ErrorFormEditEnd:

Me.CurWebbState = 11

End Sub