Új hozzászólás Aktív témák

• #1491 matekmatika tag

  Új Válasz 2006-08-30 18:48:10 #1491

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  matekmatika

  tag

  Bezárták a kedvenc kis excel makrós topicomat
  
  Más. Van egy ilyenem ami nem működik run time 424 a vége ha futtatom.
  Dim objWSch
  Set objWSch = WScript.CreateObject(''Wscript.Shell'')
  
  Dim strProxy, strNewProxy
  strProxy = objWSch.RegRead(''HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer'')
  strNewProxy = ''bla.bla.bla.bla:8080''
  objWSch.RegWrite ''HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer'', strNewProxy
  objWSch.Popup ''Proxy is now '' & strNewProxy, 3, ''Swap Proxy Settings'', 0
  
  WScript.Quit
  Hogyan kellene ezt beillesztenem, módosítanom, hogy jó legyen neki?
  Lényeg hogy makróbol szeretném a proxybeállításokat elvégezni.
  köszi.

Új hozzászólás Aktív témák