Addextender("WWWNT34I.DLL")
h=AskLine("Proxy Server","Please enter the Proxy Server name","")
key=RegOpenkey(@REGCURRENT,"Software\Microsoft\Windows\CurrentVersion\Internet Settings")
test=RegSetValue(@REGCURRENT,"Software\Microsoft\Windows\CurrentVersion\Internet Settings[ProxyServer]","%h%:80")
RegCloseKey(key)
key2=RegOpenkey(@REGCURRENT,"Software\Microsoft\NetShow\Player\Local")
test2=RegSetValue(@REGCURRENT,"Software\Microsoft\NetShow\Player\Local[ProxyHost]","%h%")
if test2==@false then Message("Error","Your proxy server could not be changed.%@CRLF%You may not have rights to change the registry.")