效果不错，方便实用，值得推荐。

tt911

1. ScrollLock:: proxy()      
   
2.         proxy()
   
3.         {
   
4.                 lujing := "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
   
5.                 if RegRead("HKCU","Software\Microsoft\Windows\CurrentVersion\Internet Settings","Proxyenable") = 0
   
6.                 {
   
7.                         RegWrite, REG_DWORD, HKCU, %lujing%, ProxyEnable, 1
   
8.                         TrayTip, 代代开启
   
9.                 } else {
   
10.                         RegWrite, REG_DWORD, HKCU, %lujing%, ProxyEnable, 0
    
11.                         TrayTip, 代代关闭
    
12.                 }
    
13.                 DllCall("wininet\InternetSetOptionW","int","0","int","39","int","0","int","0")
    
14.                 DllCall("wininet\InternetSetOptionW","int","0","int","37","int","0","int","0")
    
15.         }
    
16. 
    
17. RegRead(RootKey, SubKey, ValueName = "") {
    
18.         RegRead, v, %RootKey%, %SubKey%, %ValueName%
    
19.         return, v
    
20. }

复制代码

自行体会 undefined 配合界界、门门、黛黛、蓝蓝、莲莲、灯灯，效果显著，方便我学知识。

MPFENG

不明觉厉。

2623666

楼主这朵红杏很合格啊

U5558

墙吗？看不懂，谁点明一下！

txj2018

看不懂，谁点明一下！

2011xdsy

关键不知道如何配合使用

9zhmke

写成Function 更方便调用

1. 
   
2. Function SetIEProxy(ProxyEnable,ProxyIP) '设置IE代代服务器
   
3.     Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}\\.\root\default:StdRegProv")
   
4.     strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
   
5.     strEntryName = "ProxyEnable"
   
6.     dwvalue = ProxyEnable
   
7.     objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strEntryName,dwValue
   
8.     strEntryName = "ProxyServer"
   
9.     dwvalue = ProxyIP
   
10.     objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, strEntryName,dwValue
    
11.     SetIEProxy = False
    
12.     If Err = 0 Then SetIEProxy = True
    
13.     Set objReg = nothing
    
14. End Function
    

复制代码

yxy-xyx

全是鸟语  看不明白   楼主头像   0分差评

yxy-xyx

话说  以前楼主的那个大胸妹纸的头像挺好啊  干嘛换了啊   感觉没爱了

wxm5542

看不懂，谁点明一下！

zhangmi

wxm5542 发表于 2018-8-3 11:27
看不懂，谁点明一下！

看起来像是autohotkey的写法

zsxcv2018

楼上都是有才人！！！

2013ertert

估计是用于 googel 使用,但是不会使用