无忧启动论坛
标题:
效果不错，方便实用，值得推荐。
[打印本页]
作者:
tt911
时间:
2018-8-3 05:48
标题:
效果不错，方便实用，值得推荐。
ScrollLock:: proxy()
proxy()
{
lujing := "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
if RegRead("HKCU","Software\Microsoft\Windows\CurrentVersion\Internet Settings","Proxyenable") = 0
{
RegWrite, REG_DWORD, HKCU, %lujing%, ProxyEnable, 1
TrayTip, 代代开启
} else {
RegWrite, REG_DWORD, HKCU, %lujing%, ProxyEnable, 0
TrayTip, 代代关闭
}
DllCall("wininet\InternetSetOptionW","int","0","int","39","int","0","int","0")
DllCall("wininet\InternetSetOptionW","int","0","int","37","int","0","int","0")
}
RegRead(RootKey, SubKey, ValueName = "") {
RegRead, v, %RootKey%, %SubKey%, %ValueName%
return, v
}
复制代码
自行体会
undefined
配合界界、门门、黛
黛
、蓝
蓝、
莲
莲、灯灯，效果显著，方便我学知识。
作者:
MPFENG
时间:
2018-8-3 07:47
不明觉厉。
作者:
2623666
时间:
2018-8-3 08:00
楼主这朵红杏很合格啊
作者:
U5558
时间:
2018-8-3 08:09
墙吗？看不懂，谁点明一下！
作者:
txj2018
时间:
2018-8-3 08:25
看不懂，谁点明一下！
作者:
2011xdsy
时间:
2018-8-3 08:55
关键不知道如何配合使用
作者:
9zhmke
时间:
2018-8-3 09:49
写成Function 更方便调用
Function SetIEProxy(ProxyEnable,ProxyIP) '设置IE代代服务器
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}\\.\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
strEntryName = "ProxyEnable"
dwvalue = ProxyEnable
objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strEntryName,dwValue
strEntryName = "ProxyServer"
dwvalue = ProxyIP
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, strEntryName,dwValue
SetIEProxy = False
If Err = 0 Then SetIEProxy = True
Set objReg = nothing
End Function
复制代码
作者:
yxy-xyx
时间:
2018-8-3 10:45
全是鸟语 看不明白 楼主头像 0分差评
作者:
yxy-xyx
时间:
2018-8-3 10:46
话说 以前楼主的那个大胸妹纸的头像挺好啊 干嘛换了啊 感觉没爱了
作者:
wxm5542
时间:
2018-8-3 11:27
看不懂，谁点明一下！
作者:
zhangmi
时间:
2018-8-3 12:36
wxm5542 发表于 2018-8-3 11:27
看不懂，谁点明一下！
看起来像是autohotkey的写法
作者:
zsxcv2018
时间:
2018-8-3 13:11
楼上都是有才人！！！
作者:
2013ertert
时间:
2018-8-3 15:47
估计是用于 googel 使用,但是不会使用
欢迎光临 无忧启动论坛 (http://wuyou.net./)
Powered by Discuz! X3.3
楼主这朵红杏很合格啊