找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 已解决问题区 › 求AU3调用API操作ARP实例！！
12下一页
返回列表 发新帖
查看: 13175|回复: 22

求AU3调用API操作ARP实例！！

 火 [复制链接]
FBWOLF
发表于 2009-5-28 12:26:28 | 显示全部楼层 |阅读模式
本帖最后由 FBWOLF 于 2009-5-29 18:09 编辑

例:创建ARP列表项目
删除ARP列表项目
修改ARP列表项目



以下是DELPHI代码，供各位参考！

//那我就不客气了。   
  //代码在下面   
   
  unit   Unit1;   
   
  interface   
   
  uses   
      Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms,   Dialogs,   
      StdCtrls,   WinSock;   
   
  const   
      MAXLEN_PHYSADDR   =   8;   
  type   
      TMACArr6   =   array   [0..MAXLEN_PHYSADDR-1]   of   Byte;   
      TMAC_ADDR6   =   record   
          case   integer   of   
              0:   (bAddr:   TMACArr6);   
              1:   (DW:   DWORD;   WD:   WORD);   
      end;   
      PMAC_ADDR6   =   ^TMAC_ADDR6;   
      TMIB_IPNETROW   =   Record   
          dwIndex:   DWORD;   
          dwPhysAddrLen:   DWORD;   
          bPhysAddr:   TMACArr6;   
          dwAddr:   DWORD;   
          dwType:   DWORD;   
      end;   
      PMIB_IPNETROW   =   ^TMIB_IPNETROW;   
      TMIB_IPNETTABLE   =   Record   
          dwNumEntries:   DWORD;   
          table:   array   [0..10000]   of   TMIB_IPNETROW;   
      end;   
      PMIB_IPNETTABLE   =   ^TMIB_IPNETTABLE;   
   
      TForm1   =   class(TForm)   
          Button1:   TButton;   
          Memo1:   TMemo;   
          procedure   Button1Click(Sender:   TObject);   
      private   
          {   Private   declarations   }   
          procedure   GetARPTable();   
      public   
          {   Public   declarations   }   
      end;   
   
  var   
      Form1:   TForm1;   
   
  function   GetIpNetTable(pIpNetTable:   PMIB_IPNETTABLE;   var   pdwSize:   DWORD;   
                  bOrder:   Boolean):   DWORD;   stdcall;   
                  external   'IPHLPAPI.DLL'   name   'GetIpNetTable';   
  function   SetIpNetEntry(pArpEntry:   PMIB_IPNETROW):   DWORD;   stdcall;   
                  external   'IPHLPAPI.DLL'   name   'SetIpNetEntry';   
   
  implementation   
   
  {$R   *.DFM}   
  //取得ARP表所有的行   
  procedure   TForm1.GetARPTable();   
  var   
      buf:   array   [0..4095]   of   BYTE;   
      pIPNet:   PMIB_IPNETTABLE;   
      dwSize:   DWORD;   
      i:   integer;   
      pmac:   PMAC_ADDR6;   
      smac:   string;   
  begin   
      pIPNet   :=   @buf;   
      dwSize   :=   4096;   
      if   GetIpNetTable(pIPNet,   dwSize,   True)   =   0   then   
          for   i   :=   0   to   pIPNet.dwNumEntries-1   do   //   循环，ARP表每条处理一次   
          with   pIPNet.table   do   
          begin   
              pmac   :=   @bPhysAddr;   
              if   (pmac.DW   <>   0)   and   (pmac.WD   <>   0)   then   //   忽略MAC全0的行   
              begin   
                  //   inet_ntoa(in_addr(dwAddr));   //   得到该行IP与MAC   
                  smac   :=   IntToHex(bPhysAddr[0],2)+   
                                  IntToHex(bPhysAddr[1],2)+   
                                  IntToHex(bPhysAddr[2],2)+   
                                  IntToHex(bPhysAddr[3],2)+   
                                  IntToHex(bPhysAddr[4],2)+   
                                  IntToHex(bPhysAddr[5],2);   
                  Memo1.Lines.Add(inet_ntoa(in_addr(dwAddr))   +   '     '   +   smac);   
              end;   
          end;   
  end;   
  //   修改一个已存在的行   
  procedure   ChangeIPNetRow(Adapter:   DWORD;   dwAddr:   DWORD;   bAddr:   TMACArr6);   
  var   
      mibrow:   TMIB_IPNETROW;   
  begin   
      mibrow.dwIndex   :=   Adapter;   
      mibrow.dwPhysAddrLen   :=   6;   
      mibrow.bPhysAddr   :=   bAddr;   
      mibrow.dwAddr   :=   dwAddr;   
      mibrow.dwType   :=   2;   //   invalid   
      SetIpNetEntry(@mibrow);   
  end;   
   
  procedure   TForm1.Button1Click(Sender:   TObject);   
  begin   
      GetARPTable();   
  end;   
   
  end.
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
FBWOLF
 楼主| 发表于 2009-5-28 18:55:23 | 显示全部楼层
