求VB6.0打开网页，获取里面数据的代码

给你一个例子，我自己以前做过类似的程序，你参考下，添加inet控件（必须的）和一个按钮，把源代码下载成文本，然后到文本里面去读，下面是下载百度首页网页源代码并且保存到文本的函数

Public Function down_baidu() '下载百度首页

Dim webaddress$,info$'定义数据类型

webaddress = ">

通过选择“工程”菜单中的“引用”来为 ADO 对象库添加一个引用，然后在“引用”对话框中选择 Microsoft ActiveX Data Objects 20 Library

点上图确定。工程就引用了ADO。

运行代码示例：

Private Sub Command1_Click()

  Dim cn As New ADODBConnection '定义数据库的连接

  Dim rs As New ADODBRecordset '声明一个 Recordset 对象变量

  Dim sql As String

  sql = "select from jishijilu"

cnConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath & "\wdmdb;Persist Security Info=False"

  cnOpen

  rsCursorLocation = adUseClient

  rsOpen sql, cn, adOpenDynamic, adLockOptimistic

  Set DataGrid1DataSource = rs

End Sub

力控的脚本语句实际都是简化的，比VB简单多了，而且每个语句都有说明的，你可以看下力控的帮助说明，每个语句都有例子，看看就明白了。在安装完力控软件后，在软件内有几个例子，自己可以好好看下，力控的例子里面实际不光有IF、switch等语句，还有力控自己的面向对象的语句，例如力控的画面中的每一个图标单元都有自己的属性和函数，都可以通过这些属性对象（对应的函数）来定义和读取。

这是获取表格中的前两列，

Set tbs=Webbrowser1documentgetElementsByTagName("Table") '表格对象集合

Dim tb

For Each tb In tbs

If tbclassname="formTable" Then ' classname ="formTable"的表格

MsgBox tbcaptioninnertext '标题

Dim row

For Each row In tbrows '访问每一行

For i=0 To 1

MsgBox rowcells(i)innertext '访问每一行的前两个单元格

Next

Next

Exit For

End If

Next

InStr(buffer$, Chr$(32))这个函数用的不对,该函数返回的应该是一个整数值,你再查下资料

试用mid函数,mid(buffer$,len(buffer),1)=" "

以上就是关于求VB6.0打开网页，获取里面数据的代码全部的内容，包括:求VB6.0打开网页，获取里面数据的代码、vb中怎么读取mdb中所有数据、三维力控组态软件的脚本编写要用VB语言，请问要怎么学习vb啊，是全部学还是只学里面的基础语言等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！