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

Message#5 2017年7月19日(水)02時04分
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オブジェクトとして操作方法はないものでしょうか？
> > > >
> > > > 以上です。お力添えよろしくお願いいたします。