其实很简单的,就是一开始想复杂了。
通过操作clipboard就可以了。一开始定义一个对象,然后录制用通过菜单操作把源文件copy到clipboard中。然后用一个clipboard.GetText方法。就实现了。源文件太长,我缩写了一下。缩写后的代码如下:
Set clipboard = CreateObject("Mercury.Clipboard")
Browser("some page").WinToolbar("ToolbarWindow32").Press "&View"
Browser("some page").WinMenu("ContextMenu").Select "Source"
Browser("some page").Page("some page").Sync
Window("Notepad").WinEditor("Edit").Type micCtrlDwn + "a" + micCtrlUp
Window("Notepad").WinEditor("Edit").Type micCtrlDwn + "c" + micCtrlUp
MsgBox clipboard.GetText
' ~~~~~~~~~~~~~~~这里原来是把内容写到一个文件里,当然也可以进行其它操作。
Window("Notepad").Close
Browser("some page").Page("some page").Sync
Browser("some page").Close
也许各位还有其它的办法,可以交流一下。