调用纯真IP库 VB 源码

F-F · 发表于 2022-11-11 20:36

源码由网上收集，调用纯真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

a2978052 · 发表于 2022-11-11 20:36

多谢楼主分享

g012367 · 发表于 2022-11-11 20:54

谢谢分享！

yugan · 发表于 2022-11-11 21:18

6666

wwwffffd · 发表于 2022-11-11 22:04

支持楼主，谢谢分享。

3020298681 · 发表于 2022-11-11 22:36

谢谢分享

chen0405 · 发表于 2022-11-12 04:35

先收藏了，万一用到呢

367116954 · 发表于 2022-11-12 21:22

感谢楼主分享

xiajunling · 发表于 2022-11-13 02:50

谢谢大佬

		自动登录	找回密码
密码			注册[Register]