Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:skipctcp [2006/02/15 11:45]
217.237.151.162
nettalk:scripting:skipctcp [2007/12/08 15:49] (aktuell)
mirici berichtigt
Zeile 2: Zeile 2:
  
 <code vb> <code vb>
-Sub Serv_Notice(Text, Nick, Receiver, ConnID) +Sub Serv_CTCP(CtcpType, ​Text, Nick, ConnID) 
-  ​if asc(mid(Text,​1,​1)) = 1 Then +  print "*** CTCP-anfrage unterbunden (" + CtcpType ​+ "​)"​ 
-    i=instr(2,​Text,"​ ") +  skipevent
-    if i=0 then i=len(Text)-1 +
-    ​print "*** CTCP-anfrage unterbunden (" + mid(Text,​2,​i-2) ​+ "​)"​ +
-    skipevent +
-  end if+
 End Sub End Sub
 </​code>​ </​code>​
Zeile 15: Zeile 11:
  
 <code vb> <code vb>
-Sub Serv_Notice(Text, Nick, Receiver, ConnID) +Sub Serv_CTCP(CtcpType, ​Text, Nick, ConnID) 
-  ​if asc(mid(Text,​1,​1)) = 1 Then +  SendData "​NOTICE " & Nick & " :Finger weg!", ConnID 
-    i=instr(2,​Text,"​ ") +  print "*** CTCP-anfrage unterbunden (" + CtcpType ​+ "​)"​ 
-    if i=0 then i=len(Text)-1 +  skipevent
-    ​SendData "​NOTICE " & Nick & " :Finger weg!", ConnID +
-    print "*** CTCP-anfrage unterbunden (" + mid(Text,​2,​i-2) ​+ "​)"​ +
-    skipevent +
-  end if+
 End Sub End Sub
 </​code>​ </​code>​
  
-Anmerkung: 
-Der Code scheint fehlerhaft zu sein. 
-Eingehende CTCP-Anfragen (z.B. Version) werden nach wie vor beantwortet,​ 
-CTCP-Replys von anderen Clients werden jedoch mit "*** CTCP-anfrage unterbunden"​ quitiert. 

Eigene Werkzeuge