不会吧,真的没人会吗?
回复

举报

pusofalse
发表于 2009-5-28 21:15:14 | 显示全部楼层
不是没人会，大概是没有技术含量，高手们迟迟不肯出招。
Func _inet_addr($sAddr)
        Local $iAddr
        $iAddr = DllCall("Ws2_32.dll", "long", "inet_addr", "str", $sAddr)
        Return $iAddr[0]
EndFunc        ;==>_inet_addr()

Func _inet_ntoa($iAddr)
        Local $sAddr
        $sAddr = DllCall("Ws2_32.dll", "str", "inet_ntoa", "long", $iAddr)
        Return $sAddr[0]
EndFunc        ;==>_inet_ntoa()


Func _FormatMac($sMac, $iString = True)
        If $iString Then
                $sMac = StringTrimLeft($sMac, 2)
                Return StringTrimRight(StringRegExpReplace($sMac, ".{2}", "\0:"), 1)
        Else
                Return "0x" & StringReplace($sMac, ":", "")
        EndIf
EndFunc        ;==>_FormatMac()


Func _GetIpNetTable()
        Local $iResult, $tBuffer, $pBuffer, $tIpTable
        Local $aResult[1][4], $tNum, $tagIpTable, $iIndex

        $iResult = DllCall("iphlpapi.dll", "dword", "GetIpNetTable", _
                        "ptr", 0, "int*", 0, "int", 1)
        If $iResult[2] = 0 Then Return SetError($iResult[0], 0, $aResult)

        $tBuffer = DllStructCreate("ubyte[" & $iResult[2] & "]")
        $pBuffer = DllStructGetPtr($tBuffer)
        $iResult = DllCall("iphlpapi.dll", "dword", "GetIpNetTable", _
                        "ptr", $pBuffer, "int*", $iResult[2], "int", 1)

        $tNum = DllStructCreate("dword", $pBuffer)
        $aResult[0][0] = DllStructGetData($tNum, 1)
        Redim $aResult[$aResult[0][0] + 1][4]
        For $i = 1 to $aResult[0][0]
                $tagIpTable &= ";dword[2];byte[8];dword[2]"
        Next
        $tIpTable = DllStructCreate("dword" & $tagIpTable, $pBuffer)
        For $i = 2 to $aResult[0][0] * 3 Step 3
                $iIndex += 1
                $aResult[$iIndex][0] = DllStructGetData($tIpTable, $i, 1)
                $aResult[$iIndex][1] = _FormatMac(DllStructGetData($tIpTable, $i + 1))
                $aResult[$iIndex][2] = _inet_ntoa(DllStructGetData($tIpTable, $i + 2, 1))
                $aResult[$iIndex][3] = DllStructGetData($tIpTable, $i + 2, 2)
        Next
        $tNum = 0
        $tBuffer = 0
        $tIpTable = 0
        Return SetError($iResult[0], 0, $aResult)
EndFunc        ;==>_GetIpNetTable()

