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

最新推荐文章于 2021-09-07 23:30:28 发布

frontgoggle

最新推荐文章于 2021-09-07 23:30:28 发布

阅读量1.2k

点赞数

分类专栏： SharePoint Designer 文章标签： microsoft string 加密 scripting vbscript 文档

本文链接：https://blog.csdn.net/frontgoggle/article/details/595693

版权

SharePoint Designer 专栏收录该内容

10 篇文章 0 订阅

订阅专栏

打开 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