削除

WEBページダイアログの操作について削除

Message#4 2017年7月15日(土)11時17分
From: 齋藤拓也

齋藤拓也のメッセージ(#3)への返事

やりたかったことがなんとかできました！
分かりずらいと思いますが一部を抜粋すると下記のような感じです。
ジャッカルさんには以前もご意見いただき感謝の言葉もありません。本当にありがとうございました。

私もいつか聞く側から答えられる側になりたいものです・・・

hwnd = FindWindow("Internet Explorer_TridentDlgFrame", "OSメモ登録画面 -- Web ページダイアログ")

If hwnd <> 0 Then
SetForegroundWindow (hWnd1)
Application.Wait Now + TimeValue("00:00:01")
SetCursorPos 700, 330
mouse_event 2
mouse_event 4
Application.Wait Now + TimeValue("00:00:01")
SendKeys "^v", True
Application.Wait Now + TimeValue("00:00:01")
SendKeys "{TAB}", True
Application.Wait Now + TimeValue("00:00:01")
SendKeys "{ENTER}", True
End If

> sendkeysは思いつかなかったなあ・・・
> マウスイベントで対象のテキストボックスにフォーカス当ててsendkeysで文字を入力してEnter。で、やってみます！
>
> ジャッカルのメッセージ(#2)への返事
>
> > sendkeysで直接入力させてEnterで登録とか
> >
> > > 表題の件についてお力をお借りしたいです。
> > >
> > > ■実現したいこと
> > > １．IEで特定のウェブページにアクセスする
> > > ２．テキストボックスに値を入力する
> > > ３．検索ボタンをクリックする
> > > ４．特定のボタンをクリックする
> > > ５．特定のボタンをクリックするとWEBページダイアログが出現する
> > > 　～ここまで出来ています～
> > > ６．WEBページダイアログ内のテキストボックスに値を入力する
> > > ７．WEBページダイアログ内の「登録」ボタンをクリックする
> > >
> > > hwnd = FindWindow("Internet Explorer_TridentDlgFrame", "メモ登録画面 -- Web ページダイアログ")
> > > 上記にてダイアログのハンドルは取得できているのですがIEではないのでIEオブジェクトのように操作ができていない状況です。
> > > WEBページダイアログという扱いになっていますがHTMLは存在しています。
> > > このWEBページダイアログをIEオブジェクトとして操作方法はないものでしょうか？
> > >
> > > 以上です。お力添えよろしくお願いいたします。

上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。