HOWTO:为 FrontPage 定制网页编码插件

关注

原创最新推荐文章于 2018-11-20 17:05:25 发布 1.3k 阅读 AI 写同款· GEO 优化 ›

打开 FP 的工具|宏| Visual Basic 编辑器，在 Microsoft_FrontPage 工程中插入一个新的用户窗体，并在窗体上绘制一个按钮。在工具|引用中选定 Microsoft Scripting Runtime 。双击按钮，并将下列代码输入 Click 过程内：

Private Sub CommandButton1_Click()
On Error Goto ErrHandle
'2/9/2006 陈炜
'定义新的编码器
   Dim objEncoder As New Scripting.Encoder
'声明 FrontPage 的 HTML 文档对象
   Dim objDoc As FPHTMLDocument
'声明 FrontPage 的撤销对象
   Dim objUndo As FPHTMLUndoTransaction
'声明一个字符串类型的变量来存储网页源码
   Dim strHTML As String
'将声明的 FrontPage 的 HTML 文档对象指定为当前文档
   Set objDoc = ActiveDocument
'建立一个标题为撤销脚本加密的撤销项目
   Set objUndo = objDoc.createUndoTransaction("撤销脚本加密")
'读取网页源码并赋值给 strHTML 变量
   strHTML = objDoc.DocumentHTML
'对 strHTML 变量加密并将结果重新赋值给 strHTML 变量
   strHTML = objEncoder.EncodeScriptFile(".htm", strHTML, 0, "JScript")
'将 strHTML 变量内存储的加密后的源码重新写入当前文件
   objDoc.DocumentHTML = strHTML
'标记撤销项目结束(若撤销, 则从声明至此位置的操作会被撤销)
   objUndo.Commit
ErrHandle:
'这里可以写错误处理
End Sub

至此，我们的工作就完成了，但需要说明的是 EncodeScriptFile 函数的使用方法：

EncodeScriptFile( strExtension As String, strStreamIn As String, nFlags As Long, strDefaultLanguage As String ) As String