No.1ベストアンサー
- 回答日時:
キーフックを使って作るのが王道のようですが、
どうもややこしそうなので思いついたソースだけ記述します。
質問者さんの思っている動きとは違うかもしれませんが、、。
以下ソースをVBで実行後、
Windows標準のメモ帳を起動し1を入力してみてください
'--------------以下貼り付けてください-----------------
Private Declare Function FindWindowA Lib "user32" (ByVal cnm As String, ByVal cap As String) As Long
Private Declare Function FindWindowExA Lib "user32" (ByVal hpar As Long, ByVal hchi As Long, ByVal cnm As String, ByVal cap As String) As Long
Private Declare Function SendMessageA Lib "user32" (ByVal hwd As Long, ByVal Msg As Long, ByVal wpara As Long, ByVal lParam As Any) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Const WM_GETTEXT = &HD
Const WM_SETTEXT = &HC
Private Sub Form_Load()
Dim hwd As Long, hwd_c As Long
Dim cap As String, ret As Long
cap = Space$(200)
Do
'メモ帳のハンドル取得
hwd = FindWindowA(vbNullString, "無題 - メモ帳")
'メモ帳のテキストハンドル取得
hwd_c = FindWindowExA(hwd, 0, "Edit", "")
'メモ帳のテキストを取得
ret = SendMessageA(hwd_c, WM_GETTEXT, 200, cap)
'メモ帳のテキストを検索
If InStr(1, cap, "1", vbTextCompare) > 0 Then
'1が入力されているなら置き換えて送信
Call SendMessageA(hwd_c, WM_SETTEXT, 0, "おはよう" & vbCrLf)
End If
DoEvents
Sleep (1000)
Loop
End Sub
'---------------------------------------------
'以下参考にしたURLです
http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd …
http://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?p …
早速のお返事とコードありがとうございます。
なんとなく、わかったような気がしました。
参考URLも使っていろいろ研究してみたいと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- Outlook(アウトルック) 【 Windows 10 】アドレス帳に正しくインポートを完了させたい。 3 2023/04/23 13:41
- JavaScript 空白で入力フォームのボタンをクリックしたら、ブラウザの上部からjavascriptで 表示されるアラ 1 2022/05/20 11:16
- Access(アクセス) Accessのデータ型の日付/時刻型について 2 2023/02/14 07:40
- Access(アクセス) Accessテキストボックス内に2つのフィールドの値を比較して大きい方の値を表示させる方法 1 2022/09/09 10:50
- Access(アクセス) Accessフォームで複数条件でフィールドの値を表示する方法 4 2022/07/21 10:47
- Windows 10 explorerをedgeで開く方法 2 2022/06/05 14:59
- JavaScript 読み込んだQRコードをフォームに受け渡したい 1 2023/05/18 11:18
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAでエクセル内の情報を他のアプリケーションへ自動入力したいです
Visual Basic(VBA)
-
Excel VBAで他アプリケーションの文字列取得
Excel(エクセル)
-
c#で他のアプリの文字入力フォームに指定の文字を入力したい
C言語・C++・C#
-
-
4
他アプリケーション’(ウィンドウ)のハンドル取得方法
Visual Basic(VBA)
-
5
ExcelVBAでAPIを使って外部ウインドウのエディットテキストを取得する方法
Visual Basic(VBA)
-
6
Excel VBAで他アプリへのテキストデータ貼り付け
Excel(エクセル)
-
7
VB.netでFindWindowExやると・・・9222812402616107008!?
Visual Basic(VBA)
-
8
他のウィンドウのボタンを自動的に押したい
C言語・C++・C#
-
9
vbaから他のアプリを終了
Visual Basic(VBA)
-
10
FORMが開いているかどうかの確認方法
Visual Basic(VBA)
-
11
他のアプリケーションとの連携
Visual Basic(VBA)
-
12
exe間での引き値の受け取り方法
Visual Basic(VBA)
-
13
VBSでブラウザ上のテキストボックスに文字列を打ち込み、ボタンを押す方法
Visual Basic(VBA)
-
14
exeファイルの中身を見ることは可能ですか?
フリーソフト
-
15
プロセスIDからウィンドウハンドルを取得する方法
C言語・C++・C#
-
16
WSH or VBの質問
Visual Basic(VBA)
-
17
VBAで既に開いている別アプリケーションのオブジェクトを得る
Visual Basic(VBA)
-
18
ウィンドウにキー送信で ENTER を送りたい
Visual Basic(VBA)
-
19
VBAで、なぜかSendkeyが効きません。
PowerPoint(パワーポイント)
-
20
VBAでコントロールのハンドルを取得したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別のアプリケーションのテキス...
-
'2465'指定した式で参照してい...
-
テキストサービスについて
-
pdfのテキスト全文コピー、テキ...
-
テキストボックスの中身をリセ...
-
c# DataGridViewの画像挿入につ...
-
VB6.0 でメニューを作りたいん...
-
photoshopで書いた四角の枠の中...
-
VBAで改行の入ったデータの正規...
-
四乗根を英語で言うと・・・
-
node* ってなんなのでしょうか?
-
HTMLからFLASHに変数を送り、内...
-
Flash Liteのムービークリップ...
-
PYTHONのtkinterについて
-
変数名に変数を使う
-
五芒星は、悪魔崇拝とどういう...
-
アセンブリ言語のcasl2について...
-
マウスオーバーで色が薄くなる...
-
【VB.NET】別Formのボタンが押...
-
else if文の順序を変えることに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキストボックスの中身をリセ...
-
変数に256文字以上のテキストを...
-
テキストボックスにセルの値を...
-
別のアプリケーションのテキス...
-
全てのテキストボックスをセル...
-
'2465'指定した式で参照してい...
-
POIでのテキストボックス作成に...
-
VB6.0 でメニューを作りたいん...
-
pdfのテキスト全文コピー、テキ...
-
Access2000 実行時エラー '3061':
-
VBSでMid関数を使ったらエラー...
-
VB.NET メッセージボックスの表...
-
RPG(AS400)の本、サイトってあ...
-
HTMLのtextbox類に文字を残す
-
VB.NET2005 DataGridViewでレコ...
-
アクセスのフォームから検索を...
-
テキストの横移動させて表示
-
FLASH上で日数カウントダウン
-
IP Address 入力フォームについて
-
FLASH8にてテキストエリア内の...
おすすめ情報