|
▼ウッシ さん:
ありがとうございます。
2回目に教えてもらったコードでも、ダメでした。
hExe = FindWindow("hlexpl32", vbNullString)
↑こちらに変えてもダメでした。(泣)
いろいろネットでも調べていて、下記内容をみてみて、試してみました。
******************************************************
'ウインドウ名を指定する場合
Private Sub Command1_Click()
Dim ret As Long
ret = FindWindow(vbNullString, "無題 - メモ帳")
Me.Caption = ret
End Sub
'クラス名を指定する場合
Private Sub Command2_Click()
Dim ret As Long
ret = FindWindow("Notepad", vbNullString)
Me.Caption = ret
End Sub
******************************************************************
と書いてあったので、
ウィンドウ名を指定する場合を参考に、
vbnullStringとシテイアプリ名の順番を変えてみたら、
↓↓
hExe = FindWindow(vbNullString, "TCPLink6680エミュレータ - TCP6680-Ses01")
hExeに数値が入りましたが、数値が入ったということは、取得しているのでしょうか?
しかし、次のhEntには数値0が返ってきました。
hEnt = FindWindowEx(hExe, 0, "Edit", vbNullString)
Call SendMessage(hEnt, WM_SETTEXT, 0, ByVal "%( )")
Call SendMessage(hEnt, WM_SETTEXT, 0, ByVal "R")
どうして、うまく取得してくれないのでしょうか?
困惑中です
|
|