MAC Adresse vom Wlan herausfinden...

[tomycat]

@mod
kennst du ein Stück Code mit der man NUR die Mac Adresse herausfinden kann.Du hast du immer sowas im Ärmel.

Ansonsten google ich.

[wp7__fan]

Ich glaube das ist die falsche Reihenfolge google doch du zu erst!

[heliosdev]

Ja, bitte zuerst suchen und falls man nicht weiterkommt eine Frage stellen. Falls Du eine Lösung findest, kannst Du sie hier reinposten, falls nicht dann frag noch einmal!

[tomycat]

Kein Problem:

1.Versuch:

http://www.vbarchiv.net/tipps/details.php?id=576

Option Explicit

    ' alle benötigten API-Deklarationen
    Private Declare Function Netbios Lib "netapi32.dll" ( _
      ByVal pncb As NCB) As Byte
'''''''''''''Dann kommt viel Quelltext.......... 

error BC30627: 'Option' statements must precede any declarations or 'Imports' statements.
error BC30002: Type 'NCB' is not defined.

2.Versuch:
http://www.tutorials.de/net-web-und-...-auslesen.html

Public Function funcGetMAC(ByVal sPCName As String) As String
        funcGetMAC = ""
        Try
            Dim mc As New ManagementClass("win32_networkadapter")
            Dim myScope As ManagementScope

            myScope = New ManagementScope("\\" & sPCName & "\root\cimv2")
'''''''''''''Dann kommt viel Quelltext.......... 

: error BC30002: Type 'ManagementClass' is not defined.
: error BC30002: Type 'ManagementScope' is not defined.
: error BC30002: Type 'ManagementScope' is not defined.

3.Versuch:

http://www.dotnet247.com/247referenc...55/275799.aspx

Dim Adapter As OpenNETCF.Net.Adapter    'Zeile 3
Adapter = OpenNETCF.Net.Networking.GetAdapters().Item(0)
Dim b As Byte() = Adapter.MacAddress
Dim i As Integer
Dim s As String = ""
For i = 0 To b.Length - 1
s = s + String.Format("{0:x2}", b(i)) + "."
Next
MessageBox.Show(s) 

Form1.vb(3) : error BC30188: Declaration expected.
Form1.vb(5) : error BC30002: Type 'OpenNETCF.Net.Adapter' is not defined.
Form1.vb(6) : error BC30188: Declaration expected.
Form1.vb(10) : error BC30689: Statement cannot appear outside of a method body.
Form1.vb(11) : error BC30188: Declaration expected.

[heliosdev]

Die Lösungen in 1.+2. sind wohl nicht für das compact framework bestimmt.
Lösung 3 verwendet die OpenNETCF library.
Da es eine Möglichkeit gibt die Adapterinformation mittels native code zu erhalten, kann man die entsprechende Methode laden.
Schau Dir mal dieses Beispiel an: GetAdaptersInfo

Tipp: Bei der Suche immer auch "compact framework" hinzufügen.

[tomycat]

thx,

<DllImport("iphlpapi.dll", EntryPoint:="GetAdaptersInfo", CharSet:=CharSet.Ansi)> _
Private Shared Function GetAdaptersInfo( _
     ByVal pAdapterInfo As IntPtr, _
     ByRef pBufOutLen As UInt64) As Int32
    End Function 

error BC30002: Type 'DllImport' is not defined.

DllImport hat eine blaue Welle und t davon ist blau unterstriechen.

[heliosdev]

DllImport ist aus dem namespace System.Runtime.InteropServices, der importiert werden muss.

[tomycat]

<System.Runtime.InteropServices("iphlpapi.dll", EntryPoint:="GetAdaptersInfo", CharSet:=CharSet.Ansi)> _
Private Shared Function GetAdaptersInfo( _
ByVal pAdapterInfo As IntPtr, _
ByRef pBufOutLen As UInt64) As Int32
End Function

System.Runtime.InteropServices blaue Welle und das s ist rot unterstriechen.

[heliosdev]

DllImport bleibt wie in Post #6. Es muss lediglich

Imports System.Runtime.InteropServices

oben in der Datei hinzugefügt werden.

[tomycat]

ok, habs verstanden. thx

<DllImport("iphlpapi.dll", EntryPoint:="GetAdaptersInfo", CharSet:=CharSet.Ansi)> _
CharSet.Ansi <- ist jetzt blau unterstrichen.

[heliosdev]

Vesuch's mal mit Auto, falls das nicht geht dann Unicode.

[tomycat]

thx,
du hast echt Ahnung von Programmieren, Respekt !!! Von Dir kann man viel lernen.

nächste Prob.:

Public Sub GetAdapters()
Dim structSize As Int32 = Marshal.SizeOf(GetType(IP_ADAPTER_INFO)) ' -IP_ADAPTER_INFO ist blau unterlegt und das O ist rot
'''''''''''''''''' viel Quelltext......

error BC30002: Type 'IP_ADAPTER_INFO' is not defined.

[heliosdev]

Wenn Du auf der Seite von GetAdapterInfo weiter unten schaust, hat's einen Link zu IP_ADAPTER_INFO und da steht, dass der noch IP_ADDRESS_STRING braucht.
Alle diese structs und Methoden kann man in eine eigene Klasse packen, da sie nichts mit der Form zu tun haben und auch an anderen Orten gebraucht werden können.

Habe auch schon ein paar Zeilen Code geschrieben. Ich poste hier auch bewusst nicht die Klasse rein in der Hoffnung, dass man nach und nach selber die Lösungsansätze versteht.
Auch wenn dieses Beispiel hier schon etwas fortgeschritten ist...

[tomycat]

versteht mich nicht falsch.
Ich will auch keine fix und fertig Lössungen haben, weil ich ja auch etwas herumprobieren.
Ich wollte nur sagen, dass ich dir sehr Danke bin wenn ich Tips bekomme. Großen Respekt an dich, wegen deinem Wissen.


Wegen der Mac Adresse:
Ich habe eine einfachere Lösung gefunden,trotzdem thx

[heliosdev]

Kein Problem! Kannst Deine Lösung auch hier rein posten, da auch andere User einmal diese Aufgabe lösen müssen.

[tomycat]

die haupt idee war, meine Soft mit dem Pocket zu verheiraten. Das heist, wenn jemand meine soft kopiert und startet, dann wird erst die mac adresse abgefragt und gecheckt.

Meine neue Idee:
Bei verheiraten wird einfach eine Datei in Windows Verzeichnis gelegt.Diese wird beim starten gecheckt.
@heliosdev

Du hast für alles eine perfekte Lösung.
Was ist mit dem Beitrag?
tcp Sender...