Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:clsall [2007/08/28 21:52] (aktuell)
91.0.100.47 angelegt
Zeile 1: Zeile 1:
 +====== ClsAll ======
  
 +<code vb>
 +#​NewScriptBegin ClsAll
 +
 +Sub Load()
 +    MakeShortcut "",​ "​clsall",​ "/call ClsAll.MakeIt",​ 0
 +End Sub
 +
 +Function MakeIt(FrameID)
 +  i=1
 +  do
 +    FrI = GetFrameByIndex(i)
 +    if FrI > 0 Then
 +      Send "/​cls",​ FrI
 +    End if
 +    i=i+1
 +  loop until FrI=0
 +End Function
 +
 +</​code>​

Eigene Werkzeuge