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

• #1496 matekmatika tag

  Új Válasz 2006-09-01 01:08:22 #1496

  Ú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

  Ha valakinek hasonló problémája támadna, még jó jöhet:
  dim strProxyServer
  strProxyServer = ''MyProxyServer:80''
  dim strRegPath
  strRegPath = ''HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\''
  Set oWshShell = CreateObject(''WScript.Shell'')
  Call oWshShell.RegWrite(strRegPath & ''ProxyEnable'', ''00000001'', ''REG_DWORD'')
  Call oWshShell.RegWrite(strRegPath & ''ProxyOverride'', ''<local>'', ''REG_SZ'')
  Call oWshShell.RegWrite(strRegPath & ''ProxyServer'', strProxyServer, ''REG_SZ'')
  Set oWshShell = Nothing

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