|
本帖最后由 ahphsautoit 于 2010-11-22 11:12 编辑
本人最近在研究富文本编辑控件,发现一个现象:用富文本编辑控件保存的RTF文档,自身能够正确的把保存的内容读出来显示在富文本编辑控件中,但是用WORD或是记事本、写字板等其它正常的方法打开该RTF文档后,看不到其保存的文字,不知道这算不算一种可靠的文本加密方式,请高手验证一下哦!
点击保存RTF后,在脚本目录将生存一个RTF文档。
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <SHAppBarMessage.au3>
#include <GuiEdit.au3>
#include <ScrollBarConstants.au3>
#include <GuiRichEdit.au3>
$form = GUICreate('富文本编辑控件示例', 300, 300)
$edit = _GUICtrlRichEdit_Create($form, '', 0, 0, 300, 260, BitOR($WS_VSCROLL, $ES_MULTILINE, $ES_NOHIDESEL, $ES_WANTRETURN));创建主列表
_GUICtrlRichEdit_SetReadOnly($edit, False);允许写入
_GUICtrlRichEdit_SetBkColor($edit, 0x1d3840);背景色
_GUICtrlRichEdit_SetCharColor($edit, 0xffffff);文本色
_GUICtrlRichEdit_SetFont($edit, 12);字体
$button1 = GUICtrlCreateButton('保存为RTF', 10, 270, 80, 20)
$button2 = GUICtrlCreateButton('清空显示屏', 100, 270, 80, 20)
$button3 = GUICtrlCreateButton('读取RTF', 190, 270, 80, 20)
GUISetState()
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $button1
_GUICtrlRichEdit_StreamToFile($edit, @ScriptDir & '\富文本示例.rtf');写入RTF
Case $button2
_GUICtrlRichEdit_SetText($edit, '');清空内容
Case $button3
_GUICtrlRichEdit_StreamFromFile($edit, @ScriptDir & '\富文本示例.rtf');读取RTF
EndSwitch
WEnd |
|