Question

如何实现一个word文档（或者做成其他格式也可以）只能被某一台电脑打开。

本人有一个word文档，请问怎么做才能让他在某一台指定的电脑上打开？比如绑定此电脑的mac地址或者硬盘序列号之类的。可以做成其他任何格式的文件。请高手指点一下，可付报酬，黑人别来哈~

Answer 1

我也同求！！

Answer 2

不懂不要瞎回答，人家问被某一台电脑打开，不是自己的电脑

Answer 3

用远程桌面试试

Answer 4

word 不是很清楚，用excel应该没问题，通过宏，用vbscript进行编程；

追问

excel也可以，能详细说一下吗？

追答

VB读取硬盘序列号 ,,找到excel的宏编辑，将下列代码写入后调试即可。
Private Const MAX_IDE_DRIVES As Long = 4
Private Const IDENTIFY_BUFFER_SIZE As Long = 512
Private Const DFP_SEND_DRIVE_COMMAND As Long = &H7C084
Private Const DFP_RECEIVE_DRIVE_DATA As Long = &H7C088
Private Type GETVERSIONOUTPARAMS
bVersion As Byte '
bRevision As Byte '
bReserved As Byte '
bIDEDeviceMap As Byte '
fCapabilities As Long '
dwReserved(3) As Long '
End Type
Private Type IDEREGS
bFeaturesReg As Byte '
bSectorCountReg As Byte '
bSectorNumberReg As Byte '
bCylLowReg As Byte '
bCylHighReg As Byte '
bDriveHeadReg As Byte '
bCommandReg As Byte '
End Type
Private Type SENDCMDINPARAMS
cBufferSize As Long '
irDriveRegs As IDEREGS '
bDriveNumber As Byte '
bReserved(2) As Byte
dwReserved(3) As Long
bBuffer(0) As Byte
End Type
Private Const IDE_ATAPI_ID As Long = &HA1 '
Private Const IDE_ID_FUNCTION As Long = &HEC '
Private Const IDE_EXECUTE_SMART_FUNCTION As Long = &HB0 '
Private Type DRIVERSTATUS
bReserved(1) As Byte '
dwReserved(1) As Long '
End Type
Private Type SENDCMDOUTPARAMS
cBufferSize As Long '
drvStatus As DRIVERSTATUS '
bBuffer(0) As Byte '
End Type

追问

我不会VB啊，你能帮我做吗？QQ317009377

追答

其实很简单的，学点编程就行的；

Answer 5

在存文件时更改一下类型看看