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


HSPTV!掲示板


未解決 解決 停止 削除要請

2008
0903
ユナンTeraPadに自動で文字を打ち込みたい4解決


ユナン

リンク

2008/9/3(Wed) 16:48:58|NO.18939

連続投稿すいません
先ほどの続きです

#include "hspext.as"

buffer 0
exec "D:\\Program Files\\TeraPad\\TeraPad.exe",16

wait 10
aplsel "無題"

aplact

aplobj "EDIT"
wait 10
aplstr "#!D/perl/bin/perl"
wait 15

TeraPadには付属でヘッダをつける機能がないのでそれをHSPで実装してみようと思ったのですがうまくいきません
(文の最初にperlのパスを入れたい、毎回同じなため・・・)



メモ帳なら
    aplobj "EDIT"
wait 150
aplstr "自動入力中...."
wait 15
でうまくいくのですが・・・


データを送信するときはオブジェクトIDというのが必要なんですよね?
それがわかりません


わかる方ぜひご教授願います



この記事に返信する


KENTA

リンク

2008/9/3(Wed) 17:13:43|NO.18941

>aplobj "EDIT"
aplobjには"EDIT"ではなく"TEditor"を指定する必要があるみたいです。



ユナン

リンク

2008/9/3(Wed) 17:33:38|NO.18942

回答ありがとうございます

#include "hspext.as"

screen 0
exec "D:\\Program Files\\TeraPad\\TeraPad.exe",16

wait 100
aplsel "無題"
mes refstr:mes stat

aplobj "TEditor"
mes refstr:mes stat
wait 15
aplstr "#!D/perl/bin/perl"
wait 15
stop

にしました
スクリーン0には

無題 - TeraPad
0
TEdit
0

と表示されます

オブジェクトのキャプチャにはどうやら成功しているようなんですが文字が表示されません



低頻度通りすがり

リンク

2008/9/3(Wed) 18:49:22|NO.18947

うーん、apl系じゃ無理かな

#uselib "user32.dll" #cfunc FindWindow "FindWindowA" sptr,sptr #cfunc FindWindowEx "FindWindowExA" sptr,sptr,sptr,sptr sendmsg FindWindowEx(FindWindow("TTeraPadMainForm", 0), 0, "TEditor", 0), $0000000C, 0, "#!D/perl/bin/perl" stop



ユナン

リンク

2008/9/3(Wed) 18:53:34|NO.18948

ありがとうございます。
うまくできました^^。感謝します。

やはり外部DLL使用ですかぁー・・・。



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