利用VB访问Internet

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

利用VB访问Internet

当前,有许多构造模块可以帮助用户创建名为超客户端(rich client)的 Internet应用, 其中包括Visual Basic(以下简称 VB)的ActiveX控件集合。它们可以提供SMTP和POP邮件服务、FTP、Newsgroup和Web 访问等功能。另外,利用OLE也可以实现Web 访问的自动化。本文向大家介绍这两种方法。

在应用中嵌入Active X控件


利用Crescent的 Internet Toolpak( Internet 工具包)符合HTTP协议的控件,可以将 VB应用连接到Web站点,向站点传送数据,并从站点获取HTML页面。Crescent HTTP控件不能实际显示出下载的HTML页面,但能使应用程序以字符串的形式使用页面数据。例如,如果服务器产生一个名叫Myresult.html的HTML文件答复来自客户端的请求,客户端应用能够通过与服务器建立的Crescent Active X连接来获取并下载这个文件。建立连接的代码段如下:

CIHTTP1.HostName="myresult.myhost.com"CIHTTP1.URL="resultsmyresult.html"CI HTTP.ParseIncomingData = TrueCIHTTP1.ConnectToServer一旦Active X控件与服务器建立连接,它就会触发HTTPServerConnection事件。这时,应用程序发出命令CIHTTP1.GET,检索U RL属性中指定的页面,然后该控件激活FileClosed事件取回指定的页面。应用程序通过Acti ve X的属性HTMLPageText WithTags(主页不嵌有HTML代码时用属性HTMLPageTextWithOutTa gs)读页面文本。代码如下:

mytext= CIHTTP1. HTMLPageTextWithTags如果不想用控件下载整个主页,可以通过控件的PacketReceived事件的Packet参数快速扫描页面数据。每当控件接受到服务器的数据后都会激活PacketReceived事件。

另外,客户端应用还可以使用HTTP控件提取来自标准浏览器的Web页面数据。例如,Acti veX控件在幕后与Web建立连接并下载正在发布的页面,让传统的客户端应用不断接收最新We b信息,更改原有内容。

为进一步简化处理,在ActiveX控件与Web页面相连之前需设置好属性。Crescent的HTTP 控件还可以把下载页面的URL地址、图像文件的地址和所有HTML命令文件分别添加到指定的三个列表框中。

用OLE实现Web 访问的自动化


除了ActiveX控件以外,还有一种方法可以实现应用程序与Web的交互自动化,这就是OLE 自动化,即利用OLE Automation建立传统应用,再通过浏览器的OLE Automation服务器接口进行自动Web连接。Netscape Navigator 和Microsoft Internet Explorer 3.0 以上版本都支持OLE Automation。

Netscape Navigator的OLE Automation接口是专为这一目的而设计的。例如,通过OLE Automation接口让Navigator打开一个Web页面,它不会在自身的浏览器窗口中显示这个页面 ,而是下载该页面的内容,复制到服务器对象的数据缓冲区中,让客户端的应用程序去 访问这些内容。

例如,假设需要Navigator在Excel中打开一个Web页面,首先必须使用Excel的"引用"对话框引用Navigator程序目录中的Netscape.TLB库,然后把Navigator对象作为一个实例,并完成打开页面的功能。代码如下:

Dim Nav as Object, result as BooleanDim url$Const urlGet=0Const urlPost=1ur l$=http://www.microsoft.com/indev/default.htmset Nav=CreatObject("netscape.netw ork")result=Nav.Open(url$,urlGet,",",0," ")如果自动化对象的属性IsFinished设置为 True,就可以通过对象缓冲区仔细处理页面中的内容 <script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
说明: 1此程序由ecz00程序优化而来 地址 http://download.csdn.net/download/ecz00/9403630 因此程序可以说是网上唯一的tcpclient使用的中文案例,提供了我思路,在此感谢 ;为什么用这个插件,vb自带的插件winsock 这么有用的插件 居然不是微软自带的插件, 最要命的是 直接注册ocx控件 win7 win10上可能因为序列号无法注册,那么vb下如何开发ip客户端,变得很麻烦,尝试过APi方法的,但是过于复杂,程序量太大,比较麻烦,因此用 此方案比较可行,在原版的基础上花了5天时间摸索和优化, 此版本使用方法 1 把vbRichClient5.dll放进C:\Windows\SysWOW64 (64位系统) 2 在vb6中点击 工程->引用 把上面的dll引用进来就可以额,不需要注册 3:使用sscom5.12.1 或其他tcp调试软件软件启动tcpserver 地址是127,0,0,1 5676 4:直接运行本软件即可使用。点击连接,显示成功,说明连接成功,可以相互发送数据了 服务端的程序在原版上未做修改,请自行优化 此软件改进了原版 1:无法显示连接状态和错误信息 2:只能发送不能接收 3:使用主机名的连接方式,无法直接使用,一开始 4:无法显示byte值 5:界面修改 6:连接的时候,不断开以前的连接,造成重复连接 提示 vbRichClient5的手册找遍了都找不到,估计作者都没写,更别想有中文版了,所以只能 在vb6中点击视图-》对象窗口,可显示vbRichClient5.dll 所有的类和方法 QQ175891641 2018-2-15优化
要在 Win10 中使用 VB 利用 ADO 访问 MDB,您可以按照以下步骤操作: 1. 引用 ADO 库:在 VB 代码中,您需要引用 ADO 库,以便使用 ADO 对象。在“工具”菜单下选择“引用”,然后勾选“Microsoft ActiveX Data Objects x.x Library”。 2. 创建连接对象:您需要创建一个连接对象,以便 VB 可以连接到 MDB 文件。您可以使用 Connection 对象的 ConnectionString 属性来指定连接字符串。 3. 打开连接:打开连接对象所连接的数据库。 4. 创建 Recordset 对象:您需要创建一个 Recordset 对象,以便 VB 可以读取和写入数据。您可以使用 Recordset 对象的 Open 方法来执行 SQL 查询。 5. 处理数据:使用 Recordset 对象的各种属性和方法来处理数据。例如,使用 Fields 属性来访问字段数据。 6. 关闭 Recordset 和 Connection 对象:在完成操作后,关闭 Recordset 和 Connection 对象。 下面是一个示例代码: ``` ' 创建连接对象 Dim conn As New ADODB.Connection conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Username\Documents\Database1.accdb" ' 打开连接 conn.Open ' 创建 Recordset 对象 Dim rs As New ADODB.Recordset rs.Open "SELECT * FROM Table1", conn ' 处理数据 Do Until rs.EOF Debug.Print rs.Fields("Field1").Value rs.MoveNext Loop ' 关闭 Recordset 和 Connection 对象 rs.Close Set rs = Nothing conn.Close Set conn = Nothing ``` 请注意,上面的示例使用了 Microsoft.ACE.OLEDB.12.0 提供程序。如果您使用的是早期版本的 Access,您可能需要使用不同的提供程序。另外,在使用 ADO 访问 MDB 时,您需要注意数据类型的匹配,以免出现数据类型不匹配的错误。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值