有一个电影是说一个人捡到别人的稿子出版成书出名

《妙笔生花》

剧情简介（参照百科）

Rory Jansen是一个正在经历创作瓶颈的作家，他渴望成为美国文学的下一个代言人，现在却失去了写作灵感。直到他发现了一部遗失的杰作，其中答虚迹有他渴望创造的所有内容，他占有了它，并重新成为文学界的宠儿。但他随后发现，他要面对道德的困境以及更惨重的代价。[1]

罗里·詹森和女友大学毕业后一起来到一个僻静的地方居住，一来是减轻生活成本，二来也是为了寻找创作灵感。他很勤奋，白天他和女友一起出去感受城市的生活并寻找灵感，而到了晚上，夜幕降临的时候他就坐在电脑桌前开始写他的小说。

在一次去往巴黎的蜜月旅行当中，罗里在一家古玩店里收获了一份礼物——一只看似古誉虚老但耐用的文件包。后来詹森在文件包里发现了一份被时间遗忘的手稿。那是一本小说，记述的是一个发生在1940年代巴黎的爱情故事。看完手稿之后，詹森觉得自己一辈子都写不出来这种小说，于是，他便偷偷摸摸地把这本小说占为己有。在重新把小说敲进电脑并出版之后，詹森重新战在了美国文坛的制高点－－他有理由嘲笑一切没有才华的作家－－包括他自己。

可是，小说出版之后，麻烦才接踵而至，因为小说中的故事和人物来源于真实生活，那些原作者过去的故事和朋友、敌人以及他的后代渐渐地都找上了门来。而且詹森也愈发地觉得，自己和小说的作者有着千丝万缕的联系。这到底是梦境一场、还清并是无法逃遁的过去，抑或是一个更大道德考验的开始？

配置postfix邮件服务器首先要检查本机是否已安装sendmail邮件服务器，如果安装了sendmail服务，请将sendmail服务停止或卸载sendmail服务。

可以使用下面两种方法：

1. service sendmail stop：关闭sendmail服务，也要将开机启动服务关闭，否则重启机器时会发生冲突。

chkconfig –level sendmail 345 off：关闭sendmail开机启动项

2. yum remove sendmail可以通过yum 删除sendmail服务

修改主机名 注意：主机名要和你配置的邮件域名相同，否则邮件会出问题

修改主机名方法：

hostname#查看本机名

hostname mail.lgh.com 临时修改，重启后失效

vim /etc/sysconfig/network#修改网卡配坦做置

HOSTNAME=mail.lgh.com #修改主机名，需要重启后起作用

echo "mail.lgh.com" >/proc/sys/kernel/hostname 这种方法是最好的办法，修改后不用重启就生效。

因为做实验测试邮件服务器，所要最好要把DNS服务安装上，这样测试比较容易理解，在真实生产环境，DNS一般不需要自己配置。

我们使用REHL5.4光盘进行一些软件包的安装，首先要先挂载光盘。

mount /dev/cdrom /mnt/cdrom //我光盘挂载的位置 /mnt/cdrom

安装一些软件包我们使用yum来进行安装，所以要先配置yum仓库。使用yum安装的好处是可以解决安装软件依赖关系问题。

首先要配置yum仓库：

cd /etc/yum.repos.repo 进入安装目录

将此目录下的rhel-debuginfo.repo 文件另存为一个文件名

cp rhel-debuginfo.repo service.repo

复制完成后： vim service.repo 修改yum仓库配置文件内容如下：

[rhel]

name=rhel

baseurl=file:///mnt/cdrom/Server //指定仓库的位置，光盘挂载的位置。

enabled=1 //是否启用yum仓库，值为1表示启用，值为0表示禁用。

gpgcheck=0//是否进行机校验，值为1表示校验，毁信卖值为0表示不校验。

gpgkey=file:///etc/pki/rpm-gpg/RPM-GPG-KEY-redhat-release

保存后退出

DNS服务配置：

#yum install bind*//通过YUM 安纤逗装DNS服务

# rpm -qa |grep bind* //安装完成后使用RPM检查所安装的软件包，至少要有以下4个软件包：

bind-devel-9.3.6-4.P1.el5

bind-9.3.6-4.P1.el5

bind-chroot-9.3.6-4.P1.el5

bind-utils-9.3.6-4.P1.el5

软件包安装完成后，我们首先要从模板中拷贝DNS主配置文件及数据库配置文件：

cp /usr/share/doc/bind-9.3.6/sample/etc/named.conf /var/named/chroot/etc/ DNS主配置文件

cp/usr/share/doc/bind-9.3.6/sample/var/named/localhost.zone /var/named/chroot/var/named/lgh.com.zone 数据库配置文件，注意空格位置

DNS主配置文件：/var/named/chrot/etc/named.conf

vim /var/named/chroot/etc/named.conf ：编辑DNS服务主配置文件

options {

directory "var/named"

}

zone "lgh.com"{

type master

file "lgh.com.zone"

}

zone "jeason.com" {

type master

file "jeason.com.zone"

}

