Ctrl＋Vのキーストロークを合成したいのですが

Question

Ctrl＋Vのキーストロークを合成して、クリップボードの内容を貼り付けたいと考えています。
いろいろ調べた結果、大体以下のように記述すればよいのではないかとおもったのですが記述に間違いがあるようです。（form上のText１内に張り付けることができません。）恐れ入りますが、何卒ご教授いただきたくお願いいたします。

Option Explicit

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_CONTROL = &H11

Private Sub Command1_Click()
Call keybd_event(VK_CONTROL, 0, 0, 0)
Call keybd_event(Asc("V"), 0, 0, 0)
Call keybd_event(Asc("V"), 0, KEYEVENTF_KEYUP, 0)
Call keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0)
End Sub

ちなみに使用目的につきましては、form1上のWebBrowser1に開いた入力フォームの<input type="file" >に（JavaScriptでフォーカスを移したうえで）ファイルのパスを貼り付けることです。
<input type="file" >はvalueを指定できないようなので、色々考えた結果、上記のようにするしかないかと考えました。もしもほかによい方法があったら恐れ入りますがご教授いただけると大変ありがたいです。よろしくお願いします。

BLUEPIXY · Accepted Answer

sendKeysを使うといいかも

BLUEPIXY · Answer

>その後時間が経過した後に本アプリケーションSendKeys利用しようとした場合であっても張り付きません
推測ですが、
SendKeysは、現在アクティブになっているウィンドウ（アプリケーション）にキー入力を送るものなので、タイミングによって自ウィンドウがアクティブになっていないからでじゃないかと思います。
ＯＳ起動直後は、特にさまざまな常駐プログラムなどが起動しますから、そのためだと思います。
だから、予防措置としては、SendKeysを実行する前にアクティブになっていることを確かめないといけませんが、プログラムで確かめたところで、他のアプリケーションがすぐさまアクティブになる場合もあるので、そういう切り替わりがないと考えられる状態で実行しないといけないですね。＾＾；

＞オブジェクト変数またはWithブロック変数が設定されていません。
このエラーって時にＶＢで起こるみたいですね。私的にはプログラムの中で不安定な要素（変数への参照を見失う？）があるような時に起こるというイメージですが、起こる原因というとこれっていうのは難しいですね。
原因となる部分がこのステートメントでない可能性もありますし。
私としては、基本的には、かっちりしたプログラムを作るとかビルドし直すとかそういうことしか思いつきません。

別に質問としてあげるといいかもしれませんね

BLUEPIXY · Answer

＞ｘｐにインストールして動かしたところ
ＸＰだからだめだという理由は良く判りません。
基本的には、動くと思われますが、
ＭＥでの開発環境で使っているＤＬＬなどが異なるとかそういうことかもしれません。
ＸＰでの開発環境でビルドしなおしてみたりするとどうでしょうか

＞SendKeysで入力することはできますでしょうか。
SendKeys 文字列
なので、そのまま、引数として渡してやればいいと思います。
プラス記号       "+" 
カレット             "^" 
パーセント記号 "%" 
ティルダ       "~" 
などの特殊記号については、{}で囲むというような仕様だったと思いますが、ファイルパスでそうした特殊記号が使われることはほとんどないと思われるので、そのままでいいかと思われます。
（含まれる場合は、置換してやる必要があると思われますが）

BLUEPIXY · Answer

>WebBrowser1.Document.myFORM.uploadfile.focus」の行が黄色く表示されます。
実際に同じものを作って試してみたわけではないのですが、
こういうエラーを起こす原因で良くあるのは、
ＨＴＭＬのレンダラーが完全に終わってない状態でその内容にアクセスしようとすることです。

ＨＴＭＬの読み込みが完了した後（onloadイベントが起こった後）でなければ、フォームにアクセスしてはいけません。
まだ、存在しないフォームにアクセスしようとするのでエラーになります。
具体的には
Document.readyState が "complete"になるまで待たないといけません。
すでにそういう処置をされていて、勘違いコメントだったらすみません。

Ctrl＋Vのキーストロークを合成したいのですが

sendKeysを使うといいかも

>その後時間が経過した後に本アプリケーションSendKeys利用しようとした場合であっても張り付きません

＞ｘｐにインストールして動かしたところ

>WebBrowser1.Document.myFORM.uploadfile.focus」の行が黄色く表示されます。

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング