<< 向前        下一页 >>

ID : 124

#Pragma Encrypt

功能

加密源程序编码。

格式

#Pragma Encrypt(On)
	'Statements
#Pragma Encrypt(Off)

指定项目

#Pragma Encrypt(On)
加密源程序编码的起始。
#Pragma Encrypt(Off)
加密源程序编码的末尾。

解说

加密源程序编码。

加密“#Pragma Encrypt(On)”和“#Pragma Encrypt(Off)”之间的程序。

相关项目

预处理、 加密源程序编码

注意事项

  • 请牢记加密/解密时的密码，以免忘记。如果忘记则无法解密。
  • 指令的“On”和“Off”不可使用变量。
  • 加密操作盘文件(*.pns)时，请勿加密操作盘编辑器用的保留领域部分。
    如果加密保留领域部分，则加密文件后，操作盘中将发生执行错误。另外，操作盘编辑器将无法正确识别文件。
    操作盘编辑器用保留领域部分的范围如下所示。
    #ifdef TP_DESIGNER
'<<--TPDESIGNER_RESERVED-->>

:

'<<--TPDESIGNER_RESERVED-->>
#endif

应用示例

'!TITLE "加密程序编码"
' 重复5次将1添加至变量aaa的处理
Sub Sample_PragmaEncrypt

  Dim aaa As Integer
  Dim bbb As Integer 
  Dim ccc As Integer 

  aaa = 0
  bbb = 0
  ccc = 0

' 加密程序编码的起始
#Pragma Encrypt(On) 

  ' 重复操作直至ccc变为15
  For ccc = 10 To 15 
    aaa = aaa + 1

' 加密程序编码的末尾
#Pragma Encrypt(Off)

  Next
  bbb = ccc

  ' 在讯息输出视窗中显示"5"
  PrintDbg aaa

  ' 在讯息输出视窗中显示"15"
  PrintDbg bbb

End Sub

ID : 124

<< 向前        下一页 >>