以下三句用c#该怎么表示呢?1、Dim MyModuleName As String = Process.GetCurrentProcess().MainModule.ModuleName
2、Public Function GetNetIP() As String '取IP地址
Try
Dim MyHostName As String = System.Net.Dns.GetHostName
Dim MyIPEntry As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(MyHostName)
Dim MyAddresses() As System.Net.IPAddress = MyIPEntry.AddressList
Dim MyList As New System.Text.StringBuilder()
MyList.AppendFormat("{0}的IP地址是:", MyHostName)
For Each MyIP As System.Net.IPAddress In MyAddresses
MyList.AppendFormat("{0}" & vbCrLf, MyIP.ToString())
Next
Return MyList.ToString
Catch ex As Exception
MessageBox.Show(ex.Message, "信息提示[GetNetIP]", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
End Function
3、ublic Function GetNetMac() As String '取MAC地址
Dim mc As ManagementClass = New ManagementClass("Win32_NetWorkAdapterConfiguration")
Dim moc As ManagementObjectCollection = mc.GetInstances
Dim NetMac As String
Dim Exist_Flag As Boolean = False
For Each mo As ManagementObject In moc
If CBool(mo("IPEnabled")) = True Then
NetMac = mo("MacAddress").ToString
NetMac = NetMac.Trim
Return NetMac
Exist_Flag = True
End If
Next
If Exist_Flag = False Then
Return "不存在!"
End If
End Function
2、Public Function GetNetIP() As String '取IP地址
Try
Dim MyHostName As String = System.Net.Dns.GetHostName
Dim MyIPEntry As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(MyHostName)
Dim MyAddresses() As System.Net.IPAddress = MyIPEntry.AddressList
Dim MyList As New System.Text.StringBuilder()
MyList.AppendFormat("{0}的IP地址是:", MyHostName)
For Each MyIP As System.Net.IPAddress In MyAddresses
MyList.AppendFormat("{0}" & vbCrLf, MyIP.ToString())
Next
Return MyList.ToString
Catch ex As Exception
MessageBox.Show(ex.Message, "信息提示[GetNetIP]", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
End Function
3、ublic Function GetNetMac() As String '取MAC地址
Dim mc As ManagementClass = New ManagementClass("Win32_NetWorkAdapterConfiguration")
Dim moc As ManagementObjectCollection = mc.GetInstances
Dim NetMac As String
Dim Exist_Flag As Boolean = False
For Each mo As ManagementObject In moc
If CBool(mo("IPEnabled")) = True Then
NetMac = mo("MacAddress").ToString
NetMac = NetMac.Trim
Return NetMac
Exist_Flag = True
End If
Next
If Exist_Flag = False Then
Return "不存在!"
End If
End Function
//取IP地址
public string GetNetIP()
{
try {
string MyHostName = System.Net.Dns.GetHostName();
System.Net.IPHostEntry MyIPEntry = System.Net.Dns.GetHostEntry(MyHostName);
System.Net.IPAddress[] MyAddresses = MyIPEntry.AddressList;
System.Text.StringBuilder MyList = new System.Text.StringBuilder();
MyList.AppendFormat("{0}的IP地址是:", MyHostName);
foreach (System.Net.IPAddress MyIP in MyAddresses) {
MyList.AppendFormat("{0}" + Constants.vbCrLf, MyIP.ToString());
}
return MyList.ToString();
} catch (Exception ex) {
MessageBox.Show(ex.Message, "信息提示[GetNetIP]", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
}
//取MAC地址
public string GetNetMac()
{
ManagementClass mc = new ManagementClass("Win32_NetWorkAdapterConfiguration");
ManagementObjectCollection moc = mc.GetInstances;
string NetMac = null;
bool Exist_Flag = false;
foreach (ManagementObject mo in moc) {
if (Convert.ToBoolean(mo("IPEnabled")) == true) {
NetMac = mo("MacAddress").ToString;
NetMac = NetMac.Trim();
return NetMac;
Exist_Flag = true;
}
}
if (Exist_Flag == false) {
return "不存在!";
}
}