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

Και πως συντάσσεται ?

Ευχαριστώ.

To πήρα από εδώ http://www.access-programmers.co.uk/forums/showthread.php?t=216672

και το δοκίμασα σε access 2010 με win 7 64bit. Δεν έχω περιβάλλον vb6 (εδώ και 10+ χρόνια) να το δοκιμάσω αλλά πιστεύω ότι δουλεύει και σε αυτό!

Private Sub Command0_Click()

    Dim myWMI As Object, myObj As Object, Itm

    Set myWMI = GetObject("winmgmts:\\.\root\cimv2")

    Set myObj = myWMI.ExecQuery("SELECT * FROM " & _

                     "Win32_NetworkAdapterConfiguration " & _

                     "WHERE IPEnabled = True")

    For Each Itm In myObj

        Debug.Print Itm.IPAddress(0)

        Debug.Print Itm.MACAddress

        Exit For

    Next

End Sub

Σε  ευχαριστώ … 

Έχω ένα πρόβλημα τον τελευταίο καιρό στην πλατφόρμα VB6 …….

Και προσπαθώ να καταλάβω  πάνω σε ποια λογική εχει φτιαχτεί …

Έχω μια εφαρμογή  (από κάποιον άλλο φτιαγμένη ) που προστατεύεται από κάποιο κωδικό …  αρχικά το exe  για να εγκατασταθεί εμφανίζει ένα πρώτο  κωδικό (6 ψηφίο , όπου καταλαβαίνω ότι φτιάχνεται από κάποιο σειριακό  αριθμό  του HD του PC), όπου στην συνέχεια πρέπει  να επικοινωνήσεις με τον κατασκευαστή για να σου δώσει τον κωδικό ενεργοποίησης.

Αυτό που δεν μπορώ να καταλάβω είναι ότι , όσες φορές προσπαθήσεις να κάνεις την εγκατάσταση  παίρνεις πάντα ένα διαφορετικό πρώτο κωδικό από την προηγούμενη φορά της προσπάθειας (υποθέτω ότι αυτό γίνεται γιατί συνδυάζεται ο σειριακός αριθμός του  PC + ένας  τυχαίος  αριθμό (rand)κάπως ετσι.

Label1.Caption = Int((Rnd(Text1.Text)) * 899999 + 100000)

Όπου Text1.Text = σειριακός αριθμός του PC.

Έχω το παρακάτω ερώτημα?

Πως  μπορεί ο κατασκευαστής να δίνει τον κωδικό ενεργοποιήσεις αφού κάθε φορά  λαμβάνει ένα τυχαίο αριθμό , λόγο τις σχέσεις αυτής.

σειριακός αριθμός του PC + τυχαίος αριθμός = (αποτέλεσμα) τυχαίος αριθμός

κάποιος που μπορεί να βοηθήσει?

Ευχαριστώ

Γιώργος

Γιώργο θα σε μαλώσω που σκαλίζεις τέτοια πράγματα.... αλλά προγραμματιστικά έχει ενδιαφέρον. 

Από περιέργεια πως γνωρίζεις ότι ο 6-ψήφιος αριθμός έχει σχέση με τον HDD και όχι με την μητρική για παράδειγμα;

Ο κατασκευαστής το καταφέρνει μέσα από συγκεκριμένο μαθηματικό μοντέλο που ταυτίζει μεταξύ της εφαρμογής που πούλησε και της εφαρμογής που έχει στο γραφείο του, ώστε να κάνει την ταυτοποίηση έπειτα από επικοινωνία.

έχεις δοκιμάσει κάποιον Disassembler;

Υπάρχουν στο διαθέσιμοι web για την δουλεια που θέλεις. 

Έχω κατεβάσει το  ollydb  αλλα δεν ξέρω να το χειρίζομαι …. Και τίποτα … 

Αυτό προσπαθώ να καταλάβω,  πως μπορεί κάποιος να φτιάξει μια εφαρμογή  που να κάνει αυτό που περιέγραψα παραπάνω … με ποια λογική … γιατί αν καταλάβω  το trick (λογική που χρησιμοποιεί ) θα βρω και την λύση …  κάποιος να δώσει ένα παράδειγμα ?