Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Spustite program Microsoft Office Excel , kliknite na kartu " Vývojár " a kliknite na " Visual Basic " pre otvorenie editor VBA . 
 2 
 kliknite na " Vložiť " menu a kliknite na " modul " vložiť nový kód modulu . 
 3 
 Pridajte nasledujúci kód vytvoriť nový čiastkové postup : 
 
 Private Sub rotateIPAddress ( ) 
 4 
 zadefinujte dve premenné reťazca : 
 
 Dim dosCommand Ako StringDim IPADDRESS As String 
 
 5 
 Nastavte IP adresu , ktorú chcete použiť pridaním nasledujúci riadok kódu : 
 
 IPADDRESS = " 192.168.0.200 " 
 6 
 Definovať príkaz na zmeniť IP adresu : 
 
 dosCommand = " netsh interface ip set dns " & Chr ( 34 ) & " NIC Name " & Chr ( 34 ) & " statické " a IPADDRESS 
 7 
 Spustením príkazu pomocou príkazu " Shell " : 
 
 Shell ( " cmd.exe /c" a dosCommand ) 
 8 
 napíšte " End Sub " a ukončiť procedúru Sub a stlačte klávesu " F5 " , aby ho spustiť .