設定使用者名稱及密碼後
反覆進入設定後
發現使用者名稱會變成False
希望chanshih能再更新
修改資料後 都存回原來的位子
備註 加密的部分 為了保護資料庫的安全 我所公開的12345678 並不是我程式內所用的數值
請各位網友放心使用本軟體
Private Sub 儲存設定(ByVal 是否變更使用者名稱及密碼 As Boolean)
Try
Dim XDom As XmlDocument = New XmlDocument()
XDom.Load(System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetModules(0).FullyQualifiedName) & "\CSY.xml")
'登入設定
Dim settings As XmlNode = XDom.SelectSingleNode("/記事本/設定參數")
If settings Is Nothing Then
Dim _data As XmlElement = XDom.CreateElement("設定參數")
Dim _login As XmlElement = XDom.CreateElement("登入設定")
Dim _loginV As XmlCDataSection = XDom.CreateCDataSection(登入設定.Checked)
_login.AppendChild(_loginV)
_data.AppendChild(_login)
XDom.SelectSingleNode("/記事本").AppendChild(_data)
Else
settings.Item("登入設定").ChildNodes(0).Value = 登入設定.Checked
End If
'變更使用者名稱及密碼
If 是否變更使用者名稱及密碼 Then
Dim users As XmlNode = XDom.SelectSingleNode("/記事本/使用者")
users.Item("使用者名稱").ChildNodes(0).Value = 字串加密(使用者名稱.Text, "12345678") '加密
users.Item("使用者密碼").ChildNodes(0).Value = 字串加密(使用者密碼.Text, "12345678") '加密
End If
XDom.Save(System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetModules(0).FullyQualifiedName) & "\CSY.xml")
主畫面.Show()
Me.Hide()
Catch Ex As Exception
MessageBox.Show(Ex.StackTrace)
End Try
End Sub
反覆進入設定後發現使用者名稱會變成False
不過退出程式再進入又恢復原使用者名稱
反覆進入設定後發現又變成False
如果按儲存下一次使用者名稱就要變成False
也就是說它會自動改名稱為False但不管它還是會恢復原狀啦
內文搜尋
從 APP 打開
X