Luna BBS

ウェブブラウザLunascapeの掲示板です。

お気に入りの保存は独自の場所へ「名前を付けて保存」を!

感想や雑談。
※このフォーラムは終了しました。

Re: お気に入りの保存は独自の場所へ「名前を付けて保存」を!

投稿記事by AO_o10yan » 2010年2月15日(月) 16:03

連続投稿で失礼します。

色々試してみましたが、「お気に入り」や「設定」のサイドバーをフローティングに
していると、また状況が違うようです。

その場合は、フローティングしたウィンドウにフォーカスが移っているので、
teruさんのように

WSHShell.AppActivate("Lunascape")

で、Lunascape本体をアクティブにする必要があるようです。


'旧形式のスクリプト
Option Explicit
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
MsgBox("一旦このダイアログにフォーカスを移動させて" & chr(13) & "% と AMFFO のキーを送る")
WSHShell.AppActivate("Lunascape") 'タイトルに"Lunascape"を含むウィンドウをアクティブに。
WSHShell.SendKeys("%") 'キーを送る
WSHShell.SendKeys("AMFFO") 'キーを送る


今回は、Lunascape5.1.6で試しました。
Lunascape Core Version 5.1.6.19479 / Unicode
Operating System Version 5.0.2195
Internet Explorer Version 6.0.2800.1106
AO_o10yan
 
記事: 15
登録日時: 2009年10月16日(金) 17:31

Re: お気に入りの保存は独自の場所へ「名前を付けて保存」を!

投稿記事by soukou » 2010年2月15日(月) 16:21

泥臭いかもしれませんが、【D】のスクリプトが最適です。
スクリプト【D】は4種の操作全てでOKです。

 ②「リンクバー」での操作においては、
[半角/全角]キーが半角の場合はうまく動作しますが、
[半角/全角]キーが全角の場合は画面前面に小窓ができ、その中に全角で「FRSFRS」と表示されます。
それを知って使えば大丈夫です。

私個人としては
「リンクバー」の[BackUpFavoriteYMD]、[SendAMFFO]、[SendFRS_3]が使えるようになったので
これで満足です。

昨年8月にはスクリプトのことは何も知らなかったのですが、
teruさんのおかげで、スクリプトのことが少しだけですが分かるようになりました。
teruさんありがとうございました。

また、"AO_o10yan"さん適切なコメントをありがとうございました。
soukou
 
記事: 360
登録日時: 2009年10月16日(金) 11:16
お住まい: 神奈川県

Re: お気に入りの保存は独自の場所へ「名前を付けて保存」を!

投稿記事by soukou » 2010年2月15日(月) 18:14

AO_o10yan さんが書きました:色々試してみましたが、「お気に入り」や「設定」のサイドバーをフローティングに
していると、また状況が違うようです。

サイドバーにある「お気に入りバー」、「設定バー」を添付画像の様にフロートさせて、
前と同じ[SendFRS]の例【A】【B】【C】【D】で試してみました。

《操作種別追加2種》
 ⑤フロート「お気に入りバー」
 ⑥フロート「設定バー」

《検証結果》各種スクリプト[SendFRS]の振る舞い

■普通のクリック
    ⑤   ⑥ 
【A】▲NG ▲NG
【B】▲NG ▲NG
【C】▲NG ▲NG
【D】▲NG ▲NG

■手動で[Alt]キーを押しながらのクリック
    ⑤   ⑥ 
【A】▲NG ▲NG
【B】▲NG ▲NG
【C】◎OK ◎OK
【D】▲NG ▲NG
添付ファイル
FloatingSideBar_01.jpg
【添付画像】
フロート「お気に入りバー」
フロート「設定バー」
FloatingSideBar_01.jpg (70.37 KiB) 表示数: 239 回
soukou
 
記事: 360
登録日時: 2009年10月16日(金) 11:16
お住まい: 神奈川県

Re: お気に入りの保存は独自の場所へ「名前を付けて保存」を!

投稿記事by soukou » 2010年2月15日(月) 20:33

少し前の私の記事【D】
WSHShell.AppActivate("Lunascape")
を追加したものを【D2】として《操作種別6種》について試してみました。
スクリプト【D2】は6種の操作全てでOKでした。

【D2】《SendFRS_3_2.vbs》の場合
WSHShell.AppActivate("Lunascape") 'タイトルに"Lunascape"を含むウィンドウをアクティブに。
WSHShell.SendKeys("FRS") 'キーを送る
WSHShell.SendKeys("%") 'キーを送る
WSHShell.SendKeys("FRS") 'キーを送る


《検証結果》スクリプト【D2】[SendFRS_3_2]の振る舞い

■普通のクリック
    ①   ②   ③   ④   ⑤   ⑥ 
【D2】◎OK ◎OK ◎OK ◎OK ◎OK ◎OK

■手動で[Alt]キーを押しながらのクリック
    ①   ②   ③   ④※  ⑤   ⑥ 
【D2】▲NG ▲NG ▲NG ▲NG ▲NG ▲NG

※[Alt]キー+Aで[Alt]キーを押したままクリック
soukou
 
記事: 360
登録日時: 2009年10月16日(金) 11:16
お住まい: 神奈川県

Re: お気に入りの保存は独自の場所へ「名前を付けて保存」を!

投稿記事by teru » 2010年2月16日(火) 15:01

soukou様
ついに有効な回避策が見つかりましたね。
おめでとうございます。そして、ありがとうございます。
まぁ、今まで使えていたのに仕様変更のアナウンスが無いのは腑に落ちませんが。。。

soukou様のスキルもいつの間にかメキメキと磨かれていたようで。。。
便利なのを作ったら是非使わせて下さい。


AO_o10yan様
色々ありがとうございます。
また困った事が有ればご教授下さい。


開発者様
いけずぅーーー!!!
teru
 
記事: 15
登録日時: 2009年10月26日(月) 17:06

1つ前へ

Return to 感想・雑談/5