Public Sub Clip (msg) Set uf=CreateObject("Forms.Form.1") Set tb=uf.Controls.Add("Forms.TextBox.1").Object tb.Text=msg tb.SelStart=0 tb.SelLength=tb.TextLength tb.Copy Set tb=Nothing Set uf=Nothing End Sub Clip("今日の天気")

WshShell.Sendkeys を使えばユーザの操作をエミュレートできる。 WshShell.Sendkeys "^v" とすればクリップボードにコピーされている文字列を貼り付けることができる。 WshShell.Sendkeys では２バイト文字が入力できないので、「貼り付け」を使ってやるらし…

と、今日言われて調査開始。 でも試す環境がないのでどうしたものか… http://www.atmarkit.co.jp/fwin2k/tutor/cformwsh01/cformwsh01_01.html http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/結局 XP 以降なら標準で入っている？それすらよくわからない。 Linux…