谁知道代理服务器怎么写？

[ZGhua]

我想对代理服务器的原理简单的了解。谁能帮我下吗？最好有源代码。那样比较容易理解。。谢谢！

[tianjy]

我用Winsock控件写过，不是很稳定
我简单说一下我的思路
我使用了两个winsock控件，wskin ,index=0; wskout , index=0
wskin(0).localport=8080
wskin(0).listen
当有连接请求时，load wskin(NextWinsockNum)
wskin(nextwinsocknum).accept requestid
当wskin(index)有数据到达时
dim requeststring as string
wskin(index).getdata requeststring
在requeststring里面把网址找到
load wskout(index)
wskout(index).connect host,port
while wskout(index).state<>7
判断是否超时,如果超时，返回连接不上的页面
sleep 1 '如果没有这个系统使用率会很高
wend
wskout(index).senddata requeststring

当wskout(index)有数据到达时
dim b() as byte
wskout(index).getdata b
wskin(index).senddata b


大致就是这么一个思路，我原来写的那个代码丢了，所以没有办法给你参考了

[ZGhua]

非常感谢。。清晰明了。我看得懂。。
我回去试一下。。不懂的在来问你哈