登陆器配置好了，打开提示读取远程服务器列表失败

读取远程服务器列表失败，可能是由于防火墙对其进行了访问限制，需要在防火墙中移除登录器即可。

具体操作如下：

1、对“此电脑”点击鼠标右键。

2、在弹出的菜单中选择“属性”。

3、点击左上角的“控制面板主页”。

4、找到“防火墙”。

5、点击左侧的“允许应用或功能通过Windows防火墙”。

6、点击右上角的“更改设置”。

7、找到“登录器”，并将左侧的勾打上，即允许登录器通过防火墙。

8、点击右下角的“确定”即可保存设置。

常用的一些方式就是一下几种

1 通过局域网共享，你直接用打开文件的方式打开

2 对方服务器提供ftp，http服务，你用对用的方式获取下来

3 你提供FTP或者http服务，对方定时上传到你服务器，你定时去对应目录读取

在 VB 中 程序中引用 Internet Explorer 对象 ：在"工程"菜单中单击"引用"，在弹出对话框中选择"Microsoft Internet Controls"（SHDOCVW.DLL），就把对 Internet Explorer对象库的引用添加到了我们自己的工程文件中。

'使用IE对象打开一个网页 ：

Dim Browser As Object

Set Browser = CreateObject("InternetExplorer.Application")

Browser.Visible = True

Browser.Navigate ("http://www.baidu.com")

'得到当前browser的页面字体内容

Public Function getWebContent()Function getWebContent(browser As WebBrowser) As String

Dim doc As Object

Dim i As Object

Dim strHtml As String

Set doc = browser.Document

For Each i In doc.All

strHtml = strHtml &Chr(13) &i.innerText

Next

getWebContent = strHtml

End Function

'得到当前browser的页面Html内容

Public Function getWebHtml()Function getWebHtml(browser As WebBrowser) As String

Dim doc As Object

Dim i As Object

Dim strHtml As String

Set doc = browser.Document

For Each i In doc.All

strHtml = strHtml &Chr(13) &i.innerHtml

Next

getWebHtml = strHtml

End Function

---