Page 1 of 1

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

Posted: Sat Jul 09, 2016 12:13 pm
by gioklis
Γνωρίζει κάποιος … αν υπάρχει εντολή σε VB6, να μπορώ να εμφανίσω σε ένα text box την mac address του υπολογιστη που είμαι συνδεδεμένος
Και πως συντάσσεται ?

Ευχαριστώ.

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

Posted: Mon Jul 11, 2016 1:06 am
by Georgilakis Antonios
gioklis wrote:Γνωρίζει κάποιος … αν υπάρχει εντολή σε 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... :-D