Υπάρχει εντολή σε VB6 να μου δίνει την mac address του υπολογιστη ?

[gioklis]

Γνωρίζει κάποιος … αν υπάρχει εντολή σε VB6, να μπορώ να εμφανίσω σε ένα text box την mac address του υπολογιστη που είμαι συνδεδεμένος
Και πως συντάσσεται ?

Ευχαριστώ.

[Georgilakis Antonios]

Γνωρίζει κάποιος … αν υπάρχει εντολή σε VB6, να μπορώ να εμφανίσω σε ένα text box την mac address του υπολογιστη που είμαι συνδεδεμένος
Και πως συντάσσεται ?

Ευχαριστώ.

Code: Select all

REM Other imports here...

Imports System
Imports System.Net.NetworkInformation

REM Class/Module and other code here...

Public Function GetMACAddress() As String

	Dim networkInterfaces() As NetworkInterface = _
		NetworkInterface.GetAllNetworkInterfaces()
	
	Dim defaultNetworkInterface As NetworkInterface = _
		networkInterfaces(0)
	
	If (defaultNetworkInterface IsNot Nothing)
	
		' Return MAC address.
		
		Return defaultNetworkInterface.
			GetPhysicalAddress().ToString()
	
	End If
	
	Return String.Empty		' Indicate error.

End Function

REM Class/Module and other code here...

Πιστεύω να μην έχει syntax error...