什么是VB6、CGI、API?

VB 全称Visual Basic，是当今世界上应用最广泛的编程语言之一，它也被公认为是编程效率最高的一种编程方法。无论是开发功能强大、性能可靠的商务软件，还是编写能处理实际问题的实用小程序，VB都是最快速、最简便的方法。VB6 即Visual Basic的60版本。

CGI 即Common Gateway Interface(公共网关接口)。它是运行于网络服务器上的一类程序，用于一个可以产生相同结果或随用户输入而变化结果的程序。CGI 程序通常用于完成 Web 网页中表单数据的处理、数据库查询和实现与传统应用系统的集成等工作。

API 全称Application Programming Interface(应用编程接口)，是Windows平台的应用程序编程接口。它是能用来操作组件、应用程序或者操作系统的一组函数。典型的情况下，API 由一个或多个提供某种特殊功能的 DLL 组成。

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

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

Dim Browser As Object

Set Browser = CreateObject("InternetExplorerApplication")

BrowserVisible = True

BrowserNavigate ("http://wwwbaiducom")

'得到当前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 = browserDocument

For Each i In docAll

strHtml = strHtml & Chr(13) & iinnerText

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 = browserDocument

For Each i In docAll

strHtml = strHtml & Chr(13) & iinnerHtml

Next

getWebHtml = strHtml

End Function

分析了一下你的问题，有几点问题你需要排查：

1、既然是动态域名，那么你的数据库服务器应该面对的是公网。如果是公网，局域网IP连接是否成功就毫无意义。

2、你有否尝试过使用公网IP连接，如果使用公网IP连接成功，那就有可能是域名解析的问题。

3、你是否设置好了路由器的端口映射，分析你的题目，我估计你网络状态可能是多层路由，那么多层路由的端口映射是否都设置好了？还是只设置了一层？

4、如果设置好了端口映射，是不是还有端口号的问题，虽然我没有尝试过，但是由于你的两台电脑可以通过局域网IP连接，可以看出两台电脑虽处于不同网段，但共同使用一个路由接入公网，这样会不会产生端口号冲突？可以尝试修改数据库服务器的SQL SERVER的端口号，并进行映射。

5、服务器上的数据库是使用默认实例名还是指定实例名，如果是指定实例名要在服务器名后加上实例名。

6、建议，局域网内使用局域网IP连接，局域网外使用域名连接。测试也要放在局域网外测试才有意义。

自己定义一个结构体发字节流过去不就可以了。建议把字节流封包传输

如：

第1个字节 &HB1 表示包头开始标志

第2个字节 &H01 表示发送数据命令

第3-4个字节 &H0005 表示数据长度为5个字节

第5个字节 &H00 具体的数据第1个字节内容

第6个字节 &H00 具体的数据第2个字节内容

第7个字节 &H00 具体的数据第3个字节内容

第8个字节 &H00 具体的数据第4个字节内容

第9个字节 &H00 具体的数据第5个字节内容

第10个字节 &HB5 从包头开始逐个进行异或运算的“异或校检码”，校检数据的完整性用

第11个字节 &HB2 表示包尾

上面这个包主要由6个部分组成

1、包头 用来进行包的初始化识别

2、命令 扩展包协议用，如传输语句、传输控制指令、移动记录等

3、数据长度 我这里的例子是用两个字节表示长度，即最多一个包传输65536个字节的数据

4、数据区域 具体要传输的数据段落

5、异或校检码 为了检测数据的完整性，也可以用CRC16或CRC32等算法进行数据校检

6、包尾 用来完整识别一个包内容的结束标志

通过上面这个包结构，可以在数据包里放置小于65536个字节的内容进行传输

在处理传输数据时可以这么做：

Type SendReport

sr_head As Byte ' 固定为 &HB1

sr_cmd As Byte ' 命令

sr_size As Integer ' 数据大小

sr_data() As Byte ' 数据内容

sr_xor As Byte ' 异或校检码

sr_end As Byte ' 固定为 &HB2

End Type

Type SendRF

rs_type As Integer ' 字段类型

rs_NameSize As Integer ' 字段名称字节数

rs_name() As Byte ' 字段名称内容

rs_size As Integer ' 字段数据大小

rs_data() As Byte ' 字段数据内容

End Type

Type SendRS

rs_fcount As Integer ' 字段数量

rs_data() As SendRF ' 字段数据

End Type

然后把数据集的数据赋值到上面的机构体里，再把结构体的数据格式化到一个字节数组中，便可把这个字节数组发送出去，接收端只要根据格式提取出相关数据到结构体，就可以实现数据的还原过程。在过程里只要善用 CopyMemory API 就可以很容易实现这种过程的处理，如

Dim SR As SendReport

Dim SentBytes() as Byte

Dim i As Long

SRsr_head = &HB1:SRsr_xor = SRsr_head

SRsr_cmd = &H01:SRsr_xor = SRsr_xor xor SRsr_cmd

SRsr_size = &H05:SRsr_xor = SRsr_xor xor SRsr_size

Redim SRsr_data(4)

for i=0 to ubound(SRsr_data)

SRsr_xor = SRsr_xor xor SRsr_data(i)

next i

SRsr_end = &HB2

Redim SentBytes(10)

CopyMemory SentBytes(0),SRsr_head,1

CopyMemory SentBytes(1),SRsr_cmd,1

CopyMemory SentBytes(2),SRsr_size,2

CopyMemory SentBytes(4),SRsr_data(0),5

SentBytes(Ubound(SentBytes)-1) = SRsr_xor

SentBytes(Ubound(SentBytes)) = SRsr_end

Winsock1SendData SentBytes

当然上面只是封包的过程，没有设置具体的数据集数据，不过原理也差不多，也就是读写SendRF和SendRS结构的问题。具体的自己做做看吧。

用ADO远程连接SQL的编写方式和局域网内部的是一样的，如果你在内网能够访问SQL的话，那么在公网上你需要在远端路由器上开启IP地址及端口映射，比如，SQL服务器的内网IP 是192168225 而外网地址是125505861 的话，你就必须在路由器上 添加125505861:443 到 192168225:443的映射记录。最好在SQL服务器上的防火墙里也添加上443端口例外。然后在程序里指定ADO的连接地址为125505861(SQL服务器的外网地址) 最后补充一下，通过公网直接访问SQL是不推荐的做法，主要是因为安全问题以及效率问题。一般的做法是在服务器端开发相应的数据服务程序，用于和客户端通信。建议你看看B/S和C/S两种架构。