|
APIにしてみてもダメでしょうか?
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
Sub test()
Dim hExe As Long
Dim hEnt As Long
hExe = FindWindow("シテイアプリ", vbNullString)
hEnt = FindWindowEx(hExe, 0, "Edit", vbNullString)
Call SendMessage(hEnt, WM_SETTEXT, 0, ByVal "%( )")
Call SendMessage(hEnt, WM_SETTEXT, 0, ByVal "R")
End Sub
|
|