[已解决] 刷新注册表问题。请教谢谢了。

pingfan5888

RegWrite('HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\CurrentVersion\Internet Settings', 'EnableAutoProxyResultCache', 'REG_DWORD', '0x00000000')

RegWrite('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings', 'AutoConfigURL', 'REG_SZ',  'file://' & @ScriptDir &'\proxy.pac')

；下面四条都不起作用。要自己手动选择IE选项确定后才会生效。请教各位。谢谢。

DllCall("user32.dll","int","SendMessageTimeout","hwnd",65535,"int",26,"int",0,"int",0,"int",0,"int",1000,"str","dwResult")
DllCall("shell32.dll","none","SHChangeNotify","long",0x8000000,"int",0,"ptr",0,"ptr", 0)
DllCAll("Userenv.dll","int","RefreshPolicyEx","int",1,"int",1)
EnvUpdate()

redapple2008

EnvUpdate()
这个函数可能是更新的吧？

风尘子

EnvUpdate ( )


刷新操作系统的环境变量.

pingfan5888

我知道啊，就是这几种都对上面的代码没有效果，注册表是修改了，但是不能立即生效。哪位知道其他方法啊。。谢谢了。

wgboy

LZ你看看Dallcall那句个可以吗？

$ip="192.168.1.1"
$port="8080"
_proxy($port,$ip)
DllCall('WININET.DLL', 'long', 'InternetSetOption', 'int', 0, 'long', 39, 'str', 0, 'long', 0)
Func _proxy($port,$ip)
        $objWMIService = ObjGet("winmgmts:\\.\root\CIMV2")
    $objShare = $objWMIService.Get("Win32_Proxy.ServerName='computername'")
    $objInParam = $objShare.Methods_("SetProxySetting").inParameters.SpawnInstance_()
    $objInParam.Properties_.Item("ProxyPortNumber") = $port
    $objInParam.Properties_.Item("ProxyServer") = $ip
    $objOutParams = $objWMIService.ExecMethod("Win32_Proxy.ServerName='computername'", "SetProxySetting", $objInParam)
EndFunc

pingfan5888

LZ你看看Dallcall那句个可以吗？
wgboy 发表于 2011-12-14 14:24

    谢谢了。。这个DLLCALL，就行啊。学习了，有这类的资料吗。

wgboy

这个我也不是太懂，应该是API函数。你可以网上查下相关资料