Ò»¸öXML¶ÁдÀà

ÄܶÁдÈκÎXMLÅäÖÃÎļþ£¬ÄÜʵÏÖÓû§²ãÃæµÄ¼Ó½âÃÜ£¬ÒÔÏ´úÂëÖеÄB64Eº¯ÊýΪ¼ÓÃܺ¯Êý£¬B64DΪ½âÃܺ¯Êý£¬¿ÉÒÔ×Ô¼º±àд
Éú³ÉµÄXML¸ù½ÚµãΪZBS£¬¿ÉÒÔÌ滻ΪÆäËüÓÐÒâÒåµÄ½ÚµãÃû³Æ
Option Explicit
Public xmlDoc As DOMDocument
Public aNode As IXMLDOMElement 'µ±Ç°¼¤»îNode
Public xmlFilePath As String, ReadOnly As Boolean '±£´æ·¾¶,Ö»¶ÁÊôÐÔ
Private sPassWd As String, sVer As Single
Private sChanged As Boolean
Public Property Get Changed() As Boolean 'ÅжÏÊÇ·ñÐÞ¸Ä
    Changed = sChanged
End Property
Public Property Let Changed(sValue As Boolean)   'ÊÖ¹¤¸Ä¶¯ºóÒªÉèÖÃÐ޸ıêÖ¾
   sChanged = sValue
End Property
Public Property Let PassWd(ByVal sValue As String)
    If sValue <> "" Then sValue = mG.B64E(sValue, , "32rv415")
    If sValue = sPassWd Then Exit Property
    Dim ddd As IXMLDOMNode, ddd1 As IXMLDOMNode, ddd2 As IXMLDOMAttribute, ddd3 As Boolean, ddd4 As String
    For Each ddd In xmlDoc.selectNodes("//*")
        Set ddd2 = ddd.Attributes.getNamedItem("Encode")
        If ddd2 Is Nothing Then
            ddd3 = True
        Else
            ddd3 = CBool(ddd2.Text)
        End If
        If ddd3 Then 'ÐèÒª¼Ó½âÃÜ
            For Each ddd1 In ddd.childNodes
                If ddd1.nodeType = 3 Then
                    ddd4 = ddd1.Text
                    If sPassWd &