HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2012
1229
名無しSkype4COMでのメッセージ一斉送信プログラム2未解決


名無し

リンク

2012/12/29(Sat) 22:26:33|NO.51549

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


newcom oSkype, "Skype4COM.Skype" skypeClient = oSkype("Client") skypeIsRunning = skypeClient("IsRunning") if ( skypeIsRunning == 0 /*VARIANT_FALSE*/ ) { goto *exit } onexit *exit *exit

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



この記事に返信する


TOM

リンク

2013/1/27(Sun) 18:43:55|NO.52056

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

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



TOM

リンク

2013/1/27(Sun) 18:46:37|NO.52057

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



ONION software Copyright 1997-2021(c) All rights reserved.