谁能把这段C#代码翻译成VB.NET

[lhzongji]

[DllImport("Iphlpapi.dll")]
private static unsafe extern int SendARP(Int32 dest,Int32 host,ref IntPtr mac,ref IntPtr length);
[DllImport("Ws2_32.dll")]
private static extern Int32 inet_addr(string ip);

Int32 ldest= inet_addr("157.60.68.163");//目的地的ip
Int32 lhost= inet_addr("157.60.68.33");//本地的ip

try
{
Byte[] macinfo=new Byte[6];
Int32 length=6;

IntPtr mac=new IntPtr(macinfo[0]);
IntPtr len=new IntPtr(6);
int ii=SendARP(ldest,lhost, ref mac, ref len);

Console.WriteLine("Mac Add:"+mac);
Console.WriteLine("length:"+len);


}
catch(Exception err)
{
Console.WriteLine(err);
}

拜托了。

[lhzongji]

不是吧。没人帮我

[lhzongji]

UP

[CsdnRob]

up

[think8848]

下面的翻译应该是没有错的，但可能没有楼主所希望的结果。


Private Declare Auto Function SendARP Lib "Iphlpapi.dll" (ByVal dest As Integer, ByVal host As Integer, ByRef mac As IntPtr, ByRef length As IntPtr) As Integer
Private Declare Auto Function inet_addr Lib "Ws2_32.dll" (ByVal ip As String) As Integer

Dim ldest As Integer = inet_addr("172.16.0.4") '目的地的IP
Dim lhost As Integer = inet_addr("172.16.3.154") '本地的IP


Try
Dim macinfo(6) As Byte
Dim length As Integer = 6
Dim mac As IntPtr = New IntPtr(macinfo(0))
Dim len As IntPtr = New IntPtr(6)
Dim ii As Integer = SendARP(ldest, lhost, mac, len)
Me.Text = mac.ToString & len.ToString


Catch ex As Exception
ex.ToString()
End Try