请问HP_Socket sock5代理如何设置账号密码?

四处观察

.版本 2

.全局变量 m_Agent, ITcpAgent



.版本 2
.支持库 spec

    .如果真 (m_Agent.Connect (m_spAgent, 代理IP, 代理端口, agid) ＝ 假)
        调试输出 (“连接代理失败！”)

https://bbs.125.la/thread-14269566-1-1.html 这个帖子的。。没法设置账号密码

xiaoyu1986

在下面那个Agent_OnReceive()子程序里，处理账号密码的验证。验证方法，我昨天已经给你参考了。
亦可参考：https://bbs.125.la/forum.php?mod=viewthread&tid=14038291

  

子程序名	返回值类型	公开	备 注
Agent_OnConnect	整数型		代理连接成功后发送握手请求
参数名	类 型	参考	可空	数组	备 注
pSender	整数型
dwConnID	整数型

变量名	类 型	静态	数组	备 注
ServerID	整数型

m_Agent.GetConnectionExtra (m_spAgent, dwConnID, ServerID)
如果真 (m_Agent.SendBytes (pSender, dwConnID, { 5, 2, 0, 2 }))  ' 发送请求握手
m_Agent.SetConnectionExtra (pSender, dwConnID, 1000000 ＋ ServerID)
返回 ( #HR_OK )

子程序名	返回值类型	公开	备 注
Agent_OnReceive	整数型		代理数据到达
参数名	类 型	参考	可空	数组	备 注
pSender	整数型
dwConnID	整数型
pData	整数型				数据指针 需通过指针到字节集获取数据
iLength	整数型

变量名	类 型	静态	数组	备 注
pBuffer	字节集
Server_ID	整数型
目标地址	字节集

Agent_Recv ＝ Agent_Recv ＋ iLength
m_Agent.GetConnectionExtra (pSender, dwConnID, Server_ID)
判断 (Server_ID ＞ 1000000 且 Server_ID ＜ 2000000)  ' 大于1000000 是握手返回的第一个包
pBuffer ＝ 指针到字节集 (pData, iLength)
调试输出 (pBuffer)
判断 (取字节集左边 (pBuffer, 2) ＝ { 5, 0 })
哈希.查找 (到字节集 (dwConnID), 目标地址)
m_Agent.SendBytes (pSender, dwConnID, { 5, 1, 0, 1 } ＋ 目标地址)  ' 发送第二次握手
Server_ID ＝ Server_ID ＋ 1000000
哈希.删除 (到字节集 (dwConnID))
m_Agent.SetConnectionExtra (pSender, dwConnID, Server_ID)
返回 ( #HR_OK )

m_Agent.Disconnect (pSender, dwConnID, 真)
m_Server.Disconnect (m_spServer, Server_ID, 真)
返回 ( #HR_OK )


判断 (Server_ID ＞ 2000000)
pBuffer ＝ 指针到字节集 (pData, iLength)
判断 (取字节集左边 (pBuffer, 2) ＝ { 5, 0 })
Server_ID ＝ Server_ID － 2000000
m_Agent.SetConnectionExtra (pSender, dwConnID, Server_ID)
m_Server.SetConnectionExtra (m_spServer, Server_ID, dwConnID)
m_Server.PauseReceive (m_spServer, Server_ID, 假)  ' 暂停接受数据
返回 ( #HR_OK )

m_Agent.Disconnect (pSender, dwConnID, 真)
m_Server.Disconnect (m_spServer, Server_ID, 真)
返回 ( #HR_OK )




m_Server.Send (m_spServer, Server_ID, pData, iLength)
返回 ( #HR_OK )

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 Agent_OnConnect, 整数型, , 代理连接成功后发送握手请求<br /> .参数 pSender, 整数型<br /> .参数 dwConnID, 整数型<br /> .局部变量 ServerID, 整数型<br /> <br /> m_Agent.GetConnectionExtra (m_spAgent, dwConnID, ServerID)<br /> <br /> .如果真 (m_Agent.SendBytes (pSender, dwConnID, { 5, 2, 0, 2 }))  ' 发送请求握手<br /> <br />     m_Agent.SetConnectionExtra (pSender, dwConnID, 1000000 ＋ ServerID)<br /> <br /> <br /> .如果真结束<br /> 返回 (#HR_OK)<br /> <br /> .子程序 Agent_OnReceive, 整数型, , 代理数据到达<br /> .参数 pSender, 整数型<br /> .参数 dwConnID, 整数型<br /> .参数 pData, 整数型, , 数据指针 需通过指针到字节集获取数据<br /> .参数 iLength, 整数型<br /> .局部变量 pBuffer, 字节集<br /> .局部变量 Server_ID, 整数型<br /> .局部变量 目标地址, 字节集<br /> <br /> Agent_Recv ＝ Agent_Recv ＋ iLength<br /> <br /> m_Agent.GetConnectionExtra (pSender, dwConnID, Server_ID)<br /> <br /> .判断开始 (Server_ID ＞ 1000000 且 Server_ID ＜ 2000000)  ' 大于1000000 是握手返回的第一个包<br />     pBuffer ＝ 指针到字节集 (pData, iLength)<br />     调试输出 (pBuffer)<br />     .判断开始 (取字节集左边 (pBuffer, 2) ＝ { 5, 0 })<br /> <br />         哈希.查找 (到字节集 (dwConnID), 目标地址)<br />         m_Agent.SendBytes (pSender, dwConnID, { 5, 1, 0, 1 } ＋ 目标地址)  ' 发送第二次握手<br />         Server_ID ＝ Server_ID ＋ 1000000<br />         哈希.删除 (到字节集 (dwConnID))<br /> <br />         m_Agent.SetConnectionExtra (pSender, dwConnID, Server_ID)<br />         返回 (#HR_OK)<br /> <br />     .默认<br />         m_Agent.Disconnect (pSender, dwConnID, 真)<br />         m_Server.Disconnect (m_spServer, Server_ID, 真)<br />         返回 (#HR_OK)<br />     .判断结束<br /> <br /> <br /> .判断 (Server_ID ＞ 2000000)<br /> <br />     pBuffer ＝ 指针到字节集 (pData, iLength)<br />     .判断开始 (取字节集左边 (pBuffer, 2) ＝ { 5, 0 })<br />         Server_ID ＝ Server_ID － 2000000<br />         m_Agent.SetConnectionExtra (pSender, dwConnID, Server_ID)<br />         m_Server.SetConnectionExtra (m_spServer, Server_ID, dwConnID)<br />         m_Server.PauseReceive (m_spServer, Server_ID, 假)  ' 暂停接受数据<br />         返回 (#HR_OK)<br /> <br />     .默认<br />         m_Agent.Disconnect (pSender, dwConnID, 真)<br />         m_Server.Disconnect (m_spServer, Server_ID, 真)<br />         返回 (#HR_OK)<br />     .判断结束<br /> <br /> .默认<br /> <br /> <br /> <br /> .判断结束<br /> <br /> <br /> <br /> m_Server.Send (m_spServer, Server_ID, pData, iLength)<br /> 返回 (#HR_OK)