Func _SetIpNetEntry($iAdptIndex, $sAddr, $sMac, $sType = "Static")
        Local $iResult, $iAddr, $iMac, $tIpNetRow, $pIpNetRow, $iType

        Switch $sType
        Case "Dynamic"
                $iType = 3
        Case Else
                $iType = 4
        EndSwitch

        $iAddr = _inet_addr($sAddr)
        $iMac = _FormatMac($sMac, 0)
        $tIpNetRow = DllStructCreate("dword[2];byte[8];dword[2]")
        $pIpNetRow = DllStructGetPtr($tIpNetRow)
        DllStructSetData($tIpNetRow, 1, $iAdptIndex, 1)
        DllStructSetData($tIpNetRow, 1, (StringLen($iMac) - 2) / 2, 2)
        DllStructSetData($tIpNetRow, 2, $iMac)
        DllStructSetData($tIpNetRow, 3, $iAddr, 1)
        DllStructSetData($tIpNetRow, 3, $iType, 2)
        $iResult = DllCall("iphlpapi.dll", "long", "SetIpNetEntry", "ptr", $pIpNetRow)
        $tIpNetRow = 0
        Return SetError($iResult[0], 0, $iResult[0] = 0)
EndFunc        ;==>_SetIpNetEntry()

Func _DeleteIpNetEntry($iAdptIndex, $sAddr)
        Local $iResult, $iAddr, $tIpNetRow, $pIpNetRow

        $iAddr = _inet_addr($sAddr)
        $tIpNetRow = DllStructCreate("dword[2];byte[8];dword[2]")
        $pIpNetRow = DllStructGetPtr($tIpNetRow)
        DllStructSetData($tIpNetRow, 1, $iAdptIndex, 1)
        DllStructSetData($tIpNetRow, 3, $iAddr, 1)
        $iResult = DllCall("iphlpapi.dll", "long", "DeleteIpNetEntry", "ptr", $pIpNetRow)
        $tIpNetRow = 0
        Return SetError($iResult[0], 0, $iResult[0] = 0)
EndFunc        ;==>_DeleteIpNetEntry()

评分

参与人数 2金钱 +15 贡献 +10 收起 理由
FBWOLF + 5 + 5 太感谢了！
sensel + 10 + 5 热心的高手

查看全部评分

回复

举报

sensel
发表于 2009-5-29 10:39:01 | 显示全部楼层
3# pusofalse

pusofalse兄，谢谢！
其实。。。我一早就搬了凳子等你放出代码。。。呵呵
学习一下，终于可以放弃arp.exe了。
回复

举报

FBWOLF
 楼主| 发表于 2009-5-29 10:46:29 | 显示全部楼层
谢谢了！我先去试试了！
回复

举报

FBWOLF
 楼主| 发表于 2009-5-29 11:18:16 | 显示全部楼层
不好意思，我没调用成功

$iAdptIndex是什么呢？
对API操作实在是半窍不通啊！
回复

举报

sensel
发表于 2009-5-29 11:41:58 | 显示全部楼层
问题：
1. $iAdptIndex 应该是网络适配器索引，也就是arp.exe中的if_addr。arp.exe中如果未指定if_addr，它是使用第一个可用接口。那么如何做到arp.exe这个效果？或者说未指定$iAdptIndex时如何直接获取？
2. _GetIpNetTable返回的PhysAddr，前6位是MAC地址，后2位是什么？如果没什么用的话，可否直接返回MAC地址？
回复

举报

sensel
发表于 2009-5-29 11:43:39 | 显示全部楼层
不好意思，我没调用成功

$iAdptIndex是什么呢？
对API操作实在是半窍不通啊！
FBWOLF 发表于 2009-5-29 11:18


网络适配器索引，就是arp -a里显示的 Interface: 192.168.0.100 --- 0x10003 后面这个数字。
回复

举报

FBWOLF
 楼主| 发表于 2009-5-29 11:48:09 | 显示全部楼层
谢谢楼上兄弟！
回复

举报

FBWOLF
 楼主| 发表于 2009-5-29 11:49:12 | 显示全部楼层
找到了一段PB的获取网卡编号代码，给楼上兄弟参考了！兄弟研究好了！麻烦共享下，同谢！

FUNCTION Getdwindex() AS DWORD'DIM ifT AS MIB_IFTABLE
DIM lenIfT AS DWORD
DIM RValue AS LONG
DIM i AS LONG
LenIfT = LEN(ifT)
RValue = GetIfTable(ifT, LenIfT, 1)
FOR i = 0 TO ifT.dwNumEntries - 1
    IF ifT.Table(i).dwType = 6 THEN
     FUNCTION=(ifT.Table(i).dwIndex)
   END IF
