「メモ帳」に書き込む
以下のコードを実行すると、メモ帳に「こんにちは!」と書き込む。メモ帳はあらかじめ起動しておく必要がある。
Private
Declare Function FindWindow Lib
"user32" Alias "FindWindowA" (ByVal
lpClassName As String,
ByVal lpWindowName As String)
As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const WM_SETTEXT = &HC |
Private Sub Command1_Click() Dim hNotePad As Long Dim hEdit As Long hNotePad = FindWindow("NotePad", vbNullString) hEdit = FindWindowEx(hNotePad, 0, "Edit", vbNullString) Call SendMessage(hEdit, WM_SETTEXT, 0, ByVal "こんにちは!") End Sub |