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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
VBAでエクセル内の情報を他のアプリケーションへ自動入力したいです
Visual Basic(VBA)
-
Excel VBAで他アプリケーションの文字列取得
Excel(エクセル)
-
c#で他のアプリの文字入力フォームに指定の文字を入力したい
C言語・C++・C#
-
-
4
他アプリケーション’(ウィンドウ)のハンドル取得方法
Visual Basic(VBA)
-
5
ExcelVBAでAPIを使って外部ウインドウのエディットテキストを取得する方法
Visual Basic(VBA)
-
6
vbaから他のアプリを終了
Visual Basic(VBA)
-
7
Excel VBAで他アプリへのテキストデータ貼り付け
Excel(エクセル)
-
8
VB.netでFindWindowExやると・・・9222812402616107008!?
Visual Basic(VBA)
-
9
FORMが開いているかどうかの確認方法
Visual Basic(VBA)
-
10
他のアプリケーションとの連携
Visual Basic(VBA)
-
11
exe間での引き値の受け取り方法
Visual Basic(VBA)
-
12
VBSでブラウザ上のテキストボックスに文字列を打ち込み、ボタンを押す方法
Visual Basic(VBA)
-
13
VBAで、なぜかSendkeyが効きません。
PowerPoint(パワーポイント)
-
14
他のウィンドウのボタンを自動的に押したい
C言語・C++・C#
-
15
VBAでコントロールのハンドルを取得したい
Visual Basic(VBA)
-
16
exeファイルの中身を見ることは可能ですか?
フリーソフト
-
17
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
18
起動中のアプリ、ソフトの取得
Visual Basic(VBA)
-
19
プロセスIDからウィンドウハンドルを取得する方法
C言語・C++・C#
-
20
フルパスから最後のディレクトリ名を取得したい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストボックスにセルの値を...
-
テキストボックスの中身をリセ...
-
テキストエリア内の文字列にリ...
-
フォームのテキストの入力数字...
-
Access2000 実行時エラー '3061':
-
IP Address 入力フォームについて
-
VB.NETで数十行のプログラムを...
-
時計の:を点滅させたい
-
スクロールバーが一番したまで...
-
漢字入力した値のカタカナ変換...
-
空白で入力フォームのボタンを...
-
値が無いと次へボタンを押して...
-
アクセスのフォームから検索を...
-
pdfのテキスト全文コピー、テキ...
-
RPG(AS400)の本、サイトってあ...
-
VBAからPDFのテキストフィールド
-
WebBrowserコントロールとMicro...
-
テキスト内の重複文字検索
-
変数に256文字以上のテキストを...
-
ホームぺージ制作で間違って重...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のアプリケーションのテキス...
-
テキストボックスの中身をリセ...
-
テキストボックスにセルの値を...
-
変数に256文字以上のテキストを...
-
RPG(AS400)の本、サイトってあ...
-
ホームぺージ制作で間違って重...
-
VB6.0 でメニューを作りたいん...
-
改行含むテキストの表示の仕方
-
pdfのテキスト全文コピー、テキ...
-
VB.NET2005 DataGridViewでレコ...
-
コモンダイアログのshowopenに...
-
VBAでホームページからコピーし...
-
VS2008 C# ボタンのテキストを...
-
テキストエリア内の文字列にリ...
-
'2465'指定した式で参照してい...
-
VBAからPDFのテキストフィールド
-
チェックボックスのテキストを...
-
VBSでMid関数を使ったらエラー...
-
ドラッグ&ドロップからの取得
-
VB.NET メッセージボックスの表...
おすすめ情報