Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:autoantwort [2006/06/10 20:18]
213.39.174.69
nettalk:scripting:autoantwort [2006/12/06 16:39] (aktuell)
mirici
Zeile 1: Zeile 1:
 +====== Automatisch antworten ======
  
 +<code vb>
 +#​NewScriptBegin AutoAntwort
 +
 +Sub Chan_Msg(Text,​ Nick, Channel, FrameID, ConnID)
 +  ltext=lCase(Text)
 +  ​
 +  '​Vergleich der ganzen Zeichenkette:​
 +  if ltext = "​hi"​ Then Send "Hallo " & Nick, FrameID
 +  if ltext = "​cu"​ Then Send "​Schüss " & Nick, FrameID
 +  '...
 +  ​
 +  '​Schaut ob Wort vorkommt:
 +  if InStr(1, ltext, "​frage"​) > 0 Then Send "Du hast eine Frage " & Nick & "?",​ FrameID
 +  '...
 +End Sub
 +</​code>​

Eigene Werkzeuge