我们访问一些站点的时候需要使用代理服务器才可以访问，但是频繁的切换代理地址却是件很麻烦的事情，利用配置自动代理脚本，就可以不需要每次都去切换了。
使用代理脚本的好处是：
一：代理脚本文件 My.pac几乎支持市面上流行的所有浏览器，如IE、Opera、chrome、Firefox等。
二：支持安装任意一个代理（比如：Tor、GAppProxy、ssh……）
三：本工具产生的代理脚本是依托gfwlist产生的，gfwlist是AutoProxy的代理列表,并油http://autoproxy.org/zh-CN进行列表维护和更新，它可以协助您更好地使用您的代理。
四：本工具产生的代理脚使用脚本屏蔽网页广告这是脚本的一段特色功能，这个东西的好处是简单，功能强大，可配置性强，使用的黑洞代理技术，不去下载广告内容，绝对的no-casting ad block。
原文地址：http://linux.jgxx.com/cgi-wsq/wsqbbs/wsqbbs.pl?cx=3&hf=1&hfbm=81271521114V926
[ Last edited by weasel on 2010-4-18 at 00:59 ]
使用代理脚本的好处是：
一：代理脚本文件 My.pac几乎支持市面上流行的所有浏览器，如IE、Opera、chrome、Firefox等。
二：支持安装任意一个代理（比如：Tor、GAppProxy、ssh……）
三：本工具产生的代理脚本是依托gfwlist产生的，gfwlist是AutoProxy的代理列表,并油http://autoproxy.org/zh-CN进行列表维护和更新，它可以协助您更好地使用您的代理。
四：本工具产生的代理脚使用脚本屏蔽网页广告这是脚本的一段特色功能，这个东西的好处是简单，功能强大，可配置性强，使用的黑洞代理技术，不去下载广告内容，绝对的no-casting ad block。
原文地址：http://linux.jgxx.com/cgi-wsq/wsqbbs/wsqbbs.pl?cx=3&hf=1&hfbm=81271521114V926
cls&@echo off&color 2f&cd /d %~dp0
:::设置My.Pac存放路径路径
Set My_PacPath=d:\my.pac
echo.&echo 正在查找设并置代理端口…………
for /f %%a in ('tasklist ^|find /i "proxy.exe"') do Set Port=PROXY 127.0.0.1:8000&echo.&echo 当前代理端口：127.0.0.1:8000&goto :开始
for /f %%a in ('tasklist ^|find /i "polipo.exe"') do Set Port=PROXY 127.0.0.1:8118&echo.&echo 当前代理端口：127.0.0.1:8118&goto :开始
for /f %%a in ('tasklist ^|find /i "privoxy.exe"') do Set Port=PROXY 127.0.0.1:8118&echo.&echo 当前代理端口：127.0.0.1:8118&goto :开始
for /f %%a in ('tasklist ^|find /i "AdvTor.exe"') do Set Port=PROXY 127.0.0.1:9050&echo.&echo 当前代理端口：127.0.0.1:9050&goto :开始
for /f %%a in ('tasklist ^|find /i "Tor.exe"') do Set Port=SOCKS 127.0.0.1:9050&echo.&echo 当前代理端口：SOCKS 127.0.0.1:9050&goto :开始
echo.&echo 没有找到你的代理端口，请先运行代理软件！，请按任意键退出！ &pause>nul&exit
:开始
echo.&pause
echo.&echo 正在下载(AutoProxy gfwList)文件………… &echo ==============================================================================
Set My_Path=gfwlist.txt&Set My_Proxy=http://autoproxy-gfwlist.googlecode.com/svn/trunk/gfwlist.txt
curl "%My_Proxy%">%My_Path%_tmp.txt
:::curl -x 127.0.0.1:8000 "%My_Proxy%">%My_Path%_tmp.txt
Base64.exe -d %My_Path%_tmp.txt %My_Path%&echo ==============================================================================
echo.&echo 正在去掉不包含点的行…………&Call ::去掉不包含点的行
for %%a in (!
.toLowerCase() + "*")){return ProxyPort;};
>>%My_PacPath% Echo };
>>%My_PacPath% Echo return "DIRECT";
>>%My_PacPath% Echo };
echo.&&echo 代理脚创建本完成，请按任意键退出！&&pause>nul&exit
:去掉包含指定字符串的行
echo.&echo 正在删除包含 %1 字符串的行(不用代理的站点)…………
TYPE %My_Path%|FIND /I /V "%1">%My_Path%_tmp.txt
move %My_Path%_tmp.txt %My_Path%>nul
goto :eof
:去掉不包含点的行
TYPE %My_Path%|FIND ".">%My_Path%_tmp.txt
move %My_Path%_tmp.txt %My_Path%>nul
goto :eof
:替换字符串
setlocal enabledelayedexpansion
set replaced=%1
if /i "%1"=="a" set replaced=^|
if /i "%1"=="b" set replaced=^@
set all=
echo.&echo 正在替换 ^%replaced% 字符串…………
for /f "delims=" %%i in ('type "%My_Path%"') do (
set str=%%i
set "str=!str:%replaced%=%all%!"
echo !str!>>%My_Path%_tmp.txt
)
move "%My_Path%_tmp.txt" "%My_Path%" >nul
goto :eof
:删除重复行
sort %My_Path%>%My_Path%_tmp.txt
echo.>%My_Path%
for /f "delims=" %%i in (%My_Path%_tmp.txt) do (if not defined %%i set %%i=A & echo %%i>>%My_Path%)
del %My_Path%_tmp.txt >nul
goto :eof
:去掉行头尾特殊符号
setlocal enabledelayedexpansion
for /f %%i in ('type "%My_Path%"') do (
SET str=%%i
if "!str:~0,1!"=="*" set "str=!str:~1!"
if "!str:~0,1!"=="." set "str=!str:~1!"
if "!str:~0,1!"=="/" set "str=!str:~1!"
if "!str:~-1!"=="*" set "str=!str:~0,-1!"
if "!str:~-1!"=="/" set "str=!str:~0,-1!"
echo !str!>>%My_Path%_tmp.txt
)
move %My_Path%_tmp.txt "%My_Path%" >nul
goto :eof
==========请在下面输入要添加代理的url的关键字=========
[ Last edited by weasel on 2010-4-18 at 00:59 ]
