已知现在打开的记事本的句柄，怎样vbs提取内容。最好使用sendmessag方式。

代人发帖

请教：'测试记事本内容提取--没能成功，虽然已提取了内容长度
                hwnd=918974
        Set Wrap = CreateObject("dynamicwrapper")
        Wrap.Register "user32.dll", "SendMessageA", "f=s", "i=llls", "r=l"
        'Wrap.SendMessageA hwnd, &HC, 0,cstr(str)
        llen = Wrap.SendMessageA(hwnd, &HE, 0, 0)
        'txtBuff=Space(20)
        redim txtBuff(20)
        i = Wrap.SendMessageA(hwnd, &HD, 10, VarPtr(txtBuff)) ' CStr(txtBuff))
        list "llen=" & llen &  "  结果：" & txtBuff
        set Wrap = Nothing
        exit sub

技术008

这段程序在vb里面能执行吗

wjtsuper

vb程序有点不一样，如下：
Public Function WinNeiRong(hwnd As Long) As String
     Dim txtBuff As String
     Dim i As Long, j As Long
     j = SendMessage(hwnd, &HE, ByVal CLng(0), ByVal CLng(0)) + 1
     txtBuff = Space(j)
     i = SendMessage(hwnd, &HD, ByVal j, ByVal txtBuff)
     txtBuff = Left(txtBuff, i)
     If InStr(txtBuff, vbNullChar) > 0 Then
        txtBuff = Left$(txtBuff, InStr(txtBuff, vbNullChar) - 1)
     End If
     WinNeiRong = Trim(txtBuff)
End Function

wjtsuper

我前后搞了几个月都不行，网上也找不到帖子，csdn等网站也没有，累啊。这里的大神有吗？

技术006

用这种方式试下。

[PEL] 复制代码

Set fso = CreateObject("Scripting.FileSystemObject")
Set sFile = fso.OpenTextFile("D:/TEST123.txt", 1)
  application.MsgOut  sFile.ReadAll
   sFile.Close
Set fso = Nothing
Set sFile = Nothing