任意の文字列を他アプリケーションに張付けるには、VBではどのようにすれば実現できるでしょうか？

ありがとうございます。

大変参考になりました。

一応、上記の内容で、Command1ボタンを押すとメモ帳に

「aaaa」

という文字列を送信することができました。

しかし、下記のような問題点が残っています。

①メモ帳などとアプリを限定したくない(直前に操作していたあぷりにしたい)

②入力する内容はキーを押すことで実現するのではなく、任意の文字列(例えば配列の内容)としたい

どのようにすれば①、②を解決できるでしょうか？

Private Declare Function GetTickCount Lib ”kernel32” () As Long

Private Declare Sub keybd_event Lib ”user32.dll” _

(ByVal bVk As Byte, ByVal bScan As Byte, _

ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

’仮想キーコード・ASCII値・スキャンコード間でコードを変換する(P1067)

Private Declare Function MapVirtualKey Lib ”user32” _

Alias ”MapVirtualKeyA” (ByVal wCode As Long, _

ByVal wMapType As Long) As Long

Private Const VK_CAPITAL = &H14

Private Const VK_A = &H41

Private Const VK_TAB = &H9

Private Const VK_KANJI = &H19

Private Const VK_RETURN = &HD

Private Const VK_SHIFT = &H10

Private Const VK_HOME = &H24

Private Const VK_END = &H23

Private Const KEYEVENTF_EXTENDEDKEY = &H1

Private Const KEYEVENTF_KEYUP = &H2

’キー送信をした後にちょっとまつ

Public Sub Waiter(TT As Long)

Dim T1 As Long, T2 As Long

T1 = GetTickCount()

Do Until T2 - T1 >= TT

T2 = GetTickCount()

DoEvents

Loop

End Sub

Private Sub Command1_Click()

Dim wVkKey() As Integer

Dim UpDown() As Integer

AppActivate ”無題 - メモ帳”

’a キーを押し、その後 Enter キーを押す

Call keybd_event(VK_A, 0, 0, 0)

Call Waiter(300)

Call keybd_event(VK_TAB, 0, 0, 0)

Call Waiter(300)

Call keybd_event(VK_A, 0, 0, 0)

Call Waiter(300)

Call keybd_event(VK_TAB, 0, 0, 0)

Call Waiter(300)

Call keybd_event(VK_A, 0, 0, 0)

Call Waiter(300)

Call keybd_event(VK_TAB, 0, 0, 0)

Call Waiter(300)

Call keybd_event(VK_A, 0, 0, 0)

Call Waiter(300)

End Sub

ありがとうございます。

SendKeysは何かと問題がおおいそうです。

他の実現方法はないでしょうか？

http://www.gj.il24.net/~nakasima/vb/trap/#VBTRAP14

詳細なご回答、ありがとうございます。

このような質問であれば本来はその専門の掲示板等を利用すべきであることは

承知しているのですが、はてなの「即効性」を頼りにここに質問させていただきました。

なるべく多くの資料を参考にしたく、ご提示いただいたURLを全て把握する前に

次の回答を参照し、また失礼とは思いつつも思慮の浅い質問を重ねさせていただきました。

とりあえず目的の動作は実現することができたのですが、突貫工事のようなもので、

やっと動かすことができたというレベルのものですので、頂いた資料をもとに

考察を重ね、再度失礼な質問を繰り返さないように致します。

> 早くソフトを作成したい気持ちはとても良くわかるのですが、自分の知識以上の

> 物を作る時には、一見遠回りのようですがきちんと理解してから進んだ方が

> 結果的に早く完成しますよ。

> もっと細かい事(詳細なコード等)を聞きたいのであればここではなく、

> VB関係のHPの質問掲示板等で聞いた方が良いと思いますが、

> とりあえず[メモ帳を遠隔操作して遊ぼう]の部分ぐらいは理解してから

> 質問しないと有効な回答は得られないかもしれません。

> それでも具体的なコードを示してくれるのは難しいと思います。

そうですね。

必要があってすぐにこのようなプログラムをつくらなければならなかったのですが、

答え方の難しい、理不尽な質問であったと思います。

私自身、VBは初心者ですのでこれを機会に資料をよく読み、理解を深めたいと思います。

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

この質問のためにまだ奔走してくださっている方がおられるかもしれませんので

もう少し、質問を継続したいと思います。