易语言程序不走代理

易语言程序是可以代理的
易语言实现超级代理服务端源码，支持>版本 2子程序 _设为代理_被单击
局部变量 proxy, 文本型如果真 (代理服务器地址1内容 ＝ “” 或 代理服务器地址端口1内容 ＝ “”)
信息框 (“代理服务器跟端口输入栏不能为空啊~~”, 0, )
如果真结束
proxy ＝ 代理服务器地址1内容 ＋ “:” ＋ 代理服务器地址端口1内容
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable”, 1)
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer”, proxy)
信息框 (“已执行写入设置 *** 作”, 0, ) 版本 2子程序 _取消代理_被单击写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable”, 0)
删除注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer”)
信息框 (“已执行删除设置 *** 作”, 0, )

利用服务器控件和客户控件可以做出一个局域网的登录、控制系统
源码如下：

版本
2
支持库
sock
程序集
窗口程序集1
程序集变量
用户,
文本型
程序集变量
密码,
文本型
子程序
__启动窗口_创建完毕
局部变量
IP,
文本型,
,
"0"
IP
＝
取本机IP
()
编辑框1内容
＝
IP
[1]
子程序
_服务器_数据到达
局部变量
数据,
文本型
数据
＝
删首尾空
(到文本
(服务器取回数据
()))
用户
＝
取文本左边
(数据,
寻找文本
(数据,
“#”,
,
真)
－
1)
密码
＝
取文本右边
(数据,
取文本长度
(数据)
－
寻找文本
(数据,
“#”,
,
真))
信息框
(“有用户登录:”
＋
#换行符
＋
用户
＋
#换行符
＋
密码,
0,
)
子程序
_按钮1_被单击
客户连接
(编辑框1内容,
19730)
客户发送数据
(到字节集
(编辑框2内容
＋
“#”
＋
编辑框3内容))
子程序
_服务器_客户进入
输出调试文本
(服务器取回客户
())

---