Πώς να περιστρέψετε μια διεύθυνση IP με VBA

Μαθαίνοντας πώς να ρυθμίσετε αυτόματα μια διεύθυνση IP για να περιστρέψετε τη χρήση της Visual Basic for Applications δεν είναι τόσο δύσκολο όπως μπορείτε να σκεφτείτε . Netsh.exe είναι ένα εργαλείο που μπορεί να χρησιμοποιηθεί για να ρυθμίσετε υπολογιστές που χρησιμοποιούν τη γραμμή εντολών των Windows . Netsh.exe μπορεί να χρησιμοποιηθεί για να αλλάξει μια διεύθυνση IP όταν απαιτείται περιστροφή . Η λειτουργία " Shell " χρησιμοποιείται σε VBA για να εκτελέσετε ένα εκτελέσιμο πρόγραμμα , όπως η γραμμή εντολών για να εκτελέσει Netsh.exe . Τα πράγματα που θα χρειαστείτε για Microsoft Office Excel
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Εκκίνηση του Microsoft Office Excel , κάντε κλικ στην καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Visual Basic " για να ανοίξετε ο συντάκτης VBA . 2

Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " ενότητα " για να εισάγετε μια νέα λειτουργική μονάδα κώδικα .
εικόνων 3

Προσθέστε τον ακόλουθο κώδικα για να δημιουργήσετε μια νέα διαδικασία υπο :

Private Sub rotateIPAddress ( )
Η 4

Ορίστε δύο μεταβλητές συμβολοσειράς :

Dim dosCommand Όπως StringDim IPADDRESS Όπως String

5

Ρυθμίστε τη διεύθυνση IP που θέλετε να χρησιμοποιήσετε , προσθέτοντας την ακόλουθη γραμμή κώδικα :

IPADDRESS = " 192.168.0.200 "
Η

6 Καθορίστε την εντολή αλλάξετε τη διεύθυνση IP :

dosCommand = " netsh interface ip set dns " & Chr ( 34 ) & " NIC Name" & Chr ( 34 ) & "στατική " & IPADDRESS
Η 7

Εκτελέστε την εντολή χρησιμοποιώντας τη " Shell " εντολή :

Shell ( " cmd.exe /c" & dosCommand )
8

Πληκτρολογήστε " End Sub " για να τερματίσετε τη διαδικασία υπο σας και πατήστε το πλήκτρο "F5 " για να το τρέξει .
Η
εικόνων