Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:setproxyserver [2011/06/20 11:40]
mirici
nettalk:scripting:setproxyserver [2012/02/10 20:16] (aktuell)
mirici
Zeile 22: Zeile 22:
     SetProxy "​127.0.0.1",​ 6666, ConnID, 4.5     SetProxy "​127.0.0.1",​ 6666, ConnID, 4.5
   End if   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 End Sub
 </​code>​ </​code>​

Eigene Werkzeuge