Lernen, wie man automatisch eine IP-Adresse zu drehen mit Visual Basic für Applikationen ist nicht so schwierig, wie Sie vielleicht denken. Netsh.exe ist ein Werkzeug, das benutzt , um Computer mit dem Windows- Eingabeaufforderung konfigurieren. Netsh.exe kann verwendet werden, um eine IP-Adresse zu ändern , wenn eine Drehung erforderlich ist. Die "Shell "-Funktion in VBA verwendet werden, um ein ausführbares Programm , wie der Eingabeaufforderung ausführen Netsh.exe laufen . Things You
Microsoft Office Excel
brauchen anzeigen Weitere Anweisungen
1
Starten Sie Microsoft Office Excel , die auf die Registerkarte "Entwicklertools" und klicken Sie auf " Visual Basic " zu öffnen die VBA -Editor.
2
Klicken Sie auf das Menü "Einfügen" und klicken Sie auf "Module" , um einen neuen Code-Modul einzufügen.
3
Fügen Sie den folgenden Code erstellen Sie eine neue Sub-Prozedur : private Sub
rotateIPAddress ()
4
Definieren Sie zwei String-Variablen : Dim
dosCommand Wie StringDim ipAddress As String
< br > 5
Stellen Sie die IP- Adresse, die Sie möchten, indem Sie die folgende Codezeile verwenden:
ipAddress = " 192.168.0.200 "
6
Definieren Sie den Befehl IP-Adresse ändern :
dosCommand = " netsh interface ip set dns" & Chr (34 ) & " NIC -Name" & Chr (34 ) & " static" & ipAddress
7
Führen Sie den Befehl mit der "Shell" -Befehl:
Shell ( " cmd.exe /c " & dosCommand )
8 < p> Typ "End Sub ", um Ihre Sub-Prozedur zu beenden und drücken Sie die Taste "F5" , um es auszuführen .