|
こうするとどうでしょうか?
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 test1()
Dim hExe As Long
Dim hEnt As Long
hExe = FindWindow("hlexpl32", vbNullString)
hEnt = FindWindowEx(hExe, 0, "Edit", vbNullString)
Call SendMessage(hEnt, WM_SETTEXT, 0, ByVal "%( )")
Call SendMessage(hEnt, WM_SETTEXT, 0, ByVal "R")
End Sub
▼たつ さん:
>▼ウッシ さん:
>>▼たつ さん:
>>
>>ウインドウ名が"シテイアプリ"というアプリが起動されていますでしょうか?
>>
>はい、起動しています。
>アプリは
>"C:\Program Files\COMNET Series Emulator\hlexpl32.exe"
>です。
>何か、環境がよくないのでしょうか?
>何度もすみません・・・
|
|