HSPTV!掲示板

Skype4COMで、コンタクト全員に同一のメッセージを一斉送信するプログラムを書いています

newcom oSkype, "Skype4COM.Skype"

skypeClient = oSkype("Client")
skypeIsRunning = skypeClient("IsRunning")

if ( skypeIsRunning == 0 /*VARIANT_FALSE*/ ) {
goto *exit
}

onexit *exit

*exit

ここまでは他の方の記述を参考にして書けるのですが、この先をどのように記述してよいか分かりません
宜しくお願い致します

以前一度作ってみたので参考までに張っておきます。
他の方のソースを組み合わせただけなので見にくいかもしれません。

newcom oSkype, "Skype4COM.Skype"

skypeClient = oSkype("Client")
	
skypeIsRunning = skypeClient("IsRunning")
if ( skypeIsRunning == 0/*VARIANT_FALSE*/ ) {
	goto *exit
}
onexit *exit

convert = oSkype("Convert")
friend  = oSkype("Friends")

stop

*start
repeat friend("count"),1  
        item     = friend("Item",cnt)  
        handle   = item("Handle")           // コンタクトに登録されているハンドル(SkypeID)を取得  
    
        oSkype->"SendMessage" handle,"テスト"
loop

連投すみません。
stopの上にボタンを作っておいて*startに飛ばしてもらえれば使えます。