On Error Goto fehler?! Verfasst am: 02.03.2009, 01:21
Hallo
habe da eine kleine frage in sachen "On Error Goto".
Jedesmal wenn ich diesen Code-Abschnitt benutze, schreibt er in mein label (lblMAC) immer "fehler" rein obwohl er die mac adresse reinschreiben sollte.
ich weiß auch dass sicher kein fehler auftritt.
was habe ich da falsch gemacht?
Code:
On Error GoTo no_mac
Dim mc As System.Management.ManagementClass
Dim mo As ManagementObject
mc = New ManagementClass("Win32_NetworkAdapterConfiguration")
Dim moc As ManagementObjectCollection = mc.GetInstances()
Dim MAC As String
For Each mo In moc
If CBool(mo.Item("IPEnabled")) = True Then
MAC = mo.Item("MacAddress").ToString()
End If
Next
lblMAC.Text = MAC
no_mac: lblMAC.Text = "Fehler"
Edit: ich wusste nich ob ich noch ein extra thread starten sollte, aber was mich stutzig macht ist, dass er die mac nur anzeigt wenn ich mit dem internet verbunden bin, aber er sollte sie doch immer anzeigen?? Die mac ist ja eingebrannt also dauerhaft da?! DAS IST MIR SCHEISS EGAL WER DEIN VATER IST, SO LANGE ICH HIER ANGEL RENNT HIER NIEMAND ÜBERS WASSER!!!
====
90% aller Fehler sitzen 60 cm vor dem Bildschirm
christopher.g_ Tutorial Leser
Anmeldedatum: 10.12.2007 Beiträge: 72
Verfasst am: 02.03.2009, 09:17
hi das ist nicht der fehler von on error sondern von dir
schau...
in der der code wird zeile für zeile ausgeführt
wenn du jetzt
lblMAC.Text = MAC
no_mac: lblMAC.Text = "Fehler"
hast
dann schreibt vb ins label den inhalt der vaiablen MAC und danach ändert vb den inhalt in "Fehler" weil das als nächstes kommt
um das zu umgehen
brauchst du nur eine zeile dazwischen einfügen
exit sub
oder exit function
was auch immer du hast
und du wirst sehen es steht die variable mac drin
lg remember:
ein wahrer freund ersticht dich von vorne
Registrieren
Login
