======Proxy Server setzen=======

Legt den Proxyserver (SOCKS-4) ''127.0.0.1:6666'' für die Verbindung ''Nettalk'' fest.

<code vb>
#NewScriptBegin SetProxyServer

Sub Serv_Connect(ConnID)
  If GetVal(ConnID,4) = "Nettalk" Then
    SetProxy "127.0.0.1", 6666, ConnID
  End if
End Sub
</code>

Für das SOCKS-4a-Protokoll muss die SOCKS-Version mit übergeben werden, möglich ist "4" für SOCKS-4 und "4.5" für SOCKS-4a:

<code vb>
#NewScriptBegin SetProxyServer

Sub Serv_Connect(ConnID)
  If GetVal(ConnID,4) = "Nettalk" Then
    SetProxy "127.0.0.1", 6666, ConnID, 4.5
  End if
End Sub
</code>

Mit externer Proxyliste:

<code vb>
#NewScriptBegin ProxyServerList

Dim ProxyIndex
 
Sub Load()
  ProxyIndex = 0
End Sub

Sub Serv_Connect(ConnID)
  If GetVal(ConnID,4) = "Nettalk" Then
    SetNextProxy ConnID
  End if
End Sub

Sub SetNextProxy(ConnID)
  ProxyIndex = ProxyIndex + 1
  
  tmp = Split(ReadFile("C:\ProxyIpList.txt"), ProxyIndex, Chr(13)+Chr(10))
  
  if Len(tmp) = 0 Then
    ProxyIndex = 1
    tmp = Split(ReadFile("C:\ProxyIpList.txt"), ProxyIndex, Chr(13)+Chr(10))
  end if
  
  ProxyServer = Split(tmp, 1, ":")
  ProxyPort = Split(tmp, 2, ":")
  
  SetProxy ProxyServer, ProxyPort, ConnID
End Sub
</code>