• 按键公众号 ：
按键精灵电脑版
立即下载

软件版本：2014.06
软件大小：22.9M
更新时间：2021-12-03

按键精灵安卓版
立即下载

软件版本：3.7.2
软件大小：46.2M
更新时间：2023-05-10

按键精灵iOS版
立即下载

软件版本：1.8.0
软件大小：29.2M
更新时间：2023-03-21

按键手机助手
立即下载

软件版本：3.8.0
软件大小：262M
更新时间：2023-05-30

快捷导航

请 登录 后使用快捷导航
没有帐号？ 注册

登录 注册
返回列表
发新话题 回复该主题
查看: 6606|回复: 18

IP地址查询（源码） [复制链接]

瑞祥幽冥狼
头像

按 键 工 程 师 ● 兼 职

  • 超级版主
  • 1228894
  • 26984
  • 25
  • 8059 朵
  • 36138 个
  • 4755 个
  • 421340
  • 2012-07-18
按键X开拓者勋章过大年勋章双十一绝版纪念勋章抗战胜利70周年勋章单身汪勋章按键14周年庆纪念勋章按键学院幸运草勋章马年勋章鹰眼勋章黄瓜勋章天使勋章按键明星黄金之翼举报达人活动狂人骨灰级按键用户按键精灵开发者6级龙年勋章十周年勋章兔年勋章论坛GG发帖高手爱心大使学有所成按键运营团队按键元老管理人员
1#
t T
发表于 2012-10-29 16:33 | |只看楼主
本帖最后由 n15976906190 于 2014-8-22 10:31 编辑
  1. 返回值 = Lib.网络.获得网页源文件("http://www.cnproxy.com/ipwhois.php")
  2. Call Plugin.Sys.SetCLB(返回值)
  3. MyPos = Instr(返回值,"您的ip地址是: ")
  4. MyVar = Mid(返回值,MyPos+14,15)
  5. MessageBox MyVar
复制代码
  1. 返回值 = Lib.网络.获得网页源文件("http://pv.sohu.com/cityjson?ie=gb2312")
  2. MyPos = Split(返回值,": """)(1)
  3. TracePrint MyPos
  4. MyVar = Split(MyPos,chr(34))(0)
  5. MessageBox MyVar
复制代码

    已有14评分我要评分查看所有评分
    点赞
    回顶部
    dingxf0228
    头像

    dingxf0228

    • 博士后
    • 3751347
    • 5992
    • 0
    • -26 朵
    • 5691 个
    • -21 个
    • 9380
    • 2016-02-10
    2#
    t T
    发表于 2016-11-19 02:40 | |只看该用户

    顶一下吧~

    回顶部
    dan061116
    头像

    末影龙

    • 博士后
    • 3761013
    • 5938
    • 0
    • -34 朵
    • 3570 个
    • -37 个
    • 7280
    • 2016-02-16
    按键精灵开发者1级
    3#
    t T
    发表于 2016-11-19 02:40 | |只看该用户

    哦～～～～

    回顶部
    上一主题| 下一主题
    返回列表
    发新话题 回复该主题
    高级编辑器高级编辑器