DNS 服务数据库配置文件：/var/named/chroot/var/named/lgh.com.zone

$TTL86400

@ IN SOA @ root (

42 serial (d. adams)

3H refresh

15M retry

1W expiry

1D )minimum

IN NS mail.lgh.com.

mailIN A192.168.1.3

lgh.com. IN MX 10 mail.lgh.com.

DNS 服务数据库配置文件：/var/named/chroot/var/named/jeason.com.zone

$TTL86400

@ IN SOA @ root (

42 serial (d. adams)

3H refresh

15M retry

1W expiry

1D )minimum

IN NS mail.jeason.com.

mailIN A192.168.1.4

jeason.com. IN MX 10 mail.jeason.com.

只是唯一的一个文件是这样的话，还算不上是宏病毒的，可能是有恶意代码，而且很有可能在个人宏工作簿中，你改个文件名试试呢？建议删除所有宏代码

这是我的个人宏工作簿代码，不开宏第一次文件打开后自动闭，第二次打开文件，宏安全性就世档自动变为低了

Sub SetExcelVBA()

'练习

'功能：改变Excel的安全级别

'使用：Wscript，FileSystemObject，创建txt文件，注册表 *** 作，VBS文件自我删除，改变Excel文件读写属性等

'By Keanjeason@Officefans.net

Dim WSH As Object, ret As String, regStr As String

Dim strFullname As String, strVBS As String

Dim tf, fso, RetVal

'本程序仅适用于Excel 2003( 11.0)，如果当前版本不是2003则退出

'If Application.Version <>"11.0" Then MsgBox "本代码仅在 Excel 2003 下可使用! ", vbOKOnly + vbCritical, "Keanjeason": Exit Sub

'strFullname = ThisWorkbook.FullName '取得当前工作薄的全名

'strVBS = Replace(UCase(strFullname), ".XLS", ".vbs") 'temp文件VBS的文件名

Set WSH = CreateObject("Wscript.Shell") '创建Wscript对象

Err.Clear

On Error Resume Next

regStr = "HKEY_CURRENT_USER\Software\Microsoft\Office\" &Application.Version &"\Excel\Security\Level" '注册表中Excel vba安全级别位置

ret = WSH.Regread(regStr) '读取当前安全级别

If Err.Number <>0 Then

'判断读取是否成功

MsgBox "从注册表读肆返岁取当前Excel VBA安全级别设置失败，本程序将退出裂睁! ", vbOKOnly + vbCritical, "Keanjeason"

Exit Sub

Else

'如果当前Excel VBA安全级别不为“低”,则设置为“低”,值1-4分别对应：低，中，高，非常高

If Val(ret) <>1 Then ret = WSH.RegWrite(regStr, "1", "REG_DWORD")

End If

'Set fso = CreateObject("Scripting.FileSystemObject")

'Set tf = fso.CreateTextFile(strVBS, True) '创建temp文件VBS文件

'With tf

'写入VBS文件内容

' .WriteLine ("Dim oExcel,fso,delme")

' .WriteLine ("Set fso = CreateObject(""Scripting.FileSystemObject"")")

' .WriteLine ("Set oExcel = CreateObject(""excel.application"")")

'.WriteLine ("oExcel.Workbooks.Open " &Chr(34) &strFullname &Chr(34))

' .WriteLine ("oExcel.Visible=true")

' .WriteLine ("Set oExcel = Nothing")

' .WriteLine ("delme = fso.DeleteFile(" &Chr(34) &strVBS &Chr(34) &")")

' .Close

'End With

'With ThisWorkbook

'将当前文件属性设置为“只读”，以方便重新打开

' .ChangeFileAccess Mode:=xlReadOnly

' .Saved = True

'End With

'RetVal = WSH.Run(Chr(34) &strVBS &Chr(34), 1, True) '运行刚刚创建的VBS文件，新启动一个Excel程序

'Application.Quit '退出当前Excel

Set WSH = Nothing

Set fso = Nothing

End Sub

'安全设置

Function SetSafe()

Dim WshShell As Object

Dim RegkeyAs String

Regkey = "HKCU\Software\Microsoft\Office\" &Application.Version &"\Excel\Security\"

If Application.Version = "12.0" Then

Hdj = "VBAWarnings"

ElseIf Application.Version = "10.0" Then

Hdj = "Level"

ElseIf Application.Version = "11.0" Then

End If

With CreateObject("WScript.Shell")

If .Regread(Regkey &Hdj) <>1 Or .Regread(Regkey &"AccessVBOM") <>1 Then

'修改宏安全性设置(1低,2中,3高(0禁用)

.RegWrite Regkey &Hdj, 1, "REG_DWORD"

'信任已安装的增益集,信任为0

If Application.Version <>"12.0" Then .RegWrite Regkey &"DontTrustInstalledFiles", 0, "REG_DWORD"

.RegWrite Regkey &"AccessVBOM", 1, "REG_DWORD"

'ThisWorkbook.Close SaveChanges:=False

ThisWorkbook.Application.Quit

End If

End With

End Function

---