xsso 发表于 2022-7-6 18:29:29

LISP怎么获取IP地址

LISP获取IP地址吗，网域的，或者有更牛逼的麻烦指导一下

highflybird 发表于 2022-7-6 18:29:30

如果是局域网，可以这样
(defun c:GetIP (/ SWbemLocator Service IPSet lst IP Address)
(setq SWbemLocator (vlax-create-object "WbemScripting.SWbemLocator"))   
(setq Service (vlax-invoke SWbemLocator 'ConnectServer))
(setq IPSet (vlax-invoke Service 'InstancesOf "Win32_NetworkAdapterConfiguration"))
(setq lst nil)
(vlax-for IP IPSet
    (if (setq Address (vlax-get IP 'IPAddress ))
      (setq lst (cons Address lst))
    )
)
(vlax-release-object IPSet)
(vlax-release-object Service)
(vlax-release-object SWbemLocator)

(reverse lst)
)

这样可以获得电脑上所有网卡（包括虚拟的）的局域网IP。

baitang36 发表于 2022-7-6 19:07:12

找到一个，没试过，你试试
(vl-load-com)
(defun LXY-IP (/ aspip xml)
        (setq xml (vlax-create-object "Microsoft.XMLHTTP"))
(vlax-invoke xml 'open "get" "http://www.3322.org/dyndns/getip" 0)
(vlax-invoke xml 'setrequestheader "If-Modified-Since" 0)
        (vlax-invoke xml 'send)
(setq aspip (vlax-get xml "responseText"))
(princ aspip)
(princ)
)

utopio 发表于 2022-7-6 20:27:19

baitang36 发表于 2022-7-6 19:07
找到一个，没试过，你试试
(vl-load-com)
(defun LXY-IP (/ aspip xml)


可以。

简单测试了一下

xsso 发表于 2022-7-7 09:41:16

baitang36 发表于 2022-7-6 19:07
找到一个，没试过，你试试
(vl-load-com)
(defun LXY-IP (/ aspip xml)


666，应该是获得了外网IP，能获得局域IP吗

mokson 发表于 2022-7-7 09:45:49

这都是接口调用，并不是 lst 本身功能

自贡黄明儒 发表于 2022-7-8 12:30:51

(command "Shell" "cmd.exe /K IPconfig/all")

xsso 发表于 2022-7-8 18:11:07

自贡黄明儒 发表于 2022-7-8 12:30
(command "Shell" "cmd.exe /K IPconfig/all")

666，可惜只有高版本可以执行这个，不过不知怎么将数据读回来

自贡黄明儒 发表于 2022-7-9 07:29:38

本帖最后由 自贡黄明儒 于 2022-7-9 08:16 编辑

xsso 发表于 2022-7-8 18:11
666，可惜只有高版本可以执行这个，不过不知怎么将数据读回来
win7 08
(command "Shell" "cmd.exe /K IPconfig/all > D:\\ip.txt")
(startapp "cmd.exe /K IPconfig/all > D:\\ip.txt")

ipconfig /all:显示本机TCP/IP配置的详细信息;ipconfig /release DHCP客户端手工释放IP地址;ipconfig /renew DHCP客户端手工向服务器刷新请求;ipconfig /flushdns:清除本地DNS缓存内容;ipconfig /displaydns:显示本地DNS内容;ipconfig /registerdns DNS客户端手工向服务器进行注册;ipconfig /showclassid:显示网络适配器的DHCP类别信息;ipconfig /setclassid:设置网络适配器的DHCP类别。ipconfig /renew "Local Area Connection":更新"本地连接"适配器的由 DHCP 分配 IP 地址的配置ipconfig /showclassid Local*:显示名称以 Local 开头的所有适配器的 DHCP 类别 IDipconfig /setclassid "Local Area Connection" TEST:将"本地连接"适配器的 DHCP 类别 ID 设置为 TEST

highflybird大师getip返回 ((IPv4 地址   本地链接 IPv6 地址))，但用dos可以返回丰富内容

qmotuo 发表于 2022-7-11 18:15:55

还有这样玩的，牛逼
页: [1] 2
查看完整版本: LISP怎么获取IP地址