取网关地址和当前局域网ip

咸鱼666 · 发表于 2022-9-9 13:38:46

zjfjm 发表于 2022-9-9 13:25
如果只是nei网的IP，这个就可实现调试输出 (取本机IP ())如果中网关。以下代码就可以[e=0].版本 2
.支持 ...

如果是多网卡的呢

zjfjm · 发表于 2022-9-9 13:28:36

本帖最后由 zjfjm 于 2022-9-9 13:40 编辑

加上一个常量1的内容

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colAdapters = objWMIService.ExecQuery _
  ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

For Each objAdapter in colAdapters
If Not IsNull(objAdapter.DefaultIPGateway) Then
   For i = 0 To UBound(objAdapter.DefaultIPGateway)
   a=a & objAdapter.DefaultIPGateway(i) & ";"
   Next
End If

Next
Public Function IP
  IP=a
End Function

happyweeks365 · 发表于 2022-9-9 13:27:43

6666666666666666666

zjfjm · 发表于 2022-9-9 13:26:19

本帖最后由 zjfjm 于 2022-9-9 13:37 编辑

如果是用CMD取WAI网。就要用到curl命令在c中运行可获得，不过有些麻烦。机子上要装那个CURL组件

zjfjm · 发表于 2022-9-9 13:25:42

咸鱼666 发表于 2022-9-9 12:49
这是取局域网网关和局域网ip，又不是取本机wai网ip

如果只是nei网的IP，这个就可实现调试输出 (取本机IP ())如果中网关。以下代码就可以

子程序名	返回值类型	公开	备注
_按钮1_被单击

变量名	类型	静态	数组	备注
IP	文本型		0
wb	文本型
i	整数型

脚本组件1.执行 ( #常量1 )
wb ＝脚本组件1.运行 (“IP”, )
IP ＝分割文本 (wb, “;”, )

计次循环首 (取数组成员数 (IP), i)

列表框1.加入项目 (IP [i], )

计次循环尾 ()
编辑框1.内容＝取列表框文本 (列表框1)

子程序名	返回值类型	公开	备注
取列表框文本	文本型
参数名	类型	参考	可空	数组	备注
列表框	列表框

变量名	类型	静态	数组	备注
i	整数型
项目	文本型

计次循环首 (列表框.取项目数 (), i)

如果 (i ＝ 1)

项目＝列表框.取项目文本 (0)

' 项目＝项目＋ “/” ＋列表框.取项目文本 (i － 1)

计次循环尾 ()
返回 (项目)

子程序名	返回值类型	公开	备注
_按钮2_被单击

打开指定网址 (“http://” ＋到文本 (编辑框1.内容))

i支持库列表	支持库注释
script	脚本语言支持组件
eAPI	应用接口支持库

zjfjm · 发表于 2022-9-9 13:23:22

本帖最后由 zjfjm 于 2022-9-9 13:34 编辑

浏览器出错。出现的重复贴

zjfjm · 发表于 2022-9-9 13:21:37

本帖最后由 zjfjm 于 2022-9-9 13:35 编辑

如果只是nei网的IP的话。易模块自带命令就可实现吧

咸鱼666 · 发表于 2022-9-9 12:49:28

zjfjm 发表于 2022-9-9 12:47
有点误导吧。CMD最多是用 tracert 能知道几个跃点。而不能得到本机WAI网的IP地址、 ...

这是取局域网网关和局域网ip，又不是取本机wai网ip

zjfjm · 发表于 2022-9-9 12:47:21

咸鱼666 发表于 2022-9-9 12:39
直接获取当前访问wai网的网关和局域网ip

有点误导吧。CMD最多是用 tracert 能知道几个跃点。而不能得到本机WAI网的IP地址、

咸鱼666 · 发表于 2022-9-9 12:39:59

zjfjm 发表于 2022-9-9 12:18
怎么没有图？如果只是nei网IP和网关获取，易模块直接就可以

直接获取当前访问wai网的网关和局域网ip

		自动登录	找回密码
密码			注册

[易源码分享] 取网关地址和当前局域网ip