ブラウザにキーストロークを安定して送るには?

解決


WX  2004-08-10 17:34:52  No: 85089  IP: [192.*.*.*]

特定のurl(サンプルではgoogle)をブラウザで開きキーストローク
SendKeys.Send("{TAB 10}{ENTER}")
を送信したいのですが、正常に動作する事もあるのですが、
キーストロークが正常に送れないケースが頻繁に発生します。

メモ帳や電卓に対しては問題なく、キーストロークが送信
できるのですが、安定して動作させるには、どうしたら良いでしょうか?
教えてください


'サンプル  googleをブラウザで開き  [TAB]キーを10回 [Enter]キーを送信しリンク先にアクセス

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim intProcID As Integer

        Dim id = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE " & "http://www.google.co.jp/", 1)

        'ウエイト
        System.Threading.Thread.Sleep(5000)

        'アクティブにする
        AppActivate(id)
        SendKeys.Send("{TAB 10}{ENTER}")

    End Sub

編集 削除
WX  2004-08-10 17:56:01  No: 85090  IP: [192.*.*.*]

追伸

言語は  vb.net  です。よろしくお願いいたします。

編集 削除
魔界の仮面弁士  2004-08-11 00:03:17  No: 85091  IP: [192.*.*.*]

やりたい事にもよりますが、SendKeysを使うのではなく、
InternetExplorerオブジェクトのdocumentプロパティを
操作する…というのは如何でしょうか。

編集 削除
WX  2004-08-11 15:59:57  No: 85092  IP: [192.*.*.*]

IE.Navigate  と  keybd_event  の組み合わせで、思い通りの処理ができました。

ありがとうございました。

編集 削除