uwscでwebページ内のテキストボックスにカーソルを置く方法

質問

• uwscを使ってwebページ内の検索などのテキストボックスにカーソルを置く方法を教えてください。
• 日報システム(html)の日付テキストボックスで値を入力しても元に戻ってしまう問題について、解決方法を教えてください。
• KBDで日付を入力しているが、テキストボックスを直接指定して値を入力する方法があれば教えてください。

回答No.2

redcrow_TX

すいません。補足します。

尚、IEはバージョンによって、ウインドウ名が異なります。
ウインドウ名の取得プログラムも優秀な方が作られたプログラムを拝借して調べました。
私は”デスクトップ　ウィンドウ　クラス名　タイトル　取得　プログラム”と入力して検索しました。
直リンを貼るとNGっぽいので、ごめんなさい。

＞何か動的に書き変わるしかけがあるようなのですがよくわかりません

蛇足がかなーり入ってますが、エクセルでセルA2から続くデータを、B2に入っているID等の番号で管理されたエレメントに入力する例文です。
これをこんな形で答えたのは、世の中のIEを用いて作られたアプリの大半は、IE上で生成されるフォームのテキストボックスに入力する事になってますが、困ったことに場合によってはフォーム上のテキストボックスの位置は座標がマチマチで、ダイレクトに入力する他なく、ダイレクトに入力する方法は、エレメントを知らなければ難しいからだと思ったからです。
が、嬉しい事にプログラマーの方々は殆どの場合、ID番号＋エレメント名などの法則性を使っている為、これを逆手にとってエクセルのセルにIDを入れ、当該ID＆エレメント名とすれば、解決できると思ったからです。（私はこれで解決させました。勿論、『エレメント名＆ID＆エレメント名』・『エレメント名＆ID＆日付』などもあります。
日付は
GETTIME()
TIME=G_TIME_YY4+"年"+G_TIME_MM2+"月"+G_TIME_DD2+"日"+G_TIME_HH2+"時"+G_TIME_NN2+"分"+G_TIME_SS2+"秒"
を使えばTIMEが現在の時間として取得処理出来るので、日報関係ならどうでしょうか？）

更に、動的部分がIE上に表示されている文章等を用いている法則性なら
SENDSTR(0,IE.document.body.innerTEXT)
SCKEY ( GETID("Microsoft Excel","XLMAIN",　 0.1) ,　 VK_CTRL,　V)
として、クリップボード経由でエクセル上に表示されている文章を落としてしまうことも推奨します。
その上で、法則性の部分を抽出して下記の内容で処理したら如何でしょうか？

回数 = input("繰り返す回数を入力してください。")
FOR x = 1 to VAL(回数)
IE = GETACTIVEOLEOBJ("InternetExplorer.Application","●●●- Windows Internet Explorer")//指定したウィンド名のIEを制御→●●●は例です。
Excel=GETACTIVEOLEOBJ("Excel.Application")
val1=Excel.ActiveSheet.Cells(x+1,1).Value//エクセルのA2セルから下に掛けてフォームに入力したいデータを入れます。
val2=Excel.ActiveSheet.Cells(x+1,2).Value//動的法則性を把握して、B2のセルから下に掛けて管理されている法則のID等のデータを入れます。
val3=trim(val2)
bo1="▼▼▼"+val3//▼▼▼は例です。エレメント名を作ります。例えば、動的でIE上でエレメント名が都度異なる場合には、これが有効だと解りました。
print bo1
IESETDATA ( IE , val1, bo1 )
next
MSGBOX("終了です。)