NEXT
END FUNCTION
回复

举报

sensel
发表于 2009-5-29 12:02:00 | 显示全部楼层
额。。。不好意思，我也是菜鸟。。。
还要请pusofalse兄出手啊。
回复

举报

make2855
发表于 2009-5-29 12:46:16 | 显示全部楼层
高人，这段代码是上面的DELPHI代码翻译过来的？造福人类啊，强烈建议放到汉化版里面去！
回复

举报

sensel
发表于 2009-5-29 14:13:28 | 显示全部楼层
本帖最后由 sensel 于 2009-5-29 15:06 编辑

照葫芦画瓢。。。
弄了半天总算可以了。_GetIfTable()返回数组，第一个[n][2] = 6的元素，[n][0]即为第一个可用接口的索引。

代码见下帖。有个问题，DllStructGetData($tIfTable, $i)返回值是空的，我不懂。。。
回复

举报

sensel
发表于 2009-5-29 15:05:49 | 显示全部楼层
本帖最后由 sensel 于 2009-5-29 19:07 编辑

总算可用了，跟arp.exe说声88~~~
我又乱改pusofalse兄的代码了。。。pusofalse兄请勿见怪

最终结果。。。不玩了
Opt("MustDeclareVars", 1)

Local Const $sIP = "192.168.0.22", $sMac = "00:20:21:22:CC:DD"
Local $aIfTable, $iIndex = 0

$aIfTable = _GetIfTable()
For $i = 1 To $aIfTable[0][0]
        If $aIfTable[$i][2] = 6 Then
                _FlushIpNetTable($aIfTable[$i][0]) ; 清空ARP表
                If $iIndex = 0 Then $iIndex = $aIfTable[$i][0] ; 获取第一个可用网络适配器索引号
        EndIf
Next
If $iIndex <> 0 Then ; 绑定 MAC
        _SetIpNetEntry($iIndex, $sIP, $sMac)
EndIf

Exit


;===============================================================================
; 说明:   获取 IP地址-物理地址 映射表
; 语法:   _GetIpNetTable([$sIPAddr = ""])
; 参数:   $sIPAddr - [可选] IP地址
; 需要:   无
; 返回:   成功 - 二维数组, 结构:
;         $array[0][0] - ARP项目总数
;         $array[1][0] - 网络适配器索引号
;         $array[1][1] - IP地址
;         $array[1][2] - 物理地址
;         $array[1][3] - ARP项目类型: 4 - 静态, 3 - 动态, 2 - 无效, 1 - 其他
;         ...
;         [n][0] 至 [n][10] - 第 n ARP项目信息
;         失败 - 空列表数组 [0][0] = 0, 并设置 @error 到 1, @extended 到API操作返回值
; 备注:   出处: http://www.autoitx.com/forum.php?mod=viewthread&tid=7308 3#, 作者: pusofalse
;===============================================================================
Func _GetIpNetTable($sIPAddr = "")
        Local $aResult, $sAddr, $sPhysAddr, $iPhysAddrLen, $iIndex = 0, $aIpNetTable[1][4] = [[0]]
        Local $tBuffer, $pBuffer, $tNum, $tagIpTable = "", $tIpTable, $iNumber

        $aResult = DllCall("iphlpapi.dll", "dword", "GetIpNetTable", _
                        "ptr", 0, "int*", 0, "int", 1)
        If $aResult[2] = 0 Then Return SetError(1, $aResult[0], $aIpNetTable)

        $tBuffer = DllStructCreate("ubyte[" & $aResult[2] & "]")
        $pBuffer = DllStructGetPtr($tBuffer)
        $aResult = DllCall("iphlpapi.dll", "dword", "GetIpNetTable", _
                        "ptr", $pBuffer, "int*", $aResult[2], "int", 1)

        $tNum = DllStructCreate("dword", $pBuffer)
        $iNumber = DllStructGetData($tNum, 1)
        For $i = 1 To $iNumber
                $tagIpTable &= ";dword[2];byte[8];dword[2]"
        Next
        $tIpTable = DllStructCreate("dword" & $tagIpTable, $pBuffer)

        For $i = 2 To $iNumber * 3 Step 3
                $sAddr = DllStructGetData($tIpTable, $i + 2, 1)
                $sAddr = _inet_ntoa($sAddr)
                $iPhysAddrLen = DllStructGetData($tIpTable, $i, 2)
                $sPhysAddr = DllStructGetData($tIpTable, $i + 1)
                $sPhysAddr = StringLeft($sPhysAddr, 2 + $iPhysAddrLen * 2)
                $sPhysAddr = _FormatMac($sPhysAddr)
                If $sIPAddr <> "" AND $sIPAddr <> $sAddr Then ContinueLoop

                $iIndex += 1
                ReDim $aIpNetTable[$iIndex + 1][4]
                $aIpNetTable[$iIndex][0] = DllStructGetData($tIpTable, $i, 1)
                $aIpNetTable[$iIndex][1] = $sAddr
                $aIpNetTable[$iIndex][2] = $sPhysAddr
                $aIpNetTable[$iIndex][3] = DllStructGetData($tIpTable, $i + 2, 2)
        Next
        $aIpNetTable[0][0] = $iIndex

        Return SetError($aResult[0], 0, $aIpNetTable)
