易语言实现ARP欺骗后怎么实现接收ARP包

1、新建一个窗口程序后在程序上画两个标签，一个按钮，当我们按下按钮时，本机IP地址和MAC便展示在标签1和标签2上，把标签1标题改为“本机IP地址”，标签2改为“本机MAC”地址。

2、我在窗口程序中点击“按钮1”，会生成子程序名为“_按钮1_被单击”，我们在下面开始编写代码，其实“取IP地址 ()”是易中的核心支持库提供的程序。

3、然后我们运行程序上方工具栏中的右三角形按钮，如果没有在调试运行程序，那么应该是黑色的，但是此时我已经开始了调试。

4、我们接下来写取得MAC地址的程序，在之前的代码后面追加代码如下：标签2标题 ＝ 取本机网卡物理地址 ()。

5、如果你想取局域网其他主机的IP地址那么，把之前的代码变动一下就OK了，代码更改后如下：标签1标题 ＝ 取IP地址 (“rxtserver”)其中包冒号引起来的部分“rxtserver”，是主机名，主机名是文本型的，所以必须用冒号引起来即可。

原来我们想做同样的东西啊 那讨论一下吧 我这么实现了 可以总觉的别扭而且容易出错 不知道别人怎么弄

版本 2

运行 (“cmd /c ipconfig /all >>” ＋ 读环境变量 (“TEMP”) ＋ “\tmp1txt”, 真, #隐藏窗口)

网卡ip信息 ＝ 取字节集数据 (读入文件 (读环境变量 (“TEMP”) ＋ “\tmp1txt”), #文本型, )

网络位置1 ＝ 寻找文本 (网卡ip信息, “Ethernet adapter ”, , 真) ＋ 17

网络位置2 ＝ 寻找文本 (网卡ip信息, “:”, 网络位置1, 真)

DNS位置1 ＝ 寻找文本 (网卡ip信息, “DNS Servers :”, , 真) ＋ 36

DNS位置2 ＝ 寻找文本 (网卡ip信息, “ NetBIOS over Tcpip :”, , 真)

DNS名称标题 ＝ 取文本中间 (网卡ip信息, DNS位置1, DNS位置2 － DNS位置1)

列表框1加入项目 (“首选DNS : ” ＋ 取文本左边 (DNS名称标题, 16), )

列表框1加入项目 (“备用DNS :” ＋ 取文本右边 (DNS名称标题, 16), )

第一个是获取内网MAC地址，第二个获取内网IP地址

代码:

@echo off&setlocal enabledelayedexpansion

for /f "delims=" %%a in ('ipconfig/all') do call:a "%%a"

for /f "tokens=2 delims=:" %%a in ('ipconfig /all^|find "Physical Address"') do set MAC=%%a

ipconfig /all>"%temp%\ipListtxt"

for /f "tokens=1 delims=:" %%a in ('findstr /n "Ethernet adapter" "%temp%\ipListtxt"') do (

set SkipRow=%%a

goto :DoSkip

)

:DoSkip

for /f "usebackq skip=%SkipRow% tokens=1,15" %%a in ("%temp%\ipListtxt") do (

if "%%a" equ "IP" (

set IP=%%b

goto :ShowResult

)

)

:ShowResult

echo;%ip%：%e%

pause

:a

set "a=%~1"

if defined a if not "!a:~0,1!"==" " set "b=!a:~0,1!"

for /f "tokens=1,2 delims=: " %%b in ("%~1") do if /i "%%b %%c"=="Physical Address" set %b%=%%d

以上就是关于易语言实现ARP欺骗后怎么实现接收ARP包全部的内容，包括:易语言实现ARP欺骗后怎么实现接收ARP包、易语言获取网络连接名称、易语言怎么取本机ip等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！