忍者ブログ
MASTER →  ADMIN / NEW ENTRY / COMMENT
モバイル、スマートフォン関連情報のニュース、アプリケーション、自作スクリプトなどの備忘録
カレンダー
06 2017/07 08
S M T W T F S
1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31
プロフィール
HN:
ふぁんとむ
性別:
男性
趣味:
電車の中でモバイル通信
ブログ内検索
バーコード
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

MorScriptsではウインドウを選択するときに、ウインドウ名を使うのですが、中にはわかりにくかったり、長いウインドウ名なんかがあって、タイプするのが面倒。
なので、ウインドウ名を自動的に取得し、スクリプトをおいたのと同じフォルダに「Wtlist.txt」というファイルをつくって、そこにためていくというものです。

#############################
Repeat(0)
call "WinTitle"
EndRepeat

Exit

SUB WinTitle
Message("10秒以内にタイトルを取得するウインドウを選択して下さい","Infomation")
sleep(10000)
T=ActiveWindow()
Ms1= "「" & T & "」でよろしいですか?"
if (Question(Ms1,"Info","YesNo")=Yes)
WriteFile("Wtlist.txt",T & "^NL^",True)"
MS2="処理実行。継続?"
ELSE
MS2="処理中止。継続?"
ENDIF

if (Question(MS2,"Info","YesNo")=Yes)
ELSE
Message("終了しました","Info")
Exit
ENDIF
ENDsub
PR
≪  9  8  7  6  5  4  3  2  1  ≫
HOME
Comment
この記事にコメントする
お名前:
URL:
メール:
文字色:  
タイトル:
コメント:
パス:
Trackback
この記事にトラックバックする:
≪  9  8  7  6  5  4  3  2  1  ≫
HOME
忍者ブログ [PR]