2016-04-11 23 views
1

Kayıt defteri değerini değiştirerek Proxy ayarlarını değiştiriyorum. Bundan sonra Windows 7 makinemi yeniden başlatıyorum.Ama yine de sistem yeniden başlatıldıktan sonra bile değişiklikleri yansıtmak için yaklaşık 10 dakika alıyor.Kayıt Defteri Ayarlarını VBScript ile Nasıl Yeniliyor?

Kayıt defteri güncelleştirildikten sonra ayarları anında yenilemenin bir yolu var mı?

Zaten DNS önbelleğini temizlemeyi denedim.

objShell.Run("ipconfig /flushdns"),1,True 

cevap

1

deneyin öldürme ve bu yolla gibi çalıştırarak Explorer.exe yenilemek için:

Option Explicit 
Dim ProcessName : ProcessName = "Explorer.exe" 
Refresh(ProcessName) 
'********************************************************************* 
Sub Refresh(ProcessName) 
Kill(ProcessName) 
RunIt(ProcessName) 
End Sub 
'********************************************************************* 
Sub Kill(ProcessName) 
Dim Ws : Set Ws = CreateObject("Wscript.Shell") 
Dim Command : Command = "Taskkill /F /IM "& ProcessName &"" 
Dim Result : Result = Ws.Run(Command,0,True) 
End Sub 
'********************************************************************* 
Sub RunIt(ProcessName) 
Dim Ws : Set Ws = CreateObject("Wscript.Shell") 
Dim Result : Result = Ws.Run(ProcessName,1,False) 
End Sub 
'********************************************************************* 
+0

O inşaat, ama iyi bir yol. – pingze

İlgili konular