タイトル : Re^3: 他アプリのTextBoxの文字取得について 投稿日 : 2008/03/06(Thu) 14:45 投稿者 : 翼
出来たと思ったんですが・・・ 実行時エラー49が出ます ファイルは全て同じディレクトリにありますが、何故なのでしょうか? 呼び出しもと ret = EnumChildWindows(hWnd, AddressOf EnumChildProc, 0) コールバック関数 Public Function EnumChildProc(ByVal hWnd As Long) As Long Dim ret As Long Dim Leng As Long Dim Name As String Dim s As String Dim buf(255) As Byte On Error GoTo Ext 'バッファ確保 Name = String(255, Chr(0)) Leng = Len(Name) '名前を取得する ret = GetClassName(hWnd, Name, Leng) If ret <> 0 Then If InStr(1, Name, CHILD_CLASS) <> 0 Then ret = SendMessage(hWnd, WM_GETTEXT, MAX_BUFF, buf(0)) s = StrConv(buf, vbUnicode) Debug.Print s '↑ここで、文字があったときEnd Functionに行くとエラーになる End If End If '次にいく EnumChildProc = True Ext: End Function |