HSPTV!掲示板

Skype4comを使って自分のSkypeのステータス(オンラインとか退席中とか）設定できる
ソフトを作ろうと思い、過去の質問の例をコピーして、プログラムの一部を変更し、
使おうと思ったのですが、どうもうまくいきません。
ソースは以下のとおりです。

#define VARIANT_FALSE	(0)


	newcom oSkype, "Skype4COM.Skype"

	skypeClient = oSkype("Client")
	skypeIsRunning = skypeClient("IsRunning")
	
	if (skypeIsRunning == VARIANT_FALSE) {
		mes "Error: skype is not running."
		stop
	}
	
	// oSkype->"Attach" しなくてもMoodTextを操作できるらしい
	//ocall = oSkype("USERSTATUS","ONLINE")
	//oSkype("USERSTATUS") ="ONLINE"
	//oSkype->"UserStatus" "ONLINE"

これの

	//ocall = oSkype("USERSTATUS","ONLINE")
	//oSkype("USERSTATUS") ="ONLINE"
	//oSkype->"UserStatus" "ONLINE"

を1行ずつコメント外して試したのですが
「#Error 30 in line 17 (???)
-->無効な名前がパラメーターに指定されています」
と表示されてしまいます。

どうすればいいのでしょうか？

DLL本体およびそのマニュアルがDLできます。
http://developer.skype.com/accessories/skype4comより

全部英語、サンプルはVBScriptとなっているようですが、まあ、がんばればいける。

ヒントのほうがいいのかもしれないが、答えを載せちゃうとこんな感じ

#define VARIANT_FALSE	(0)


	newcom oSkype, "Skype4COM.Skype"

	skypeClient = oSkype("Client")
	skypeIsRunning = skypeClient("IsRunning")
	
	if (skypeIsRunning == VARIANT_FALSE) {
		mes "Error: skype is not running."
		stop
	}
	
	//oSkype->"Attach" しなくてもMoodTextを操作できるらしい
	oConversion = oSkype("Convert") //ISkype::ConvertでIConversionってのが返る
	nStatus = oConversion("TextToOnlineStatus", "ONLINE") //"ONLINE"に相当する数値を取得
	oSkype->"ChangeUserStatus" nStatus //変更

エラー処理とかあんまりしてない。

なお、これでは一応TextToOnlineStatusしたけれど、マニュアル内に

enum   TUserStatus { 
  cusUnknown = -1, cusOffline = 0, cusOnline = 1, cusAway = 2, 
  cusNotAvailable = 3, cusDoNotDisturb = 4, cusInvisible = 5, cusLoggedOut = 6, 
  cusSkypeMe = 7 
}

とあるから、しなくても即値でいいのかも。


Text contains a text string ("OFFLINE", "ONLINE", "AWAY", "NA", "DND", "SKYPEME", "SKYPEOUT").

なるほど・・・ありがとうございます＞＜