Dies ist eine alte Version des Dokuments!


XdccAutoRequest

#NewScriptBegin XdccAutoRequest
 
Sub RecvDDECmd(Data, Topic)
  if Split(Data, 1) = "SecNettalkApp" Then
    if LCase(left(Split(Data, 3), 6)) = "irc://" Then
      if InStr(1,ClipboardText," xdcc send #") > 0 and Left(ClipboardText, 1) = "/" Then
        'Nicht sofort zu der Liste hinzufügen:
        Send "/xdcc dontadd," + Split(Data, 3) + " " + ClipboardText, 1
        'Sofort hinzufügen:
        'Send "/xdcc " + Split(Data, 3) + " " + ClipboardText, 1
      End if
    End if
  End if
End Sub

Eigene Werkzeuge