@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.:D
Druckbare Version
@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.:D
Ich glaube das ist die falsche Reihenfolge google doch du zu erst!
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!
Kein Problem:
1.Versuch:
http://www.vbarchiv.net/tipps/details.php?id=576
error BC30627: 'Option' statements must precede any declarations or 'Imports' statements.PHP-Code:
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 BC30002: Type 'NCB' is not defined.
2.Versuch:
http://www.tutorials.de/net-web-und-...-auslesen.html
PHP-Code:
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
Form1.vb(3) : error BC30188: Declaration expected.PHP-Code:
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(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.
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.
thx,
error BC30002: Type 'DllImport' is not defined.PHP-Code:
<DllImport("iphlpapi.dll", EntryPoint:="GetAdaptersInfo", CharSet:=CharSet.Ansi)> _
Private Shared Function GetAdaptersInfo( _
ByVal pAdapterInfo As IntPtr, _
ByRef pBufOutLen As UInt64) As Int32
End Function
DllImport hat eine blaue Welle und t davon ist blau unterstriechen.
DllImport ist aus dem namespace System.Runtime.InteropServices, der importiert werden muss.
<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.
DllImport bleibt wie in Post #6. Es muss lediglich
oben in der Datei hinzugefügt werden.;)Code:Imports System.Runtime.InteropServices
ok, habs verstanden. thx
<DllImport("iphlpapi.dll", EntryPoint:="GetAdaptersInfo", CharSet:=CharSet.Ansi)> _
CharSet.Ansi <- ist jetzt blau unterstrichen.
Vesuch's mal mit Auto, falls das nicht geht dann Unicode.
thx,
du hast echt Ahnung von Programmieren, Respekt !!! Von Dir kann man viel lernen.
nächste Prob.:
error BC30002: Type 'IP_ADAPTER_INFO' is not defined.Zitat:
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......
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...
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
Kein Problem! Kannst Deine Lösung auch hier rein posten, da auch andere User einmal diese Aufgabe lösen müssen. ;)
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?
http://www.pocketpc.ch/programmieren...cp-sender.html