调用纯真IP库 VB 源码

温总发表于 2022-11-11 17:29

源码由网上收集，调用纯真IP库 VB 源码

Private Sub Command1_Click()
aa = Text1.Text
aa = Replace(aa, vbCrLf, "")
aa = Replace(aa, " ", "")
For i = 1 To Len(aa)
If InStr("1234567890.", Mid(aa, i, 1)) = 0 Then MsgBox "输入的IP地址有误!", , "提示": Exit Sub
Next
Dim IP As New QQWry
Call IP.QQWry(Text1.Text)
Text2.Text = "IP：" & Text1.Text & vbCrLf & "地区：" & IP.Country & " " & IP.LocalStr
End Sub

演示图如下；

源码下载：
链接: https://pan.baidu.com/s/15UtRKs6wxodU8Q0QNSQecA 提取码: 5ima

aa868682008 发表于 2022-11-11 19:13

不如发个成品，这样着急个人。

中国新蔡 发表于 2022-11-11 19:29

感谢分享，非常不错！

likaiaixuexi 发表于 2022-11-11 21:21

很早以前经常用这个软件，查IP，抓鸡

KKBon 发表于 2022-11-12 12:48

能不能把IP和所在的城市导出成csv或者excel

ygdn 发表于 2022-11-12 15:20

原来QQ外挂用这个库，现在很少再用。

guaishouxxx 发表于 2022-11-13 13:29

很早以前经常用这个软件，查IP,感谢大佬分享

页: [1]

吾爱破解 - 52pojie.cn's Archiver

调用纯真IP库 VB 源码