よーく考えてみたら、
>フォーカスを置く
>クリップボード
もしかして、テキスト項目への値反映は、貼り付けコマンドを発行する方法ですよね？
もしそうなら、SendKeysオブジェクトで実現可能です。
参考までに、ここの掲示板の履歴(API未使用)
http://okweb.jp/kotaeru.php3?q=1247823
をコンバートすると
---------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strFase As String
Dim lngSts As Long
strFase = GetFaseStr()
System.Windows.Forms.Clipboard.SetDataObject(strFase)
Me.Visible = False
Application.DoEvents()
SendKeys.SendWait("^v")
Me.Visible = True
End Sub
Private Function GetFaseStr() As String
Dim strWk As String = ""
Dim intAry() As Integer = {-32391, -32432, 32, 76, 32, -32432, -32390, 121, 45, 126, 126, 126}
Dim i As Integer
For i = LBound(intAry) To UBound(intAry)
strWk = strWk & Chr(intAry(i))
Next i
GetFaseStr = strWk
End Function
---------------------------------------------
って感じです。
フォーカスを置いて実現するのであれば、あとはアプリケーションの検索と、その中のテキスト項目さえ見つかれば、いいだけですね。
ついでに余談です。
その市販アプリが、いやらしぃ制御さえしていなければ、クリップボードを介さず、フォーカスを置かないで、直接値をテキスト項目に送信する方法もありますよ。
何にしても、その入力項目をどのように探しているのかがわかなければ出来ませんが^^;
