bianbian coding life

便便代码人生: 关注技术, 翻译文档, 偶尔动动手

[原]用AutoIt完成CCProxy的代理切换

Posted by bianbian on 2007-10-03 01:50


本文Tags: ,

南大的VPN，进校以后访问外网就必须用代理。
这样各个软件切换代理特别麻烦，比如浏览器、QQ、MSN、旺旺、BT、FlashGet得改代理吧。
我用AutoIt3写了一个软件，能自动切换CCProxy的代理（就是使不使用二级代理）。这样，把其他软件的代理都设为127.0.0.1:8080，就是用CCProxy作为其他软件的代理服务器，然后用程序切换CCProxy的二级代理状态即可。
不用VPN的时候不使用二级代理，用了VPN的时候只要运行一下程序，把CCProxy的二级代理状态打开，其他软件就不需要切换代理了。反之也一样。非常方便。
下面是源码：

  1. #cs ------------------------------------------------
  2.  
  3.  AutoIt Version: 3.2.8.1
  4.  Author:         http://bianbian.sunshow.net
  5.  
  6.  Script Function:
  7.     切换CCProxy的代理（是否使用二级代理）.
  8.  
  9. #ce ------------------------------------------------
  10.  
  11. $PATH = @ProgramFilesDir & "\CCProxy"
  12. $EXE = $PATH & "\" & "CCProxy.exe"
  13. $INI = $PATH & "\" & "CCProxy.ini"
  14. $TT = "CCProxy 6."
  15. $TX = "Youngzsoft"
  16.  
  17. ; check running
  18. If Not ProcessExists("CCProxy.exe") Then
  19.     MsgBox(0, "Error", "CCProxy未运行!")
  20.     Exit
  21. EndIf
  22.  
  23. ; run it! so activate the already-running one!
  24. RunWait($EXE, $PATH)
  25.  
  26. ; try kill it!
  27. WinClose($TT, $TX)
  28. WinWait("CCProxy", "是否真的关闭代理服务器")
  29. ControlClick("CCProxy", "是否真的关闭代理服务器", "Button1")
  30.  
  31. ; change PROXY setting
  32. $set = IniRead($INI, "system", "CascadingProxy", 0)
  33. If $set = 0 Then
  34.     $set = 1
  35. Else
  36.     $set = 0
  37. EndIf
  38. IniWrite($INI, "system", "CascadingProxy", $set)
  39.  
  40. ; done! restart it!
  41. Run($EXE, $PATH)
  42. ?>
标签: ,

遵守创作共用协议，转载请链接形式注明来自http://bianbian.org 做人要厚道

相关日志

Posted in AutoIt3, Technology | 1 Comment »