Setting a proxy server for a single connection

The following script set the proxy server to 127.0.0.1:6666 for the connection Nettalk.

#NewScriptBegin SetProxyServer
 
Sub Serv_Connect(ConnID)
  If GetVal(ConnID,4) = "Nettalk" Then
    SetProxy "127.0.0.1", 6666, ConnID
  End If
End Sub

_{Original German content : Proxy Server setzen}