EndFunc   ;==>_GetIpNetTable

;===============================================================================
; 说明:   获取 MIB-II 接口表
; 语法:   _GetIfTable()
; 参数:   无
; 需要:   无
; 返回:   成功 - 二维数组, 结构:
;         $array[0][0] - 接口总数
;         $array[1][0] - 第一接口索引号
;         $array[1][1] - 第一接口名称
;         $array[1][2] - 第一接口类型
;         $array[1][3] - 第一接口MTU字节数
;         $array[1][4] - 第一接口连接速度
;         $array[1][5] - 第一接口物理地址
;         $array[1][6] - 第一接口管理状态
;         $array[1][7] - 第一接口操作状态
;         $array[1][8] - 第一接口持续时间
;         $array[1][9] - 第一接口接收字节数
;         $array[1][10] - 第一接口接收单播数据包
;         $array[1][11] - 第一接口接收广播和组播数据包
;         $array[1][12] - 第一接口接收数据包丢弃数
;         $array[1][13] - 第一接口接收数据包错误数
;         $array[1][14] - 第一接口接收未知协议数据包
;         $array[1][15] - 第一接口发送字节数
;         $array[1][16] - 第一接口发送单播数据包
;         $array[1][17] - 第一接口发送广播和组播数据包
;         $array[1][18] - 第一接口发送数据包丢弃数
;         $array[1][19] - 第一接口发送数据包错误数
;         $array[1][20] - 第一接口传输队列长度
;         $array[1][21] - 第一接口描述
;         ...
;         [n][0] 至 [n][21] - 第 n 接口信息
;         失败 - 空列表数组 [0][0] = 0, 并设置 @error 到 1, @extended 到API操作返回值
; 备注:   参考: http://www.autoitx.com/forum.php?mod=viewthread&tid=7308 3#
;===============================================================================
Func _GetIfTable()
        Local $aResult, $sPhysAddr, $iPhysAddrLen, $sDescr, $iDescrLen, $iIndex = 0, $aIfTable[1][22] = [[0]]
        Local $tBuffer, $pBuffer, $tNum, $tagIfTable = "", $tIfTable

        $aResult = DllCall("iphlpapi.dll", "dword", "GetIfTable", _
                        "ptr", 0, "int*", 0, "int", 1)
        If $aResult[2] = 0 Then Return SetError(1, $aResult[0], $aIfTable)

        $tBuffer = DllStructCreate("ubyte[" & $aResult[2] & "]")
        $pBuffer = DllStructGetPtr($tBuffer)
        $aResult = DllCall("iphlpapi.dll", "dword", "GetIfTable", _
                        "ptr", $pBuffer, "int*", $aResult[2], "int", 1)

        $tNum = DllStructCreate("dword", $pBuffer)
        $aIfTable[0][0] = DllStructGetData($tNum, 1)
        For $i = 1 To $aIfTable[0][0]
                $tagIfTable &= ";wchar[256];dword[5];byte[8];dword[16];byte[256]"
        Next
        $tIfTable = DllStructCreate("dword" & $tagIfTable, $pBuffer)

        ReDim $aIfTable[$aIfTable[0][0] + 1][22]
        For $i = 2 To $aIfTable[0][0] * 5 Step 5
                $iPhysAddrLen = DllStructGetData($tIfTable, $i + 1, 5)
                $sPhysAddr = DllStructGetData($tIfTable, $i + 2)
                $sPhysAddr = StringLeft($sPhysAddr, 2 + $iPhysAddrLen * 2)
                $sPhysAddr = _FormatMac($sPhysAddr)
                $iDescrLen = DllStructGetData($tIfTable, $i + 3, 16)
                $sDescr = DllStructGetData($tIfTable, $i + 4)
                $sDescr = StringLeft($sDescr, $iDescrLen * 2)
                $sDescr = BinaryToString($sDescr)

                $iIndex += 1
                $aIfTable[$iIndex][0] = DllStructGetData($tIfTable, $i + 1, 1)
                $aIfTable[$iIndex][1] = DllStructGetData($tIfTable, $i)
                $aIfTable[$iIndex][2] = DllStructGetData($tIfTable, $i + 1, 2)
                $aIfTable[$iIndex][3] = DllStructGetData($tIfTable, $i + 1, 3)
                $aIfTable[$iIndex][4] = DllStructGetData($tIfTable, $i + 1, 4)
                $aIfTable[$iIndex][5] = $sPhysAddr
                $aIfTable[$iIndex][6] = DllStructGetData($tIfTable, $i + 3, 1)
                $aIfTable[$iIndex][7] = DllStructGetData($tIfTable, $i + 3, 2)
                $aIfTable[$iIndex][8] = DllStructGetData($tIfTable, $i + 3, 3)
                $aIfTable[$iIndex][9] = DllStructGetData($tIfTable, $i + 3, 4)
                $aIfTable[$iIndex][10] = DllStructGetData($tIfTable, $i + 3, 5)
                $aIfTable[$iIndex][11] = DllStructGetData($tIfTable, $i + 3, 6)
                $aIfTable[$iIndex][12] = DllStructGetData($tIfTable, $i + 3, 7)
                $aIfTable[$iIndex][13] = DllStructGetData($tIfTable, $i + 3, 8)
                $aIfTable[$iIndex][14] = DllStructGetData($tIfTable, $i + 3, 9)
                $aIfTable[$iIndex][15] = DllStructGetData($tIfTable, $i + 3, 10)
                $aIfTable[$iIndex][16] = DllStructGetData($tIfTable, $i + 3, 11)
                $aIfTable[$iIndex][17] = DllStructGetData($tIfTable, $i + 3, 12)
                $aIfTable[$iIndex][18] = DllStructGetData($tIfTable, $i + 3, 13)
                $aIfTable[$iIndex][19] = DllStructGetData($tIfTable, $i + 3, 14)
                $aIfTable[$iIndex][20] = DllStructGetData($tIfTable, $i + 3, 15)
                $aIfTable[$iIndex][21] = $sDescr
        Next

        Return SetError($aResult[0], 0, $aIfTable)
