Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:xdccautorequest [2005/12/21 19:17]
127.0.0.1 Externe Bearbeitung
nettalk:scripting:xdccautorequest [2009/04/13 18:11] (aktuell)
mirici
Zeile 3: Zeile 3:
 <code vb> <code vb>
 #​NewScriptBegin XdccAutoRequest #​NewScriptBegin XdccAutoRequest
 + 
 Sub RecvDDECmd(Data,​ Topic) Sub RecvDDECmd(Data,​ Topic)
   if Split(Data, 1) = "​SecNettalkApp"​ Then   if Split(Data, 1) = "​SecNettalkApp"​ Then
-    if LCase(left(Split(Data,​ 3), 6)) = "​irc://"​ Then+    if InStr(1, Split(Data, 3), "​irc://"​) > 0 Then
       if InStr(1,​ClipboardText,"​ xdcc send #") > 0 and Left(ClipboardText,​ 1) = "/"​ Then       if InStr(1,​ClipboardText,"​ xdcc send #") > 0 and Left(ClipboardText,​ 1) = "/"​ Then
         'Nicht sofort zu der Liste hinzufügen:​         'Nicht sofort zu der Liste hinzufügen:​
-        Send "/xdcc dontadd,"​ + Split(Data, 3) + " " + ClipboardText,​ 1+        ​'Send "/xdcc dontadd,"​ + Split(Data, 3) + " " + ClipboardText,​ 1
         '​Sofort hinzufügen:​         '​Sofort hinzufügen:​
-        ​'Send "/xdcc " + Split(Data, 3) + " " + ClipboardText,​ 1+        Send "/xdcc " + Split(Data, 3) + " " + ClipboardText,​ 1
       End if       End if
     End if     End if

Eigene Werkzeuge