tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： 他アプリのTextBoxの文字取得について
投稿日： 2008/03/04(Tue) 15:39
投稿者： 翼
VBで他のアプリのTextBoxに入力された文字を取得したいのですが、
TextBoxが多数あるため、思うように取得することが出来ません
１つだけであれば取得することは出来たのですが、複数ある場合は
どのようになるのでしょうか？

宜しくお願いします
Dim hwindow As Long
Dim hWnd(100) As Long
Dim buf(255) As Byte
Dim ret As Long
Dim s As String
Dim i As Long
Dim str As String

    ' 親ハンドルから子ハンドルを取得
    hwindow = FindWindow(vbNullString, "アプリ名")
    If hwindow <> 0 Then
        For i = 0 To 99
            hWnd(i + 1) = FindWindowEx(hwindow, 0, "ThunderRT6TextBox", vbNullString)
            ' EDPNOを取得
            ret = SendMessage(hWnd(i + 1), WM_GETTEXT, 255, buf(0))
            If ret <> 0 Then
                s = StrConv(buf, vbUnicode)
                ' 代入
                str = Left$(s, ret)                
            End If
        Next
    End If
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。