vb邮编区号查询

如图，很急！！

2025-03-02 11:25:00

推荐回答（5个）

回答1：

用inet从网络获取
加一个text供输入地名
Private Sub Command1_Click()

b = Inet1.OpenURL("http://www.ip138.com/post/search.asp?action=area2zip&area=" & Text1)

a = InStr(1, b, "邮编：")
d = InStr(a + 1, b, " ")
c = InStr(a + 1, b, "区号")
e = InStr(c + 1, b, "")
MsgBox Mid(b, a, d - a)
MsgBox Mid(b, c, d - a - 2)
End Sub

回答2：

你有这些个区号、邮编的数据库吗？还是要自己编码写入？？没数据库，工程量就大了

回答3：

我有数据库，也会查询。只是没装VB。

回答4：

你QQ多少

回答5：

发数据库到594945862@qq.com