| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 910 人关注过本帖
标题:一个关于用vb.net电子日记软件制作实现加密的问题!
取消只看楼主 加入收藏
魔的天使之翼
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-9-21
收藏
 问题点数:0 回复次数:0 
一个关于用vb.net电子日记软件制作实现加密的问题!


我想做用vb.net一个电子日记的软件,现在的打开保存功能是实现了,不过感觉有点不合适。保存功能代码:

Private Sub MenuItembaocun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItembaocun.Click
Dim s As String, name As String
Static count As Integer = 1
Dim message, title As String
Dim style As MsgBoxStyle
If txttitle.Text = "" Then
message = "请输入日记标题"
title = "错误"
MsgBox(message, MsgBoxStyle.OKOnly, title)
Else
name = txttitle.Text & count & ".txt"
s = Application.StartupPath() + "\" & txttitle.Text & count & ".txt"
count = count + 1
RichTextBox1.SaveFile(s, RichTextBoxStreamType.PlainText)

message = "保存成功!!"
title = "保存文件"
style = MsgBoxStyle.OKOnly
MsgBox(message, style, title)
End If
End Sub

这样可以保存到我指定的路径下。
打开功能代码是:
Private Sub MenuItemopen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemopen.Click

If Me.OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Dim MyFileName As String = Me.OpenFileDialog1.FileName

Me.RichTextBox1.LoadFile(MyFileName, RichTextBoxStreamType.PlainText)
Me.OpenFileDialog1.Filter = "*.txt|*.txt"
End If
End Sub

虽然没有错误,但我觉得不合适,日记软件肯定写的日记是要保密的,这样,只要别人知道你保存的地方,就可以看到
你写的内容,而且打开还必须要使用者知道自己保存哪里了,不然找不到,打开,可以打开电脑上的所有txt文件。
这样的功能不能满足日记软件的要求。不能实现内容的保密,要看以前写的日记也比较麻烦。

我想实现像qq空间那样,可以打开的话可以列出以前写的日记的纪录,选择然后打开。或者打开的话,使用者只能看到自己以前写的日记,不会电脑里面所有txt文件都看到,保存的文件别人不能在“我的电脑”路径下找到,实现加密。

找了好多,都不知道怎么办,希望各位能帮帮我,谢谢!

搜索更多相关主题的帖子: 电子日记 软件 String Dim 
2007-11-21 19:11
快速回复:一个关于用vb.net电子日记软件制作实现加密的问题!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016175 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved