ClsAll

#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