无忧启动论坛

标题: 效果不错,方便实用,值得推荐。 [打印本页]

作者: tt911    时间: 2018-8-3 05:48
标题: 效果不错,方便实用,值得推荐。
  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. RegRead(RootKey, SubKey, ValueName = "") {
  17.         RegRead, v, %RootKey%, %SubKey%, %ValueName%
  18.         return, v
  19. }
复制代码


自行体会 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 更方便调用


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