如何在VB中使用FindText、ReplaceText、FRHookProc三个API函数？

[fs_windy]

如题：如何在VB中使用FindText、ReplaceText、FRHookProc三个API函数？
请高手指教？

[shines77]

目前我只知道他们的声明，FRHookProc还没查到，我去查查：

Private Type FINDREPLACE
lStructSize As Long ' size of this struct 0x20
hwndOwner As Long ' handle to owner's window
hInstance As Long ' instance handle of.EXE that
' contains cust. dlg. template
flags As Long ' one or more of the FR_??
lpstrFindWhat As String ' ptr. to search string
lpstrReplaceWith As String ' ptr. to replace string
wFindWhatLen As Integer ' size of find buffer
wReplaceWithLen As Integer ' size of replace buffer
lCustData As Long ' data passed to hook fn.
lpfnHook As Long ' ptr. to hook fn. or NULL
lpTemplateName As String ' custom template name
End Type

Private Declare Function FindText Lib "comdlg32.dll" Alias "FindTextA " (pFindreplace As FINDREPLACE) As Long

Private Declare Function ReplaceText Lib "comdlg32.dll" Alias "ReplaceTextA" (pFindreplace As FINDREPLACE) As Long

[prefix]

用FRHookProc会很复杂，还是不要的好。

[prefix]

不过如果有200分的话，我会写上来。

[y1g1y1]

http://www.csdn.net/expert/TopicView.asp?id=74205

http://www.csdn.net/cnshare/soft/soft5806.shtm