EndFunc   ;==>_GetIfTable

;===============================================================================
; 说明:   更改ARP表项目
; 语法:   _SetIpNetEntry($iAdptIndex, $sAddr, $sMac[, $sType = "Static"])
; 参数:   $iAdptIndex - 网络适配器索引号
;         $sAddr - IP地址
;         $sMac - 物理地址
;         $sType - [可选] ARP项目类型, "Static" - 静态, "Dynamic" - 动态
; 需要:   无
; 返回:   成功 - 1
;         失败 - 0, 并设置 @error 到 API操作返回值
; 备注:   出处: http://www.autoitx.com/forum.php?mod=viewthread&tid=7308 3#, 作者: pusofalse
;===============================================================================
Func _SetIpNetEntry($iAdptIndex, $sAddr, $sMac, $sType = "Static")
        Local $aResult, $iAddr, $iMac, $tIpNetRow, $pIpNetRow, $iType

        If $sType = "Dynamic" Then
                $iType = 3
        Else
                $iType = 4
        EndIf
        $iAddr = _inet_addr($sAddr)
        $iMac = _FormatMac($sMac, 0)

        $tIpNetRow = DllStructCreate("dword[2];byte[8];dword[2]")
        $pIpNetRow = DllStructGetPtr($tIpNetRow)
        DllStructSetData($tIpNetRow, 1, $iAdptIndex, 1)
        DllStructSetData($tIpNetRow, 1, (StringLen($iMac) - 2) / 2, 2)
        DllStructSetData($tIpNetRow, 2, $iMac)
        DllStructSetData($tIpNetRow, 3, $iAddr, 1)
        DllStructSetData($tIpNetRow, 3, $iType, 2)

        $aResult = DllCall("iphlpapi.dll", "long", "SetIpNetEntry", "ptr", $pIpNetRow)
        Return SetError($aResult[0], 0, $aResult[0] = 0)
