Legt den Proxyserver (SOCKS-4) 127.0.0.1:6666
für die Verbindung Nettalk
fest.
#NewScriptBegin SetProxyServer Sub Serv_Connect(ConnID) If GetVal(ConnID,4) = "Nettalk" Then SetProxy "127.0.0.1", 6666, ConnID End if End Sub
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:
#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
Mit externer Proxyliste:
#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