EndFunc   ;==>_SetIpNetEntry

;===============================================================================
; 说明:   删除ARP表项目
; 语法:   _DeleteIpNetEntry($iAdptIndex, $sAddr)
; 参数:   $iAdptIndex - 网络适配器索引号
;         $sAddr - IP地址
; 需要:   无
; 返回:   成功 - 1
;         失败 - 0, 并设置 @error 到 API操作返回值
; 备注:   出处: http://www.autoitx.com/forum.php?mod=viewthread&tid=7308 3#, 作者: pusofalse
;===============================================================================
Func _DeleteIpNetEntry($iAdptIndex, $sAddr)
        Local $aResult, $iAddr, $tIpNetRow, $pIpNetRow

        $iAddr = _inet_addr($sAddr)

        $tIpNetRow = DllStructCreate("dword[2];byte[8];dword[2]")
        $pIpNetRow = DllStructGetPtr($tIpNetRow)
        DllStructSetData($tIpNetRow, 1, $iAdptIndex, 1)
        DllStructSetData($tIpNetRow, 3, $iAddr, 1)

        $aResult = DllCall("iphlpapi.dll", "long", "DeleteIpNetEntry", "ptr", $pIpNetRow)
        Return SetError($aResult[0], 0, $aResult[0] = 0)
EndFunc   ;==>_DeleteIpNetEntry

;===============================================================================
; 说明:   清空指定网络适配器ARP表项目
; 语法:   _FlushIpNetTable($iAdptIndex)
; 参数:   $iAdptIndex - 网络适配器索引号
; 需要:   无
; 返回:   成功 - 1
;         失败 - 0, 并设置 @error 到 API操作返回值
; 备注:   出处: http://www.autoitx.com/forum.php?mod=viewthread&tid=7308 3#, 作者: pusofalse
;===============================================================================
Func _FlushIpNetTable($iAdptIndex)
        Local $aResult

        $aResult = DllCall("iphlpapi.dll", "long", "FlushIpNetTable", "long", $iAdptIndex)
        Return SetError($aResult[0], 0, $aResult[0] = 0)
EndFunc   ;==>_FlushIpNetTable

Func _inet_addr($sAddr)
        Local $iAddr = DllCall("ws2_32.dll", "long", "inet_addr", "str", $sAddr)
        Return $iAddr[0]
EndFunc   ;==>_inet_addr

Func _inet_ntoa($iAddr)
        Local $sAddr = DllCall("ws2_32.dll", "str", "inet_ntoa", "long", $iAddr)
        Return $sAddr[0]
EndFunc   ;==>_inet_ntoa

Func _FormatMac($sMac, $iString = True)
        If $iString Then
                $sMac = StringTrimLeft($sMac, 2)
                Return StringTrimRight(StringRegExpReplace($sMac, ".{2}", "\0:"), 1)
        Else
                Return "0x" & StringReplace($sMac, ":", "")
        EndIf
EndFunc   ;==>_FormatMac

评分

参与人数 1金钱 +8 收起 理由
pusofalse + 8 Nice job!

查看全部评分

回复

举报

FBWOLF
 楼主| 发表于 2009-5-29 15:24:28 | 显示全部楼层
天哪,_GetIpNetTable()需要这么多代码啊?
回复

举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-29 09:28 , Processed in 0.092043 second(s), 25 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表